Function to return a lazy sequence of all the descendant files of a directory.

gistfile1.clj

(defn dir-descendants 
  "Creates a lazy sequence of files by recursively walking
a directory tree and returning all the files it finds."
  [dir]
  (let [children (.listFiles (File. dir))]
    (lazy-cat 
     (map (memfn getPath) (filter (memfn isFile) children)) 
     (mapcat dir-descendants 
	  (map (memfn getPath) (filter (memfn isDirectory) children))))))