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"))