1.0.9.61: Fix %report-reader-error
authorChristophe Rhodes <csr21@cantab.net>
Mon, 17 Sep 2007 18:38:16 +0000 (18:38 +0000)
committerChristophe Rhodes <csr21@cantab.net>
Mon, 17 Sep 2007 18:38:16 +0000 (18:38 +0000)
It was missing an apply (or, equivalently, a ~?) for printing
the simple-condition part of the error.

src/code/condition.lisp
tests/reader.pure.lisp
version.lisp-expr

index 6e04cda..44270bb 100644 (file)
                 (class-name (class-of condition))
                 pos lineno colno error-stream)
         (when simple
-          (format stream ":~2I~_")
-          (format stream
+          (format stream ":~2I~_~?"
                   (simple-condition-format-control condition)
                   (simple-condition-format-arguments condition)))))))
 \f
index 62bd000..7f88b03 100644 (file)
 (let ((*readtable* (copy-readtable)))
   (set-syntax-from-char #\7 #\Space)
   (assert (string= (format nil "~7D" 1) "      1")))
+
+(let ((symbol (find-symbol "DOES-NOT-EXIST" "CL-USER")))
+  (assert (null symbol))
+  (handler-case
+      (read-from-string "CL-USER:DOES-NOT-EXIST")
+    (reader-error (c)
+      (princ c))))
index 0569929..18f95b3 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.9.60"
+"1.0.9.61"