如何在命名空间的上下文中评估clojure数据结构？

我正在编写一个clojure应用程序供内部使用，我希望配置文件也在clojure中。我已经定义了一些宏来简化配置文件的编写，但是当我尝试从配置文件中评估数据时，它找不到我的宏。然而，从REPL来看，这很好。例如，我正在使用

(load-string "/path/to/config")

我得到这个错误：

Exception in thread "main" java.lang.RuntimeException: Unable to resolve symbol: defcmd in this context, compiling:(null:1)
at clojure.lang.Compiler.analyze(Compiler.java:6235)
at clojure.lang.Compiler.analyze(Compiler.java:6177)
at clojure.lang.Compiler$InvokeExpr.parse(Compiler.java:3452)
at clojure.lang.Compiler.analyzeSeq(Compiler.java:6411)
at clojure.lang.Compiler.analyze(Compiler.java:6216)
at clojure.lang.Compiler.analyze(Compiler.java:6177)
at clojure.lang.Compiler.eval(Compiler.java:6469)
at clojure.lang.Compiler.load(Compiler.java:6902)
at clojure.lang.Compiler.load(Compiler.java:6872)
at clojure.core$load_reader.invoke(core.clj:3625)
at clojure.core$load_string.invoke(core.clj:3635)
at serverStats.core$load_config.invoke(core.clj:67)
at serverStats.core$_main.doInvoke(core.clj:78)
at clojure.lang.RestFn.invoke(RestFn.java:397)
at clojure.lang.Var.invoke(Var.java:397)
at user$eval109.invoke(NO_SOURCE_FILE:1)
at clojure.lang.Compiler.eval(Compiler.java:6465)
at clojure.lang.Compiler.eval(Compiler.java:6455)
at clojure.lang.Compiler.eval(Compiler.java:6431)
at clojure.core$eval.invoke(core.clj:2795)
at clojure.main$eval_opt.invoke(main.clj:296)
at clojure.main$initialize.invoke(main.clj:315)
at clojure.main$null_opt.invoke(main.clj:348)
at clojure.main$main.doInvoke(main.clj:426)
at clojure.lang.RestFn.invoke(RestFn.java:421)
at clojure.lang.Var.invoke(Var.java:405)
at clojure.lang.AFn.applyToHelper(AFn.java:163)
at clojure.lang.Var.applyTo(Var.java:518)
at clojure.main.main(main.java:37)
Caused by: java.lang.RuntimeException: Unable to resolve symbol: defcmd in this context
at clojure.lang.Util.runtimeException(Util.java:156)
at clojure.lang.Compiler.resolveIn(Compiler.java:6720)
at clojure.lang.Compiler.resolve(Compiler.java:6664)
at clojure.lang.Compiler.analyzeSymbol(Compiler.java:6625)
at clojure.lang.Compiler.analyze(Compiler.java:6198)
... 28 more

---

但是，从我的命名空间中的REPL运行相同的命令效果很好。

您可能需要更复杂的加载方案。我假设您希望将配置放入专用的配置命名空间中。它将只包含配置。助手函数保存在单独的名称空间中，在配置名称空间中使用

(defn setup-config-space
  []
  (binding [*ns* *ns*]
    (in-ns 'config.namespace)
    (refer-clojure)
    (use 'config.helpers)))

(defn load-config
  [path]
  (binding [*ns* *ns*]
    (in-ns 'config.namespace)
    (load-file path)))

请参见示例使用：

..ojure/1.4.0-alpha3% cat config/helpers.clj                             
(ns config.helpers)

(defmacro defcmd
  [x]
  `(defn ~x [] "Hello"))
..ojure/1.4.0-alpha3% cat x.clj
(defcmd foo)
..ojure/1.4.0-alpha3% java -cp .:clojure-1.4.0-alpha3.jar clojure.main -r
Clojure 1.4.0-alpha3
user=> ; Paste above functions
#'user/setup-config-space
#'user/load-config
user=> (setup-config-space)
nil
user=> (load-config "x.clj")
#'config.namespace/foo
user=> (config.namespace/foo)
"Hello"

---

我找到了一个相关的线程，但没有找到解决方案：考虑到

load string

的作用与您认为的不同，我猜测“defcmd”在路径字符串中的某个位置。请尝试

load file

。您能解释一下，为什么在REPL:（binding[ns（find ns'config.namespace）]（defn tst[]1））中进行求值会导致#'user/tst而不是#'config.namespace/tst吗？因为

def

（来自

defn

）的Var创建部分是在编译命令时完成的，但是，

绑定

仅在主体执行期间发生。因此名称空间仍然是“用户”<代码>定义。*在非顶级位置通常是错误的。（例外：对来自let绑定的值进行闭包，

（let[x…]（defn foo[]x））

）很好的提示。真正地使用它。这里可以看到一个关于这一要点的小例子：@paulosuzart Nice.：）谢谢你的反馈。