Changeset 3614

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

LET* -> LET

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3612 r3614  
    297297meter." 
    298298  (when (funcall pred m2) 
    299     (let* ((allocated (make-hash-table :test #'eq)) 
    300           (border-queue (make-queue)) 
    301           completely-checked) 
     299    (let ((allocated (make-hash-table :test #'eq)) 
     300          (border-queue (make-queue)) 
     301          completely-checked) 
    302302      (labels 
    303303          ((to-border-queue (m2)