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:

   (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