X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcompiler-error.lisp;h=ac85e40a0bbf34d7ea93477f3e4568377448b27e;hb=1bfc464c657a8f4ad24ef612f76a38d8f6f1bbad;hp=43f90c711a617defe2a3d25b46774277bb9640ac;hpb=b33fd6859bbe71667bf9d8a6dbcaf62464bfbee5;p=sbcl.git

diff --git a/src/compiler/compiler-error.lisp b/src/compiler/compiler-error.lisp
index 43f90c7..ac85e40 100644
--- a/src/compiler/compiler-error.lisp
+++ b/src/compiler/compiler-error.lisp
@@ -84,7 +84,7 @@
   (:report
    (lambda (condition stream)
      (format stream
-	     "~@<~S failure in ~S~@[ at character ~D~]: ~2I~_~A~:>"
+	     "~@<~S failure in ~S~@[ at character ~W~]: ~2I~_~A~:>"
 	     'read
 	     'compile-file
 	     (input-error-in-compile-file-position condition)