X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstream.impure-cload.lisp;h=a4443ed83ea09e64ee643769158ac0463da44553;hb=1318df2c3359471005ba38e80f9e2386939d9ff7;hp=007590843abd8681e277e90ecf916f2b9875612e;hpb=6fa0ad323b5031017e62ee5d7e016eae2cf79efd;p=sbcl.git

diff --git a/tests/stream.impure-cload.lisp b/tests/stream.impure-cload.lisp
index 0075908..a4443ed 100644
--- a/tests/stream.impure-cload.lisp
+++ b/tests/stream.impure-cload.lisp
@@ -29,7 +29,7 @@
 (defvar *scratch-file-stream*)
 (dolist (scratch-file-length '(1 ; everyone's favorite corner case
 			       200123)) ; hopefully much bigger than buffer
-  (format t "/SCRATCH-FILE-LENGTH=~D~%" scratch-file-length)
+  (format t "/SCRATCH-FILE-LENGTH=~W~%" scratch-file-length)
   (with-open-file (s *scratch-file-name* :direction :output)
     (dotimes (i scratch-file-length)
       (write-char #\x s)))