A macro which define a function and a macro that call that function passing the inner macro arguments and the form used to call it as the function arguments, or something like that.

crazy.clj

(defmacro crazy [name & args]
  (let [name* (symbol (str name \*))]
    `(do
       (defn ~name* [self# & params#]
         (prn self#))
       (defmacro ~name [~'& args#]
         `(~~name* (quote ~~'&form) ~@args#)))))