Clojure: Определить мультиметоды из списка символов?

Question

В упражнении Clojure, над которым я работаю, у меня есть несколько методов, все из которых просто используют identity в качестве функции отправки. Например:

(defmulti amount identity) 
(defmulti bottles identity) 
(defmulti pronoun identity) 
(defmulti action identity) 
(defmulti pred identity) 

Поскольку все они используют один и тот же identity функцию для отправки, я хотел бы просто перебирать имена и называть defmulti для каждого имени, а не повторять defmulti звонки. Я попытался это:

(doseq [m '(amount bottles pronoun action pred)] 
    (defmulti m identity)) 

Однако, когда я делаю, что кажется, как будто defmulti не имеет должный эффект, как, когда я позже использовать defmethod для любого из Многометодных имен, я получаю сообщение об ошибке, таких как:

(defmethod amount 0 [n] "whatever") 

CompilerException java.lang.RuntimeException: Unable to resolve symbol: amount in this context, compiling:(NO_SOURCE_PATH:1:1) 

можно перебрать список символов или имен и вызвать defmulti для каждого из них, и если да, то как это может быть сделано?

Answer 1

Вы можете создать макрос, который оборачивает над defmulti и делает нужную вещь:

(defmacro defidmulti [names] 
    `(do ~@(for [m names] 
      `(defmulti ~m identity)))) 

(defidmulti [amount bottles pronoun action pred])