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

[BKNR Commits]

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

LET* -> LET

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:12 UTC (rev 3613)
+++ trunk/projects/bos/m2/allocation.lisp	2008-07-24 11:39:37 UTC (rev 3614)
@@ -296,9 +296,9 @@
 returns a true value if the argument specifies an allocatable square
 meter."
   (when (funcall pred m2)
-    (let* ((allocated (make-hash-table :test #'eq))
-           (border-queue (make-queue))
-           completely-checked)
+    (let ((allocated (make-hash-table :test #'eq))
+          (border-queue (make-queue))
+          completely-checked)
       (labels
           ((to-border-queue (m2)
              (setf (gethash m2 allocated) t)