Changeset 3489

Show
Ignore:
Timestamp:
07/17/08 15:59:38 (4 months ago)
Author:
ksprotte
Message:

a temporary fix to invoke-store-transient-init-functions before the transaction-log is forwarded

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/m2/allocation-cache.lisp

    r2932 r3489  
    261261    (store (subsystem allocation-cache-subsystem) &key until) 
    262262  (declare (ignore until)) 
    263   (rebuild-cache)) 
     263  (rebuild-cache) 
     264  (bos.m2::invoke-store-transient-init-functions)) 
    264265 
    265266(defmethod bknr.datastore::snapshot-subsystem (store (subsystem allocation-cache-subsystem)) 

  • trunk/projects/bos/m2/m2-store.lisp

    r3168 r3489  
    6565            new-store-transient-init-constraints)))) 
    6666 
    67 (defmethod bknr.datastore::restore-store :after ((store m2-store) &key until) 
    68   (declare (ignore store until)) 
     67(defun invoke-store-transient-init-functions () 
    6968  (dolist (function-name *store-transient-init-functions*) 
    7069    (funcall function-name))) 
    71