如何从common-lisp每次获取列表中的两个元素？

Question

对于((1 2) (3 4) (5 6))，可以使用loop for (a b) in '((1 2) (3 4) (5 6))每次得到a = 1，b = 2。

但'(1 2 3 4)，我尝试做loop for x on '(1 2 3 4) by #'cddr for a = (car x) for b = (cadr x)得到= 1，B = 2

有没有更好的办法做这样的事情？

Answer 1

尝试for ... on：

(loop for (a b) on '(1 2 3 4) by #'cddr collect (cons a b))