clojure: access private field/method via reflection

reflection.clj

(defn invoke-private-method [obj fn-name-string & args]
  (let [m (first (filter (fn [x] (.. x getName (equals fn-name-string)))
                   (.. obj getClass getDeclaredMethods)))]
    (. m (setAccessible true))
    (. m (invoke obj args))))

(defn private-field [obj fn-name-string]
  (let [m (.. obj getClass (getDeclaredField fn-name-string))]
    (. m (setAccessible true))
    (. m (get obj))))

Thank you!

调用 invoke 之前 args 是不是要转换为 array ?

I had to wrap args into an Object array to make this work. Line 5:

(. m (invoke obj (into-array Object args)))