[usocket-cvs] r483 - usocket/trunk/backend - usocket-cvs@common-lisp.net - mailman3.common-lisp.net

24 Dec 2008

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)))

    