[Sbcl-devel] [xach@xach.com: with-standard-io-syntax and open]

[Zach B. <xa...@xa...>]

Since things are no longer frozen, I'm sending this along again. In
case anyone was wondering, I saw this problem in an interaction by
cl-pdf's WITH-DOCUMENT:

   (with-document ()
     (with-open-file (...) ...))

The failure this code causes is patched below.

Zach

----- Forwarded message from Zach Beane <xa...@xa...> -----

From: Zach Beane <xa...@xa...>
Date: Mon, 20 Jun 2005 10:33:11 -0400
To: sbc...@li...
Subject: with-standard-io-syntax and open

This fails in SBCL right now:

   (with-standard-io-syntax (open "/dev/null"))

Since it's croaking on producing a purely decorative name for display,
here's a fix:

Index: fd-stream.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/fd-stream.lisp,v
retrieving revision 1.74
diff -u -r1.74 fd-stream.lisp
--- fd-stream.lisp      16 Jun 2005 14:19:28 -0000      1.74
+++ fd-stream.lisp      20 Jun 2005 14:29:27 -0000
@@ -1739,7 +1739,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)

----- End forwarded message -----