clojure:为命名空间中的每个函数添加调试跟踪？

(defn my-function [x y]
  (tap> (str "Entering my-function with x=" x " and y=" y))
  (+ x y))

(defn my-function [x y]
  (+ x y))

(defn my-function-with-debug [x y]
  (println "Entering my-function with x=" x " and y=" y)
  (my-function x y))

(with-redefs [my-function my-function-with-debug]
  (my-function 1 2))

(require '[clojure.tools.trace :as trace])

(defn my-function [x y]
  (+ x y))

(trace/trace-ns 'my-namespace)

(my-function 1 2)