diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp index 4801912da5e248311c51e6cd5b66d04f2ca9b030..b821e5d89b5f4e75100b5b48395c757958ee4f7b 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 ()