强制扩展 Clojure 宏内的表达式

Question

我正在尝试使用 Stuart Sierra 的 do-templatedefprotocol 中的 a> 宏，并且 Clojure 编译器抱怨我正在重新定义 do-template ——不是我想要的：

(defprotocol AProtocol
  (a-method [_])
  (do-template [name]
    `(~(symbol (str name "-method")) [this that])
    foo
    bar
    baz))

这应该扩展到：

(defprotocol AProtocol
  (a-method [_])
  (foo-method [this that])
  (bar-method [this that])
  (baz-method [this that]))

问题（我相信）那是do-template s-expression 被传递给 defprotocol 未展开。有没有办法让它先评估再通过？

顺便说一句， do-template 实际上应该扩展为

(do
  (foo-method [this that])
  (bar-method [this that])
  (baz-method [this that]))

，但我已经尝试过（使用手动扩展版本）并且 defprotocol 对于嵌套的 do 很好>。

我怎样才能看到do-template的实际扩展？我尝试了 (macroexpand '(do-template ...)) 和 (macroexpand-1 '(do-template ...)) 并得到：

(做(clojure.core/seq （clojure.core/concat （clojure.core/list（符号（str foo “-方法”）））（clojure.core/list （clojure.core/应用 clojure.core/向量（clojure.core/seq （clojure.core/concat （clojure.core/list（引用用户/this）） （clojure.core/list（引用 用户/那个））））））））（clojure.core/seq （clojure.core/concat （clojure.core/list（符号（str 条 “-方法”）））（clojure.core/list （clojure.core/应用 clojure.core/向量（clojure.core/seq （clojure.core/concat （clojure.core/list（引用用户/this）） （clojure.core/list（引用 用户/那个））））））））（clojure.core/seq （clojure.core/concat （clojure.core/list（符号（str baz “-方法”）））（clojure.core/list （clojure.core/应用 clojure.core/向量（clojure.core/seq （clojure.core/concat （clojure.core/list（引用用户/this）） （clojure.core/list（引用 用户/那个）））））））））

不太容易阅读:-)。

另外，我可能希望 this 和 that 成为 anaphora 并扩展为自身：~'this。

Answer 1

(1) defprotocol 不适用于 do 形式。它不会引发错误，但也不起作用。

（2）这样你就不能做你想做的事了。 defprotocol 是被调用的宏，因此它对子表单如何展开有绝对的权威。

(3) 第 (2) 项提出了一种解决方案，实际上与您最近的至少一个问题相同：定义一个新宏，例如 with-methods，它采用方法名称列表，后面跟着任何其他 defprotocol 参数，并扩展为一个 defprotocol，并已完成适当的替换和拼接，以便 defprotocol 可以和平地扩展，而无需了解有关 do-template 技巧的任何信息。