clojure - 尝试将注释添加到 defrecord 宏中定义的类

Question

我正在尝试创建一个类似于 Quartzite defjob 宏的宏，它创建了添加了 @DisallowConcurrentExecution 注释的 Job 类。代码在 repl 中有效，但在宏内部无效。

这有效...

user=> (defrecord ^{DisallowConcurrentExecution true} YYY []
  #_=>   org.quartz.Job
  #_=>   (execute [this context]
  #_=>            (println "whoosh!")))
user.YYY
user=> (seq (.getAnnotations YYY))
(#<$Proxy3 @org.quartz.DisallowConcurrentExecution()>)

...但这不是。

(defmacro defncjob
  [jtype args & body]
  `(defrecord ^{DisallowConcurrentExecution true} ~jtype []
              org.quartz.Job
              (execute [this ~@args]
                ~@body)))

根据 Rodrigo 的建议，这里有一种方法可以让它发挥作用。

(defmacro defdcejob
  [jtype args & body]
  `(defrecord ~(vary-meta jtype assoc `DisallowConcurrentExecution true) []
     org.quartz.Job
     (execute [this ~@args]
       ~@body)))

Answer 1

您不能使用 ^ reader macro里面的宏。看看this类似的问题。