zipsuccess.clj

defn- process-image-zipstream [zipstream]
  (if-let [entry (.getNextEntry zipstream)]
    (do
      (println (str "Unzipping " (.getName entry)))
      (with-open [o (io/output-stream (.getName entry))]
        (loop [c (.read zipstream)] ;read next int from stream, mutates position of zipstream (so next .read() is different)
          (if (not= c -1)
            (do (.write o c)
                (recur (.read zipstream))))))
      (recur zipstream))))

(defn walkzip [file]
  (with-open [z (ZipInputStream. (io/input-stream file))]
    (process-image-zipstream z)))