sys-base.lisp: Use not-deprecated function for quitting SBCL.

It turns out that `sb-ext:exit' is supported in all versions that I care
about, so just go with that.

diff --git a/sys-base.lisp b/sys-base.lisp
index 370e80e..7e450a2 100644 (file)
--- 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 --------------------------------------------------