search an objects or classes methods

method-search.clj

(defn search-method [obj search-str]
  "take an object and a search string and return a list of
  of methods on that object that match the search string"
  (let [clazz (if (= (.getClass obj) java.lang.Class)
            	obj 
                (.getClass obj))
        re (re-pattern (str "(?i)" search-str))]
  	(for [method  (seq (.getMethods clazz))
    	    :let  [method-name (.getName method)]
        	:when (re-find re method-name)]
    	method-name)))