X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=d05a3dab8a10234ffdc0eeebc138915fce58ace7;hb=cd13034f9415f64cdaa05893a4ac5ff1e95c97bd;hp=76aaea45dc01dcbba6bfeb00f95f1392a04314cc;hpb=bc59d68844ec48359a26476e5947b38a778813b6;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 76aaea4..d05a3da 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -1190,8 +1190,7 @@
      (fun-debug-fun (%closure-fun fun)))
     (#.sb!vm:funcallable-instance-header-widetag
      (fun-debug-fun (funcallable-instance-fun fun)))
-    ((#.sb!vm:simple-fun-header-widetag
-      #.sb!vm:closure-fun-header-widetag)
+    (#.sb!vm:simple-fun-header-widetag
       (let* ((name (%simple-fun-name fun))
 	     (component (fun-code-header fun))
 	     (res (find-if