emacs - Clojure 的线程在 Emacs clojure-repl 模式下不显示结果

Question

我有这个启动并执行函数的 Clojure 代码。

(import [java.lang Thread])
(defn with-new-thread [f]
  (.start (Thread. f)))
(with-new-thread (fn [] (print "hi")))

但是，当我在 emacs 中以 slime-repl 模式运行它时(使用 cider-jack-in 执行)，没有打印任何内容，但返回了 nil。

使用lein real，我得到了预期的输出。

user=> (import [java.lang Thread])
java.lang.Thread
user=> (defn with-new-thread [f] (.start (Thread. f)))
#'user/with-new-thread
user=> (with-new-thread (fn [] (print "hello\n")))
hello
nil

可能出了什么问题？

Answer 1

发生这种情况是因为 CIDER/Emacs 中的主线程将 REPL 输出缓冲区绑定(bind)到 *out* 动态变量。这就是为什么你可以在 emacs 中看到东西。

但是，当您启动一个新线程时，该绑定(bind)不存在。修复非常简单 - 首先创建一个捕获当前绑定(bind)的函数:

(def  repl-out *out*)
(defn prn-to-repl [& args]
  (binding [*out* repl-out]
    (apply prn args)))

现在，每当您想从不同的线程打印时，请使用:

(prn-to-repl "hello")

就是这样。希望这可以帮助。