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

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 69715ba..59a3aad 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)