Changeset 5244

Timestamp:

Sep 23, 2006, 4:28:20 AM (18 years ago)

Author:

Gary Byers

Message:

Make initial interactive streams use UTF-8 (mostly for debugging utf-8 ...)

File:

• trunk/ccl/level-1/l1-boot-2.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-boot-2.lisp

@@ -86 +86 @@
                                 :sharing :lock
                                 :direction :input
-                                :interactive (not *batch-flag*)))
-  (setq *stdout* (make-fd-stream 1 :basic t :direction :output :sharing :lock))
-
-  (setq *stderr* (make-fd-stream 2 :basic t :direction :output :sharing :lock))
+                                :interactive (not *batch-flag*)
+                                :encoding :utf-8))
+  (setq *stdout* (make-fd-stream 1 :basic t :direction :output :sharing :lock :encoding :utf-8))
+
+  (setq *stderr* (make-fd-stream 2 :basic t :direction :output :sharing :lock :encoding :utf-8))
   (if *batch-flag*
     (let* ((tty-fd (let* ((fd (fd-open "/dev/tty" #$O_RDWR)))
@@ -100 +101 @@
                                           :direction :input
                                           :interactive t
-                                          :sharing :lock)
-         *terminal-output* (make-fd-stream tty-fd :basic t :direction :output :sharing :lock)
+                                          :sharing :lock
+                                          :encoding :utf-8)
+         *terminal-output* (make-fd-stream tty-fd :basic t :direction :output :sharing :lock :encoding :utf-8)
          *terminal-io* (make-echoing-two-way-stream
                         *terminal-input* *terminal-output*))