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

[BKNR Commits]

Revision: 3609
Author: hans
URL: http://bknr.net/trac/changeset/3609

Use apply, not funcall now.

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

Modified: trunk/projects/bos/m2/allocation.lisp
===================================================================
--- trunk/projects/bos/m2/allocation.lisp	2008-07-24 10:01:26 UTC (rev 3608)
+++ trunk/projects/bos/m2/allocation.lisp	2008-07-24 10:11:59 UTC (rev 3609)
@@ -306,7 +306,7 @@
            (try-get (x y)
              (let ((m2 (ensure-m2 x y)))
                (when (and (not (gethash m2 allocated))
-                          (apply pred m2))
+                          (funcall pred m2))
                  m2)))
            (get-next-neighbor (m2)
              (let ((x (m2-x m2))