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

[Marco Baringer]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(swank-mop): Export eql-specializer, eql-specializer-object and
specializer-direct-methods from swank-mop.
(inspect-for-emacs): Fix typo in ignore declaration.

Date: Fri Sep 17 14:51:34 2004
Author: mbaringer

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.103 slime/swank-sbcl.lisp:1.104
--- slime/swank-sbcl.lisp:1.103	Wed Sep 15 19:31:58 2004
+++ slime/swank-sbcl.lisp	Fri Sep 17 14:51:33 2004
@@ -43,6 +43,7 @@
    sb-mop::standard-slot-definition
    cl:method
    cl:standard-class
+   sb-mop:eql-specializer
    ;; standard-class readers
    sb-mop:class-default-initargs
    sb-mop:class-direct-default-initargs
@@ -54,6 +55,9 @@
    sb-mop:class-precedence-list
    sb-mop:class-prototype
    sb-mop:class-slots
+   sb-mop:specializer-direct-methods
+   ;; eql-specializer accessors
+   sb-mop:eql-specializer-object
    ;; generic function readers
    sb-mop:generic-function-argument-precedence-order
    sb-mop:generic-function-declarations
@@ -739,7 +743,7 @@
 	    "Instructions: "  (:value ,(sb-kernel:code-instructions o)))))
 
 (defmethod inspect-for-emacs ((o sb-kernel:fdefn) (inspector sbcl-inspector))
-  (declare (ignore sbcl-inspector))
+  (declare (ignore inspector))
   (values "A fdefn object."
 	  `("Name: "  (:value ,(sb-kernel:fdefn-name o))
             (:newline)