Changeset 10274

Timestamp:

Aug 2, 2008, 9:52:27 PM (11 years ago)

Author:

gb

Message:

*INTERACTIVE-STREAMS-INITIALIZED*: just a global, reset and set
manually during startup.

New SET-TERMINAL-ENCODING function.

File:

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

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

@@ -92 +92 @@
 ;;; message to.
 
-(defloadvar *interactive-streams-initialized* nil)
+(defglobal *interactive-streams-initialized* nil)
 
 (defun initialize-interactive-streams ()
@@ -157 +157 @@
 
 
-
+(defun set-terminal-encoding (encoding-name)
+  (let* ((exformat (normalize-external-format t encoding-name)))
+    (setf (stream-external-format *stdin*) exformat
+          (stream-external-format *stdout*) exformat
+          (stream-external-format *stdout*) exformat
+          (stream-external-format *terminal-input*) exformat
+          (stream-external-format *terminal-output*) exformat))
+  encoding-name)
 
 (catch :toplevel