[bknr-cvs] ksprotte changed trunk/bknr/datastore/src/data/object.lisp

[BKNR Commits]

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)