Changeset 12414

Timestamp:

Jul 14, 2009, 10:25:58 PM (10 years ago)

Author:

gz

Message:

Add a name-of method for eql-specializer

File:

• branches/working-0711/ccl/lib/source-files.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/source-files.lisp

@@ -41 +41 @@
   (:method ((thing class)) (class-name thing))
   (:method ((thing method-combination)) (method-combination-name thing))
-  (:method ((thing package)) (package-name thing)))
+  (:method ((thing package)) (package-name thing))
+  (:method ((thing eql-specializer)) `(eql ,(eql-specializer-object thing))))
 
 ;; This used to be weak, but the keys are symbols-with-definitions, so why bother.