如果您无法更改这些 AOT 编译的代码,因为这真的不在您的控制之下,您能否评估以下代码,并确保在系统启动时多线程调用 `require` 之前执行?当然,println 是可选的。
(def original-require clojure.core/require)
(defn my-serialized-require [& args]
(locking clojure.lang.RT/REQUIRE_LOCK
(println "my-serialized-require acquired the lock...")
(apply original-require args)
(println "my-serialized-require releasing lock...")))
(alter-var-root #'clojure.core/require (fn [& args] my-serialized-require))
如果这不适用于您,您是否被允许编译 Clojure 源代码的修改版本并将其用于您的项目中?如果是,您可以修改 `require` 的定义使其成为带锁版本的。