From afeb118568baef10add5ab472e544c485fd412ce Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Thu, 13 Mar 2008 15:40:28 +0000 Subject: [PATCH] 1.0.15.29: record bugs 424 and 425 --- BUGS | 39 +++++++++++++++++++++++++++++++++++++++ version.lisp-expr | 2 +- 2 files changed, 40 insertions(+), 1 deletion(-) diff --git a/BUGS b/BUGS index 2496243..0c152ac 100644 --- a/BUGS +++ b/BUGS @@ -1908,3 +1908,42 @@ generally try to check returns in safe code, so we should here too.) (the ,type x))))) (compile nil (make-lambda 'list)) (compile nil (make-lambda 'vector))))) + +424: toplevel closures and *CHECK-CONSISTENCY* + + The following breaks under COMPILE-FILE if *CHECK-CONSISTENCY* is true. + + (let ((exported-symbols-alist + (loop for symbol being the external-symbols of :cl + collect (cons symbol + (concatenate 'string + "#" + (string-downcase symbol)))))) + (defun hyperdoc-lookup (symbol) + (cdr (assoc symbol exported-symbols-alist)))) + + (Test-case adapted from CL-PPCRE.) + +425: reading from closed streams + + Reported by Damien Cassou on sbcl-devel. REPL transcript follows: + + * (open ".bashrc" :direction :input) + # + * (defparameter *s* *) + *S* + * (read-line *s*) + "# -*- Mode: Sh -*-" + * (read-line *s*) + "# Files you make look like rw-r--r--" + * (open-stream-p *s*) + T + * (close *s*) + T + * (open-stream-p *s*) + NIL + * (read-line *s*) + "umask 022" + + The problem is with the fast path using ansi-stream-cin-buffer not hitting + closed-flame. diff --git a/version.lisp-expr b/version.lisp-expr index 2e5843e..266790d 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.15.28" +"1.0.15.29" -- 1.7.10.4