Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn call-other
- [ob f-sym & args]
- (let [ccl (.getContextClassLoader (Thread/currentThread))
- dcl (.getClassLoader (class ob))]
- (try (with-bindings {Compiler/LOADER dcl}
- (.setContextClassLoader (Thread/currentThread) dcl)
- (java-method-apply ob f-sym args))
- (finally (.setContextClassLoader (Thread/currentThread)
- ccl)))))
Advertisement
Add Comment
Please, Sign In to add comment