projects
/
jscl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
f931902
)
Fix MAPC
author
David Vázquez
<davazp@gmail.com>
Sun, 23 Jun 2013 13:25:14 +0000
(15:25 +0200)
committer
David Vázquez
<davazp@gmail.com>
Sun, 23 Jun 2013 13:25:14 +0000
(15:25 +0200)
src/list.lisp
patch
|
blob
|
history
diff --git
a/src/list.lisp
b/src/list.lisp
index
ad0e7a6
..
9b5f9c1
100644
(file)
--- a/
src/list.lisp
+++ b/
src/list.lisp
@@
-213,9
+213,10
@@
(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)))