swank-toggle-trace

swank.commands.basic

  • (swank-toggle-trace fname)

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 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.")))))
Vars in swank.commands.basic/swank-toggle-trace: alter-var-root assoc constantly dissoc fn if-let let str when-let
Used in 0 other vars

Comments top

No comments for swank-toggle-trace. Log in to add a comment.