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