Ignore:
Timestamp:
Apr 1, 2013, 6:24:12 PM (8 years ago)
Author:
gb
Message:

INITIALIZE-INTERACTIVE-STREAMS: *STDIN* is non-interactive iff *BATCH-FLAG*
and fd 0 (or Windows equivalent) is seekable.
See <http://clozure.com/pipermail/openmcl-devel/2013-March/014210.html>

File:
1 edited

Legend:

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

    r15230 r15791  
    123123         (encoding-name (if encoding (character-encoding-name encoding))))
    124124    #+windows-target (validate-standard-io-handles)
    125     (setq *stdin* (make-fd-stream #-windows-target 0
    126                                   #+windows-target (%ptr-to-int
    127                                                     (#_GetStdHandle #$STD_INPUT_HANDLE))
     125    (setq *stdin* (let* ((infd #-windows-target 0
     126                               #+windows-target (%ptr-to-int
     127                                                 (#_GetStdHandle #$STD_INPUT_HANDLE))))
     128                               (make-fd-stream infd
    128129                                  :basic t
    129130                                  :sharing :lock
    130131                                  :direction :input
    131                                   :interactive (not *batch-flag*)
     132                                  :interactive (or (not *batch-flag*)
     133                                                   (< (fd-lseek infd 0 #$SEEK_CUR)                                                     
     134                                                      0))
    132135                                  :encoding encoding-name
    133                                   #+windows-target :line-termination #+windows-target :cp/m))
     136                                  #+windows-target :line-termination #+windows-target :cp/m)))
    134137    (setq *stdout* (make-fd-stream #-windows-target 1
    135138                                   #+windows-target (%ptr-to-int
Note: See TracChangeset for help on using the changeset viewer.