补丁前
`
user=> (definterface I (f []))
user.I
user=> (def p (proxy [Object I] [] (f [] 1)))
'user/p
user=> (definterface I (f []))
user.I
user=> (def p (proxy [Object I] [] (f [] 1)))
'user/p
user=> (.f ^I p)
ClassCastException: user.proxy$java.lang.Object$I$383c225e cannot be cast to user.I user$eval7491.invokeStatic (:1)
`
补丁后
`
user=> (definterface I (f []))
user.I
user=> (def p (proxy [Object I] [] (f [] 1)))
'user/p
user=> (definterface I (f []))
user.I
user=> (def p (proxy [Object I] [] (f [] 1)))
'user/p
user=> (.f ^I p)
1
`
原因:使用一组类名(见https://github.com/clojure/clojure/blob/master/src/clj/clojure/core_proxy.clj#L280-L286)来缓存生成的类,这在重新定义接口的情况下是不安全的。
建议:改变确定代理类缓存命中所使用的哈希函数,以考虑每个接口/超类的身份,而不仅仅是它们的名称。
补丁:0001-CLJ-2379-idempotent-proxy-name-just-on-identical-ins-v2.patch