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