[Openmcl-cvs-notifications] r10684 - /trunk/source/level-1/l1-streams.lisp

[gb at clozure.com]

Author: gb
Date: Wed Sep 10 00:12:17 2008
New Revision: 10684

Log:
Can't tell if unread input is available or if output is possible on Windows.






Modified:
    trunk/source/level-1/l1-streams.lisp

Modified: trunk/source/level-1/l1-streams.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-streams.lisp (original)
+++ trunk/source/level-1/l1-streams.lisp Wed Sep 10 00:12:17 2008
@@ -5368,6 +5368,9 @@
 	      (pref tv :timeval.tv_usec) us)))))
 =

 (defun fd-input-available-p (fd &optional milliseconds)
+  #+windows-target (declare (ignore fd milliseconds))
+  #+windows-target nil
+  #-windows-target
   (rlet ((pollfds (:array (:struct :pollfd) 1)))
     (setf (pref (paref pollfds (:* (:struct :pollfd)) 0) :pollfd.fd) fd
           (pref (paref pollfds (:* (:struct :pollfd)) 0) :pollfd.events) #=
$POLLIN)
@@ -5377,6 +5380,9 @@
 =

 =

 (defun fd-ready-for-output-p (fd &optional milliseconds)
+  #+windows-target (declare (ignore fd milliseconds))
+  #+windows-target t
+  #-windows-target
   (rlet ((pollfds (:array (:struct :pollfd) 1)))
     (setf (pref (paref pollfds (:* (:struct :pollfd)) 0) :pollfd.fd) fd
           (pref (paref pollfds (:* (:struct :pollfd)) 0) :pollfd.events) #=
$POLLOUT)