CLJS-2728: Ability to disable macro spec checks

clojure · Oct 31, 2018 · 6b9a37a · 6b9a37a
1 parent 20ba8ef
commit 6b9a37a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/src/main/clojure/cljs/analyzer.cljc b/src/main/clojure/cljs/analyzer.cljc
@@ -3523,11 +3523,12 @@
 
 (defn- do-macroexpand-check
   [form mac-var]
-  (let [mchk #?(:clj (some-> (find-ns 'clojure.spec.alpha)
+  (when (not (-> @env/*compiler* :options :spec-skip-macros))
+    (let [mchk #?(:clj (some-> (find-ns 'clojure.spec.alpha)
                        (ns-resolve 'macroexpand-check))
                 :cljs (get-macroexpand-check-var))]
     (when (some? mchk)
-      (mchk mac-var (next form)))))
+      (mchk mac-var (next form))))))
 
 (defn macroexpand-1*
   [env form]

diff --git a/src/main/clojure/cljs/closure.clj b/src/main/clojure/cljs/closure.clj
@@ -202,7 +202,7 @@
     :fn-invoke-direct :checked-arrays :closure-module-roots :rewrite-polyfills :use-only-custom-externs
     :watch :watch-error-fn :watch-fn :install-deps :process-shim :rename-prefix :rename-prefix-namespace
     :closure-variable-map-in :closure-property-map-in :closure-variable-map-out :closure-property-map-out
-    :stable-names :ignore-js-module-exts :opts-cache :aot-cache :elide-strict :fingerprint})
+    :stable-names :ignore-js-module-exts :opts-cache :aot-cache :elide-strict :fingerprint :spec-skip-macros})
 
 (def string->charset
   {"iso-8859-1" StandardCharsets/ISO_8859_1