正如标题，如果我这样做
(read-string (slurp "somefile"))
这只会给我文件中的第一个对象，这意味着如果“somefile”如下所示：
(a obj) (b obj)
然后我只得到 (a obj) 作为结果。
我如何获得所有对象的列表，像这样？
((a obj) (b obj))
Thanks.
(defn read-all
[input]
(let [eof (Object.)]
(take-while #(not= % eof) (repeatedly #(read input false eof)))))
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
