diff options
| author | Alexey Dejneka <adejneka@comail.ru> | 2003-07-22 05:45:25 +0000 |
|---|---|---|
| committer | Alexey Dejneka <adejneka@comail.ru> | 2003-07-22 05:45:25 +0000 |
| commit | 1f50b5779aeb575622b25721de552f404c77e150 (patch) | |
| tree | d40c3ebc2fbcc69e12ba1b9d9c99b05996b961a1 | |
| parent | b7192afcef9bbfd3fe1a4e2bfe3c73f853d164d1 (diff) | |
0.8.1.53:
* Export SB-KERNEL::READER-EOF-EROR (bug reported by Nikodemus
Siivola).
| -rw-r--r-- | NEWS | 2 | ||||
| -rw-r--r-- | package-data-list.lisp-expr | 1 | ||||
| -rw-r--r-- | tests/reader.pure.lisp | 10 | ||||
| -rw-r--r-- | version.lisp-expr | 2 |
4 files changed, 13 insertions, 2 deletions
@@ -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 b117d4bd8..f883311f1 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 7eddc5d9f..f0644572c 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 b9acd70b5..9a2b16a7c 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" |