Revision: 3612 Author: hans URL: http://bknr.net/trac/changeset/3612
Fix docstring of SEARCH-ADJACENT.
U trunk/projects/bos/m2/allocation.lisp
Modified: trunk/projects/bos/m2/allocation.lisp =================================================================== --- trunk/projects/bos/m2/allocation.lisp 2008-07-24 11:11:05 UTC (rev 3611) +++ trunk/projects/bos/m2/allocation.lisp 2008-07-24 11:37:33 UTC (rev 3612) @@ -292,9 +292,9 @@
(defun search-adjacent (n m2 pred) "Try to find N free square meters that are adjacent and that begin -at square meter M2. PRED is a predicate function of two arguments that -returns a true value if the arguments specify the coordinates of an -allocatable square meter." +at square meter M2. PRED is a predicate function of one argument that +returns a true value if the argument specifies an allocatable square +meter." (when (funcall pred m2) (let* ((allocated (make-hash-table :test #'eq)) (border-queue (make-queue))