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

[BKNR Commits]

Revision: 3474
Author: hans
URL: http://bknr.net/trac/changeset/3474

Only update LAST-CHANGE slot if another persistent slot is changed.

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-16 18:11:24 UTC (rev 3473)
+++ trunk/bknr/datastore/src/data/object.lisp	2008-07-17 06:09:00 UTC (rev 3474)
@@ -89,8 +89,9 @@
                (not (in-transaction-p)))
       (error "Attempt to set persistent slot ~A of ~A outside of a transaction"
              slot-name object))
-    (unless (or (eq :restore (store-state *store*))
-		(eq 'last-change slot-name))
+    (when (and (persistent-slot-p slotd)
+               (not (eq :restore (store-state *store*)))
+               (not (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)