X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug.lisp;h=92b70a5b5272b48604a3bf79df33c9651978c050;hb=5ef7f500a505f5711b1c76ff8c15f443d4815367;hp=ac0624231e057ce76a7c43c5520c6a09ea6471ba;hpb=92c1f0df7ab549d69815a0867cc0db8989c75c0b;p=sbcl.git

diff --git a/src/compiler/debug.lisp b/src/compiler/debug.lisp
index ac06242..92b70a5 100644
--- a/src/compiler/debug.lisp
+++ b/src/compiler/debug.lisp
@@ -965,7 +965,7 @@
            (let ((kind (basic-combination-kind node)))
              (format t "~(~A~A ~A~) "
                      (if (node-tail-p node) "tail " "")
-                     (if (fun-info-p kind) "known" kind)
+                     kind
                      (type-of node))
              (print-lvar (basic-combination-fun node))
              (dolist (arg (basic-combination-args node))