redesign exiting SBCL
[sbcl.git] / tests / kill-non-lisp-thread.impure.lisp
index 29680cc..cecce9e 100644 (file)
@@ -12,7 +12,7 @@
 ;;;; more information.
 
 #-sb-thread
-(sb-ext:quit :unix-status 104)
+(sb-ext:exit :code 104)
 
 (use-package :sb-alien)