0.pre7.90:

[sbcl.git] / src / code / dyncount.lisp

diff --git a/src/code/dyncount.lisp b/src/code/dyncount.lisp
index fcdb4a3..c14cb73 100644 (file)
--- 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