[bknr-cvs] ksprotte changed trunk/projects/bos/m2/allocation-cache.lisp

[BKNR Commits]

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)