diff --git a/feature-spec-alpha/babashka/impl/spec.clj b/feature-spec-alpha/babashka/impl/spec.clj index c2ff211b..b2b9c9a0 100644 --- a/feature-spec-alpha/babashka/impl/spec.clj +++ b/feature-spec-alpha/babashka/impl/spec.clj @@ -86,7 +86,13 @@ 'check-asserts (copy-var s/check-asserts sns) '*explain-out* s/explain-out-var 'multi-spec (copy-var s/multi-spec sns) - 'multi-spec-impl (copy-var s/multi-spec-impl sns)}) + 'multi-spec-impl (copy-var s/multi-spec-impl sns) + 'spec? (copy-var s/spec? sns) + 'assert (copy-var s/assert sns) + 'assert* (copy-var s/assert* sns) + 'explain-printer (copy-var s/explain-printer sns) + ;; PRIVATE, but exposed for expound + 'maybe-spec (copy-var s/maybe-spec sns)}) #_:clj-kondo/ignore (def test-namespace diff --git a/src/babashka/impl/clojure/spec/alpha.clj b/src/babashka/impl/clojure/spec/alpha.clj index 17264721..ea084168 100644 --- a/src/babashka/impl/clojure/spec/alpha.clj +++ b/src/babashka/impl/clojure/spec/alpha.clj @@ -107,7 +107,7 @@ (declare spec-impl) (declare regex-spec-impl) -(defn- maybe-spec +(defn maybe-spec "spec-or-k must be a spec, regex or resolvable kw/sym, else returns nil." [spec-or-k] (let [s (c/or (c/and (ident? spec-or-k) (reg-resolve spec-or-k)) @@ -2003,6 +2003,6 @@ system property. Defaults to true."} [spec x] (if *compile-asserts* `(if clojure.lang.RT/checkSpecAsserts - (assert* ~spec ~x) + (clojure.spec.alpha/assert* ~spec ~x) ~x) x))