Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
Two convenience function for
;; Two convenience function for
(defn var-traceable?
"Predicate that returns whether a var is traceable or not."
(and (var? v) (ifn? @v) (-> v meta :macro not)))
(defn var-traced?
"Predicate that returns whether a var is currently being traced."
([ns s]
(var-traced? (ns-resolve ns s)))
(let [v (if (var? v) v (resolve v))]
(not (nil? ((meta v)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.