Changeset 14154
- Timestamp:
- 09/19/12 18:58:21 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r14153 r14154 3475 3475 (let ((location (slot-definition-location slot))) 3476 3476 (if (consp location) 3477 ( eq (cdr location) +slot-unbound+) ; :allocation :class3478 ( 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+))))) 3479 3479 3480 3480 (defmethod slot-boundp-using-class ((class funcallable-standard-class) instance … … 3485 3485 (let ((location (slot-definition-location slot))) 3486 3486 (if (consp location) 3487 ( eq (cdr location) +slot-unbound+) ; :allocation :class3488 ( 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+))))) 3490 3490 3491 3491 (defmethod slot-boundp-using-class ((class structure-class) instance slot)
Note: See TracChangeset
for help on using the changeset viewer.