Allow STEP in pure tests

tests/run-tests.lisp

@@ -432,6 +432,7 @@
         (let ((*package* test-package)
               (sb-impl::*gentemp-counter* sb-impl::*gentemp-counter*)
               (sb-c::*check-consistency* sb-c::*check-consistency*)
+              (sb-c:*compile-to-memory-space* sb-c:*compile-to-memory-space*)
               (sb-c::*policy-min* sb-c::*policy-min*)
               (sb-c::*policy-max* sb-c::*policy-max*))
           (restart-case
@@ -445,6 +446,7 @@
                   (funcall test-fun file)
                   (log-file-elapsed-time file start log))))
             (skip-file ())))
+        (sb-impl::disable-stepping)
         (sb-int:unencapsulate 'open 'open-guard)
         (when actually-pure
           (compare-symbol-values global-symbol-values)

tests/step.pure.lisp

@@ -11,12 +11,8 @@
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 
-(in-package :cl-user)
-
-#+interpreter (sb-ext:exit :code 104)
 ;; No stepper support on some platforms.
-#-(or x86 x86-64 ppc sparc mips arm arm64)
-(sb-ext:exit :code 104)
+#+(or interpreter ppc64 riscv) (invoke-restart 'run-tests::skip-file)
 
 ;; These tests should either with code in dynamic space
 ;; or immobile space, but they only accidentally worked