【发布时间】：2017-02-13 10:46:51
【问题描述】：
我正在尝试实现我正在使用的遗留运行时所需的 Java 接口，并实例化此实现的一个实例以将其传递给运行时。但是当我运行lein uberjar 时，我看到一个异常，即找不到该类。两个命名空间都定义在同一个 leiningen 项目中，所以我预计它们会看到彼此以及它们生成的类。
(ns man.core
(:require (man.gateway))
(:import (man ManGate)
(eu.m2machine.gw GatewayComponentFactory))
(:gen-class))
(defn -main [& args]
(let [starter (.starter (GatewayComponentFactory/get))
gateway (ManGate.)]
(.startup starter gateway)))
此代码尝试使用在同一项目中实现的类：
(ns man.gateway
(:import [eu.m2machine.gw.text GatewayIDFormatter])
(:gen-class
:name man.ManGate
:implements [eu.m2machine.gw.Gateway]
:prefix "gateway-"))
(defn gateway-startup [this])
(defn gateway-shutdown [this])
接口所需的两个方法目前只有存根实现。我可以编译代码后，他们会得到他们的代码。定义了接口（在作为依赖项添加的工件中）：
package eu.m2machine.gw;
public interface Gateway {
void startup();
void shutdown();
}
我得到的例外是：
Exception in thread "main" java.lang.ClassNotFoundException: man.ManGate, compiling:(man/core.clj:1:1)
at clojure.lang.Compiler.load(Compiler.java:7391)
at clojure.lang.RT.loadResourceScript(RT.java:372)
at clojure.lang.RT.loadResourceScript(RT.java:363)
at clojure.lang.RT.load(RT.java:453)
at clojure.lang.RT.load(RT.java:419)
at clojure.core$load$fn__5677.invoke(core.clj:5893)
at clojure.core$load.invokeStatic(core.clj:5892)
at clojure.core$load.doInvoke(core.clj:5876)
at clojure.lang.RestFn.invoke(RestFn.java:408)
at clojure.core$load_one.invokeStatic(core.clj:5697)
at clojure.core$load_one.invoke(core.clj:5692)
at clojure.core$load_lib$fn__5626.invoke(core.clj:5737)
at clojure.core$load_lib.invokeStatic(core.clj:5736)
at clojure.core$load_lib.doInvoke(core.clj:5717)
at clojure.lang.RestFn.applyTo(RestFn.java:142)
at clojure.core$apply.invokeStatic(core.clj:648)
at clojure.core$load_libs.invokeStatic(core.clj:5774)
at clojure.core$load_libs.doInvoke(core.clj:5758)
at clojure.lang.RestFn.applyTo(RestFn.java:137)
at clojure.core$apply.invokeStatic(core.clj:648)
at clojure.core$require.invokeStatic(core.clj:5796)
at clojure.core$require.doInvoke(core.clj:5796)
at clojure.lang.RestFn.invoke(RestFn.java:408)
at user$eval5$fn__7.invoke(form-init2162986879369932757.clj:1)
at user$eval5.invokeStatic(form-init2162986879369932757.clj:1)
at user$eval5.invoke(form-init2162986879369932757.clj:1)
at clojure.lang.Compiler.eval(Compiler.java:6927)
at clojure.lang.Compiler.eval(Compiler.java:6917)
at clojure.lang.Compiler.load(Compiler.java:7379)
at clojure.lang.Compiler.loadFile(Compiler.java:7317)
at clojure.main$load_script.invokeStatic(main.clj:275)
at clojure.main$init_opt.invokeStatic(main.clj:277)
at clojure.main$init_opt.invoke(main.clj:277)
at clojure.main$initialize.invokeStatic(main.clj:308)
at clojure.main$null_opt.invokeStatic(main.clj:342)
at clojure.main$null_opt.invoke(main.clj:339)
at clojure.main$main.invokeStatic(main.clj:421)
at clojure.main$main.doInvoke(main.clj:384)
at clojure.lang.RestFn.invoke(RestFn.java:421)
at clojure.lang.Var.invoke(Var.java:383)
at clojure.lang.AFn.applyToHelper(AFn.java:156)
at clojure.lang.Var.applyTo(Var.java:700)
at clojure.main.main(main.java:37)
Caused by: java.lang.ClassNotFoundException: man.ManGate
at java.net.URLClassLoader.findClass(URLClassLoader.java:381)
at clojure.lang.DynamicClassLoader.findClass(DynamicClassLoader.java:69)
at java.lang.ClassLoader.loadClass(ClassLoader.java:424)
at clojure.lang.DynamicClassLoader.loadClass(DynamicClassLoader.java:77)
at java.lang.ClassLoader.loadClass(ClassLoader.java:357)
at java.lang.Class.forName0(Native Method)
at java.lang.Class.forName(Class.java:348)
at clojure.lang.RT.classForName(RT.java:2168)
at clojure.lang.RT.classForNameNonLoading(RT.java:2181)
at man.core$eval20$loading__5569__auto____21.invoke(core.clj:1)
at man.core$eval20.invokeStatic(core.clj:1)
at man.core$eval20.invoke(core.clj:1)
at clojure.lang.Compiler.eval(Compiler.java:6927)
at clojure.lang.Compiler.eval(Compiler.java:6916)
at clojure.lang.Compiler.load(Compiler.java:7379)
... 42 more
我想知道这是否可能是命名空间编译顺序的问题。也许 leiningen 在创建 man.ManGate 类之前正在处理 man.core！？
编辑：
我可以通过改变实现接口的方式来解决我的问题：
(ns man.gateway
(:import [eu.m2machine.gw Gateway]))
(defn gateway []
(reify Gateway
(startup [this])
(shutdown [this]))
)
在命名空间 man.core 中，我将构造函数调用 ManGate. 替换为对 man.gateway/gateway 的调用。
我仍然想知道为什么上面的解决方案不起作用。
【问题讨论】：
标签： clojure leiningen clojure-java-interop