CLJS-2955: Self-host: spec check macro compile-time expansion

Author: mfikes

src/main/cljs/cljs/spec/test/alpha.cljc

@@ -224,12 +224,16 @@ Returns a collection of syms naming the vars unstrumented."
       (validate-check-opts opts#)
       (check-1 nil ~f ~spec opts#))))
 
+(defn- registry-ref []
+  #?(:clj  @#'s/registry-ref
+     :cljs cljs.spec.alpha$macros/registry-ref))
+
 (defn checkable-syms*
   ([]
     (checkable-syms* nil))
   ([opts]
    (reduce into #{}
-     [(filter fn-spec-name? (keys @@#'s/registry-ref))
+     [(filter fn-spec-name? (keys @(registry-ref)))
       (keys (:spec opts))])))
 
 (defmacro checkable-syms
@@ -241,7 +245,7 @@ can be checked."
    `(let [opts# ~opts]
       (validate-check-opts opts#)
       (reduce conj #{}
-        '[~@(filter fn-spec-name? (keys @@#'s/registry-ref))
+        '[~@(filter fn-spec-name? (keys @(registry-ref)))
           ~@(keys (:spec opts))]))))
 
 (defmacro check

src/test/cljs/cljs/spec/test_test.cljs

@@ -113,6 +113,15 @@
 
 (s/fdef cljs.core/= :args (s/+ any?))
 
+(defn foo-2955 [n] "ret")
+
+(s/fdef foo-2955
+  :args (s/cat :n number?)
+  :ret string?)
+
+(deftest test-cljs-2955
+  (is (seq (stest/check `foo-2955))))
+
 (deftest test-cljs-2956
   (stest/instrument 'cljs.core/=)
   (is (true? (= 1)))