如何放入 clojure 函数内的 repl 并打印堆栈跟踪

Question

鉴于以下功能

(defn func []
  (break!))

我要休息！函数来启动一个 repl，在那个 repl 中，我可以打印调用func.

该功能就像ipdb在 Python 中一样，当我们想要在某个函数的运行时内部进行交互调查时，它会非常方便。

Answer 1

一个非常基本的版本可能只是：

(defn break! [] (clojure.main/repl))

这将启动一个新的嵌套 REPL，当您退出它时（在 Windows 上使用 ^D -- 或 ^Z），它将继续。

你不能评估局部变量，但如果你写成break!宏，你至少可以在开始 REPL 之前显示活动的局部变量：

user=> (defmacro break! []
         (let [locals (into {} (map (juxt keyword identity)) (keys &env))] 
           (prn locals) 
           (clojure.main/repl :prompt #(print "nested> "))))
#'user/break!
user=> (defn foo "Using the break! function." [a b] (break!))
#'user/foo
user=> (foo 13 42)
{:a 13, :b 42}
nested> (doc foo)
-------------------------
user/foo
([a b])
  Using the break! function.
nil
nested> ^D
nil
user=>

如果您希望堆栈跟踪作为嵌套 REPL 中的数据，您可以评估 (:trace (Throwable->map (Throwable.)))