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

[Andras Simon]

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

Modified Files:
	swank-abcl.lisp 
Log Message:
Inspector for functions.
Date: Wed Sep 15 00:42:52 2004
Author: asimon

Index: slime/swank-abcl.lisp
diff -u slime/swank-abcl.lisp:1.15 slime/swank-abcl.lisp:1.16
--- slime/swank-abcl.lisp:1.15	Tue Sep 14 19:37:21 2004
+++ slime/swank-abcl.lisp	Wed Sep 15 00:42:52 2004
@@ -356,7 +356,7 @@
 (defimplementation make-default-inspector ()
   (make-instance 'abcl-inspector))
 
-(defmethod inspect-for-emacs ((slot sys::slot-definition) (inspector t))
+(defmethod inspect-for-emacs ((slot sys::slot-definition) (inspector abcl-inspector))
   (declare (ignore inspector))
   (values "A slot." 
           `("Name: " (:value ,(sys::slot-definition-name slot))
@@ -371,6 +371,18 @@
                              "#<unspecified>") (:newline)
             "  Function: " (:value ,(sys::slot-definition-initfunction slot))
             (:newline))))
+
+(defmethod inspect-for-emacs ((f function) (inspector abcl-inspector))
+  (declare (ignore inspector))
+  (values "A function."
+          `("Name: " (:value ,(function-name f)) (:newline)
+            "Argument list: " ,(princ-to-string (sys::arglist f))
+            (:newline)
+            #+nil,@(when (documentation f t)
+                         `("Documentation:" (:newline) ,(documentation f t) (:newline)))
+            ,@(when (function-lambda-expression f)
+                    `("Lambda expression:" 
+                      (:newline) ,(prin1-to-string (function-lambda-expression f)) (:newline))))))
 
 #|