- (multiple-value-bind (value err) (sb!unix:unix-fast-select
- count
- (sb!alien:addr read-fds) (sb!alien:addr write-fds)
- nil to-sec to-usec)
-
- ;; Now see what it was (if anything)
- (cond (value
- (cond ((zerop value)
- ;; Timed out.
- (when call-polling-fn
- (funcall *periodic-polling-function*)))
- (t
- (call-fd-handler))))
- ((eql err sb!unix:eintr)
- ;; We did an interrupt.
- t)
- (t
- ;; One of the file descriptors is bad.
- (handler-descriptors-error)
- nil)))))))
+ (multiple-value-bind (value err)
+ (sb!unix:unix-fast-select count
+ (sb!alien:addr read-fds)
+ (sb!alien:addr write-fds)
+ nil to-sec to-usec)
+ #!+win32 (declare (ignorable err))
+ ;; Now see what it was (if anything)
+ (cond (value
+ (cond ((zerop value)
+ ;; Timed out.
+ (when call-polling-fn
+ (funcall *periodic-polling-function*)))
+ (t
+ (call-fd-handler))))
+ #!-win32
+ ((eql err sb!unix:eintr)
+ ;; We did an interrupt.
+ t)
+ (t
+ ;; One of the file descriptors is bad.
+ (handler-descriptors-error)
+ nil)))))))