需要哪种静态类型才能修复这个“非法的反射访问”？

Question

尝试获取 Unicode 字符串的长度时，在 RosettaCode 上找到了这个名为 grapheme-length 的代码 [1]。

(def grapheme-length
  #(->> (doto (BreakIterator/getCharacterInstance)
          (.setText %))
        (partial (memfn next))
        repeatedly
        (take-while (partial not= BreakIterator/DONE))
        count))

我使用以下方式在 REPL 中调用它进行测试

(star-traders.util/grapheme-length "\uD83D\uDE04⌘\uD83D\uDE00") ; Expecting 3

它确实返回了预期的值，但我还接收到一个意外的红灯警告，要求我“考虑向 clojure.lang.InjectedInvoker 的维护者报告问题”...

WARNING: An illegal reflective access operation has occurred
WARNING: Illegal reflective access by clojure.lang.InjectedInvoker/0x0000000800cc8440 (file:/Users/myusername/.m2/repository/org/clojure/clojure/1.10.1/clojure-1.10.1.jar) to method sun.text.RuleBasedBreakIterator.setText(java.text.CharacterIterator)
WARNING: Please consider reporting this to the maintainers of clojure.lang.InjectedInvoker/0x0000000800cc8440
WARNING: Use --illegal-access=warn to enable warnings of further illegal reflective access operations
WARNING: All illegal access operations will be denied in a future release

显然，这是由于 JVM 添加了 Java 9 模块系统而出现的一个已知问题，并在 Clojure FAQ 中提及 [2]。

尽管如果将--illegal-access=deny添加到 JVM 参数后问题会消失，但推荐的解决方案是使用类型提示修复代码。

我已尝试使用--illegal-access=warn定位问题并修复它，如下所示

          (.setText ^java.text.BreakIterator %)) ; Problem happens here (I think)

但是问题仍然存在，这让我好奇我应该使用正确的类型。

我应该如何修复代码以去除编译器警告，而不是抑制警告？

[1] https://rosettacode.org/wiki/String_length#Grapheme_Length_2
[2] https://clojure.org/guides/faq#illegal_access

Answer 1

实际上，这里有几行代码产生了反射警告：即.setText调用和.next调用。我相信你需要以下代码来解决这两个问题

user=> (def grapheme-length
  #(->> (doto (BreakIterator/getCharacterInstance)
          (.setText ^String %)) ; hint the argument here
        (partial (fn [^BreakIterator o] (.next o))) ; hint the object here
        repeatedly
        (take-while (partial not= BreakIterator/DONE))
        count))
#'user/grapheme-length
user=> (grapheme-length "\uD83D\uDE04⌘\uD83D\uDE00")
3
user=> 

Comments

总的来说，由于memfn实现的方式，它总是会引入反射

---

这解决了问题，Sean。谢谢。我很想知道你是如何想到的，但我们可以另有一天再讨论。我认为我之前并没有理解错误信息。（也谢谢，Alex -- 这是我的第一次接触memfn。）

---

我将我的REPL会话复制到一个Gist中，并注解了它：https://gist.github.com/seancorfield/01e42dbf3de68bab6ef3d7d6245af192