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

[Chun Tian (binghe)]

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