Работая с Clojure, мы имеем следующее:
(defprotocol Greeter (hello [args] "Say hello"))
(extend-protocol Greeter
String
(hello [this] (str "Hello " this)))
(hello "world") ; "Hello world"
Все идет нормально. Затем добавляем:
(defn hello [args] (str "Wassup " args "?"))
Что изменяет вывод предыдущей формы на:
(hello "world") ; "Wassup world?"
Есть ли способ сделать так, чтобы протокол имел приоритет над функцией?
Есть ли способ сделать протокол более приоритетным, чем метод?
Вы не можете соединить defn с defprotocol. Это связано с тем, что defprotocol фактически создает привязку для функции в вашем текущем пространстве имен. Обратите внимание на предупреждение, которое вы получаете, когда запускаете свой код в следующем порядке:
user=> (defn hello [args] (str "Wassup " args "?"))
#'user/hello
user=> (defprotocol Greeter (hello [args] "Say hello"))
Warning: protocol #'user/Greeter is overwriting function hello
Greeter
В документации по протоколам объясняется, что правильный способ обеспечить реализацию по умолчанию — использовать Object:
(defprotocol Greeter (hello [args] "Say hello"))
(extend-protocol Greeter
Object
(hello [this] (str "Wassup " this "?")))
(extend-protocol Greeter
String
(hello [this] (str "Hello " this)))
(hello "world") ; "Hello world"
(hello 1) ; "Wassup 1?"
Методы протокола являются функциями, поэтому, как и любые другие переменные, если вы хотите иметь два из них с одинаковыми именами, вы должны поместить их в отдельное пространство имен.
