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