bowen:实现Clojure协议的装饰器模式

鲍恩 为clojure协议实现。 您可以将其视为协议的中间件。 当我有一个包含多种方法的协议时，通常我想包装一个现有的实现，覆盖一些而非全部方法，例如： ( defprotocol Sheep ( baa [this]) ( eat [this]) ( walk-around [this])) ( deftype LoudSheep [decorated-sheep] Sheep ( baa [this] ( clojure.string/upper-case ( baa decorated-sheep)) ; Just delegate to the decorated instance ( eat [this] ( eat decorated-sheep)) ( walk-around [this]