coerce to avoid reflection on Character/isDigit

Author: fogus

src/main/clojure/clojure/tools/analyzer/jvm.clj

@@ -128,7 +128,7 @@
                          (maybe-class-literal sym-ns))]          ;; Class/field
       (let [opname (name form)]
         (if (and (= (count opname) 1)
-                 (Character/isDigit (first opname)))
+                 (Character/isDigit (char (first opname))))
           form ;; Array/<n>
           (with-meta (list '. target (symbol (str "-" opname))) ;; transform to (. Class -field)
             (meta form))))

src/main/clojure/clojure/tools/analyzer/jvm/utils.clj

@@ -96,7 +96,7 @@
 (defn maybe-array-class-sym [x]
   (let [sname (name x)]
     (if-let [c (and (= (count sname) 1)
-                    (Character/isDigit (first sname))
+                    (Character/isDigit (char (first sname)))
                     (namespace x))]
       (when-let [c (or (specials c)
                        (maybe-class-from-string c))]