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
1 changed file:
Changes:
| ... | ... | @@ -2397,20 +2397,20 @@ |
| 2397 | 2397 | (setf *available-buffers* nil)
|
| 2398 | 2398 | (setf *stdin*
|
| 2399 | 2399 | (make-fd-stream 0 :name "Standard Input" :input t :buffering :line
|
| 2400 | - :external-format :default))
|
|
| 2400 | + :external-format :utf-8))
|
|
| 2401 | 2401 | (setf *stdout*
|
| 2402 | 2402 | (make-fd-stream 1 :name "Standard Output" :output t :buffering :line
|
| 2403 | - :external-format :default))
|
|
| 2403 | + :external-format :utf-8))
|
|
| 2404 | 2404 | (setf *stderr*
|
| 2405 | 2405 | (make-fd-stream 2 :name "Standard Error" :output t :buffering :line
|
| 2406 | - :external-format :default))
|
|
| 2406 | + :external-format :utf-8))
|
|
| 2407 | 2407 | (let ((tty (and (not *batch-mode*)
|
| 2408 | 2408 | (unix:unix-open "/dev/tty" unix:o_rdwr #o666))))
|
| 2409 | 2409 | (setf *tty*
|
| 2410 | 2410 | (if tty
|
| 2411 | 2411 | (make-fd-stream tty :name "the Terminal" :input t :output t
|
| 2412 | 2412 | :buffering :line :auto-close t
|
| 2413 | - :external-format :default)
|
|
| 2413 | + :external-format :utf-8)
|
|
| 2414 | 2414 | (make-two-way-stream *stdin* *stdout*))))
|
| 2415 | 2415 | nil)
|
| 2416 | 2416 |