(with-bindings* binding-map f & args)
Takes a map of Var/value pairs. Installs for the given Vars the associated values as thread-local bindings. Then calls f with the supplied arguments. Pops the installed bindings after f returned. Returns whatever f returns.
user=> (let [f (fn [] *warn-on-reflection*)]
(with-bindings* {#'*warn-on-reflection* true} f))
true