0.pre7.88:

[sbcl.git] / src / code / condition.lisp

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 935a2a6..43d9366 100644 (file)
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -659,7 +659,7 @@
   (:report
    (lambda (condition stream)
      (let ((error-stream (stream-error-stream condition)))
-       (format stream "READER-ERROR ~@[at ~D ~]on ~S:~%~?"
+       (format stream "READER-ERROR ~@[at ~W ~]on ~S:~%~?"
               (file-position error-stream) error-stream
               (reader-error-format-control condition)
               (reader-error-format-arguments condition))))))