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

Commits: 86b4483e by Raymond Toy at 2022-09-23T16:46:25-07:00 *tty* format can be either :utf-8 or :default

`*tty*` can either be an fd-stream of a two-way-stream. If the former, the format is `:utf-8`; if the latter, `:default`. Update test accordingly.

- - - - -

1 changed file:

- tests/issues.lisp

Changes:

===================================== tests/issues.lisp ===================================== @@ -587,7 +587,11 @@ (assert-eql :utf-8 (stream-external-format sys:*stdin*)) (assert-eql :utf-8 (stream-external-format sys:*stdout*)) (assert-eql :utf-8 (stream-external-format sys:*stderr*)) - (assert-eql :utf-8 (stream-external-format sys:*tty*)) + ;; *tty* can either be an fd-stream, in which case the format is + ;; utf8, or a two-way-stream, in which case it is :default. + (if (typep sys:*tty* 'two-way-stream) + (assert-eql :default (stream-external-format sys:*tty*)) + (assert-eql :utf-8 (stream-external-format sys:*tty*))) ;; Check that printing to *standard-output* is correctly encoded. (dribble "test-format.txt") ;; Print a Greek lower-case alpha character

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