gistfile1.clj

; nREPL 0.1.7
user> (defmacro my-macro [name params] `(defn ~name ~params (prn 1)))
#'user/my-macro
user> (my-macro a [b c d])
#'user/a
user> (a)
ArityException Wrong number of args (0) passed to: user$a  clojure.lang.AFn.throwArity (AFn.java:437)
user> (a 1 2 3)
1
nil
user> (my-macro a [a b c])
#'user/a
user> (a 1 2 3)
1
nil
user> (my-macro f [f b c])
#'user/f
user> (f 1 2 3)
1
nil
user>