Changeset 3543

Show
Ignore:
Timestamp:
07/22/08 10:35:04 (4 months ago)
Author:
ksprotte
Message:

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

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3542 r3543  
    233233 
    234234(defun rebuild-cache () 
    235   "" 
     235  (assert (in-transaction-p) nil 
     236          "rebuild-cache may only be called in a transaction context") 
    236237  (unless *allocation-cache* 
    237238    (setq *allocation-cache* (make-allocation-cache)))