From e44def4f38e02f0e49ed4f3464d0685e3f6f5e86 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Wed, 17 Dec 2008 17:34:17 +0000 Subject: [PATCH] 1.0.23.48: REPL recovers from *READ-SUPPRESS* T with a warning * Reported by Daniel Herring. --- NEWS | 2 ++ src/code/toplevel.lisp | 5 +++++ version.lisp-expr | 2 +- 3 files changed, 8 insertions(+), 1 deletion(-) diff --git a/NEWS b/NEWS index 23186619c..5574f0351 100644 --- a/NEWS +++ b/NEWS @@ -30,6 +30,8 @@ * bug fix: #430; nested structure constructors can stack allocate. * bug fix: on some 64-bit platforms dynamic space size was truncated to #xffff0000 bytes. (reported by Benjamin Lambert) + * bug fix: setting *READ-SUPPRESS* to T no longer renders the default + REPL unusable. (reported by Daniel Herring) changes in sbcl-1.0.23 relative to 1.0.22: * enhancement: when disassembling method functions, disassembly diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp index 16243a287..bc4681842 100644 --- a/src/code/toplevel.lisp +++ b/src/code/toplevel.lisp @@ -637,6 +637,11 @@ that provides the REPL for the system. Assumes that *STANDARD-INPUT* and ;;; handle the Unix-style EOF-is-end-of-process convention. (defun repl-read-form-fun (in out) (declare (type stream in out) (ignore out)) + ;; KLUDGE: *READ-SUPPRESS* makes the REPL useless, and cannot be + ;; recovered from -- flip it here. + (when *read-suppress* + (warn "Setting *READ-SUPPRESS* to NIL to restore toplevel usability.") + (setf *read-suppress* nil)) (let* ((eof-marker (cons nil nil)) (form (read in nil eof-marker))) (if (eq form eof-marker) diff --git a/version.lisp-expr b/version.lisp-expr index 51ac16dc4..75df51023 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".) -"1.0.23.47" +"1.0.23.48" -- 2.11.4.GIT