Changeset 3610

Show
Ignore:
Timestamp:
07/24/08 12:59:03 (4 months ago)
Author:
ksprotte
Message:

small correction for the fact that search-adjacent now returns m2 objects

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3609 r3610  
    351351               (assert (= n (length result))) 
    352352               (decf (allocation-area-free-m2s area) n) 
    353                (return (mapcar (alexandria:curry #'apply #'ensure-m2) result))) 
     353               (return result)) 
    354354             (when (> (get-internal-real-time) deadline) 
    355355               (return nil)))))))