在Common Lisp中将列表一起压缩-“ and”问题。

zip

(zip f \'(1 2 3) \'(4 5 6) \'(7 8 9)) = (list (f 1 4 7) (f 2 5 8) (f 3 6 9))
(zip f \'(1 2 3 4) \'(5 6) \'(7 8 9)) = (list (f 1 5 7) (f 2 6 8))

(defun zip (f &rest lists)
  (if (apply and lists) ; <- Here is where I think the problem is.
    (cons (apply f (mapcar #\'car lists)) (zip f &rest (mapcar #\'cdr lists)))
    nil))

and

mapcar

? (mapcar #\'list \'(1 2 3) \'(4 5 6) \'(7 8 9))
((1 4 7) (2 5 8) (3 6 9))
? (mapcar #\'list \'(1 2 3 4) \'(5 6) \'(7 8 9))
((1 5 7) (2 6 8))
? (mapcar #\'+ \'(1 2 3) \'(4 5 6) \'(7 8 9))
(12 15 18)
? (mapcar #\'+ \'(1 2 3 4) \'(5 6) \'(7 8 9))
(13 16)

all

and