[bknr-cvs] hans changed trunk/bknr/datastore/src/indices/indexed-class.lisp

Revision: 3445 Author: hans URL: http://bknr.net/trac/changeset/3445

Only use slot-boundp/slot-value on objects (not NIL)

U trunk/bknr/datastore/src/indices/indexed-class.lisp

Modified: trunk/bknr/datastore/src/indices/indexed-class.lisp =================================================================== --- trunk/bknr/datastore/src/indices/indexed-class.lisp 2008-07-15 11:38:41 UTC (rev 3444) +++ trunk/bknr/datastore/src/indices/indexed-class.lisp 2008-07-15 11:47:24 UTC (rev 3445) @@ -457,6 +457,7 @@ (destroy-object-with-class (class-of object) object))

(defmethod object-destroyed-p ((object t)) - (and (slot-boundp object 'destroyed-p) + (and object + (slot-boundp object 'destroyed-p) (slot-value object 'destroyed-p)))