Ignore:
Timestamp:
Jul 14, 2009, 10:25:58 PM (10 years ago)
Author:
gz
Message:

Add a name-of method for eql-specializer

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/source-files.lisp

    r12408 r12414  
    4141  (:method ((thing class)) (class-name thing))
    4242  (:method ((thing method-combination)) (method-combination-name thing))
    43   (:method ((thing package)) (package-name thing)))
     43  (:method ((thing package)) (package-name thing))
     44  (:method ((thing eql-specializer)) `(eql ,(eql-specializer-object thing))))
    4445
    4546;; This used to be weak, but the keys are symbols-with-definitions, so why bother.
Note: See TracChangeset for help on using the changeset viewer.