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

[BKNR Commits]

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)))))))