Changeset 3617

Show
Ignore:
Timestamp:
07/24/08 15:12:57 (4 months ago)
Author:
ksprotte
Message:

made search-adjacent more robust for the (pathological) cases of the test-suite

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/m2/allocation.lisp

    r3615 r3617  
    305305             (enqueue m2 border-queue)) 
    306306           (try-get (x y) 
    307              (let ((m2 (ensure-m2 x y))) 
    308                (when (and (not (gethash m2 allocated)) 
    309                           (funcall pred m2)) 
    310                  m2))) 
     307             (when (and (<= 0 x (1- +width+)) 
     308                        (<= 0 y (1- +width+))) 
     309               (let ((m2 (ensure-m2 x y))) 
     310                 (when (and (not (gethash m2 allocated)) 
     311                            (funcall pred m2)) 
     312                   m2)))) 
    311313           (get-next-neighbor (m2) 
    312314             (let ((x (m2-x m2))