Changeset 10274
- Timestamp:
- Aug 2, 2008, 9:52:27 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-boot-2.lisp
r10201 r10274 92 92 ;;; message to. 93 93 94 (def loadvar*interactive-streams-initialized* nil)94 (defglobal *interactive-streams-initialized* nil) 95 95 96 96 (defun initialize-interactive-streams () … … 157 157 158 158 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 *stdout*) exformat 164 (stream-external-format *terminal-input*) exformat 165 (stream-external-format *terminal-output*) exformat)) 166 encoding-name) 160 167 161 168 (catch :toplevel
Note: See TracChangeset
for help on using the changeset viewer.