Changeset 14154

Timestamp:

09/19/12 18:58:21 (9 years ago)

Author:

rschlatte

Message:

Fix slot-boundp-using-class.

• Reported by Pascal Costanza

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/clos.lisp

@@ -3475 +3475 @@
   (let ((location (slot-definition-location slot)))
     (if (consp location)
-        (eq (cdr location) +slot-unbound+) ; :allocation :class
-        (eq (standard-instance-access instance location) +slot-unbound+))))
+        (not (eq (cdr location) +slot-unbound+)) ; :allocation :class
+        (not (eq (standard-instance-access instance location) +slot-unbound+)))))
 
 (defmethod slot-boundp-using-class ((class funcallable-standard-class) instance
@@ -3485 +3485 @@
   (let ((location (slot-definition-location slot)))
     (if (consp location)
-        (eq (cdr location) +slot-unbound+) ; :allocation :class
-        (eq (funcallable-standard-instance-access instance location)
-            +slot-unbound+))))
+        (not (eq (cdr location) +slot-unbound+)) ; :allocation :class
+        (not (eq (funcallable-standard-instance-access instance location)
+                 +slot-unbound+)))))
 
 (defmethod slot-boundp-using-class ((class structure-class) instance slot)