Author: ctian
Date: Wed Dec 8 03:17:40 2010
New Revision: 572
Log:
LispWorks: SOCKET-CONNECT's TIMEOUT argument should be used to set up UDP read timeout (RCVTIMEO), fixes for other platforms still needed.
Modified:
usocket/trunk/backend/lispworks.lisp
Modified: usocket/trunk/backend/lispworks.lisp
==============================================================================
--- usocket/trunk/backend/lispworks.lisp (original)
+++ usocket/trunk/backend/lispworks.lisp Wed Dec 8 03:17:40 2010
@@ -300,9 +300,11 @@
(if (and host port)
(connect-to-udp-server (host-to-hostname host) port
:local-address (and local-host (host-to-hostname local-host))
- :local-port local-port)
+ :local-port local-port
+ :read-timeout timeout)
(open-udp-socket :local-address (and local-host (host-to-hostname local-host))
- :local-port local-port))
+ :local-port local-port
+ :read-timeout timeout))
:connected-p t)))
(hcl:flag-special-free-action usocket)
usocket))))