Skip to content

Instantly share code, notes, and snippets.

@rauhs

rauhs/class-loaded.clj

Created May 3, 2017 15:36
Show Gist options
  • Save rauhs/aa1bdc8f82587bebaa457f89c3ad96e2 to your computer and use it in GitHub Desktop.
Save rauhs/aa1bdc8f82587bebaa457f89c3ad96e2 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
class-loaded.clj
(defn class-loaded?
[^String c]
(let [m (doto (.getDeclaredMethod ClassLoader "findLoadedClass" (into-array [String]))
(.setAccessible true))
cl (ClassLoader/getSystemClassLoader)]
(.invoke m cl (into-array Object [c]))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment