zipfail.clj

(defn process-image-file
  [file]
  (let [filename (.getName file)]
    (when-let [item (find-by-image-filename-no-path filename)]
      (let [f (ZipFile. (io/file "/tmp/what"))]
        (io/copy (.getInputStream f file)
                 (io/file "resources" "tmp" (str (:id item) "-" filename)))))))

(defn- entries [zipstream]
  (lazy-seq
    (if-let [entry (.getNextEntry zipstream)]
      (cons entry (entries zipstream)))))

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