Changeset 3612

Show
Ignore:
Timestamp:
07/24/08 13:37:33 (4 months ago)
Author:
hans
Message:

Fix docstring of SEARCH-ADJACENT.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3610 r3612  
    293293(defun search-adjacent (n m2 pred) 
    294294  "Try to find N free square meters that are adjacent and that begin 
    295 at square meter M2.  PRED is a predicate function of two arguments that 
    296 returns a true value if the arguments specify the coordinates of an 
    297 allocatable square meter." 
     295at square meter M2.  PRED is a predicate function of one argument that 
     296returns a true value if the argument specifies an allocatable square 
     297meter." 
    298298  (when (funcall pred m2) 
    299299    (let* ((allocated (make-hash-table :test #'eq))