Remove some JVM-specific calls to make this usable from ClojureCLR

Author: puredanger

CHANGELOG.md

@@ -1,5 +1,7 @@
 Changelog
 ========================================
+* next
+  * Remove JVM-specific code to make this usable for ClojureCLR
 * Release 1.1.0 on 14 Sep 2021
   * TANAL-134: Remove :init from :def's :children when absent
   * Added :refer-clojure :exclude for `update-keys` and `update-vals` being added in Clojure 1.11

src/main/clojure/clojure/tools/analyzer/passes/warn_earmuff.clj

@@ -17,8 +17,8 @@
   (let [name (str (:name ast))]
     (when (and (= :def (:op ast))
                (> (count name) 2)  ;; Allow * and ** as non-dynamic names
-               (.startsWith name "*")
-               (.endsWith name "*")
+               (= (nth name 0) \*)
+               (= (nth name (dec (count name))) \*)
                (not (dynamic? (:var ast) (:val (:meta ast)))))
       (binding [*out* *err*]
         (println "Warning:" name "not declared dynamic and thus is not dynamically rebindable,"