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

[BKNR Commits]

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)))