Clojure 命名空间管理 - 有没有办法保存和恢复 clojure repl 命名空间、导入等的状态？

Question

Clojure 有大量函数/宏用于处理命名空间和 java 包导入。据我（有限）理解，命名空间的设置可以被视为 clojure 进程 (repl) 中的状态。

在 REPL 会话中迭代工作时，尤其是（重新）加载源文件时，我发现很容易感到困惑 - 通常当我在命名空间配置中犯下错误或语法错误时。其他时候，我想尝试重构命名空间/别名/引用过滤器，但在不重新启动 REPL 的情况下无法轻松退出现有命名空间状态。

例如，我希望能够检查命名空间配置 - 例如在 repl 加载代码主体之后 - 然后在尝试了在 REPL 导入的一些库后返回到“干净的状态”，以便我可以立即测试一个源文件，该文件导入该库中方法的过滤子集作为 ns 宏的一部分。

人们可以推荐保存和恢复命名空间配置的方法吗？

Answer 1

我确信这有问题，因为我刚刚写它是为了回答这个问题，但我肯定会在我的项目中使用它。只需：导入它（将它放在项目中自己的文件中）并自由使用它。

(ns world)


(defn save-world
  []
  (let [syms (filter identity (distinct (for [i (ns-map *ns*)] (first i))))]
    (for [i syms]
      (vector i
              (ns-resolve *ns* i)))))

(defn destroy-world-but
  [saved]
  (let [syms (filter identity (distinct (for [i (ns-map *ns*)] (first i))))]
    (for [i syms]
      (if-not (or (= (ns-resolve *ns* i) (ns-resolve *ns* saved))
                  (= (ns-resolve *ns* i) (ns-resolve *ns* 'restore-world))
                  (= (ns-resolve *ns* i) (ns-resolve *ns* '*ns*)))
        (ns-unmap *ns* i)))))

(defn restore-world
  [saved]
  (clojure.core/map
   #(intern *ns* (clojure.core/first %) (clojure.core/second %))
   saved))

首先，保存您的世界状态（您想要返回的世界），如下所示：

(def *save* (save-world))

然后做任何您想做的事情 - 实验。当您准备好回到以前的状态时：

(destroy-world-but '*save*)
(restore-world *save*)

您应该可以开始了！

（希望这有效！正在为我工​​作 - 如果有问题请告诉我。我确信还有更好的方法可以做到这一点，但这有效，这就是我今晚所取得的进展。我确信我'会修改的。）

Answer 2

这并不总是有效。您可以使用 ns-unmap 从命名空间中删除变量，但其他代码片段可能仍保留对这些定义的引用。

Clojure 因为基于 JVM，所以没有像某些 Common Lisp 或 Scheme 实现那样的“内存映像”概念。

Answer 3

DMTCP 可能会以一种笨拙的方式完成这项工作。 Google 的 DMTCP：分布式多线程检查点。我用它来检查交互式 OCaml 程序。