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

[Marco Baringer]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(inspect-for-emacs): Insert function object's
documentation when it's available.

Date: Wed Sep 15 19:31:58 2004
Author: mbaringer

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.102 slime/swank-sbcl.lisp:1.103
--- slime/swank-sbcl.lisp:1.102	Tue Sep 14 18:01:06 2004
+++ slime/swank-sbcl.lisp	Wed Sep 15 19:31:58 2004
@@ -692,13 +692,15 @@
   (let ((header (sb-kernel:widetag-of o)))
     (cond ((= header sb-vm:simple-fun-header-widetag)
 	   (values "A simple-fun." 
-                   `("Self: " (:value ,(sb-kernel:%simple-fun-self o))
+                   `("Name: " (:value ,(sb-kernel:%simple-fun-name o))
                      (:newline)
-                     "Next: " (:value ,(sb-kernel:%simple-fun-next o))
+                     "Arglist: " (:value ,(sb-kernel:%simple-fun-arglist o))
                      (:newline)
-                     "Name: " (:value ,(sb-kernel:%simple-fun-name o))
+                     ,@(when (documentation o t)
+                         `("Documentation: " (:newline) ,(documentation o t) (:newline)))
+                     "Self: " (:value ,(sb-kernel:%simple-fun-self o))
                      (:newline)
-                     "Arglist: " (:value ,(sb-kernel:%simple-fun-arglist o))
+                     "Next: " (:value ,(sb-kernel:%simple-fun-next o))
                      (:newline)
                      "Type: " (:value ,(sb-kernel:%simple-fun-type o))
                      (:newline)
@@ -707,6 +709,8 @@
 	   (values "A closure."
 		   `("Function: " (:value ,(sb-kernel:%closure-fun o))
                      (:newline)
+                     ,@(when (documentation o t)
+                         `("Documentation: " (:newline) ,(documentation o t) (:newline)))
                      "Closed over values:"
                      (:newline)
                      ,@(loop for i from 0 
@@ -739,7 +743,10 @@
   (values "A fdefn object."
 	  `("Name: "  (:value ,(sb-kernel:fdefn-name o))
             (:newline)
-            "Function" (:value,(sb-kernel:fdefn-fun o)))))
+            "Function" (:value,(sb-kernel:fdefn-fun o))
+            (:newline)
+            ,@(when (documentation o t)
+                `("Documentation: " (:newline) ,(documentation o t) (:newline))))))
 
 (defmethod inspect-for-emacs :around ((o generic-function) (inspector sbcl-inspector))
   (declare (ignore inspector))