为什么在Lisp中为了读取文件而使read-line运行两次？

Question

这是实现与LISP的“猫”命令的代码，如本书ANSI Common Lisp解释，第122页。

 
(defun pseudo-cat (file) 
    (with-open-file (str file :direction :input) 
    (do ((line (read-line str nil 'eof) 
       (read-line str nil 'eof))) 
     ((eql line 'eof)) 
     (format t "~A~%" line)))) 

为什么读线功能运行两次？我试图用只读一行来运行它，但是Lisp无法完成代码。

Answer 1

DO变量的语法是：变量初始化形式，更新形式。在这种情况下，初始化表单与更新表单相同。但是DO中没有这种情况的简写，所以你必须写出两遍。

Answer 2

如果您可以从文件中读取数据，则可以使用(listen file)进行测试。

这是我的打印文件的功能

(defun print-file (filename) 
    "Print file on stdout." 
    (with-open-file (file filename :direction :input) 
      (loop 
      (when (not (listen file)) (return)) 
      (write-line (read-line file))))) 

Answer 3

您需要阅读DO的语法：http://www.lispworks.com/documentation/HyperSpec/Body/m_do_do.htm

第一次读线形态是init-形式和第二个是台阶形。所以在第一次迭代中，变量被设置为init-form的结果。在下一次迭代中，变量被设置为步骤形式的值。