Revision: 3451 Author: ksprotte URL: http://bknr.net/trac/changeset/3451

dont update store-object's last-change slot during restore

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

Modified: trunk/bknr/datastore/src/data/object.lisp =================================================================== --- trunk/bknr/datastore/src/data/object.lisp 2008-07-15 14:13:49 UTC (rev 3450) +++ trunk/bknr/datastore/src/data/object.lisp 2008-07-15 14:37:26 UTC (rev 3451) @@ -89,7 +89,8 @@ (not (in-transaction-p))) (error "Attempt to set persistent slot ~A of ~A outside of a transaction" slot-name object)) - (unless (eq 'last-change slot-name) + (unless (or (eq :restore (store-state *store*)) + (eq 'last-change slot-name)) (setf (slot-value object 'last-change) (current-transaction-timestamp)))))

(defmethod (setf slot-value-using-class) :after (newval (class persistent-class) object slotd)