gistfile1.clj

(defmacro chain-rebind [var-name init-value & cmds]
  (let [init-binding `(~'temp ~init-value)
        cmd-to-binding (fn [cmd] `(~'temp (binding [~var-name ~'temp] ~cmd)))
        cmd-bindings (map cmd-to-binding cmds)
        bindings-list (cons init-binding cmd-bindings)
        bindings (apply concat bindings-list)]
    `(let ~(vec bindings) ~'temp)))

Usage:

(def ^:dynamic *var*)
(chain-rebind *var* 10 (+ *var* 5) (/ *var* 3) (- *var* 5))