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

[BKNR Commits]

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

Don't use signals in order to find out if an object is destroyed.

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 10:46:03 UTC (rev 3442)
+++ trunk/bknr/datastore/src/indices/indexed-class.lisp	2008-07-15 11:24:47 UTC (rev 3443)
@@ -457,8 +457,6 @@
   (destroy-object-with-class (class-of object) object))
 
 (defmethod object-destroyed-p ((object t))
-  (handler-case
-      (slot-value object 'destroyed-p)
-    (unbound-slot () nil)
-    (simple-error () nil)))
+  (and (slot-boundp object 'destroyed-p)
+       (slot-value object 'destroyed-p)))