X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug.lisp;h=c7f6d581ff91a59f5cf4a0f8e1eb59f1e68f7c8c;hb=ed891a4fd882d1b9fe066ab14bcf2107aea95baa;hp=86bfc43d6012fda2f44b6816a26e3234c8b7ac83;hpb=73bb131bdfdae693f6c94ef5db98aba35f61bacf;p=sbcl.git

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 86bfc43..c7f6d58 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -331,9 +331,7 @@ is how many frames to show."
       (multiple-value-bind (name args)
           (clean-name-and-args (sb!di:debug-fun-name debug-fun)
                                 (frame-args-as-list frame))
-        (values name args
-                (when *show-entry-point-details*
-                  (sb!di:debug-fun-kind debug-fun)))))))
+        (values name args (sb!di:debug-fun-kind debug-fun))))))
 
 (defun ensure-printable-object (object)
   (handler-case