X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstress-gc.lisp;h=f791ddd64b408771fd88a1c5b50159c00b84660e;hb=f1407e424f1063203af07d2e61ceef58515a4797;hp=7fff862395c3ac8453a78b84b9ca72e1a1b38df2;hpb=667ec9d494530079bef28e8589dd0d3274b935ec;p=sbcl.git

diff --git a/tests/stress-gc.lisp b/tests/stress-gc.lisp
index 7fff862..f791ddd 100644
--- a/tests/stress-gc.lisp
+++ b/tests/stress-gc.lisp
@@ -36,7 +36,7 @@
     result))
 
 (defun stress-gc (n-passes &optional (size 3000))
-  (format t "~&beginning STRESS-GC N-PASSES=~D SIZE=~D~%" n-passes size)
+  (format t "~&beginning STRESS-GC N-PASSES=~W SIZE=~W~%" n-passes size)
   (let ((generations (make-array (isqrt size) :initial-element nil))
 	;; We allocate on the order of MOST-POSITIVE-FIXNUM things
 	;; before doing a full GC.
@@ -69,7 +69,7 @@
 	  (assert-generation i-generation generation-i))
 	(setf (aref generations i-generation)
 	      generation-i))))
-  (format t "~&done with STRESS-GC N-PASSES=~D SIZE=~D~%" n-passes size))
+  (format t "~&done with STRESS-GC N-PASSES=~W SIZE=~W~%" n-passes size))
 
 (defvar *expected*)
 (defvar *got*)
@@ -84,7 +84,7 @@
 	;; wimpy to inspect lexical variables.
 	(let ((*expected* (funcall repr index-within-generation))
 	      (*got* element-of-generation))
-	  (error "bad element #~D in generation #~D:~%  expected ~S~%  from ~S,~%  got ~S"
+	  (error "bad element #~W in generation #~D:~%  expected ~S~%  from ~S,~%  got ~S"
 		 index-within-generation
 		 index-of-generation
 		 *expected*