gistfile1.clj

(defn lazy-open-file-seq [rdr]
	(let [seq-fn (fn seq-fn [rdr list]
			 (lazy-seq
			   (try
			    (if list
			    (cons (first list) (seq-fn rdr (rest list)))
			    (do
			     (.close rdr)
			     nil)			    )
			    (catch Exception e (.close rdr))
			    )))] (seq-fn rdr (line-seq rdr))))