Author: ksprotte Date: Fri Jan 18 12:43:06 2008 New Revision: 2360 Modified: branches/bos/projects/bos/m2/allocation.lisp Log: issue rebuild-cache on de- / activate-allocation-area Modified: branches/bos/projects/bos/m2/allocation.lisp ============================================================================== --- branches/bos/projects/bos/m2/allocation.lisp (original) +++ branches/bos/projects/bos/m2/allocation.lisp Fri Jan 18 12:43:06 2008 @@ -184,11 +184,13 @@ (defun activate-allocation-area (area) (warn "activating ~S" area) (setf (slot-value area 'active-p) t) + (bos.m2.allocation-cache:rebuild-cache) area) (defun deactivate-allocation-area (area) (warn "deactivating ~S" area) (setf (slot-value area 'active-p) nil) + (bos.m2.allocation-cache:rebuild-cache) area) (defun map-edges (fn vertices)