check if object can respond to method

respond_to.clj

(defn respond-to?
  "Check if object can respond to method"
  [obj method]
  (boolean
   (some->> obj
            class
            .getMethods
            (filter #(= (.getName %) (name method)))
            first
            .getModifiers
            java.lang.reflect.Modifier/isAbstract
            not)))