查看
https://groups.google.com/forum/#!topic/clojure/3nMn6TiBGOg, 该主题还没有任何回复。
prefers(x,y) 通过递归调用parents.invoke() 来遍历祖先。
这将遍历全局层次结构中的父类，而不是多态方法的层次结构。
这是否是预期的行为？为什么会这样呢？
在假设prefer-method应该在本地与全局层次结构中具有相同行为的前提下，以下是两个单元测试。
MultiFn-prefers-with-local-hierarchy测试因为抛出“多个方法”IllegalArgumentException而失败。
MultiFn-prefers-with-global-hierarchy测试成功。
(test/deftest MultiFn-prefers-with-local-hierarchy
(def local-hierarchy
(let [h (make-hierarchy)
h (derive h ::c0 ::b0)
h (derive h ::d0 ::c0)
h (derive h ::d0 ::a0)]
h))
(defmulti local identity :hierarchy #'local-hierarchy)
(defmethod local ::a0 [x] [::a0 x])
(defmethod local ::c0 [x] [::c0 x])
(prefer-method local ::b0 ::a0)
(test/is (= [::c0 ::d0] (local ::d0)))))
(test/deftest MultiFn-prefers-with-global-hierarchy
(derive ::c1 ::b1)
(derive ::d1 ::c1)
(derive ::d1 ::a1)
(defmulti global identity)
(defmethod global ::a1 [x] [::a1 x])
(defmethod global ::c1 [x] [::c1 x])
(prefer-method global ::b1 ::a1)
(test/is (= [::c1 ::d1] (global ::d1))))
如果这确实有问题，修复会相当简单。一旦确认这是一个真正的问题，我会提交一个补丁。
