Lazy zip file reading in clojure

zip-file-entries.clj

(require '(clojure.java [io :as io]))

(defn zip-file-entries [filepath]
  (let [is (io/input-stream filepath)
        zin (java.util.zip.ZipInputStream. is)]
    ((fn proc-entry [zin] 
      (if-let [entry (.getNextEntry zin)]
        (if (not (.isDirectory entry))
          (do
            (let [in (java.io.BufferedInputStream. zin)
                  out (java.io.ByteArrayOutputStream.)]
              (io/copy in out)
              (.closeEntry zin)
              (lazy-seq (cons {:entry entry :contents (.toByteArray out)} (proc-entry zin)))))
          (lazy-seq (proc-entry zin)))
        (do
          (println "Closing")
          (.close is)
          (.close zin)))) zin)))