да, странное, ведь в мапе справа и слева не должно быть одно и то же?

суть в том, что кложура не дает сделать {~@mappings}

Выдает

Syntax error reading source at (REPL:22:26).
Map literal must contain an even number of forms

ты весь код покажи

Ух, это сложно читать)

Вот я принтовал mappings

("name" (.group G__3079 1) "surname" (.group G__3079 2))

кодом дай

Окай

(defmacro regex
 "Given an expression that returns a string returns a function
 that given a string returns nil if pattern did not match
 and a map of named groups if pattern matches."
 [regex-string-expression]
 (let [regex-string (eval regex-string-expression)
       re-group-regex #"(?<!\\)(?:\\\\)*\((?:\?<(\w+)>|[^?])"

       string-arg (gensym)
       matcher-arg (gensym)

       pattern (re-pattern regex-string)
       group-names (mapv second (re-seq re-group-regex regex-string))
       mappings (apply concat (map-indexed (fn [i group-name]
                                             `(~group-name (.group ~matcher-arg ~(inc i))))
                                           group-names))]
     `(fn [~string-arg]
        (let [~matcher-arg (re-matcher ~pattern ~string-arg)]
          (if (.matches ~matcher-arg)
            {~@mappings ~@mappings}
            nil)))))

и тестовое выражение давай

((regex "(?<name>[a-zA-Z]+) (?<surname>[a-zA-Z]+)") "John Smith")

у кого-то есть мнение насчёт paredit vs parinfer?

мне паринфер больше покатил

ну то есть я редактирую текст как обычно, а он мне только скобочки закрывает

видимо какой-то хитрый финт в ридере литерала, что оно так работает

Я ожидал, что будет ошибка)

проверь на (set! *unchecked-math* :warn-on-boxed), там ворнинг в одном месте

а, хотя это на этапе компиляции...

Благодарю)