Author: ctian Date: Mon Jan 4 02:20:24 2010 New Revision: 509

Log: OpenMCL bugfix: socket-connect scales the timeout value incorrectly, thanks to James Anderson james.anderson@setf.de

Modified: usocket/trunk/backend/openmcl.lisp

Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Mon Jan 4 02:20:24 2010 @@ -85,8 +85,7 @@ :format (to-format element-type) :deadline deadline :nodelay nodelay - :connect-timeout (and timeout - (* timeout internal-time-units-per-second))))) + :connect-timeout timeout))) (openmcl-socket:socket-connect mcl-sock) (make-stream-socket :stream mcl-sock :socket mcl-sock))))