X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdyncount.lisp;h=c14cb73dd7b7520cd1e65f761c0f6fac265f4875;hb=683874b497a99cd2c11b6c5d9b47e2785b1ede5f;hp=fcdb4a389b2841900d29de5547c8b8d004ed5b8c;hpb=4eb1a6d3ad2b7dcc19ac0ec979a1eb1eb049659a;p=sbcl.git

diff --git a/src/code/dyncount.lisp b/src/code/dyncount.lisp
index fcdb4a3..c14cb73 100644
--- a/src/code/dyncount.lisp
+++ b/src/code/dyncount.lisp
@@ -430,7 +430,7 @@ comments from CMU CL:
 		     cost)
 		 total-cost))
       (when (zerop (decf counter))
-	(format t "[End of top ~D]~%" cut-off))))))
+	(format t "[End of top ~W]~%" cut-off))))))
 
 ;;; Divide SORTED into two lists, the first CUT-OFF elements long. Any VOP
 ;;; names that match one of the report strings are moved into the REPORT list