Changeset 9604


Ignore:
Timestamp:
May 27, 2008, 4:13:13 PM (11 years ago)
Author:
gz
Message:

Fix for slot-id-boundp from Jason Kantz

File:
1 edited

Legend:

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

    r9578 r9604  
    29172917  (let* ((wrapper (instance-class-wrapper instance))
    29182918         (class (%wrapper-class wrapper))
    2919          (slotd (funcall (%wrapper-slot-id->slotd wrapper) slot-id)))
     2919         (slotd (funcall (%wrapper-slot-id->slotd wrapper) instance slot-id)))
    29202920    (if slotd
    29212921      (%maybe-std-slot-boundp-using-class class instance slotd)
Note: See TracChangeset for help on using the changeset viewer.