From 9d319ffac125d7991c3be4c147103df119d24db6 Mon Sep 17 00:00:00 2001 From: Brian Mastenbrook Date: Wed, 29 Jun 2005 00:11:37 +0000 Subject: [PATCH] 0.9.2.5: fix failure in OPEN when *print-readably* is T (thanks to Xach) --- NEWS | 2 ++ src/code/fd-stream.lisp | 2 +- tests/stream.pure.lisp | 3 +++ version.lisp-expr | 2 +- 4 files changed, 7 insertions(+), 2 deletions(-) diff --git a/NEWS b/NEWS index d453f8b..95aec0d 100644 --- a/NEWS +++ b/NEWS @@ -3,6 +3,8 @@ changes in sbcl-0.9.3 relative to sbcl-0.9.2: opened with :element-type :default now allow character and binary (unsigned-byte 8) I/O * Support for the koi8-r external format. (thanks to Ivan Boldyrev) + * Bug fix: OPEN no longer fails when *PRINT-READABLY* is T. (thanks + to Zach Beane) changes in sbcl-0.9.2 relative to sbcl-0.9.1: * numerous signal handling fixes to increase stability diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp index 8e858f4..5091687 100644 --- a/src/code/fd-stream.lisp +++ b/src/code/fd-stream.lisp @@ -1774,7 +1774,7 @@ input-buffer-p dual-channel-p (name (if file - (format nil "file ~S" file) + (format nil "file ~A" file) (format nil "descriptor ~W" fd))) auto-close) (declare (type index fd) (type (or index null) timeout) diff --git a/tests/stream.pure.lisp b/tests/stream.pure.lisp index 120c706..ace7840 100644 --- a/tests/stream.pure.lisp +++ b/tests/stream.pure.lisp @@ -290,3 +290,6 @@ (assert (= (read-sequence sequence s) 3)) (assert (string= sequence "foodef")) (assert (string= (get-output-stream-string os) "foo"))) + +(with-standard-io-syntax + (open "/dev/null")) diff --git a/version.lisp-expr b/version.lisp-expr index 9bd51c8..4532060 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.2.4" +"0.9.2.5" -- 1.7.10.4