Author: ctian Date: Wed Dec 24 03:06:52 2008 New Revision: 483
Log: [sbcl] fix a bug which cause WAIT-FOR-INPUT doesn't wait forever when giving (:TIMEOUT NIL), thanks to Chaitanya Gupta mail@chaitanyagupta.com
Modified: usocket/trunk/backend/sbcl.lisp
Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Wed Dec 24 03:06:52 2008 @@ -353,7 +353,7 @@ (1+ (reduce #'max (wait-list-%wait sockets) :key #'sb-bsd-sockets:socket-file-descriptor)) (sb-alien:addr rfds) nil nil - (when timeout secs) musecs) + (when timeout secs) (when timeout musecs)) (if (null count) (unless (= err sb-unix:EINTR) (error (map-errno-error err)))