[bknr-cvs] hans changed trunk/projects/bos/m2/allocation.lisp

[BKNR Commits]

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