Changeset 13136

Timestamp:

Oct 30, 2009, 3:11:24 PM (15 years ago)

Author:

gz

Message:

Merge r13094 (Windows fix) from trunk

File:

• branches/working-0711/ccl/level-1/l1-streams.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-streams.lisp

@@ -5430 +5430 @@
                (values (process-wait-with-timeout "input-wait" milliseconds #'data-available-on-pipe-p fd) 0)
                (values nil 0))))
-    ;(:character-special (windows-tty-input-available-p fd milliseconds))
+    (:file (let* ((curpos (fd-tell fd))
+                  (eofpos (%stack-block ((peofpos 8))
+                            (#_GetFileSizeEx (%int-to-ptr fd) peofpos)
+                            (%%get-unsigned-longlong peofpos 0))))
+             (values (< curpos eofpos) 0)))
+    ;;(:character-special (windows-tty-input-available-p fd milliseconds))
+
     (t (values nil 0)))
   #-windows-target