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))))

As above, but with qualified methods instead of type hints:

(import '(java.lang.reflect Field))

(defn private-field [obj field-name]
  (->> (Object/.getClass obj)
       (iterate Class/.getSuperclass)
       (take-while some?)
       (some #(some-> (try (Class/.getDeclaredField % field-name)
                           (catch NoSuchFieldException _ nil))
                      (doto (Field/.setAccessible true))
                      (Field/.get obj)))))