爲什麼在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的結果。在下一次迭代中，變量被設置爲步驟形式的值。