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

[Marco Baringer]

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

Modified Files:
	swank-allegro.lisp 
Log Message:
(inspect-for-emacs): Use excl::external-fn_symdef to get the function
documentation.

Date: Mon Oct 25 18:17:11 2004
Author: mbaringer

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.60 slime/swank-allegro.lisp:1.61
--- slime/swank-allegro.lisp:1.60	Fri Oct  1 14:16:44 2004
+++ slime/swank-allegro.lisp	Mon Oct 25 18:17:11 2004
@@ -418,8 +418,9 @@
   (values "A function."
           `("Name: " (:value ,(function-name f)) (:newline)
             "Its argument list is: " ,(princ-to-string (arglist f)) (:newline)
-            "Documentation:" (:newline)
-            ,(documentation f 'function))))
+            ,@ (let ((doc (documentation (excl::external-fn_symdef f) 'function)))
+                 (when doc
+                   `("Documentation:" (:newline) ,doc))))))
 
 (defmethod inspect-for-emacs ((class structure-class) (inspector acl-inspector))
   (values "A structure class."