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

[ksprotte at common-lisp.net]

Author: ksprotte
Date: Fri Jan 18 12:41:19 2008
New Revision: 2359

Modified:
   branches/bos/projects/bos/m2/allocation-cache.lisp
Log:
allocation-cache uses now ensure-m2 instead of get-m2
to retrieve a m2 instance for a point that is inside
the polygon


Modified: branches/bos/projects/bos/m2/allocation-cache.lisp
==============================================================================
--- branches/bos/projects/bos/m2/allocation-cache.lisp	(original)
+++ branches/bos/projects/bos/m2/allocation-cache.lisp	Fri Jan 18 12:41:19 2008
@@ -29,7 +29,7 @@
       (loop for y from top upto (1- (+ top height))
 	 do (loop for x from left upto (1- (+ left width))
 	       for spot = (when (point-in-polygon-p x y vertices)
-			    (get-m2 x y))
+			    (ensure-m2 x y))
 	       for x0 = (- x left)
 	       for y0 = (- y top)
 	       do (setf (aref array x0 y0) spot)))