feat: don't desugar array/n into (. array -n)

Author: bronsa

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

@@ -126,8 +126,12 @@
     (if-let [target (and sym-ns
                          (not (resolve-ns (symbol sym-ns) env))
                          (maybe-class-literal sym-ns))]          ;; Class/field
-      (with-meta (list '. target (symbol (str "-" (name form)))) ;; transform to (. Class -field)
-        (meta form))
+      (let [opname (name form)]
+        (if (and (= (count opname) 1)
+                 (Character/isDigit (first opname)))
+          form ;; Array/<n>
+          (with-meta (list '. target (symbol (str "-" opname))) ;; transform to (. Class -field)
+            (meta form))))
       form)))
 
 (defn desugar-host-expr [form env]