Unverified Commit 839f7486 authored by Chun Tian (binghe)'s avatar Chun Tian (binghe) Committed by GitHub
Browse files

Merge pull request #56 from genworks/master

lowercased Z in ccl::rletZ
parents b64586ab 520aaea0
......@@ -31,7 +31,7 @@
;; wait for more than one socket-or-fd
(defun input-available-p (sockets &optional ticks-to-wait)
(ccl::rletZ ((tv :timeval))
(ccl::rletz ((tv :timeval))
(ccl::ticks-to-timeval ticks-to-wait tv)
;;### The trickery below can be moved to the wait-list now...
(ccl::%stack-block ((infds ccl::*fd-set-size*))
......@@ -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