`with-redefs` problems with laziness

with-redefs-laziness.clj

(defn two-deep [_]
  "two-deep")

(defn other-two-deep [_]
  "other-two-deep")

(defn one-deep [& args]
  (map two-deep args))

(defn foo []
  (map one-deep (range 0 3)))

(with-redefs [two-deep other-two-deep]
  (foo))
;; => (("two-deep") ("two-deep") ("two-deep"))

(with-redefs [two-deep other-two-deep]
  (doall (foo)))
;; => (("other-two-deep") ("other-two-deep") ("other-two-deep"))