From 1f50b5779aeb575622b25721de552f404c77e150 Mon Sep 17 00:00:00 2001 From: Alexey Dejneka Date: Tue, 22 Jul 2003 05:45:25 +0000 Subject: [PATCH] 0.8.1.53: * Export SB-KERNEL::READER-EOF-EROR (bug reported by Nikodemus Siivola). --- NEWS | 2 ++ package-data-list.lisp-expr | 1 + tests/reader.pure.lisp | 10 +++++++++- version.lisp-expr | 2 +- 4 files changed, 13 insertions(+), 2 deletions(-) diff --git a/NEWS b/NEWS index 176d786..f57ee08 100644 --- 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 --- 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 --- 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 --- 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" -- 1.7.10.4