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

[Marco Baringer]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
(swank-mop): Export specializer-direct-methods.
(eql-specializer): Implement.
(eql-specializer-object): Implement.

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

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.58 slime/swank-lispworks.lisp:1.59
--- slime/swank-lispworks.lisp:1.58	Tue Sep 14 18:01:06 2004
+++ slime/swank-lispworks.lisp	Fri Sep 17 14:50:41 2004
@@ -42,6 +42,7 @@
    clos:class-precedence-list
    clos:class-prototype
    clos:class-slots
+   clos:specializer-direct-methods
    ;; generic function readers
    clos:generic-function-argument-precedence-order
    clos:generic-function-declarations
@@ -68,6 +69,13 @@
 
 (defun swank-mop:slot-definition-documentation (slot)
   (documentation slot t))
+
+;;;; lispworks doesn't have the eql-specializer class, it represents
+;;;; them as a list of `(EQL ,OBJECT)
+(deftype swank-mop:eql-specializer () 'cons)
+
+(defun swank-mop:eql-specializer-object (eql-spec)
+  (second eql-spec))
 
 (when (fboundp 'dspec::define-dspec-alias)
   (dspec::define-dspec-alias defimplementation (name args &rest body)