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)