[bknr-cvs] r2373 - branches/bos/bknr/src/data

Author: ksprotte Date: Mon Jan 21 07:38:57 2008 New Revision: 2373 Modified: branches/bos/bknr/src/data/object.lisp Log: !! crucial ch to BKNR.DATASTORE (object.lisp): (INITIALIZE-PERSISTENT-INSTANCE obj) is now always called (independently of the store-state). The result is that it will also be called inside LOAD-TRANSACTION-LOG. As TX-MAKE-OBJECT (being a transaction) is never called when restoring the object subsystem snapshot, the former check with unless (unless (eq (store-state *store*) :restore) (initialize-persistent-instance obj)) seems to be not needed / useful. Modified: branches/bos/bknr/src/data/object.lisp ============================================================================== --- branches/bos/bknr/src/data/object.lisp (original) +++ branches/bos/bknr/src/data/object.lisp Mon Jan 21 07:38:57 2008 @@ -571,8 +571,7 @@ (if restoring (remove-transient-slot-initargs (find-class class-name) initargs) initargs))) - (unless restoring - (initialize-persistent-instance obj)) + (initialize-persistent-instance obj) (initialize-transient-instance obj) (setf error nil) obj)
participants (1)
-
ksprotte@common-lisp.net