如何使用Clojure将磁盘上的文件解压到目录中？

(ns my-app.core
  (:import [java.util.zip ZipInputStream ZipEntry])
  (:require [clojure.java.io :as io]))

(defn unzip-file [zip-file destination]
  (with-open [zip-stream (ZipInputStream. (io/input-stream zip-file))]
    (loop [entry (.getNextEntry zip-stream)]
      (when entry
        (let [entry-name (.getName entry)
              output-file (io/file destination entry-name)]
          (if (.isDirectory entry)
            (io/make-directory output-file)
            (do
              (io/make-parents output-file)
              (with-open [output-stream (io/output-stream output-file)]
                (io/copy zip-stream output-stream))))
          (.closeEntry zip-stream)
          (recur (.getNextEntry zip-stream)))))))

;; 调用示例
(unzip-file "path/to/zip/file.zip" "path/to/destination/folder")