[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv8707

Modified Files:
	swank.lisp 
Log Message:
(documentation-symbol): New optional argument for return value if the
symbol is not documented.

Date: Tue Dec  2 08:56:28 2003
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.74 slime/swank.lisp:1.75
--- slime/swank.lisp:1.74	Sun Nov 30 03:14:28 2003
+++ slime/swank.lisp	Tue Dec  2 08:56:27 2003
@@ -721,15 +721,16 @@
   (print-description-to-string
    (symbol-function (find-symbol-designator symbol-name))))
 
-(defslimefun documentation-symbol (symbol-name)
+(defslimefun documentation-symbol (symbol-name &optional default)
   (let ((*package* *buffer-package*))
     (let ((vdoc (documentation (symbol-from-string symbol-name) 'variable))
           (fdoc (documentation (symbol-from-string symbol-name) 'function)))
-      (and (or vdoc fdoc)
-           (concatenate 'string
-                        fdoc
-                        (and vdoc fdoc '(#\Newline #\Newline))
-                        vdoc)))))
+      (or (and (or vdoc fdoc)
+               (concatenate 'string
+                            fdoc
+                            (and vdoc fdoc '(#\Newline #\Newline))
+                            vdoc))
+          default))))
 
 
 ;;;;