Changeset 14561


Ignore:
Timestamp:
Jan 7, 2011, 7:51:47 PM (9 years ago)
Author:
rme
Message:

Merge r14550 (%maybe-std-slot-value-using-class performance fix) from trunk.

Location:
release/1.6/source
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/1.6/source

  • release/1.6/source/level-0/l0-misc.lisp

    • Property svn:mergeinfo changed (with no actual effect on merging)
  • release/1.6/source/level-1/l1-clos-boot.lisp

    r14381 r14561  
    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.