redesign exiting SBCL

[sbcl.git] / tests / undefined-classoid-bug.test.sh

diff --git a/tests/undefined-classoid-bug.test.sh b/tests/undefined-classoid-bug.test.sh
index 1a030f7..aa55285 100644 (file)
--- a/tests/undefined-classoid-bug.test.sh
+++ b/tests/undefined-classoid-bug.test.sh
@@ -16,12 +16,12 @@ run_sbcl <<EOF
 (let ((files (list $FILES)))
   (mapc #'load files)
   (mapc #'compile-file files))
-(quit :unix-status 52)
+(exit :code 52)
 EOF
 
 run_sbcl <<EOF
 (mapc #'load (list $FASLS))
-(quit :unix-status $EXIT_LISP_WIN)
+(exit :code $EXIT_LISP_WIN)
 EOF
 check_status_maybe_lose undefined-classoid-bug $?