bootstrap.clj

(defn ^:private add-classpath-to-immediate-cl
  ([f artifact cl]
     (f artifact cl))
  ([f artifact]
     (f artifact (tccl))))

(defmacro ^:private in-dedicated-classloader [project-or-app-root & body]
  `(let [old-cl# (tccl)]
     (try
       (tccl (dedicated-classloader ~project-or-app-root))
       (locking dedicated-classloaders
         (hooke/with-scope
           (hooke/add-hook #'cemerick.pomegranate/add-classpath
                           #'add-classpath-to-immediate-cl)
           ~@body))
       (finally
         (tccl old-cl#)))))