LISP/Nyquist 打开文件并逐行读取

Question

我正在努力打开一个文件，并读取每一行直到 EOF。我正在使用基于 XLISP 的 nyquist，它缺少 Common Lisp 的 with-open-file。我的代码是:

(let ((in_file (open "/home/soodesune/testfile.csv" :if-does-not-exist nil)))
    (loop for line = (read-line in_file)
         while line do (print line))
    (close in_file))

我从 nyquist 得到的输出是:

error: unbound variable - LINE

我希望得到一些帮助，以了解我哪里出错了

---

注意:我也试过:

(loop for line = (read-line in_file nil)

但这给出了:

error: too many arguments

---

更新:

使用 Rainer Joswig 提供的信息和链接，我找到了可以用来打开文件并逐行阅读的典型代码:

  1 (do* ((fp (open "test.dat" :direction :input))
  2       (ex (read fp nil) (read fp nil)))
  3  ((null ex) (close fp) nil)
  4  (print ex))

do 函数包含三个基本部分:

1. 第 1 行和第 2 行 - 分配用于循环的变量、它们的初始值以及如何递增它们。在本例中为 fp 和 ex。 fp 没有递增，并且 ex 被初始化并递增了一个 read 从 fp (我不知道尾随 nil 是什么 是为了)
2. 第 3 行 - 循环的退出条件，以及 return expressions 的列表，所有这些都在退出时进行评估，最后一个被返回。在这种情况下，当 ex == null 时将发生退出，然后将返回 nil
3. 第 4 行 - 循环的实际主体。在这种情况下不言自明。

注意:do* 与 do 的不同之处在于，它允许在一个表达式中分配的变量在后面的表达式中使用，例如 fp 用于ex

的赋值

我对任何一种 LISP 都一窍不通，所以如果以上有任何错误，请说出来。

Answer 1

Nyquist 不是基于 Common Lisp。它基于早期的 XLISP。只支持简单的LOOP，不支持Common Lisp的复杂LOOP。

参见奈奎斯特手册:

http://www.cs.cmu.edu/~rbd/doc/nyquist/part19.html#226

它的循环语法是:

(loop expr...)

不支持Common Lisp的扩展LOOP语法。