Changeset 3443

Show
Ignore:
Timestamp:
07/15/08 13:24:47 (6 months ago)
Author:
hans
Message:

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

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r2584 r3443  
    458458 
    459459(defmethod object-destroyed-p ((object t)) 
    460   (handler-case 
    461       (slot-value object 'destroyed-p) 
    462     (unbound-slot () nil) 
    463     (simple-error () nil))) 
    464  
     460  (and (slot-boundp object 'destroyed-p) 
     461       (slot-value object 'destroyed-p))) 
     462