Commit 86e7efbf authored by Chun Tian (binghe)'s avatar Chun Tian (binghe)
Browse files

Fixed building in SBCL

parent 203ee42e
......@@ -513,7 +513,7 @@ happen. Use with care."
(multiple-value-bind
(secs musecs)
(split-timeout (or timeout 1))
(let* ((wait-list (wait-list-%wait sockets)))
(let* ((wait-list (wait-list-%wait sockets))
count err)
(if (null wait-list)
(setq count 0) ;; no need to call
......
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