Changeset 3691

Timestamp:

07/30/08 12:11:48 (4 months ago)

Author:

hans

Message:

Don't try to log changes to ID slot.

Files:

• trunk/bknr/datastore/src/data/object.lisp (modified) (1 diff)

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

@@ -92 +92 @@
-    (when (and (persistent-slot-p slotd)
-               (not (eq :restore (store-state *store*)))
-eq 'last-change slot-name
+member slot-name '(last-change id)
-      (setf (slot-value object 'last-change) (current-transaction-timestamp)))))
-