Source
swank/commands/basic.clj:303
top
(defslimefn swank-toggle-trace [fname]
(when-let [sym (ns-resolve (maybe-ns *current-package*) (symbol fname))]
(if-let [f# (get traced-fn-map sym)]
(do
(alter-var-root #'traced-fn-map dissoc sym)
(alter-var-root sym (constantly f#))
(str " untraced."))
(let [f# @sym]
(alter-var-root #'traced-fn-map assoc sym f#)
(alter-var-root sym
(constantly
(fn [& args]
(trace-fn-call sym f# args))))
(str " traced.")))))
Comments top
No comments for swank-toggle-trace. Log in to add a comment.