 ;;
 
 (def string? clojure.core/string?)
-(def integer? (dynamic-conformer clojure.core/integer?))
-(def int? (dynamic-conformer clojure.core/int?))
-(def double? (dynamic-conformer double-like?))
-(def keyword? (dynamic-conformer clojure.core/keyword?))
-(def boolean? (dynamic-conformer clojure.core/boolean?))
-(def uuid? (dynamic-conformer clojure.core/uuid?))
-(def inst? (dynamic-conformer clojure.core/inst?))
+(def integer? (dynamically-conformed clojure.core/integer?))
+(def int? (dynamically-conformed clojure.core/int?))
+(def double? (dynamically-conformed double-like?))
+(def keyword? (dynamically-conformed clojure.core/keyword?))
+(def boolean? (dynamically-conformed clojure.core/boolean?))
+(def uuid? (dynamically-conformed clojure.core/uuid?))
+(def inst? (dynamically-conformed clojure.core/inst?))

            (conformer x)
            '::s/invalid)
          ::s/invalid)))
    identity))

(defn conform
  ([spec value]


(def ^:dynamic ^:private *conformations* nil)

(defn dynamically-conformed [pred]
  (s/with-gen
  (s/conformer
    (fn [x]
      (if (pred x)
