From fd7d7b382bc0889a2037055089caf621bbe23198 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Sat, 23 Jan 2010 03:00:07 +0000
Subject: [PATCH] Always set the external format for the stream after calling
 set-routines so that the stream has the specified external format.

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

diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp
index 4801912da..b821e5d89 100644
--- a/code/fd-stream.lisp
+++ b/code/fd-stream.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.94 2010/01/22 13:28:26 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/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 ()
-- 
GitLab