/[slime]/slime/swank-ecl.lisp
ViewVC logotype

Diff of /slime/swank-ecl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.79 by sboukarev, Mon Dec 17 11:33:47 2012 UTC revision 1.80 by heller, Mon Jan 7 10:12:09 2013 UTC
# Line 329  Line 329 
329    
330  (defimplementation describe-symbol-for-emacs (symbol)  (defimplementation describe-symbol-for-emacs (symbol)
331    (let ((result '()))    (let ((result '()))
332      (dolist (type '(:VARIABLE :FUNCTION :CLASS))      (flet ((frob (type boundp)
333        (when-let (doc (describe-definition symbol type))               (when (funcall boundp symbol)
334          (setf result (list* type doc result))))                 (let ((doc (describe-definition symbol type)))
335                     (setf result (list* type doc result))))))
336          (frob :VARIABLE #'boundp)
337          (frob :FUNCTION #'fboundp)
338          (frob :CLASS (lambda (x) (find-class x nil))))
339      result))      result))
340    
341  (defimplementation describe-definition (name type)  (defimplementation describe-definition (name type)

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80

  ViewVC Help
Powered by ViewVC 1.1.5