X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fnode.lisp;h=ce43926908a81d61377ee0341a8b3959c175ca8b;hb=435b7acd186484b1eed5ab615c43bcc1701fcd6c;hp=564111478795c95406194028854c15895f4140f5;hpb=7ce2c42adf3d62f03086de940adaee48e6161a40;p=sbcl.git

diff --git a/src/compiler/node.lisp b/src/compiler/node.lisp
index 5641114..ce43926 100644
--- a/src/compiler/node.lisp
+++ b/src/compiler/node.lisp
@@ -311,7 +311,9 @@
   (test-constraint nil :type (or sset null)))
 (def!method print-object ((cblock cblock) stream)
   (print-unreadable-object (cblock stream :type t :identity t)
-    (format stream ":START c~W" (cont-num (block-start cblock)))))
+    (format stream "~W :START c~W"
+            (block-number cblock)
+            (cont-num (block-start cblock)))))
 
 ;;; The BLOCK-ANNOTATION class is inherited (via :INCLUDE) by
 ;;; different BLOCK-INFO annotation structures so that code