Revision: 3610 Author: ksprotte URL: http://bknr.net/trac/changeset/3610

small correction for the fact that search-adjacent now returns m2 objects U trunk/projects/bos/m2/allocation.lisp

Modified: trunk/projects/bos/m2/allocation.lisp =================================================================== --- trunk/projects/bos/m2/allocation.lisp 2008-07-24 10:11:59 UTC (rev 3609) +++ trunk/projects/bos/m2/allocation.lisp 2008-07-24 10:59:03 UTC (rev 3610) @@ -350,7 +350,7 @@ (assert (alexandria:setp result :test #'equal)) (assert (= n (length result))) (decf (allocation-area-free-m2s area) n) - (return (mapcar (alexandria:curry #'apply #'ensure-m2) result))) + (return result)) (when (> (get-internal-real-time) deadline) (return nil)))))))