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

Diff of /slime/swank.lisp

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

revision 1.74 by heller, Sun Nov 30 08:14:28 2003 UTC revision 1.75 by heller, Tue Dec 2 13:56:27 2003 UTC
# Line 721  that symbols accessible in the current p Line 721  that symbols accessible in the current p
721    (print-description-to-string    (print-description-to-string
722     (symbol-function (find-symbol-designator symbol-name))))     (symbol-function (find-symbol-designator symbol-name))))
723    
724  (defslimefun documentation-symbol (symbol-name)  (defslimefun documentation-symbol (symbol-name &optional default)
725    (let ((*package* *buffer-package*))    (let ((*package* *buffer-package*))
726      (let ((vdoc (documentation (symbol-from-string symbol-name) 'variable))      (let ((vdoc (documentation (symbol-from-string symbol-name) 'variable))
727            (fdoc (documentation (symbol-from-string symbol-name) 'function)))            (fdoc (documentation (symbol-from-string symbol-name) 'function)))
728        (and (or vdoc fdoc)        (or (and (or vdoc fdoc)
729             (concatenate 'string                 (concatenate 'string
730                          fdoc                              fdoc
731                          (and vdoc fdoc '(#\Newline #\Newline))                              (and vdoc fdoc '(#\Newline #\Newline))
732                          vdoc)))))                              vdoc))
733              default))))
734    
735    
736  ;;;;  ;;;;

Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75

  ViewVC Help
Powered by ViewVC 1.1.5