使用 clojure read/read-string 函数，我如何将 .clj 文件读入对象列表

Question

如标题所示，如果我这样做，

(read-string (slurp "somefile"))

这只会给我文件中的第一个对象，这意味着如果“somefile”如下所示：

(a obj) (b obj)

那么我只会得到 (a obj) 作为结果。

我如何获得所有对象的列表，像这样？

((a obj) (b obj))

谢谢。

Answer 1

(defn read-all
  [input]
  (let [eof (Object.)]
    (take-while #(not= % eof) (repeatedly #(read input false eof)))))

Answer 2

我通常将东西放在一个列表中，

(read-string (str \( (slurp "somefile")  \)))