Few functions are dynamic vars. Make them dynamic after the fact by adding a second implementation that only runs for specific threads.

hooks.clj

(defonce ^:dynamic *hooked* false)

(defn hook [var f]
  (alter-var-root var
    (fn [original]
      (fn [& args]
        (if *hooked*
          (apply f args)
          (apply original args))))))

(defmacro with-hooks [& body]
  `(binding [*hooked* true] ~@body))