Clojure DEF宏中的deftype带有元数据

假设我让deftype从下一个角度看：

(deftype ^{A: a} Name [])

我要定义宏类型：

(defmacro dotype [name]
  `(deftype ^{A :a} ~name []))

但是，我正在丢失有关元数据的信息

(macroexpand-1 '(dotype T))
;> (clojure.core/deftype T [])

我尝试使用

vary meta

的技巧来避免在宏中使用^{}。不幸的是，

deftype

不支持IObj接口（不支持元数据），我所有的尝试都没有成功

请建议实现此宏的方法。谢谢

这对我很有用：

(deftype A [])

(defmacro dotype [name]
  `(deftype ~(with-meta name {:tag A}) []))

(binding [*print-meta* true]
  (prn (macroexpand-1 '(dotype T))))

; user=> (clojure.core/deftype ^user.A T [])

注意：元数据默认情况下不会打印，因此您必须通过如上所示绑定

*print meta*

来启用元数据，或者使用

（set！*print meta*true）

在REPL中设置元数据，但设置为永久在REPL中会将大量无趣的信息打印到屏幕上，因此最好避免（！）