with-open.clj

(defmacro with-open* [bindings & body]
  (let [[sym exp & others] bindings]
    (if sym
      `(let [~sym ~exp
             result# (try
                       (with-open* [~@others] ~@body)
                       (catch Throwable t#
                         (try
                           (. ~sym close)
                           (catch Throwable t2#
                             (.addSuppressed t# t2#)))
                         (throw t#)))]
         (. ~sym close)
         result#)
      `(do ~@body))))