Staged spec validation

gistfile1.txt

;; for the use case where same key is transformed through stage

(s/def :st1/a int?)
(s/def :st2/a string?)

(defn validate-map [stage m]
  (every? (fn [[k v]] (s/valid? (keyword stage (name k)) v)) m))

(validate-map "st1" {:a 100})   ;; true
(validate-map "st2" {:a "abc"}) ;; true
(validate-map "st1" {:a "abc"}) ;; false