src/utilities.lisp: Use `do' in place of unnecessary `do*'.

The other loop variables seem to have gotten lost somewhere along the
way.

diff --git a/src/utilities.lisp b/src/utilities.lisp
index cd10aa131dc7f170262d00290aae365ae9ef366f..1767b9ef8f86744e8e2724d1ad2dd9c2a5620ac2 100644 (file)
--- a/src/utilities.lisp
+++ b/src/utilities.lisp
@@ -456,8 +456,8 @@ (defun merge-lists (lists &key pick (test #'eql))
    By building the input lists and selecting the PICK function appropriately,
    a variety of different CPL algorithms can be implemented."
 
-  (do* ((lb (make-list-builder)))
-       ((null lists) (lbuild-list lb))
+  (do ((lb (make-list-builder)))
+      ((null lists) (lbuild-list lb))
 
     ;; The candidate items are the ones at the front of the input lists.
     ;; Gather them up, removing duplicates.  If a candidate is somewhere in