protocol methods in deftype.clj

(reify 
 [ActionListener 
  (actionPerformed [this evt] ...)])

(deftype ::MyType [a b c]
  [SeqableProtocol 
   (seq-me [this] (blah a c))]

  [IBarInterface 
   (.bar [this that] (fred b))])

;above deftype becomes this when SeqbleProtocol has AOT-generated interface
(deftype ::MyType [a b c]
  [my.ns.SeqableProtocol 
   (.seq_me [this] (blah a c))]

  [IBarInterface 
   (.bar [this that] (fred b))])

;or these when not
(deftype ::MyType [a b c]
  [IBarInterface 
   (.bar [this that] (fred b))])
;and
(extend-type ::MyType [a b c]
  [SeqableProtocol 
   (seq-me [#^MyType__27 this] 
           (let [a (.a this) 
                 b (.b this) 
                 c (.c this)] 
             (blah a c)))])