问在CLISP中并行迭代2个列表

EN

我不确定您到底想要做什么，但对代码的修改修复了无限循环：

(defun test-do* (l1 l2)
  (do* ((temp1 l1 (cdr temp1))
        (var1 (car temp1) (car temp1))
        (temp2 l2 (cdr temp2))
        (var2 (car temp2) (car temp2)))
       ((endp temp1) 'end-of-l1) ))

考虑do*循环中的一条语句：

(temp1 l1 (cdr l1))

翻译成英语(在do*循环的上下文中)，这意味着：“这不是您想要的，因为l1的值永远不会改变，因此在第一次迭代之后的每次迭代中，temp1都被赋予相同的值。请考虑下面的修改：

(temp1 l1 (cdr temp1))

这意味着：“在第一次迭代中，将temp1设置为l1的值。在随后的每次迭代中，将temp1设置为(cdr temp1)的值。”这样，每次迭代中temp1的值取决于前一次迭代中temp1的值，并且您的循环会按照您的意图遍历列表。

(循环for x in '(a B C D e) for y in '(1 2 3 4 5) collect (list X y) )

((A1)(B2)(C3)(D4)(E5))