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

[Helmut Eller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(inspect-for-emacs): Add support for funcallable instances.

Date: Mon Nov 21 00:29:25 2005
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.157 slime/swank-cmucl.lisp:1.158
--- slime/swank-cmucl.lisp:1.157	Sat Nov 12 00:43:43 2005
+++ slime/swank-cmucl.lisp	Mon Nov 21 00:29:25 2005
@@ -1428,6 +1428,12 @@
 (defimplementation macroexpand-all (form)
   (walker:macroexpand-all form))
 
+(defimplementation compiler-macroexpand-1 (form &optional env)
+  (ext:compiler-macroexpand-1 form env))
+
+(defimplementation compiler-macroexpand (form &optional env)
+  (ext:compiler-macroexpand form env))
+
 (defimplementation set-default-directory (directory)
   (setf (ext:default-directory) (namestring directory))
   ;; Setting *default-pathname-defaults* to an absolute directory
@@ -1899,6 +1905,16 @@
           (t
            (call-next-method)))))
 
+(defmethod inspect-for-emacs ((o kernel:funcallable-instance)
+                              (i cmucl-inspector))
+  (declare (ignore i))
+  (values 
+   (format nil "~A is a funcallable-instance." o)
+   (append (label-value-line* 
+            (:function (kernel:%funcallable-instance-function o))
+            (:lexenv  (kernel:%funcallable-instance-lexenv o))
+            (:layout  (kernel:%funcallable-instance-layout o)))
+           (nth-value 1 (cmucl-inspect o)))))
 
 (defmethod inspect-for-emacs ((o kernel:code-component) (_ cmucl-inspector))
   (declare (ignore _))