[usocket-cvs] r483 - usocket/trunk/backend

[Chun Tian (binghe)]

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