redesign exiting SBCL

[sbcl.git] / tests / step.impure.lisp

diff --git a/tests/step.impure.lisp b/tests/step.impure.lisp
index 55be2ad..9b48dc2 100644 (file)
--- a/tests/step.impure.lisp
+++ b/tests/step.impure.lisp
@@ -15,7 +15,7 @@
 
 ;; No stepper support on some platforms.
 #-(or x86 x86-64 ppc sparc mips)
-(sb-ext:quit :unix-status 104)
+(sb-ext:exit :code 104)
 
 (defun fib (x)
   (declare (optimize debug))