Fix :bug-309448 test for faster CPUs.

[sbcl.git] / contrib / sb-aclrepl / repl.lisp

diff --git a/contrib/sb-aclrepl/repl.lisp b/contrib/sb-aclrepl/repl.lisp
index 9f7dcdc..7997a79 100644 (file)
--- 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*)