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)