Lazy seq of forms

form_seq.clj

(import '(java.io BufferedWriter FileWriter
                  PushbackReader BufferedReader FileReader))

(defn form-seq
  "Return lazy seq of forms in file at path. Closes reader only after
  all forms are read."
  [path]
  (let [reader (-> path FileReader. BufferedReader. PushbackReader.)
        eof (Object.)
        next-form (fn next-form []
                    (let [form (read reader false eof)]
                      (if (= eof form)
                        (do
                          (.close reader)
                          nil)
                        (cons form (lazy-seq (next-form))))))]
    (next-form)))