parameter_types.clj

(def h (atom (make-hierarchy)))

(defmulti foo identity :hierarchy h)

(defmethod foo :foo [_] :foo)

(defmethod foo :bar [_] :bar)

(swap! h derive :foo-child :foo)
(swap! h derive :bar-child :bar)

;; h => #atom[{:parents {:foo-child #{:foo}, :bar-child #{:bar}}, :ancestors {:foo-child #{:foo}, :bar-child #{:bar}}, :descendants {:foo #{:foo-child}, :bar #{:bar-child}}} 0x6221100a]

(comment

  (foo :foo-child) ;; => :foo

  )