Classloader swapping in Clojure

class-loader-swapper.clj

(defmacro do-with-classloader
    [classloader & body]
    `(let [old-classloader# (.getContextClassLoader (Thread/currentThread))]
         (.setContextClassLoader (Thread/currentThread) ~classloader)
         (try ~@body
             (finally (.setContextClassLoader (Thread/currentThread) old-classloader#)))))

usage-class-loader-swapper.clj

(do-with-classloader classloader
    (prn "hi")
    (prn "bye"))