- (unless (zerop (sb-unix:unix-fast-select
- (1+ fd) (sb-alien:addr read-fds) nil nil
- seconds microseconds))
- (if (peek-char nil (car socket) nil)
- :input
- :eof)))))
+ (let ((num-fds-changed
+ (sb-unix:unix-fast-select
+ (1+ fd) (sb-alien:addr read-fds) nil nil
+ seconds microseconds)))
+ (unless (or (not num-fds-changed) (zerop num-fds-changed))
+ (if (peek-char nil (car socket) nil)
+ :input
+ :eof))))))