[bknr-cvs] ksprotte changed trunk/projects/bos/m2/

[BKNR Commits]

Revision: 3489
Author: ksprotte
URL: http://bknr.net/trac/changeset/3489

a temporary fix to invoke-store-transient-init-functions before the transaction-log is forwarded
U   trunk/projects/bos/m2/allocation-cache.lisp
U   trunk/projects/bos/m2/m2-store.lisp

Modified: trunk/projects/bos/m2/allocation-cache.lisp
===================================================================
--- trunk/projects/bos/m2/allocation-cache.lisp	2008-07-17 13:06:23 UTC (rev 3488)
+++ trunk/projects/bos/m2/allocation-cache.lisp	2008-07-17 13:59:38 UTC (rev 3489)
@@ -260,7 +260,8 @@
 (defmethod bknr.datastore::restore-subsystem
     (store (subsystem allocation-cache-subsystem) &key until)
   (declare (ignore until))
-  (rebuild-cache))
+  (rebuild-cache)
+  (bos.m2::invoke-store-transient-init-functions))
 
 (defmethod bknr.datastore::snapshot-subsystem (store (subsystem allocation-cache-subsystem))
   )
\ No newline at end of file

Modified: trunk/projects/bos/m2/m2-store.lisp
===================================================================
--- trunk/projects/bos/m2/m2-store.lisp	2008-07-17 13:06:23 UTC (rev 3488)
+++ trunk/projects/bos/m2/m2-store.lisp	2008-07-17 13:59:38 UTC (rev 3489)
@@ -64,8 +64,6 @@
             *store-transient-init-constraints*
             new-store-transient-init-constraints))))
 
-(defmethod bknr.datastore::restore-store :after ((store m2-store) &key until)
-  (declare (ignore store until))
+(defun invoke-store-transient-init-functions ()
   (dolist (function-name *store-transient-init-functions*)
-    (funcall function-name)))
-
+    (funcall function-name)))
\ No newline at end of file