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

[Marco Baringer]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(swank-mop): Export eql-specializer, eql-specializer-object and
specializer-direct-methods from swank-mop.
(inspect-for-emacs): Thinko fix.

Date: Fri Sep 17 14:50:08 2004
Author: mbaringer

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.117 slime/swank-cmucl.lisp:1.118
--- slime/swank-cmucl.lisp:1.117	Wed Sep 15 19:33:57 2004
+++ slime/swank-cmucl.lisp	Fri Sep 17 14:50:08 2004
@@ -23,6 +23,7 @@
      pcl:standard-slot-definition
      cl:method
      cl:standard-class
+     pcl:eql-specializer
      ;; standard-class readers
      pcl:class-default-initargs
      pcl:class-direct-default-initargs
@@ -34,6 +35,9 @@
      pcl:class-precedence-list
      pcl:class-prototype
      pcl:class-slots
+     pcl:specializer-direct-methods
+     ;; eql-specializer accessors
+     pcl:eql-specializer-object
      ;; generic function readers
      pcl:generic-function-argument-precedence-order
      pcl:generic-function-declarations
@@ -1768,11 +1772,12 @@
                       (:newline)
                       ,@(when (documentation o t)
                           `("Documentation: " (:newline) ,(documentation o t) (:newline)))
-                      (loop for i from 0 below (- (kernel:get-closure-length o) 
-                                                  (1- vm:closure-info-offset))
-                         collect (princ-to-string i)
-                         collect " = "
-                         collect (:value ,(kernel:%closure-index-ref o i)))))))
+                      ,@(loop
+                           for i from 0 below (- (kernel:get-closure-length o) 
+                                                 (1- vm:closure-info-offset))
+                           collect (princ-to-string i)
+                           collect " = "
+                           collect `(:value ,(kernel:%closure-index-ref o i)))))))
 	  (t (call-next-method o)))))
 
 (defmethod inspect-for-emacs ((o kernel:code-component) (inspector cmucl-inspector))