From 75327285e6bc4751435132ecbb821069057ce466 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Mon, 2 May 2005 16:32:19 +0000 Subject: [PATCH] 0.9.0.15: STREAM-MUST-BE-ASSOCIATED-WITH-FILE generates a type-error with a DATUM. (PFD ansi-tests) --- NEWS | 2 ++ src/code/stream.lisp | 1 + version.lisp-expr | 2 +- 3 files changed, 4 insertions(+), 1 deletion(-) diff --git a/NEWS b/NEWS index 0a1e81d49..d29f717c2 100644 --- a/NEWS +++ b/NEWS @@ -4,6 +4,8 @@ changes in sbcl-0.9.1 relative to sbcl-0.9.0: * contrib improvement: implement SB-POSIX:MKSTEMP (Yannick Gingras) * fixed some bugs revealed by Paul Dietz' test suite: ** the type-error signalled from WARN has a filled-in DATUM slot. + ** the type-error required when a stream is not associated with + a file has the stream as its datum. changes in sbcl-0.9.0 relative to sbcl-0.8.21: * incompatible change: the --noprogrammer option, deprecated since diff --git a/src/code/stream.lisp b/src/code/stream.lisp index 4611a7221..d43c6d0c5 100644 --- a/src/code/stream.lisp +++ b/src/code/stream.lisp @@ -189,6 +189,7 @@ ;; EXPECTED-TYPE? This SATISFIES type (with a nonstandard ;; private predicate function..) is ugly and confusing, but ;; I can't see any other way. -- WHN 2001-04-14 + :datum stream :expected-type '(satisfies stream-associated-with-file-p) :format-control "~@" diff --git a/version.lisp-expr b/version.lisp-expr index c0a74cf18..390300f84 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.0.14" +"0.9.0.15"