Fix MAPC
authorDavid Vázquez <davazp@gmail.com>
Sun, 23 Jun 2013 13:25:14 +0000 (15:25 +0200)
committerDavid Vázquez <davazp@gmail.com>
Sun, 23 Jun 2013 13:25:14 +0000 (15:25 +0200)
src/list.lisp

index ad0e7a6..9b5f9c1 100644 (file)
              (collect (apply func elems))))))))
 
 (defun mapc (func &rest lists)
-  (do* ((elems (map1 #'car lists) (map1 #'car lists-rest))
-        (lists-rest (map1 #'cdr lists) (map1 #'cdr lists-rest)))
-       ((dolist (x elems) (when (null x) (return t)))
+  (do* ((tails lists (map1 #'cdr tails))
+        (elems (map1 #'car tails)
+               (map1 #'car tails)))
+       ((dolist (x tails) (when (null x) (return t)))
         (car lists))
     (apply func elems)))