Changeset 10395


Ignore:
Timestamp:
Aug 8, 2008, 4:51:43 AM (11 years ago)
Author:
gb
Message:

*INTERACTIVE-STREAMS-INITIALIZED* is just a global, initialized "by hand."

Define SET-TERMINAL-ENCODING.

(These are changes from trunk, to help increase the likelyhood that
errors during startup have streams to enter a break loop on.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-boot-2.lisp

    r8867 r10395  
    9292;;; message to.
    9393
    94 (defloadvar *interactive-streams-initialized* nil)
     94(defglobal *interactive-streams-initialized* nil)
    9595
    9696(defun initialize-interactive-streams ()
     
    157157
    158158
    159 
     159(defun set-terminal-encoding (encoding-name)
     160  (let* ((exformat (normalize-external-format t encoding-name)))
     161    (setf (stream-external-format *stdin*) exformat
     162          (stream-external-format *stdout*) exformat
     163          (stream-external-format *stderr*) exformat
     164          (stream-external-format *terminal-input*) exformat
     165          (stream-external-format *terminal-output*) exformat))
     166  encoding-name)
    160167
    161168(catch :toplevel
Note: See TracChangeset for help on using the changeset viewer.