X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug.lisp;h=b9918ab4f7d42190905268b936650d220a4216bd;hb=c712f88b26cd7547ee984b90e18c134401335bc3;hp=69715ba534a03917b67aafdf2b1911f6d03c24c3;hpb=a6a12ed609d5467ec43b411283e5b3568fee81df;p=sbcl.git

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 69715ba..b9918ab 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -381,14 +381,14 @@ thread, NIL otherwise."
       (values name args)))
 
 (defun frame-call (frame)
-  (labels ((clean-name-and-args (name args)
-             (if (not *show-entry-point-details*)
-                 (clean-debug-fun-name name args)
-                 (values name args))))
+  (flet ((clean-name-and-args (name args)
+           (if (not *show-entry-point-details*)
+               (clean-debug-fun-name name args)
+               (values name args))))
     (let ((debug-fun (sb!di:frame-debug-fun frame)))
       (multiple-value-bind (name args)
           (clean-name-and-args (sb!di:debug-fun-name debug-fun)
-                                (frame-args-as-list frame))
+                               (frame-args-as-list frame))
         (values name args (sb!di:debug-fun-kind debug-fun))))))
 
 (defun ensure-printable-object (object)
@@ -681,7 +681,7 @@ reset to ~S."
                (when *debug-beginner-help-p*
                  (format *debug-io*
                          "~%~@<Type HELP for debugger help, or ~
-                               (SB-EXT:QUIT) to exit from SBCL.~:@>~2%"))
+                               (SB-EXT:EXIT) to exit from SBCL.~:@>~2%"))
                (show-restarts *debug-restarts* *debug-io*))
              (internal-debug))
         (when background-p