clojure - leiningen run 在调用 future 后一分钟内不返回

Question

如果我在将来包装一个函数并在命令行上从 leiningen 调用它，它会为运行时增加 1 分钟。谁能告诉我这是为什么？你能告诉我如何阻止这种行为吗？我想避免这额外的一分钟。

示例代码:

(ns futest.core
  (:gen-class))

(defn testme []
  (Thread/sleep 2000)
  42)

(defn -main
  [& args]
  (if (= (nth args 0) "a")
    ;; either run a simple function that takes 2 seconds
    (do
      (println "no future sleep")
      (let [t (testme)]
        (println t))
      (println "done."))
    ;; or run a simple function that takes 2 seconds as a future
    (do
      (println "future sleep")
      (let [t (future (testme))]
        (println @t))
      (println "done.")
      ;; soo, why does it wait for 1 minute here?
      )))

Answer 1

这是因为代理使用 two threadpools ，第一个是固定线程池，第二个是缓存线程池。缓存线程池终止在一定时间内处于非事件状态的正在运行的线程，the default being 60 seconds .这就是您看到 60 秒延迟的原因。当然，如果你手动调用shutdown-agents这两个线程池都会终止，不会留下阻止您退出的非守护线程。