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

rebuild-cache: assert (in-transaction-p)

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

Modified: trunk/projects/bos/m2/allocation-cache.lisp =================================================================== --- trunk/projects/bos/m2/allocation-cache.lisp 2008-07-22 08:32:05 UTC (rev 3542) +++ trunk/projects/bos/m2/allocation-cache.lisp 2008-07-22 08:35:04 UTC (rev 3543) @@ -232,7 +232,8 @@ (format t "~5D~10T~5D~%" size count))))))

(defun rebuild-cache () - "" + (assert (in-transaction-p) nil + "rebuild-cache may only be called in a transaction context") (unless *allocation-cache* (setq *allocation-cache* (make-allocation-cache))) (clear-cache)