[Openmcl-cvs-notifications] r11817 - /trunk/source/level-1/l1-boot-2.lisp

[gb at clozure.com]

Author: gb
Date: Sat Mar 14 05:27:45 2009
New Revision: 11817

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

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

Modified: trunk/source/level-1/l1-boot-2.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-boot-2.lisp (original)
+++ trunk/source/level-1/l1-boot-2.lisp Sat Mar 14 05:27:45 2009
@@ -105,15 +105,16 @@
                                   :sharing :lock
                                   :direction :input
                                   :interactive (not *batch-flag*)
-                                  :encoding encoding-name))
+                                  :encoding encoding-name
+                                  #+windows-target :line-termination #+win=
dows-target :cp/m))
     (setq *stdout* (make-fd-stream #-windows-target 1
                                    #+windows-target (%ptr-to-int
                                                      (#_GetStdHandle #$STD=
_OUTPUT_HANDLE))
-                                   :basic t :direction :output :sharing :l=
ock :encoding encoding-name))
+                                   :basic t :direction :output :sharing :l=
ock :encoding encoding-name #+windows-target :line-termination #+windows-ta=
rget :msdos))
     (setq *stderr* (make-fd-stream #-windows-target 2
                                    #+windows-target (%ptr-to-int
                                                      (#_GetStdHandle #$STD=
_ERROR_HANDLE))
-                    :basic t :direction :output :sharing :lock :encoding e=
ncoding-name))
+                    :basic t :direction :output :sharing :lock :encoding e=
ncoding-name #+windows-target :line-termination #+windows-target :crlf))
     (if *batch-flag*
       (let* ((tty-fd
                #-windows-target