Changeset 6649

Timestamp:

Jun 3, 2007, 2:45:12 AM (17 years ago)

Author:

Gary Byers

Message:

stream-error-context for reader errors.

File:

• branches/ide-1.0/ccl/lib/read.lisp (modified) (2 diffs)

branches/ide-1.0/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))