Skip to content
Snippets Groups Projects
Commit fd7d7b38 authored by rtoy's avatar rtoy
Browse files

Always set the external format for the stream after calling

set-routines so that the stream has the specified external format.
parent 216a9cfe
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -1808,8 +1808,7 @@
(set-routines stream element-type input output input-buffer-p (set-routines stream element-type input output input-buffer-p
:binary-stream-p binary-stream-p) :binary-stream-p binary-stream-p)
#+(and unicode (not unicode-bootstrap)) #+(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)) (when (and auto-close (fboundp 'finalize))
(finalize stream (finalize stream
#'(lambda () #'(lambda ()
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment