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)