gistfile1.txt

(defn emit-giws-xml [c]
  (let [package (.getPackage c)
        methods (map #(hash-map :name (.getName %)
                                :returnType (str (.getName (.getReturnType %)))
                                :params (map (fn [p] {:name (.getName %)})
                                             (.getParameterTypes %)))
                     (.getMethods c))]
    methods
    ))

(clojure.pprint/pprint (emit-giws-xml Object))

({:name "wait", :returnType "void", :params ({:name "wait"})}
 {:name "wait",
  :returnType "void",
  :params ({:name "wait"} {:name "wait"})}
 {:name "wait", :returnType "void", :params ()}
 {:name "hashCode", :returnType "int", :params ()}
 {:name "getClass", :returnType "java.lang.Class", :params ()}
 {:name "equals", :returnType "boolean", :params ({:name "equals"})}
 {:name "toString", :returnType "java.lang.String", :params ()}
 {:name "notify", :returnType "void", :params ()}
 {:name "notifyAll", :returnType "void", :params ()})