X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Frepl.lisp;h=7997a79cbc21c05b9db7292b89c0c807644db07e;hb=09c00481c13d88f6694c7f8ba7222c5c62f39a9e;hp=9f7dcdcc16406be223e41b084a2a76f2b0f58965;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/contrib/sb-aclrepl/repl.lisp b/contrib/sb-aclrepl/repl.lisp
index 9f7dcdc..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)
@@ -553,7 +553,7 @@
           (sb-debug::error-debug-command)))))
 
 (defun frame-cmd ()
-  (sb-debug::print-frame-call sb-debug::*current-frame*))
+  (sb-debug::print-frame-call sb-debug::*current-frame* t))
 
 (defun zoom-cmd ()
   )
@@ -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*)