From fced4ded7356f1ce4afacd0dc6b2990506e28c47 Mon Sep 17 00:00:00 2001 From: Andreas Fuchs Date: Tue, 11 Apr 2006 11:45:40 +0000 Subject: [PATCH] 0.9.11.29: Don't ignore reader-package-error in #+ and #- feature expressions. --- NEWS | 2 ++ src/code/sharpm.lisp | 11 +++-------- version.lisp-expr | 2 +- 3 files changed, 6 insertions(+), 9 deletions(-) diff --git a/NEWS b/NEWS index c71d017..7b6c058 100644 --- a/NEWS +++ b/NEWS @@ -7,6 +7,8 @@ changes in sbcl-0.9.12 relative to sbcl-0.9.11: ** run-program is implemented (thanks to Mike Thomas) ** sockets support (thanks to Timothy Ritchey) ** better backtrace support (thanks to Alastair Bridgewater) + * minor incompatible change: The reader no longer ignores errors + regarding non-existent packages in #+ and #- feature tests. * new feature: command line options --no-sysinit, --no-userinit to inhibit loading the corresponding init files * minor incompatible change: SIGPIPE is ignored and "Broken pipe" diff --git a/src/code/sharpm.lisp b/src/code/sharpm.lisp index 0fa36ce..0d4508c 100644 --- a/src/code/sharpm.lisp +++ b/src/code/sharpm.lisp @@ -311,14 +311,9 @@ ;;;; conditional compilation: the #+ and #- readmacros (flet ((guts (stream not-p) - (unless (if (handler-case - (let ((*package* *keyword-package*) - (*read-suppress* nil)) - (featurep (read stream t nil t))) - (reader-package-error - (condition) - (declare (ignore condition)) - nil)) + (unless (if (let ((*package* *keyword-package*) + (*read-suppress* nil)) + (featurep (read stream t nil t))) (not not-p) not-p) (let ((*read-suppress* t)) diff --git a/version.lisp-expr b/version.lisp-expr index 070213e..54e2200 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.9.11.28" +"0.9.11.29" -- 1.7.10.4