[bknr-cvs] hans changed trunk/thirdparty/usocket/

[BKNR Commits]

Revision: 4173
Author: hans
URL: http://bknr.net/trac/changeset/4173

update from upstream
_U  trunk/thirdparty/usocket/
U   trunk/thirdparty/usocket/backend/sbcl.lisp


Property changes on: trunk/thirdparty/usocket
___________________________________________________________________
Name: piston:local-revision
   - 4127
   + 4172
Name: piston:remote-revision
   - 481
   + 483

Modified: trunk/thirdparty/usocket/backend/sbcl.lisp
===================================================================
--- trunk/thirdparty/usocket/backend/sbcl.lisp	2009-01-28 11:18:42 UTC (rev 4172)
+++ trunk/thirdparty/usocket/backend/sbcl.lisp	2009-01-30 14:42:21 UTC (rev 4173)
@@ -1,4 +1,4 @@
-;;;; $Id: sbcl.lisp 478 2008-11-17 12:10:30Z ctian $
+;;;; $Id: sbcl.lisp 483 2008-12-24 03:06:52Z ctian $
 ;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/trunk/backend/sbcl.lisp $
 
 ;;;; See LICENSE for licensing information.
@@ -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)))