Commit 520aaea0 authored by Dave Cooper's avatar Dave Cooper
Browse files

make it work with readtable-case of :invert.

parent 678bca25
......@@ -575,7 +575,7 @@ happen. Use with care."
(sb-alien:addr rfds) nil nil
(when timeout secs) (when timeout musecs))))
(if (null count) ; something wrong in #'sb-unix:unix-fast-select
(unless (= err sb-unix:EINTR)
(unless (= err sb-unix:eintr)
(error (map-errno-error err)))
(when (< 0 count) ; do nothing if count = 0
;; process the result...
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment