X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug.lisp;h=92b70a5b5272b48604a3bf79df33c9651978c050;hb=ec066d84dd46611428943d152749b3891a3f4b7c;hp=ac0624231e057ce76a7c43c5520c6a09ea6471ba;hpb=140791a0479787eaca83bea2355c15b65259a823;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))