如何在开发过程中将与.clj文件不同的Clojure库作为类来要求，以减少REPL启动时间？

Question

你好！

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

我的步骤

我重写了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，我想这是向类路径添加包含类文件的文件夹的方式。

: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配置文件，并为：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)，解析依赖关系失败，文件无法找到

我想这可能与类加载器有关某种魔法

正在调查