xxx.clj

(defn fn-or
  "Объединение функций возвращает функцию эквивалентную
  (fn [x]      (or (f x) (g x) ... ) или
  (fn [x & xs] (or (f x1 x2 ...) (g x1 x2 ...) ... )"
  [f & fs]
  (if-not fs f (let [chain (apply fn-or fs)]
                 (fn ([x]      (or (f x) (chain x)))
                     ([x & xs] (or (apply f x xs) (apply chain x xs)))))))

(defn seq-dispatch
  "Диспетчер возвращает ключ :seq, если в мультиметод передано много аргументов."
  ([] nil)
  ([x & xs] (when xs :seq)))

(defn type-dispatch
  "Диспетчер первого аргумента по ключу типа (:type) в просто хэше или хэше внутри ссылки."
  ([] nil)
  ([r & xs] (:type (derefed r))))

(defn agent-dispatch
  "Диспетчер возвращает ключ :agent, если первый аргумент - агент."
  ([] nil)
  ([a & xs] (when (agent? a) :agent)))

aux> ((fn-ors seq-dispatch agent-dispatch type-dispatch) (agent {:type 1}) 2)
:seq
aux> ((fn-ors seq-dispatch agent-dispatch type-dispatch) (agent {:type 1}))
:agent
aux> ((fn-ors seq-dispatch agent-dispatch type-dispatch) {:type 1})
1