Changeset 3673

Show
Ignore:
Timestamp:
07/29/08 10:56:38 (4 months ago)
Author:
hans
Message:

Always call CONVERT-SLOT-VALUE-WHILE-RESTORING and supply a default
method that just sets the slot's value to whatever was found in the
snapshot.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3672 r3673  
    382382  value from a previous snapshot layout.  OBJECT is the object that is 
    383383  being restored, SLOT-NAME is the name of the slot in the old schema, 
    384   VALUE is the value of the slot in the old schema.")) 
     384  VALUE is the value of the slot in the old schema.") 
     385  (:method (object slot-name value) 
     386    (setf (slot-value object slot-name) value))) 
    385387 
    386388(defun find-slot-name-with-automatic-rename (class slot-name) 
    …… 
    446448                   (if (eq value 'unbound) 
    447449                       (slot-makunbound object slot-name) 
    448                        (if (slot-boundp object slot-name) 
    449                            (convert-slot-value-while-restoring object slot-name value) 
    450                            (setf (slot-value object slot-name) value)))))) 
     450                       (convert-slot-value-while-restoring object slot-name value))))) 
    451451           (set-slot-nil () 
    452452             :report "Set slot to NIL."