[bknr-cvs] r2360 - branches/bos/projects/bos/m2

[ksprotte at common-lisp.net]

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)