Clojure:在调用者的命名空间中解析的宏中的限定关键字？

Question

是否可以在调用者的命名空间中解析宏中的限定关键字？例如:

(ns a)
(defmacro m [] `(do ::k))

在另一个命名空间中:

(ns b)
(use 'a)
(m)

在本例中， (m)解析为 :a/k (定义宏的命名空间)。我想知道是否有办法让它解析为 :b/k (调用宏的命名空间)。

Answer 1

(defmacro m [] (keyword (name (ns-name *ns*)) "k"))