redesign exiting SBCL

[sbcl.git] / tests / custom-userinit.lisp

diff --git a/tests/custom-userinit.lisp b/tests/custom-userinit.lisp
index 38c71b6..68a57d9 100644 (file)
--- a/tests/custom-userinit.lisp
+++ b/tests/custom-userinit.lisp
@@ -14,4 +14,4 @@
 (write-line "/loading custom userinit")
 
 (defun userinit-quit (x)
-  (sb-ext:quit :unix-status x))
+  (sb-ext:exit :code x))