Changeset 3615

Show
Ignore:
Timestamp:
07/24/08 13:42:29 (4 months ago)
Author:
hans
Message:

Replace a COND by an UNLESS to save two more lines and improve
readability a little bit.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3614 r3615  
    324324                 (return nil) 
    325325                 (let ((next (get-next-neighbor (peek-queue border-queue)))) 
    326                    (cond 
    327                      (next 
    328                       (to-border-queue next)) 
    329                      (t 
    330                       (push (dequeue border-queue) completely-checked) 
    331                       (go check-next))))))))))) 
     326                   (unless next 
     327                     (push (dequeue border-queue) completely-checked) 
     328                     (go check-next)) 
     329                   (to-border-queue next))))))))) 
    332330 
    333331(defun allocate-in-area (area n)