X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/4b53d23cef3d56dfa5c87bc290db159bec74baf9..61c2b752793803bdc4a37ce3477c7f1ecce1f906:/sys-base.lisp

diff --git a/sys-base.lisp b/sys-base.lisp
index 370e80e..7e450a2 100644
--- a/sys-base.lisp
+++ b/sys-base.lisp
@@ -64,7 +64,7 @@
   (defun exit (&optional (code 0))
     "Polite way to end a program."
     #+(or cmu ecl) (ext:quit code)
-    #+sbcl (sb-ext:quit :unix-status code)
+    #+sbcl (sb-ext:exit :code code)
     #-(or cmu ecl sbcl)
     (progn
       (unless (zerop code)
@@ -76,7 +76,7 @@
    after fork, for example, to avoid flushing buffers."
   (declare (type (unsigned-byte 32) code))
   #+cmu (unix::void-syscall ("_exit" c-call:int) code)
-  #+sbcl (sb-ext:quit :unix-status code :recklessly-p t)
+  #+sbcl (sb-ext:exit :code code :abort t)
   #+(or clisp ecl) (ext:quit code))
 
 ;;;----- That's all, folks --------------------------------------------------