Revision: 3615 Author: hans URL: http://bknr.net/trac/changeset/3615

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

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

Modified: trunk/projects/bos/m2/allocation.lisp =================================================================== --- trunk/projects/bos/m2/allocation.lisp 2008-07-24 11:39:37 UTC (rev 3614) +++ trunk/projects/bos/m2/allocation.lisp 2008-07-24 11:42:29 UTC (rev 3615) @@ -323,12 +323,10 @@ (if (queue-empty-p border-queue) (return nil) (let ((next (get-next-neighbor (peek-queue border-queue)))) - (cond - (next - (to-border-queue next)) - (t - (push (dequeue border-queue) completely-checked) - (go check-next))))))))))) + (unless next + (push (dequeue border-queue) completely-checked) + (go check-next)) + (to-border-queue next)))))))))

(defun allocate-in-area (area n) (let* ((area-left (allocation-area-left area))