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

[BKNR Commits]

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