Changeset 10684


Ignore:
Timestamp:
Sep 10, 2008, 4:12:17 AM (11 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

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

    r10636 r10684  
    53785378
    53795379(defun fd-input-available-p (fd &optional milliseconds)
     5380  #+windows-target (declare (ignore fd milliseconds))
     5381  #+windows-target nil
     5382  #-windows-target
    53805383  (rlet ((pollfds (:array (:struct :pollfd) 1)))
    53815384    (setf (pref (paref pollfds (:* (:struct :pollfd)) 0) :pollfd.fd) fd
     
    53875390
    53885391(defun fd-ready-for-output-p (fd &optional milliseconds)
     5392  #+windows-target (declare (ignore fd milliseconds))
     5393  #+windows-target t
     5394  #-windows-target
    53895395  (rlet ((pollfds (:array (:struct :pollfd) 1)))
    53905396    (setf (pref (paref pollfds (:* (:struct :pollfd)) 0) :pollfd.fd) fd
Note: See TracChangeset for help on using the changeset viewer.