Changeset 6636

Timestamp:

May 31, 2007, 5:40:03 PM (17 years ago)

Author:

Gary Byers

Message:

READER-ERORS use STREAM-ERROR-CONTEXT when reporting themselves.

File:

• trunk/ccl/lib/read.lisp (modified) (2 diffs)

trunk/ccl/lib/read.lisp

@@ -17 +17 @@
 (in-package "CCL")
 
+
+                         
 (define-condition simple-reader-error (reader-error simple-error) ()
   (:report (lambda (c output-stream)
-             (format output-stream "Reader error on stream ~S:~%~?"
-                     (stream-error-stream c)
+             (format output-stream "Reader error on ~a:~%~?"
+                     (stream-error-context c)
                      (simple-condition-format-control c)
                      (simple-condition-format-arguments c)))))
@@ -46 +48 @@
 
 (defun read-internal (input-stream)
-   (read input-stream t nil t))
+  (read input-stream t nil t))