zip_file_entries.clj

(ns zip-file-entries
  (:require
   [clojure.java.io :as io])
  (:import
   (java.io BufferedInputStream ByteArrayOutputStream)
   (java.util.zip ZipInputStream)))

(defn zip-file-seq [^ZipInputStream zin]
  (when-let [entry (.getNextEntry zin)]
    (if (.isDirectory entry)
      (lazy-seq (zip-file-seq zin))
      (let [out (ByteArrayOutputStream.)]
        (io/copy (BufferedInputStream. zin) out)
        (.closeEntry zin)
        (lazy-seq
         (cons {:entry    entry
                :contents (.toByteArray out)}
               (zip-file-seq zin)))))))

;;; Usage:

(with-open [zis (-> "foo.zip" io/input-stream ZipInputStream.)]
  (mapv #(.getName (:entry %)) (zip-file-seq zis)))