Ответ 1
Вы не можете... если вы не хотите обмануть:
(defmacro spy-dosync [& body]
`(let [retries# (atom -1)
result# (dosync
(swap! retries# inc)
[email protected])]
(println "retries count:" @retries#)
result#))
а затем замените dosync на spy-dosync.