Changeset 14483


Ignore:
Timestamp:
04/29/13 08:54:29 (9 years ago)
Author:
rschlatte
Message:

don't use funcallable-standard-instance-access on standard-class objects

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r14482 r14483  
    22792279       (let* ((method (%car methods))
    22802280              (class (car (std-method-specializers method)))
    2281               (slot-name (slot-definition-name (accessor-method-slot-definition method))))
     2281              (slot-name (slot-definition-name (accessor-method-slot-definition
     2282                                                method)))
     2283              (reader (if (typep class 'funcallable-standard-class)
     2284                          #'funcallable-standard-instance-access
     2285                          #'standard-instance-access)))
    22822286         #'(lambda (arg)
    22832287             (declare (optimize speed))
     
    22932297               (let ((value (if (consp location)
    22942298                                (cdr location) ; :allocation :class
    2295                                 (funcallable-standard-instance-access arg location))))
     2299                                (funcall reader arg location))))
    22962300                 (if (eq value +slot-unbound+)
    22972301                     ;; fix SLOT-UNBOUND.5 from ansi test suite
Note: See TracChangeset for help on using the changeset viewer.