Changeset 2655

Show
Ignore:
Timestamp:
03/05/08 10:50:59 (10 months ago)
Author:
hans
Message:

fix cascading delete problems.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/datastore/src/data/object.lisp

    r2649 r2655  
    635635  (multiple-value-bind (cascading-delete-refs 
    636636                        remaining-refs) 
    637       (partition-list (find-refs object) #'cascade-delete-p) 
     637      (partition-list (find-refs object) (alexandria:curry #'cascade-delete-p object)) 
    638638    (when remaining-refs 
    639639      (error "Cannot delete object ~A because there are references to this object in the system, please consult a system administrator!" 
    …… 
    697697                     (let ((slot-value (slot-value candidate (slot-definition-name slotd)))) 
    698698                       (or (eq object slot-value) 
    699                            (and (listp slot-value) 
     699                           (and (alexandria:proper-list-p slot-value) 
    700700                                (find object slot-value)))))) 
    701701              (class-slots (class-of candidate))))