IllegalStateException：尝试在宏中调用未绑定的 fn

Question

我正在尝试编写一个调用某些函数的宏。这些函数只能由宏使用，所以我将它们放在一个 letfn 包装宏中。伪代码：

(letfn [(fn-a [] ...)
        (fn-b [] ...)
        (fn-c [] (fn-b))]
  (defmacro my-macro [stuff]
   `(let [whatever# (fn-a)]
      (fn-c))))

对fn-a 和fn-c 的调用有效，但是当fn-c 尝试调用fn-b 我得到IllegalStateException: Attempting to call unbound fn: #'name.space/fn-b时间>。这是为什么呢？

如果我将fn-b 和fn-c 放在它们自己的defns 中，一切正常。但我不想这样做，因为它不干净。

编辑：为了测试，我尝试将函数绑定放在内部 let 中，但遇到了同样的异常。

Answer 1

我认为这种方式根本行不通。 例如，对fn-c 的调用扩展为your.namespace/fn-c，因此您的代码似乎调用了恰好具有相同名称的其他函数。 但是你没有your.namespace/fn-b，这会引发异常。

要引用不合格的符号，您需要引用和取消引用它：~'fn-a 但这也不起作用，因为局部函数没有在扩展点定义，您只能将它们用于宏本身。

您要么必须在命名空间中定义函数并在宏中限定它们，要么将它们包含在宏扩展中，这将在每次使用时重新定义它们。

Answer 2

我不确定这是否正是您所追求的，但如果我这样做：

(letfn [(fn-a [] (println 1))
        (fn-b [] (println 2))
        (fn-c [] (fn-b))]
  (defmacro my-macro [stuff]  
    `(let [whatever# ~(fn-b)]
       ~(fn-c))))

然后它就可以工作了——它只需要波浪号来取消对函数调用的引用。

以下两项工作：

(defn fn-x [] (println 1))

(defn fn-y [] (fn-x))

(defmacro my-macro2 [stuff]  
        `(let [whatever# (fn-x)]
           (fn-y)))

与

(defn fn-x [] (println 1))

(defn fn-y [] (fn-x))

(defmacro my-macro2 [stuff]  
        `(let [whatever# ~(fn-x)]
           ~(fn-y)))

在第一种情况下，函数在编译时被评估并且它们的结果被合并到宏中，而在第二种情况下，它们在运行时被评估。使用letfn（它本身是一个宏），结果在编译时不可用（可能是因为它们是在编译宏之后编译的），因此这些函数只能在运行时使用。