Changeset 11817


Ignore:
Timestamp:
Mar 14, 2009, 9:27:45 AM (10 years ago)
Author:
gb
Message:

In INIT-INTERACTIVE-STREAMS, use MSDOS line-termination conventions
on Windows (despite the fact that it's 2009.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-boot-2.lisp

    r11483 r11817  
    106106                                  :direction :input
    107107                                  :interactive (not *batch-flag*)
    108                                   :encoding encoding-name))
     108                                  :encoding encoding-name
     109                                  #+windows-target :line-termination #+windows-target :cp/m))
    109110    (setq *stdout* (make-fd-stream #-windows-target 1
    110111                                   #+windows-target (%ptr-to-int
    111112                                                     (#_GetStdHandle #$STD_OUTPUT_HANDLE))
    112                                    :basic t :direction :output :sharing :lock :encoding encoding-name))
     113                                   :basic t :direction :output :sharing :lock :encoding encoding-name #+windows-target :line-termination #+windows-target :msdos))
    113114    (setq *stderr* (make-fd-stream #-windows-target 2
    114115                                   #+windows-target (%ptr-to-int
    115116                                                     (#_GetStdHandle #$STD_ERROR_HANDLE))
    116                     :basic t :direction :output :sharing :lock :encoding encoding-name))
     117                    :basic t :direction :output :sharing :lock :encoding encoding-name #+windows-target :line-termination #+windows-target :crlf))
    117118    (if *batch-flag*
    118119      (let* ((tty-fd
Note: See TracChangeset for help on using the changeset viewer.