From 61c2b752793803bdc4a37ce3477c7f1ecce1f906 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 14 Apr 2016 15:38:24 +0100
Subject: [PATCH] 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.
---
 sys-base.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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 --------------------------------------------------
-- 
2.11.0