Changeset 13136


Ignore:
Timestamp:
Oct 30, 2009, 10:11:24 PM (10 years ago)
Author:
gz
Message:

Merge r13094 (Windows fix) from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-streams.lisp

    r13070 r13136  
    54305430               (values (process-wait-with-timeout "input-wait" milliseconds #'data-available-on-pipe-p fd) 0)
    54315431               (values nil 0))))
    5432     ;(:character-special (windows-tty-input-available-p fd milliseconds))
     5432    (:file (let* ((curpos (fd-tell fd))
     5433                  (eofpos (%stack-block ((peofpos 8))
     5434                            (#_GetFileSizeEx (%int-to-ptr fd) peofpos)
     5435                            (%%get-unsigned-longlong peofpos 0))))
     5436             (values (< curpos eofpos) 0)))
     5437    ;;(:character-special (windows-tty-input-available-p fd milliseconds))
     5438
    54335439    (t (values nil 0)))
    54345440  #-windows-target
Note: See TracChangeset for help on using the changeset viewer.