X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-format.lisp;h=27d2b3ab87b4566be66314ec92d11f71949ad583;hb=1bfc464c657a8f4ad24ef612f76a38d8f6f1bbad;hp=db53996490d127383ee3c9f841828a6864412011;hpb=ba7659c92f2b7fac7e9532a3db9114c5bdc4ab55;p=sbcl.git

diff --git a/src/code/late-format.lisp b/src/code/late-format.lisp
index db53996..27d2b3a 100644
--- a/src/code/late-format.lisp
+++ b/src/code/late-format.lisp
@@ -263,7 +263,7 @@
 			     (error
 			      'format-error
 			      :complaint
-			      "too many parameters, expected no more than ~D"
+			      "too many parameters, expected no more than ~W"
 			      :arguments (list ,(length specs))
 			      :offset (caar ,params)))
 		       ,,@body)))
@@ -617,8 +617,8 @@
 	    `(if (<= 0 ,posn (length orig-args))
 		 (setf args (nthcdr ,posn orig-args))
 		 (error 'format-error
-			:complaint "Index ~D out of bounds. Should have been ~
-				    between 0 and ~D."
+			:complaint "Index ~W out of bounds. Should have been ~
+				    between 0 and ~W."
 			:arguments (list ,posn (length orig-args))
 			:offset ,(1- end)))))
       (if colonp
@@ -634,8 +634,8 @@
 			(setf args (nthcdr new-posn orig-args))
 			(error 'format-error
 			       :complaint
-			       "Index ~D is out of bounds; should have been ~
-				between 0 and ~D."
+			       "Index ~W is out of bounds; should have been ~
+				between 0 and ~W."
 			       :arguments
 			       (list new-posn (length orig-args))
 			       :offset ,(1- end)))))))