binding dynamic var

gistfile1.clj

user> (def ^:dynamic *foo* nil)
#'user/*foo*
user> *foo*
nil
user> (defn f [] *foo*)
#'user/f
user> (f)
nil
user> (binding [*foo* 1] (f))
1
user> (binding [*foo* 1] (lazy-seq [(f)]))
(nil)
user> (binding [*foo* 1] (doall (lazy-seq [(f)])))
(1)