(defn classpath-add [path]
  (let [url (cond (string? path) (.toURL (new File path))
                  (instance? File path) (.toURL path)
                  :else path)
        addURL (.getDeclaredMethod (identity java.net.URLClassLoader)
                                   "addURL"
                                   (into-array [java.net.URL]))]
    (.setAccessible addURL true) ; scared yet?
    (.invoke addURL (ClassLoader/getSystemClassLoader) (to-array [url]))))