Changeset 13971


Ignore:
Timestamp:
06/17/12 11:26:43 (9 years ago)
Author:
rschlatte
Message:

fix ansi tests SLOT-UNBOUND.5, SLOT-UNBOUND.6

File:
1 edited

Legend:

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

    r13970 r13971  
    20182018                              (funcallable-standard-instance-access arg location))))
    20192019               (if (eq value +slot-unbound+)
    2020                    (slot-unbound class arg slot-name)
     2020                   ;; fix SLOT-UNBOUND.5 from ansi test suite
     2021                   (nth-value 0 (slot-unbound class arg slot-name))
    20212022                   value))))))
    20222023
     
    31283129                    (standard-instance-access instance location))))
    31293130    (if (eq value +slot-unbound+)
    3130         (slot-unbound class instance (slot-definition-name slot))
     3131        ;; fix SLOT-UNBOUND.5 from ansi test suite
     3132        (nth-value 0 (slot-unbound class instance (slot-definition-name slot)))
    31313133        value)))
    31323134
     
    31413143                    (funcallable-standard-instance-access instance location))))
    31423144    (if (eq value +slot-unbound+)
    3143         (slot-unbound class instance (slot-definition-name slot))
     3145        ;; fix SLOT-UNBOUND.5 from ansi test suite
     3146        (nth-value 0 (slot-unbound class instance (slot-definition-name slot)))
    31443147        value)))
    31453148
Note: See TracChangeset for help on using the changeset viewer.