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