0.9.2.5: fix failure in OPEN when *print-readably* is T (thanks to Xach)

diff --git a/NEWS b/NEWS
index d453f8b..95aec0d 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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"