Пытается создать карту динамически

Question

Интересно, почему эта авария?

(defn test1 [var1 & var2] 
    (print (json/write-str (merge {:key1 var1} var2)))) 

(defn -main [& args] 
    (test1 "val1" {:key2 "val2" :key3 "val3"})) 

Ошибка:

Exception in thread "main" java.lang.ClassCastException: clojure.lang.PersistentArrayMap cannot be cast to java.util.Map$Entry, 

Answer 1

Ваш параметр var2 фактически содержит Rest Arguments (речь идет после & характера). Поэтому он фактически содержит все аргументы, которые появляются после var1. Вы можете исправить код, удалив &, но тогда вы можете указать только один var2 аргумент:

(defn test1 [var1 var2] 
    (print (json/write-str (merge {:key1 var1} var2)))) 

Если вы хотите, чтобы быть в состоянии пройти несколько карт, как var2, вы сначала должны объединить их в один карта:

(defn test1 [var1 & var2] 
    (print (json/write-str (merge {:key1 var1} 
           (apply merge var2)))))