Changeset 1025

Show
Ignore:
Timestamp:
12/07/04 14:39:31 (4 years ago)
Author:
manuel
Message:

DELETE-USER fix backported

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • tags/bknr-sputnik/bknr/src/data/object.lisp

    r903 r1025  
    22 
    33(in-package :bknr.datastore) 
    4  
    5 (use-package :bknr.indices) 
    64 
    75(cl-interpol:enable-interpol-syntax) 
    …… 
    359357        ;;; wrong with the indices 
    360358        (unless (and container slot) 
    361           (error "Encoding destroyed object with ID ~A." id)) 
    362          
     359          (warn "Encoding destroyed object with ID ~A." id) 
     360          (%write-char #\o stream) 
     361          (%encode-integer id stream) 
     362          (return-from encode-object)) 
     363 
    363364        (if *current-slot-relaxed-p* 
    364365            ;;; the slot can contain references to deleted objects, just warn 
    …… 
    371372            (error "Encoding reference to destroyed object with ID ~A from slot ~A of object ~A with ID ~A." 
    372373                   id slot (type-of container) (store-object-id container)))) 
     374 
    373375 
    374376      ;;; Go ahead and serialize the object reference