Clojure 1.5 引入了clojure.edn，其中包括一个需要PushbackReader 的读取函数。
如果我想读取前五个对象，我可以这样做：
(with-open [infile (java.io.PushbackReader. (clojure.java.io/reader "foo.txt"))]
(binding [*in* infile]
(let [edn-seq (repeatedly clojure.edn/read)]
(dorun (take 5 (map println edn-seq))))))
我怎样才能打印出所有对象？考虑到其中一些可能是 nil，似乎我需要检查 EOF 或类似的东西。我想要一系列与我从line-seq 获得的对象相似的对象。
【问题讨论】：
使用 :eof 键
http://clojure.github.com/clojure/clojure.edn-api.html
opts 是一个可以包含以下键的映射： :eof - 值 在文件结束时返回。未提供时，eof 会引发异常。
编辑：抱歉，这还不够详细！来吧：
(with-open [in (java.io.PushbackReader. (clojure.java.io/reader "foo.txt"))]
(let [edn-seq (repeatedly (partial edn/read {:eof :theend} in))]
(dorun (map println (take-while (partial not= :theend) edn-seq)))))
应该这样做
【讨论】：
:eof 键值来实现。
我又看了一遍。这是我想出的：
(defn edn-seq
"Returns the objects from stream as a lazy sequence."
([]
(edn-seq *in*))
([stream]
(edn-seq {} stream))
([opts stream]
(lazy-seq (cons (clojure.edn/read opts stream) (edn-seq opts stream)))))
(defn swallow-eof
"Ignore an EOF exception raised when consuming seq."
[seq]
(-> (try
(cons (first seq) (swallow-eof (rest seq)))
(catch java.lang.RuntimeException e
(when-not (= (.getMessage e) "EOF while reading")
(throw e))))
lazy-seq))
(with-open [stream (java.io.PushbackReader. (clojure.java.io/reader "foo.txt"))]
(dorun (map println (swallow-eof (edn-seq stream)))))
edn-seq 与clojure.edn/read 具有相同的签名，并保留所有现有行为，鉴于人们可能以不同方式使用:eof 选项，我认为这一点很重要。包含 EOF 异常的单独函数似乎是一个更好的选择，尽管我不确定如何最好地捕获它，因为它显示为 java.lang.RuntimeException。
【讨论】：
:eof 参数而不是测试异常文本。
:eof 实现，那么您就不是内容独立的。甚至:library/eof 也可能发生冲突。避免的唯一方法是强制用户自己传递 :eof 值作为swallow-eof 的一部分。