Raymond Toy pushed to branch issue-139-set-terminal-to-utf8 at cmucl / cmucl
Commits:
-
a34aa173
by Raymond Toy at 2022-12-04T08:28:25-08:00
1 changed file:
Changes:
| ... | ... | @@ -709,9 +709,14 @@ |
| 709 | 709 | (assert-eq locale-format (stream-external-format sys:*stdout*))
|
| 710 | 710 | (assert-eq locale-format (stream-external-format sys:*stderr*))
|
| 711 | 711 | ;; sys:*tty* can either be an fd-stream or a two-way-stream.
|
| 712 | - ;; stream-external-format doesn't work for a two-way-stream.
|
|
| 713 | - (unless (typep sys:*tty* 'two-way-stream)
|
|
| 714 | - (assert-eq locale-format (stream-external-format sys:*tty*)))))
|
|
| 712 | + (etypecase sys:*tty*
|
|
| 713 | + (system:fd-stream
|
|
| 714 | + (assert-eq locale-format (stream-external-format sys:*tty*)))
|
|
| 715 | + (two-way-stream
|
|
| 716 | + (assert-eq locale-format
|
|
| 717 | + (stream-external-format (two-way-stream-input-stream sys:*tty*)))
|
|
| 718 | + (assert-eq locale-format
|
|
| 719 | + (stream-external-format (two-way-stream-output-stream sys:*tty*)))))))
|
|
| 715 | 720 | |
| 716 | 721 | (define-test issue.139-default-external-format-read-file
|
| 717 | 722 | (:tag :issues)
|