trace-letfn.clj

(defmacro trace-letfn [fnspecs & body]
  (let [mod-fns (mapv #(let [[name args & body] %]
                         `(~name ~args (t/trace-fn-call '~name (fn ~args ~@body) ~args)))
                      fnspecs)]
    `(letfn ~mod-fns ~@body)))
    
(trace-letfn [(f [n] (println "Thing" n))
              (g [m] (println "Somethin else" m))]
  (f 1)
  (g 2))
TRACE t1951: (f 1)
Thing 1
TRACE t1951: => nil
TRACE t1952: (g 2)
Somethin else 2
TRACE t1952: => nil
=> nil