Changeset 14154


Ignore:
Timestamp:
09/19/12 18:58:21 (9 years ago)
Author:
rschlatte
Message:

Fix slot-boundp-using-class.

  • Reported by Pascal Costanza
File:
1 edited

Legend:

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

    r14153 r14154  
    34753475  (let ((location (slot-definition-location slot)))
    34763476    (if (consp location)
    3477         (eq (cdr location) +slot-unbound+) ; :allocation :class
    3478         (eq (standard-instance-access instance location) +slot-unbound+))))
     3477        (not (eq (cdr location) +slot-unbound+)) ; :allocation :class
     3478        (not (eq (standard-instance-access instance location) +slot-unbound+)))))
    34793479
    34803480(defmethod slot-boundp-using-class ((class funcallable-standard-class) instance
     
    34853485  (let ((location (slot-definition-location slot)))
    34863486    (if (consp location)
    3487         (eq (cdr location) +slot-unbound+) ; :allocation :class
    3488         (eq (funcallable-standard-instance-access instance location)
    3489             +slot-unbound+))))
     3487        (not (eq (cdr location) +slot-unbound+)) ; :allocation :class
     3488        (not (eq (funcallable-standard-instance-access instance location)
     3489                 +slot-unbound+)))))
    34903490
    34913491(defmethod slot-boundp-using-class ((class structure-class) instance slot)
Note: See TracChangeset for help on using the changeset viewer.