如何在LISP中进行while循环

Question

我无法在lisp中使用简单的while循环!

(loop (while (row >= 0))
      setf(row (- row 1))
      (collect (findIndex row col))

当row大于或等于0时,我想减少行并收集findIndex方法给出的结果.假设给出了col.

谢谢!!!

Answer 1

循环的正确形式如下:

(loop while (>= row 0) 
  do (setf row (- row 1))           ; or better: do (decf row)
  collect (findIndex row col))

有关循环语法的详细说明,请参见手册.