Changeset 11043


Ignore:
Timestamp:
Oct 10, 2008, 10:12:58 PM (11 years ago)
Author:
gz
Message:

Give accessor methods a more useful lambda list

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-clos.lisp

    r10938 r11043  
    913913          `(:qualifiers nil
    914914            :specializers ,(list class)
    915             :lambda-list (instance)
     915            :lambda-list (,(or (%class-name class) 'instance))
    916916            :name ,(function-name gf)
    917917            :slot-definition ,dslotd))
     
    947947          `(:qualifiers nil
    948948            :specializers ,(list *t-class* class)
    949             :lambda-list (new-value instance)
     949            :lambda-list (new-value ,(or (%class-name class) 'instance))
    950950            :name ,(function-name gf)
    951951            :slot-definition ,dslotd))
Note: See TracChangeset for help on using the changeset viewer.