如何在开发中通过将Clojure库作为类而不是.clj文件来要求，从而减少REPL的启动时间？

Question

嗨！

我阅读了有关减少开发中REPL启动时间的文章，并尝试将知识应用于使用Leiningen启动REPL（Alex在文章中展示了使用deps.edn的实践）。

我的步骤

我覆盖了clojure.core/load变量来跟踪加载模块所花费的时间。

(alter-var-root #'clojure.core/load (fn [origin-fn]
                                  (if (get (meta origin-fn) ::track-load?)
                                    origin-fn
                                    (vary-meta (fn [& args]
                                                 (let [start# (System/nanoTime)
                                                       ret# (apply origin-fn args)
                                                       elapsed-ms# (/ (double (- (System/nanoTime) start#)) 1000000.0)]
                                                   (newline)
                                                   (pr {:args (vec args)
                                                        :ms   elapsed-ms#})
                                                   (newline)
                                                   ret#))
                                               merge
                                               {::track-load? true}))))

我发现加载核心Clojure组件需要时间约0.10-0.20毫秒，加载第三方库模块（例如cheshire）则需要约200-400毫秒。

据我了解，减少REPL启动时间的主要思想是，在clj模块未更改的情况下，先编译类之后再加载clj模块。因此，我们可以编译第三方库，并从不会解析它们的clj文件而直接使用它们的编译后的类中受益。

我使用Leiningen的uberjar编译了所有Clojure文件（我的和库文件），并将编译后的类文件文件夹添加到：checkout-deps-shares，我想这可能是在classpath中添加一个包含类文件的文件夹的方法。

:checkout-deps-shares [:source-paths :test-paths
                     ~(fn [p] (str (:root p) "/target/uberjar/classes/*"))]

然后我重启了REPL，覆盖了clojure.core/load来跟踪模块的加载时间，并进行了以下实验：

(time (require 'runtime.account :reload-all))

其中runtime.account是我的根模块之一。

结果我看不到加载第三方库模块的时间有任何区别：/。

也许您可以提供一些关于决定加载类文件还是.clj文件机制的细节，以及一些方法来监控该活动？

谢谢！

Answer 1

lein uberjar 可能无法预编译所有内容。确保的一种方法是设置 :aot 键为 :all
你能贴出你的 lein project.clj 文件吗？

Comments

ok!
明白了，我使用 :aot :all 编译的 uberjar 运行我的实验。

没有期望的结果 :/


这是我的 project.clj，格式可能有误，请见谅

(defproject myproject "1.0.0"
            :dependencies [(comment "deps")]
            :uberjar-name "my-project.jar"
            :main runtime.run
            :source-paths ["src-clj"]
            :resource-paths ["resources"]
            :test-paths ["test-clj"]
            :target-path "target/%s"
            :env {(comment "ENV VARS")}
            :eftest {:multithread?    :namespaces
                           :capture-output? true
                           :test-warn-time  1000}
            :profiles {:default   [:base :system :user :provided :local-dev]
                              :user      {:dependencies         [(comment "dev deps")]
            :checkout-deps-shares [:source-paths :test-paths
                                                          ~(fn [p] (str (:root p) "/target/uberjar/classes/*"))]}
                       :local-dev {}
                       :uberjar   {:aot      :all
                                          :jvm-opts ["-Dclojure.compiler.direct-linking=true" "-Dclojure.compiler.elide-meta=[:doc :file :line :added]"]}}
            :aliases {"run-tests"  ["trampoline" "run" "-m" "test.core"]
                            "run-server" ["trampoline" "run" "-m" "runtime.run"]}
            :jvm-opts [(comment "JVM OPTS")]
            :repl-options {:timeout 180000
                                       :init-ns runtime.repl})

---

我发现将 "target/uberjar/classes" 添加到 :src-path 中，可以将 repl 启动时间从 25 秒缩短到 15 秒

但之后
(time (require 'runtime.account :reload-all))

(clojure.tools.namespace.repl/refresh) 无法解析依赖项

clojure.tools.namespace.repl 配置了以下目录的跟踪："src-clj"，"test-clj"

---

我为 lein 项目添加了 :compile profile，并配置了 :aot :all 选项
现在使用 'lein with-profile compile compile'，我可以为每个命名空间在
文件夹 "/Users/user-name/core/project-name/target/default/classes" 中生成类文件

我通过 (clojure.java.classpath/classpath-directories) 检查以确保类路径包含此文件夹

lein repl 启动时间是 15 秒而不是 25 秒

但使用 (clojure.tools.namespace.repl/refresh)  无法解析依赖项，文件找不到

我认为这里有类加载器的“魔法”

正在调查