X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fnode.lisp;h=e2635d20e5cb027374133e6e3acd766db1c80258;hb=1bfc464c657a8f4ad24ef612f76a38d8f6f1bbad;hp=c6bba1479e1ab17ab64b25104a540a42a2e4f0b7;hpb=a574765d57a2a288d292dec59b9429e01be37052;p=sbcl.git

diff --git a/src/compiler/node.lisp b/src/compiler/node.lisp
index c6bba14..e2635d2 100644
--- a/src/compiler/node.lisp
+++ b/src/compiler/node.lisp
@@ -304,7 +304,7 @@
   (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~D" (cont-num (block-start cblock)))))
+    (format stream ":START c~W" (cont-num (block-start cblock)))))
 
 ;;; The BLOCK-ANNOTATION class is inherited (via :INCLUDE) by
 ;;; different BLOCK-INFO annotation structures so that code