在这种情况下如何使用“循环”？

Question

以下代码将引发：SYSTEM ::％EXPAND-FORM：（SETQ NUM（SUBSTRING LINE 6））应该是lambda表达式。

(defun good-red ()
  (let ((tab (make-hash-table)))
    (dotimes (i 50) (setf (gethash (+ i 1) tab) 0))
    (with-open-file (stream "ssqHitNum.txt")
        (loop for line = (read-line stream nil)
             until (null line)
             do (
                (setq num (substring line 6))
                (print line)
                )))))

如果我按以下方式更改“ do”，则它可以工作。 但是，我需要在这里做很多事情。

 ...
 do (print line)
 ...

真诚的！

Answer 1

您需要像这样删除最外层的括号。

(loop for line = (read-line stream nil)
         until (null line)
         do 
            (setq num (substring line 6))
            (print line))

循环体中有一个隐progn周围，当你添加额外的括号括住的读者会期望在列表中的第一件事情（在此情况下(setq num (substring line 6))是有功能的标志。显然， setq表单不符合该条件，因此将失败，尽管我不确定为什么它告诉您应为lambda表达式。

样式说明：

不要像在Java或C ++中使用花括号一样使用括号！

do (
     &body
   )

是错误的Lisp样式，请按照我的答案关闭最后一行中的所有括号，并在左侧括号开始的表格的同一行中打开括号。

Answer 2

您需要使用PROGN特殊形式来按顺序评估所有这些表达式。

...
do (progn
     (setq num (substring line 6))
     (print line))
...