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