(extends? protocol atype)
Returns true if atype extends protocol
user=> (defprotocol Area (get-area [this]))
Area
user=> (defrecord Rectangle [width height]
Area
(get-area [this]
(* width height)))
user.Rectangle
(extends? Area Rectangle)
true