ClojureでJava 7対応版のwith-open関数を作ってみる ref: http://qiita.com/kurogelee/items/dfb6c29bfec87ae6f744

auto-close-sample.clj

(auto-close [c (reify java.lang.AutoCloseable
                (close [this] (throw (java.io.IOException. "closeA"))))]
  (throw (IllegalStateException. "tryB")))

auto-close.clj

(defmacro try-finally [main-form dispose-form]
  `(with-local-vars [th# nil]
     (try ~main-form
       (catch Throwable t# (do (var-set th# t#) (throw t#)))
       (finally
         (try ~dispose-form
           (catch Throwable t#
             (if (nil? @th#) (throw t#) (do (.addSuppressed ^Throwable @th# t#) (throw @th#)))))))))

(defmacro auto-close [bindings & body]
  {:pre[(vector? bindings)
        (even? (count bindings))
        (every? symbol? (take-nth 2 bindings))]}
  (if (zero? (count bindings)) `(do ~@body)
    `(let ~(subvec bindings 0 2)
       (try-finally (auto-close ~(subvec bindings 2) ~@body)
                    (.close ~(bindings 0))))))

file1.txt

java.io.IOException: closeA
         (Unknown Source) user/eval7216[fn]
         (Unknown Source) user/eval7216
...

file3.txt

Exception in thread "main" java.lang.IllegalStateException: tryB
    at trysample.TrySample.main(TrySample.java:6)
    Suppressed: java.io.IOException: closeA
        at trysample.TrySample.lambda$main$0(TrySample.java:5)
        at trysample.TrySample$$Lambda$1/2536472.close(Unknown Source)
        at trysample.TrySample.main(TrySample.java:7)

file6.txt

 java.lang.IllegalStateException: tryB
         (Unknown Source) user/eval7222
...

TrySample.java

package trysample;

public class TrySample {
    public static void main(String[] args) throws Exception{
        try(AutoCloseable a = () -> {throw new java.io.IOException("closeA");}){
            throw new IllegalStateException("tryB");
        }
    }
}

with-open-sample.clj

(with-open [c (reify java.lang.AutoCloseable
                (close [this] (throw (java.io.IOException. "closeA"))))]
  (throw (IllegalStateException. "tryB")))