Changeset 11290

Timestamp:

08/30/08 19:35:25 (15 years ago)

Author:

ehuelsmann

Message:

Fix printing of EQL specializers.

Found by: Michael Travers; mtravers at users.sourceforge.net

File:

• trunk/j/src/org/armedbear/lisp/print-object.lisp (modified) (1 diff)

trunk/j/src/org/armedbear/lisp/print-object.lisp

@@ -59 +59 @@
              (%method-generic-function method))
             (method-qualifiers method)
-            (mapcar #'class-name
+            (mapcar #'(lambda (c)
+                        (if (typep c 'mop::eql-specializer)
+                            `(eql ,(mop::eql-specializer-object c))
+                          (class-name c)))
                     (%method-specializers method))))
   method)