Changeset 14550 for trunk/source/level-1


Ignore:
Timestamp:
Jan 4, 2011, 3:34:58 AM (9 years ago)
Author:
rme
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos-boot.lisp

    r14365 r14550  
    27832783               (instance.class-wrapper slotd))
    27842784           (eq *standard-class-wrapper* (instance.class-wrapper class))
    2785            (let* ((allocation (standard-effective-slot-definition.location slotd)))
     2785           (let* ((allocation (standard-effective-slot-definition.allocation slotd)))
    27862786             (or (eq allocation :instance) (eq allocation :class))))
    27872787    (%std-slot-vector-value (instance-slots instance) slotd)
Note: See TracChangeset for help on using the changeset viewer.