Changeset 14550

Timestamp:

Jan 3, 2011, 7:34:58 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

In %maybe-std-slot-value-using-class: we want
(standard-effective-slot-definition.allocation slotd),
not s-e-s-d.location.

This corrects a mistake in r12761 (found by Ivan Shvedunov).

File:

• trunk/source/level-1/l1-clos-boot.lisp (modified) (1 diff)

trunk/source/level-1/l1-clos-boot.lisp

@@ -2783 +2783 @@
                (instance.class-wrapper slotd))
            (eq *standard-class-wrapper* (instance.class-wrapper class))
-           (let* ((allocation (standard-effective-slot-definition.location slotd)))
+           (let* ((allocation (standard-effective-slot-definition.allocation slotd)))
              (or (eq allocation :instance) (eq allocation :class))))
     (%std-slot-vector-value (instance-slots instance) slotd)