primitive type hints on protocol methods break call sites

Question

`
user=> (defprotocol P (f [this ^long x]))
P
user=> (deftype T [] P (f [_ x] x))

<java.lang.Class class user.T>

user=> (f (T.) 5)

ClassCastException user$eval7289$fn7290$G7280__7297 cannot be cast to clojure.lang.IFn$OLO user/eval7313 (NO_SOURCE_FILE:1)
`

Answer 1

Reference: https://clojure.atlassian.net/browse/CLJ-1548 (reported by bbloom)