我是新手,试图并行迭代 2 个列表,如下所示:
(defun test-do* (l1 l2)
(do* ((temp1 l1 (cdr l1))
(var1 (car temp1) (car temp1))
(temp2 l2 (cdr l2))
(var2 (car temp2) (car temp2)))
((endp temp1) 'end-of-l1) ))
问题是我的代码中有一个无限循环,我不知道为什么。您的帮助将不胜感激。