CMUCL commit: src/code (fd-stream.lisp)

[Raymond Toy]

    Date: Friday, January 22, 2010 @ 22:00:08
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: fd-stream.lisp

Always set the external format for the stream after calling
set-routines so that the stream has the specified external format. 


----------------+
 fd-stream.lisp |    5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)


Index: src/code/fd-stream.lisp
diff -u src/code/fd-stream.lisp:1.94 src/code/fd-stream.lisp:1.95
--- src/code/fd-stream.lisp:1.94	Fri Jan 22 08:28:26 2010
+++ src/code/fd-stream.lisp	Fri Jan 22 22:00:07 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/fd-stream.lisp,v 1.94 2010-01-22 13:28:26 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/fd-stream.lisp,v 1.95 2010-01-23 03:00:07 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1808,8 +1808,7 @@
     (set-routines stream element-type input output input-buffer-p
 		  :binary-stream-p binary-stream-p)
     #+(and unicode (not unicode-bootstrap))
-    (when lisp::*enable-stream-buffer-p*
-      (%set-fd-stream-external-format stream external-format nil))
+    (%set-fd-stream-external-format stream external-format nil)
     (when (and auto-close (fboundp 'finalize))
       (finalize stream
 		#'(lambda ()