Changeset 3546

Show
Ignore:
Timestamp:
07/22/08 10:56:46 (4 months ago)
Author:
ksprotte
Message:

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

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3539 r3546  
    186186  (check-type start-depth (integer 0)) 
    187187  (check-type local-draw-order (integer 0)) 
    188   (assert (< local-draw-order +max-num-of-local-draw-order-levels+)) 
     188  ;; highest local-draw-order is reserved for the contract-tree 
     189  (assert (< local-draw-order (1- +max-num-of-local-draw-order-levels+))) 
    189190  (when (find local-draw-order (class-instances 'sat-layer) :key #'local-draw-order) 
    190191    (cerror "create the new layer anyway" "There is already a sat-layer with the same local-draw-order '~A'." local-draw-order))