X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug.lisp;h=9be0b0787042dba5d63bcaaab8b2d11612031df8;hb=61c18727668ff0c3263a3d363e609d4522d545cc;hp=e98284763ee6dc579f8bdc0bfae2319756b142ca;hpb=2675adcb29d689ee6d270f52658af17f2deeaf77;p=sbcl.git

diff --git a/src/compiler/debug.lisp b/src/compiler/debug.lisp
index e982847..9be0b07 100644
--- a/src/compiler/debug.lisp
+++ b/src/compiler/debug.lisp
@@ -943,7 +943,8 @@
     (do ((ctran (block-start block) (node-next (ctran-next ctran))))
         ((not ctran))
       (let ((node (ctran-next ctran)))
-        (format t "~:[    ~;~:*~3D:~] "
+        (format t "~3D>~:[    ~;~:*~3D:~] "
+                (cont-num ctran)
                 (when (and (valued-node-p node) (node-lvar node))
                   (cont-num (node-lvar node))))
         (etypecase node