diff options
| -rw-r--r-- | src/clj/clojure/genclass.clj | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/src/clj/clojure/genclass.clj b/src/clj/clojure/genclass.clj index 052d0cbb..08c0ee94 100644 --- a/src/clj/clojure/genclass.clj +++ b/src/clj/clojure/genclass.clj @@ -71,14 +71,22 @@ (def ^{:private true} prim->class {'int Integer/TYPE + 'ints (Class/forName "[I") 'long Long/TYPE + 'longs (Class/forName "[J") 'float Float/TYPE + 'floats (Class/forName "[F") 'double Double/TYPE + 'doubles (Class/forName "[D") 'void Void/TYPE 'short Short/TYPE + 'shorts (Class/forName "[S") 'boolean Boolean/TYPE + 'booleans (Class/forName "[Z") 'byte Byte/TYPE - 'char Character/TYPE}) + 'bytes (Class/forName "[B") + 'char Character/TYPE + 'chars (Class/forName "[C")}) (defn- ^Class the-class [x] (cond @@ -623,14 +631,7 @@ fully-qualified class name given as a string or symbol (such as 'java.lang.String)" [c] - (if (or (instance? Class c) (prim->class c)) - (Type/getType (the-class c)) - (let [strx (str c)] - (Type/getObjectType - (.replace (if (some #{\.} strx) - strx - (str "java.lang." strx)) - "." "/"))))) + (Type/getType (the-class c))) (defn- generate-interface [{:keys [name extends methods]}] |