clojure
diff --git a/‎src/clj/clojure/genclass.clj
Copy file name to clipboardExpand all lines: src/clj/clojure/genclass.clj
+5-7Lines changed: 5 additions & 7 deletions b/‎src/clj/clojure/genclass.clj
Copy file name to clipboardExpand all lines: src/clj/clojure/genclass.clj
+5-7Lines changed: 5 additions & 7 deletions
diff --git a/‎src/jvm/clojure/lang/Compiler.java
Copy file name to clipboardExpand all lines: src/jvm/clojure/lang/Compiler.java
+1-1Lines changed: 1 addition & 1 deletion b/‎src/jvm/clojure/lang/Compiler.java
Copy file name to clipboardExpand all lines: src/jvm/clojure/lang/Compiler.java
+1-1Lines changed: 1 addition & 1 deletion
diff --git a/‎test/clojure/test_clojure/genclass.clj
Copy file name to clipboardExpand all lines: test/clojure/test_clojure/genclass.clj
+10Lines changed: 10 additions & 0 deletions b/‎test/clojure/test_clojure/genclass.clj
Copy file name to clipboardExpand all lines: test/clojure/test_clojure/genclass.clj
+10Lines changed: 10 additions & 0 deletions
@@ -107,14 +107,12 @@
                      (clojure.lang.Util/isPosDigit (name x))
                      (-> x name (.charAt 0) int (- (int \0))))]
     (let [cn (namespace x)
-          ^Class pc (prim->class (symbol cn))
-          classname (cond (some #{\.} cn) cn
-                          pc (-> pc Type/getType Type/.getDescriptor)
-                          :default (str "java.lang." cn))
           ^Iterable dim-descr (repeat dim "[")]
-      (if pc
-        (str (String/join "" dim-descr) classname)
-        (str (String/join "" dim-descr) "L" classname ";")))
+      (if-let [^Class pc (clojure.lang.Compiler/primClass (symbol cn))]
+        (str (String/join "" dim-descr) (-> pc Type/getType Type/.getDescriptor))
+        (str (String/join "" dim-descr) "L"
+             (if (some #{\.} cn) cn (str "java.lang." cn))
+             ";")))
     (str x)))
 
 (defn- ^Class the-class [x]
 
@@ -9184,7 +9184,7 @@ static Class retType(Class tc, Class ret){
         return tc;
     }
 
-	static Class primClass(Symbol sym){
+	public static Class primClass(Symbol sym){
 		if(sym == null)
 			return null;
 		Class c = null;
 
@@ -149,3 +149,13 @@
                         (visitSource [source debug] (.append sourceFile source)))]
     (.accept classReader sourceVisitor 0)
     (is (= "examples.clj" (str sourceFile)))))
+
+(deftest array-descriptors->class
+  (are [descr c] (= (#'clojure.core/the-class descr) c)
+    "[Ljava.util.UUID;" java.util.UUID/1
+    'String java.lang.String
+    'String/1 java.lang.String/1
+    'java.util.UUID java.util.UUID
+    'java.util.UUID/2 java.util.UUID/2
+    'int/1 int/1
+    'boolean/9 boolean/9))
Original file line number	Diff line number	Diff line change
`@@ -9184,7 +9184,7 @@ static Class retType(Class tc, Class ret){`
`9184`	`9184`	`return tc;`
`9185`	`9185`	`}`
`9186`	`9186`
`9187`		`- static Class primClass(Symbol sym){`
	`9187`	`+ public static Class primClass(Symbol sym){`
`9188`	`9188`	`if(sym == null)`
`9189`	`9189`	`return null;`
`9190`	`9190`	`Class c = null;`