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

[Alan Ruttenberg]

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

Modified Files:
	swank-openmcl.lisp 
Log Message:

Fix specializer-name to handle structure-class, to fix edit definition
of methods specialized on ddestructs

Date: Fri May  6 18:30:05 2005
Author: aruttenberg

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.92 slime/swank-openmcl.lisp:1.93
--- slime/swank-openmcl.lisp:1.92	Mon Nov 29 18:35:03 2004
+++ slime/swank-openmcl.lisp	Fri May  6 18:30:02 2005
@@ -118,8 +118,9 @@
 (defun specializer-name (spec)
   (etypecase spec
     (cons spec)
-    ((or swank-mop:standard-class built-in-class) (swank-mop:class-name spec))
-    (swank-mop:eql-specializer `(eql ,(swank-mop:eql-specializer-object spec)))))
+    ((or structure-class swank-mop:standard-class built-in-class) (swank-mop:class-name spec))
+    (swank-mop:eql-specializer `(eql ,(swank-mop:eql-specializer-object spec)))
+    ))
 
 ;;; TCP Server