fix test

src/babashka/impl/clojure/spec/test/alpha.clj

@@ -150,7 +150,7 @@
         (.applyTo ^clojure.lang.IFn f args)))))
 
 ;; orchestra is going to override this
-(def spec-checking-fn-var (sci/copy-var spec-checking-fn* tns))
+(def spec-checking-fn-var (sci/new-var 'spec-checking-fn spec-checking-fn* {:ns tns}))
 
 (defn- no-fspec
   [v spec]

src/babashka/main.clj

@@ -1128,7 +1128,15 @@ Use bb run --help to show this help output.
 
 ;;;; Scratch
 
-(defn where-am-i [depth]
+(defmacro in-native-image-or-aot
+  [& body]
+  `(when (or (System/getProperty "org.graalvm.nativeimage.kind")
+             (System/getProperty "com.oracle.graalvm.isaot"))
+     ~@body))
+
+(in-native-image-or-aot
+
+ #_(defn where-am-i [depth]
    (let [ks [:fileName :lineNumber :className]]
      (clojure.pprint/print-table
       ks
@@ -1145,6 +1153,6 @@ Use bb run --help to show this help output.
                  (fn [_old-req]
                    (fn [& args]
                      (prn :requiring-resolve-args args)
-                    (System/exit 1))))
+                     (System/exit 1)))))
 
 (comment)