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

[BKNR Commits]

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

Don't try to log changes to ID slot.

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-30 09:42:58 UTC (rev 3690)
+++ trunk/bknr/datastore/src/data/object.lisp	2008-07-30 10:11:48 UTC (rev 3691)
@@ -91,7 +91,7 @@
              slot-name object))
     (when (and (persistent-slot-p slotd)
                (not (eq :restore (store-state *store*)))
-               (not (eq 'last-change slot-name)))
+               (not (member slot-name '(last-change id))))
       (setf (slot-value object 'last-change) (current-transaction-timestamp)))))
 
 (defmethod (setf slot-value-using-class) :after (newval (class persistent-class) object slotd)