X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fparse-defmacro-errors.lisp;h=104fd18bd659f1f95cd9ed697f0ac52e1b57055d;hb=90ca09b75fbc3b63b2f7d09c67b04b866dd783f6;hp=62972d442598b688fdc23b823a7eafc6db978747;hpb=4eb1a6d3ad2b7dcc19ac0ec979a1eb1eb049659a;p=sbcl.git

diff --git a/src/code/parse-defmacro-errors.lisp b/src/code/parse-defmacro-errors.lisp
index 62972d4..104fd18 100644
--- a/src/code/parse-defmacro-errors.lisp
+++ b/src/code/parse-defmacro-errors.lisp
@@ -65,17 +65,17 @@
 	     (arg-count-error-argument condition)
 	     (arg-count-error-lambda-list condition))
      (cond ((null (arg-count-error-maximum condition))
-	    (format stream "at least ~D expected"
+	    (format stream "at least ~W expected"
 		    (arg-count-error-minimum condition)))
 	   ((= (arg-count-error-minimum condition)
 	       (arg-count-error-maximum condition))
-	    (format stream "exactly ~D expected"
+	    (format stream "exactly ~W expected"
 		    (arg-count-error-minimum condition)))
 	   (t
-	    (format stream "between ~D and ~D expected"
+	    (format stream "between ~W and ~W expected"
 		    (arg-count-error-minimum condition)
 		    (arg-count-error-maximum condition))))
-     (format stream ", but ~D found"
+     (format stream ", but ~W found"
 	     (length (arg-count-error-argument condition))))))
 
 (define-condition defmacro-ll-broken-key-list-error