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

BKNR Commits bknr at bknr.net
Tue Jul 22 08:32:05 UTC 2008


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

removed (bos.m2.allocation-cache:rebuild-cache) from daily job, cause it is done in snapshot (and wrong to do there anyway - because rebuild-cache is not a transaction, but would need to be logged)
U   trunk/projects/bos/m2/allocation-cache.lisp
U   trunk/projects/bos/web/daily.lisp

Modified: trunk/projects/bos/m2/allocation-cache.lisp
===================================================================
--- trunk/projects/bos/m2/allocation-cache.lisp	2008-07-22 05:40:55 UTC (rev 3541)
+++ trunk/projects/bos/m2/allocation-cache.lisp	2008-07-22 08:32:05 UTC (rev 3542)
@@ -232,6 +232,7 @@
 	  (format t "~5D~10T~5D~%" size count))))))
 
 (defun rebuild-cache ()
+  ""
   (unless *allocation-cache*
     (setq *allocation-cache* (make-allocation-cache)))
   (clear-cache)

Modified: trunk/projects/bos/web/daily.lisp
===================================================================
--- trunk/projects/bos/web/daily.lisp	2008-07-22 05:40:55 UTC (rev 3541)
+++ trunk/projects/bos/web/daily.lisp	2008-07-22 08:32:05 UTC (rev 3542)
@@ -7,8 +7,6 @@
   (bknr.stats::make-yesterdays-stats :delete-events t)
   (format t "; snapshotting datastore~%")
   (snapshot)
-  (format t "; rebuilding allocation-cache~%")
-  (bos.m2.allocation-cache:rebuild-cache)
   (format t "; running check (consistent-p)~%")
   (flet ((consistent-p-report ()
            (let  (consistent-p)




More information about the Bknr-cvs mailing list