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

[ksprotte at common-lisp.net]

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)