 (defn multi-cases [schemas]
   (->> schemas
        (find-by (fn [form]
-                  (and (sequential? form)
+                  (and (vector? form)
                        (= :multi (first form)))))
        (mapcat (fn [[_ _ _ multi-map]]
                  (keys multi-map)))))

        schema-bimap (bimap (keys schemas))
        enum-bimap   (bimap (enum-values schemas))
        multi-bimap  (bimap (multi-cases schemas))
        config      {:schemas      schemas
                     :schema-bimap schema-bimap
                     :enum-bimap   enum-bimap
                     :multi-bimap  multi-bimap
                     :eq-ops       eq-ops}]
    (assoc config :processors (make-processors schemas config)
                  :state     `(atom {}))))

(defn make-test-config [& args]
  (eval (apply make-config args)))

(defn enum-values [schemas]
  (->> schemas
       (find-by (fn [form]
                  (and (vector? form)
                       (= :enum (first form)))))
       (mapcat (fn [[_ _ values]]
                 values))))
