core.cljc

(ns my-test.core
 (:require
  [cljs.spec.alpha :as s]
  [cljs.spec.test.alpha :as stest]))

(defmacro instrument-without [exclude-syms]
  `(stest/instrument '[~@(apply disj
                        (#?(:clj  s/speced-vars
                            :cljs cljs.spec.alpha$macros/speced-vars))
                        (eval exclude-syms))]))

repl.txt

$ clj -m cljs.main -re node -r
ClojureScript 1.10.439
cljs.user=> (require '[clojure.spec.test.alpha :as st])
nil
cljs.user=> (require '[clojure.spec.alpha :as s])
nil
cljs.user=> (defn foo [x] (inc x))
#'cljs.user/foo
cljs.user=> (defn bar [x] (inc x))
#'cljs.user/bar
cljs.user=> (s/fdef foo :args (s/cat :x int?))
cljs.user/foo
cljs.user=> (s/fdef bar :args (s/cat :x int?))
cljs.user/bar
cljs.user=> (require-macros 'my-test.core)
nil
cljs.user=> (my-test.core/instrument-without `[bar])
[cljs.user/foo]
cljs.user=> (st/unstrument)
[cljs.user/foo]
cljs.user=> (my-test.core/instrument-without [`bar])
[cljs.user/foo]