X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcustom-userinit.lisp;h=68a57d953aa28cce9760322a0fa7f3df34dfdc73;hb=cf49f2d086069a9c1b57f501df9a6a0bd3a34c3c;hp=38c71b61bf5a22eb1938776733ecf892dcf949dd;hpb=9fb454f1a8211073b0e8446107e5abcba9ad2049;p=sbcl.git

diff --git a/tests/custom-userinit.lisp b/tests/custom-userinit.lisp
index 38c71b6..68a57d9 100644
--- 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))