diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2011-03-02 09:15:08 -0500 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2011-03-11 11:16:27 -0500 |
| commit | 9146b490dacb321a852c975af6ba11e794c737b8 (patch) | |
| tree | 96308ed3f42586f9d3f902a8201b6d62425c5f59 /src | |
| parent | 9368fd7602304e236fa5713fa4d81ad2979b4b14 (diff) | |
fix regression from #737
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
Diffstat (limited to 'src')
| -rw-r--r-- | src/clj/clojure/genclass.clj | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/clj/clojure/genclass.clj b/src/clj/clojure/genclass.clj index 08c0ee94..93fa438e 100644 --- a/src/clj/clojure/genclass.clj +++ b/src/clj/clojure/genclass.clj @@ -631,7 +631,14 @@ fully-qualified class name given as a string or symbol (such as 'java.lang.String)" [c] - (Type/getType (the-class 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)) + "." "/"))))) (defn- generate-interface [{:keys [name extends methods]}] |