   Note that input is a var - if you want to input a name-string or -symbol, use:
   (protocol? (resolve-fqname n))"
   [v]
-  (and (var? v) (isa? clojure.lang.PersistentArrayMap (type @v)) (:on-interface @v) true))
+  (and (var? v) (isa? (type @v) clojure.lang.PersistentArrayMap) (:on-interface @v) true))
 
 
 (defn deftype?

  Note that input is a var - if you want to input a name-string or -symbol, use:
  (multimethod? (resolve-fqname n))"
  [o]
  (isa? clojure.lang.MultiFn (type o)))


(defn var-multimethod?

  Note that input is a var - if you want to input a name-string or -symbol, use:
  (atom? (resolve-fqname n))"
  [v]
  (isa? (type v) clojure.lang.Atom))


(defn multimethod?
