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)))