X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Frepl.lisp;h=7997a79cbc21c05b9db7292b89c0c807644db07e;hb=2d68a49fe9d30f687da45cfe7a02b497cb91137c;hp=db3c251d2faa44a8b3efe05c4867499a48159b66;hpb=f7e3e709f7c2207f1923375942f7fb1c092f92b0;p=sbcl.git

diff --git a/contrib/sb-aclrepl/repl.lisp b/contrib/sb-aclrepl/repl.lisp
index db3c251..7997a79 100644
--- a/contrib/sb-aclrepl/repl.lisp
+++ b/contrib/sb-aclrepl/repl.lisp
@@ -328,7 +328,7 @@
               (map nil #'sb-thread:destroy-thread threads)
               (sleep 0.2))
             (return-from exit-cmd)))))
-  (sb-ext:quit :unix-status status)
+  (sb-ext:exit :code status)
   (values))
 
 (defun package-cmd (&optional pkg)
@@ -783,7 +783,7 @@
   ;; command
   (cond ((eq user-cmd *eof-cmd*)
          (when *exit-on-eof*
-           (sb-ext:quit))
+           (sb-ext:exit))
          (format *output* "EOF~%")
          t)
         ((eq user-cmd *null-cmd*)