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

[Alan Ruttenberg]

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

Modified Files:
	swank-openmcl.lisp 
Log Message:

Date: Mon Aug 15 22:13:15 2005
Author: aruttenberg

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.95 slime/swank-openmcl.lisp:1.96
--- slime/swank-openmcl.lisp:1.95	Fri Jul 22 12:52:32 2005
+++ slime/swank-openmcl.lisp	Mon Aug 15 22:13:15 2005
@@ -118,9 +118,10 @@
 (defun specializer-name (spec)
   (etypecase spec
     (cons 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)))
-    ))
+    (class (swank-mop:class-name spec))
+    (swank-mop:eql-specializer `(eql ,(swank-mop:eql-specializer-object spec))))
+  )
+
 
 ;;; TCP Server