Bug with protocol methods in record where later arg overrides "this"

[borkdude]

(defprotocol SomeProtocol
  (some-protocol-method [impl arg]))

(defrecord ConstantUnderscore [constant-val]
  SomeProtocol
  (some-protocol-method [_ _]
    constant-val))

(defrecord ConstantNamed [constant-val]
  SomeProtocol
  (some-protocol-method [_ v]
    constant-val))

(def underscore (->ConstantUnderscore :foo))

(prn (some-protocol-method underscore :bar)) ;; => nil, should be :foo

(def named (->ConstantNamed :foo))

(prn (some-protocol-method named :bar)) ;; => :foo