[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