Common Lisp从文件读取并存储为列表

Question

所以做一些常见的lisp练习,一切都很顺利,直到我遇到这种奇怪的行为.我从文件(brown.txt)读取文本到可变语料库,它应该存储为列表.然而,我怀疑它不是,尽管它有时像一个一样,但在其他时候失败.

以下是文件的基本读取 - >追加列表 - > 语料库中的商店列表(在空白处拆分/标记化):

(defun tokenize (string)
  (loop
     for start = 0 then (+ space 1)
     for space = (position #\space string :start start)
     for token = (subseq string start space)
     unless (string= token "") collect token
     until (not space)))

(defparameter *corpus*
   (with-open-file (stream "./brown.txt" :direction :input)
     (loop for line = (read-line stream nil)
           while line
           append (tokenize line))))

下面是两个表达式,它们都应该起作用,但只有后者才起作用(语料库一个).第一个返回NIL.

(loop for token in *corpus* do
     (print token))
*corpus*

我怀疑它与从文件作为流对象读取有关,并且(追加...)不会从此流创建列表,而是懒惰等待,直到我想稍后评估它或加入,并且以后它只是决定不再工作了？(对我来说没什么意义).

Answer 1

这个表达式:

(loop for token in *corpus* do
     (print token))

返回,NIL因为它没有RETURN子句或累积条款(例如COLLECT或APPEND).它只是PRINT反复调用,但丢弃其返回值.