[bknr-cvs] ksprotte changed trunk/projects/bos/web/sat-tree.lisp

[BKNR Commits]

Revision: 3546
Author: ksprotte
URL: http://bknr.net/trac/changeset/3546

small fix for an assertion in make-sat-layer

highest local-draw-order is reserved for the contract-tree, so
make-sat-layer checks that this last level is not used for the
sat-layer

U   trunk/projects/bos/web/sat-tree.lisp

Modified: trunk/projects/bos/web/sat-tree.lisp
===================================================================
--- trunk/projects/bos/web/sat-tree.lisp	2008-07-22 08:50:30 UTC (rev 3545)
+++ trunk/projects/bos/web/sat-tree.lisp	2008-07-22 08:56:46 UTC (rev 3546)
@@ -185,7 +185,8 @@
   (assert (geo-box-encloses-p *m2-geo-box* geo-box))
   (check-type start-depth (integer 0))
   (check-type local-draw-order (integer 0))
-  (assert (< local-draw-order +max-num-of-local-draw-order-levels+))
+  ;; highest local-draw-order is reserved for the contract-tree
+  (assert (< local-draw-order (1- +max-num-of-local-draw-order-levels+)))
   (when (find local-draw-order (class-instances 'sat-layer) :key #'local-draw-order)
     (cerror "create the new layer anyway" "There is already a sat-layer with the same local-draw-order '~A'." local-draw-order))
   (let ((layer (make-object 'sat-layer :name name :geo-box geo-box :local-draw-order local-draw-order)))