0.8.1.53:

        * Export SB-KERNEL::READER-EOF-EROR (bug reported by Nikodemus
          Siivola).

diff --git a/NEWS b/NEWS
index 176d786..f57ee08 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1930,6 +1930,8 @@ changes in sbcl-0.8.2 relative to sbcl-0.8.1:
     8) data.  (thanks to David Lichteblau)
   * bug fix: it is possible to add a method to a generic function
     without lambda list.
+  * bug fix: reader failed to signal END-OF-FILE inside an
+    object representation. (reported by Nikodemus Siivola)
   * fixed some bugs revealed by Paul Dietz' test suite:
     ** LAST and [N]BUTLAST should accept a bignum.
     ** condition slot accessors are methods.

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index b117d4b..f883311 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -1231,6 +1231,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              #!+x86 "*PSEUDO-ATOMIC-INTERRUPTED*"
              "PUNT-PRINT-IF-TOO-LONG"
              "READER-IMPOSSIBLE-NUMBER-ERROR" "READER-PACKAGE-ERROR"
+             "READER-EOF-ERROR"
              "RESTART-DESIGNATOR"
              "SCALE-DOUBLE-FLOAT"
             #!+long-float "SCALE-LONG-FLOAT"

diff --git a/tests/reader.pure.lisp b/tests/reader.pure.lisp
index 7eddc5d..f064457 100644 (file)
--- a/tests/reader.pure.lisp
+++ b/tests/reader.pure.lisp
@@ -76,10 +76,18 @@
   (assert (= (parse-integer "   12asdb" :junk-allowed t) 12)))
 
 ;;; #A notation enforces that once one 0 dimension has been found, all
-;;; subsequent ones are also 0.  
+;;; subsequent ones are also 0.
 (assert (equal (array-dimensions (read-from-string "#3A()"))
               '(0 0 0)))
 (assert (equal (array-dimensions (read-from-string "#3A(())"))
               '(1 0 0)))
 (assert (equal (array-dimensions (read-from-string "#3A((() ()))"))
               '(1 2 0)))
+
+;;; Bug reported by Nikodemus Siivola on sbcl-devel 2003-07-21:
+;;; package misconfiguration
+(assert (eq
+         (handler-case (with-input-from-string (s "cl:") (read s))
+           (end-of-file (c)
+             'good))
+         'good))
\ No newline at end of file

diff --git a/version.lisp-expr b/version.lisp-expr
index b9acd70..9a2b16a 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -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".)
-"0.8.1.52"
+"0.8.1.53"