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 @@ ...@@ -31,7 +31,7 @@
;; wait for more than one socket-or-fd ;; wait for more than one socket-or-fd
(defun input-available-p (sockets &optional ticks-to-wait) (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) (ccl::ticks-to-timeval ticks-to-wait tv)
;;### The trickery below can be moved to the wait-list now... ;;### The trickery below can be moved to the wait-list now...
(ccl::%stack-block ((infds ccl::*fd-set-size*)) (ccl::%stack-block ((infds ccl::*fd-set-size*))
......
...@@ -575,7 +575,7 @@ happen. Use with care." ...@@ -575,7 +575,7 @@ happen. Use with care."
(sb-alien:addr rfds) nil nil (sb-alien:addr rfds) nil nil
(when timeout secs) (when timeout musecs)))) (when timeout secs) (when timeout musecs))))
(if (null count) ; something wrong in #'sb-unix:unix-fast-select (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))) (error (map-errno-error err)))
(when (< 0 count) ; do nothing if count = 0 (when (< 0 count) ; do nothing if count = 0
;; process the result... ;; 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