src/utilities.lisp (merge-lists): Fix garbled documentation.

diff --git a/src/utilities.lisp b/src/utilities.lisp
index 1e10c24d2df6a64fa115a64299844696ef29ad19..10e95c73430aba1650839890af199c722e2eaafb 100644 (file)
--- a/src/utilities.lisp
+++ b/src/utilities.lisp
@@ -563,9 +563,10 @@ (defun merge-lists (lists &key pick (test #'eql) (present #'identity))
    candidates list if and only if an occurrence of A appears in an earlier
    input list than any occurrence of item B.  (This completely determines the
    order of the candidates: it is not possible that two candidates appear in
    candidates list if and only if an occurrence of A appears in an earlier
    input list than any occurrence of item B.  (This completely determines the
    order of the candidates: it is not possible that two candidates appear in

-   the same input list would resolve the ambiguity between them.)  If PICK is
-   omitted then the item chosen is the one appearing in the earliest of the
-   input lists: i.e., effectively, the default PICK function is
+   the same input list, since that would resolve the ambiguity between them.)
+   If PICK is omitted then the item chosen is the one appearing in the
+   earliest of the input lists: i.e., effectively, the default PICK function
+   is

 
        (lambda (candidates output-so-far)
          (declare (ignore output-so-far))
 
        (lambda (candidates output-so-far)
          (declare (ignore output-so-far))