如何從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))