[Git][cmucl/cmucl][issue-139a-default-external-format-utf8] Explicitly set format to :utf-8 instead of :default

[Raymond Toy (@rtoy)]

Raymond Toy pushed to branch issue-139a-default-external-format-utf8 at cmucl / cmucl


Commits:
c5f31c3c by Raymond Toy at 2022-09-23T16:06:01-07:00
Explicitly set format to :utf-8 instead of :default

- - - - -


1 changed file:

- src/code/fd-stream.lisp


Changes:

=====================================
src/code/fd-stream.lisp
=====================================
@@ -2397,20 +2397,20 @@
   (setf *available-buffers* nil)
   (setf *stdin*
 	(make-fd-stream 0 :name "Standard Input" :input t :buffering :line
-			:external-format :default))
+			:external-format :utf-8))
   (setf *stdout*
 	(make-fd-stream 1 :name "Standard Output" :output t :buffering :line
-			:external-format :default))
+			:external-format :utf-8))
   (setf *stderr*
 	(make-fd-stream 2 :name "Standard Error" :output t :buffering :line
-			:external-format :default))
+			:external-format :utf-8))
   (let ((tty (and (not *batch-mode*)
 		  (unix:unix-open "/dev/tty" unix:o_rdwr #o666))))
     (setf *tty*
 	  (if tty
 	      (make-fd-stream tty :name "the Terminal" :input t :output t
 			      :buffering :line :auto-close t
-			      :external-format :default)
+			      :external-format :utf-8)
 	      (make-two-way-stream *stdin* *stdout*))))
   nil)
 



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c5f31c3cd0628d668831d285e629da0a526d1678

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c5f31c3cd0628d668831d285e629da0a526d1678
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20220923/df6c3771/attachment-0001.html>