使用clojure讀/讀字符串函數，我如何在.clj文件中讀取對象列表

Question

標題是，如果我這樣做

(read-string (slurp "somefile"))

這只會給我文件中的第一個對象，這意味着“somefile”如下所示：

(a obj) (b obj)

然后我只得到（一個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")  \)))