AOP like in Clojure

aop.clj

(defn- add-call-log
  [s]
  (when-let [v (resolve s)]
    (when-not (-> v meta :macro)
      (let [current @v
            patched (fn [& args]
                      (prn {:called-fn v :args args})
                      (.applyTo ^clojure.lang.IFn current args))]
        (alter-var-root v (constantly patched))))))

repl.log

user.my> (defn minus [x y] (- x y))
#'user.my/minus
user.my> (minus 3 1)
2
user.my> (add-call-log 'minus)
#function[user.my/add-call-log/patched--48026]
user.my> (minus 3 1)
{:called-fn #'user.my/minus, :args (3 1)}
2
user.my>