Changeset 9604

Timestamp:

May 27, 2008, 9:13:13 AM (17 years ago)

Author:

gz

Message:

Fix for slot-id-boundp from Jason Kantz

File:

• branches/working-0711/ccl/level-1/l1-clos-boot.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-clos-boot.lisp

@@ -2917 +2917 @@
   (let* ((wrapper (instance-class-wrapper instance))
          (class (%wrapper-class wrapper))
-         (slotd (funcall (%wrapper-slot-id->slotd wrapper) slot-id)))
+         (slotd (funcall (%wrapper-slot-id->slotd wrapper) instance slot-id)))
     (if slotd
       (%maybe-std-slot-boundp-using-class class instance slotd)