A macro for memoization of a body of code based on the values of all referenced vars (implicit memoization key instead of explicit arguments). Probably a terrible idea.

cached.clj

(defmacro cached [& body]
  (let [dependencies (transient #{})
        resolved     (walk/postwalk
                       (fn [form]
                         (if (symbol? form)
                           (if-some [resolved (resolve &env form)]
                             (when (var? resolved)
                               (conj! dependencies resolved)
                               (.toSymbol ^Var resolved))
                             form)
                           form))
                       `(do ~@body))]
    `(let [vars#  ~(persistent! dependencies)
           inner# (memoize (fn [_#] (eval ~resolved)))]
       (fn [] (inner# (mapv var-get vars#))))))