X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/b2c12b4eaf6e5c43791d95080a243c35f97ee488..d6caa73bc6253f7a0461406a939865a207bad7c8:/sys-base.lisp

diff --git a/sys-base.lisp b/sys-base.lisp
index ef71916..e973e90 100644
--- a/sys-base.lisp
+++ b/sys-base.lisp
@@ -25,7 +25,8 @@
 
 (defpackage #:runlisp
   (:use #:common-lisp)
-  (:export #:*lisp-interpreter* #:*command-line-strings* #:run))
+  (:export #:*lisp-interpreter* #:*command-line-strings* #:run)
+  #+cmu (:import-from #:ext #:*command-line-strings*))
 (defvar runlisp:*command-line-strings* '("<interactive>"))
 
 (defpackage #:mdw.sys-base
@@ -40,6 +41,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)
   #+(or clisp ecl) (ext:quit code))
 
 #-clisp
@@ -48,6 +50,7 @@
    return to the top-level REPL."
   (if (boundp '*lisp-interpreter*)
       #+(or cmu ecl) (ext:quit code)
+      #+sbcl (sb-ext:quit :unix-status code)
       (progn
         (unless (zerop code)
           (format t "~&Exiting unsuccessfully with code ~D.~%" code))