12 lines
371 B
Text
12 lines
371 B
Text
(defun print-lists (xs ys zs)
|
|
(if (or (endp xs) (endp ys) (endp zs))
|
|
nil
|
|
(progn$ (cw (first xs))
|
|
(cw "~x0~x1~%"
|
|
(first ys)
|
|
(first zs))
|
|
(print-lists (rest xs)
|
|
(rest ys)
|
|
(rest zs)))))
|
|
|
|
(print-lists '("a" "b" "c") '(A B C) '(1 2 3))
|