clojure - clojure read/read-string 関数を使用して、.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")  \)))