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

[gb at clozure.com]

Author: gb
Date: Thu Sep 25 09:22:01 2008
New Revision: 10874

Log:
In INITIALIZE-INTERACTIVE-STREAMS: don't muck with /dev/tty on Windows.

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 Thu Sep 25 09:22:01 2008
@@ -106,9 +106,11 @@
 =

     (setq *stderr* (make-fd-stream 2 :basic t :direction :output :sharing =
:lock :encoding encoding-name))
     (if *batch-flag*
-      (let* ((tty-fd (let* ((fd (fd-open "/dev/tty" #$O_RDWR)))
-                       (if (>=3D fd 0) fd)))
-             (can-use-tty (and tty-fd (eql (tcgetpgrp tty-fd) (getpid)))))
+      (let* ((tty-fd
+               #-windows-target
+               (let* ((fd (fd-open "/dev/tty" #$O_RDWR)))
+                 (if (>=3D fd 0) fd)))
+             (can-use-tty #-windows-target (and tty-fd (eql (tcgetpgrp tty=
-fd) (getpid)))))
         (if can-use-tty
           (setq
            *terminal-input* (make-fd-stream tty-fd