fix long-standing debug-name confusion

[sbcl.git] / src / code / debug.lisp

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