Clojure: spit directly to zip

gistfile1.clj

(defn spit-to-zip
  "Put the content in filename and zip it into zip-filename. Accept
one or more filename/content."
  [zip-filename filename content & others]
  (with-open [zip (java.util.zip.ZipOutputStream.
                   (clojure.java.io/output-stream zip-filename))]
    (let [add-entry (fn [name cont remain] 
                      (-> zip (.putNextEntry (java.util.zip.ZipEntry. name)))
                      (doto (java.io.PrintStream. zip true)
                        (.println content))
                      (when (seq remain)
                        (recur (first remain) (second remain) (drop 2 remain))))]
      (add-entry filename content others))))

There's an error in the 10th line s/content/cont

(defn spit-to-zip
  "Put the content in filename and zip it into zip-filename. Accept
one or more filename/content."
  [zip-filename filename content & others]
  (with-open [zip (java.util.zip.ZipOutputStream.
                   (clojure.java.io/output-stream zip-filename))]
    (let [add-entry (fn [name cont remain] 
                      (-> zip (.putNextEntry (java.util.zip.ZipEntry. name)))
                      (doto (java.io.PrintStream. zip true)
                        (.println cont))
                      (when (seq remain)
                        (recur (first remain) (second remain) (drop 2 remain))))]
      (add-entry filename content others))))