Recursive (doall) in clojure

Question

I have some structures with nested lazy sequences that are read from files. When I test, I would like to be able to wrap them in a recursive version of doall so that all data is extracted from the files before closing the files.

Answer 1

(defn doall-recur [s] (if (seq? s) (doall (map doall-recur s)) s)) (use 'clojure.contrib.duck-streams) (with-open [r1 (reader "test1.txt") r2 (reader "test2.txt")] (doall-recur (list (line-seq r2) (line-seq r1)))) 

Output:

 (("This is test2.txt" "") ("This is test1.txt" "")) 

Answer 2

 (defn doall* [s] (dorun (tree-seq seq? seq s)) s) 

Answer 3

This worked for me in unit test

 (use 'clojure.walk) (postwalk identity nested-lazy-thing)