X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=impl.lisp;fp=impl.lisp;h=a6d6897bd7551a465573dbd220970e31aa25bdcc;hp=7135eb0e4ea1005b97aa420de3bf743bfe4574c6;hb=a5308cfb87ee874de0407b8c3d707e2fe131ead7;hpb=6f9d5a4628a6ac6b547a6df9481c830f97053cc2

diff --git a/impl.lisp b/impl.lisp
index 7135eb0..a6d6897 100644
--- 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)))