Update SBCL functions to terminate-thread and exit

[kmrcl.git] / impl.lisp

diff --git a/impl.lisp b/impl.lisp
index 7135eb0e4ea1005b97aa420de3bf743bfe4574c6..a6d6897bd7551a465573dbd220970e31aa25bdcc 100644 (file)
--- a/impl.lisp
+++ b/impl.lisp
@@ -105,7 +105,7 @@
     #+gcl (lisp:bye code)
     #+lispworks (lw:quit :status code)
     #+lucid (lcl:quit code)
-    #+sbcl (sb-ext:quit :unix-status (typecase code (number code) (null 0) (t 1)))
+    #+sbcl (sb-ext:exit :code (typecase code (number code) (null 0) (t 1)))
     #+mcl (ccl:quit code)
     #-(or allegro clisp cmu scl cormanlisp gcl lispworks lucid sbcl mcl)
     (error 'not-implemented :proc (list 'quit code)))