Changeset 10874


Ignore:
Timestamp:
Sep 25, 2008, 1:22:01 PM (11 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

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

    r10762 r10874  
    107107    (setq *stderr* (make-fd-stream 2 :basic t :direction :output :sharing :lock :encoding encoding-name))
    108108    (if *batch-flag*
    109       (let* ((tty-fd (let* ((fd (fd-open "/dev/tty" #$O_RDWR)))
    110                        (if (>= fd 0) fd)))
    111              (can-use-tty (and tty-fd (eql (tcgetpgrp tty-fd) (getpid)))))
     109      (let* ((tty-fd
     110               #-windows-target
     111               (let* ((fd (fd-open "/dev/tty" #$O_RDWR)))
     112                 (if (>= fd 0) fd)))
     113             (can-use-tty #-windows-target (and tty-fd (eql (tcgetpgrp tty-fd) (getpid)))))
    112114        (if can-use-tty
    113115          (setq
Note: See TracChangeset for help on using the changeset viewer.