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

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

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3443 r3445  
    458458 
    459459(defmethod object-destroyed-p ((object t)) 
    460   (and (slot-boundp object 'destroyed-p) 
     460  (and object 
     461       (slot-boundp object 'destroyed-p) 
    461462       (slot-value object 'destroyed-p))) 
    462463