Author: hhubner Date: Wed Apr 23 17:24:15 2008 New Revision: 334 Modified: usocket/branches/hans/README usocket/branches/hans/usocket.lisp Log: Add set-socket-timeouts stub and documentation. Modified: usocket/branches/hans/README ============================================================================== --- usocket/branches/hans/README (original) +++ usocket/branches/hans/README Wed Apr 23 17:24:15 2008 @@ -95,8 +95,6 @@ the return value of which satisfies the normal stream interface - - Errors: - address-in-use-error - address-not-available-error Modified: usocket/branches/hans/usocket.lisp ============================================================================== --- usocket/branches/hans/usocket.lisp (original) +++ usocket/branches/hans/usocket.lisp Wed Apr 23 17:24:15 2008 @@ -159,6 +159,13 @@ "Returns the IP address and port of the peer the socket is connected to as values.")) +(defgeneric set-socket-timeouts (socket read-timeout write-timeout) + (:documentation "Set the SO_RCVTIMEO and SO_SNDTIMEO socket options +for the SOCKET. Both READ-TIMEOUT and WRITE-TIMEOUT are speficied in +\(fractional) seconds.") + (:method ((usocket usocket) read-timeout write-timeout) + (set-socket-timeouts (socket usocket) read-timeout write-timeout))) + (defmacro with-connected-socket ((var socket) &body body) "Bind `socket' to `var', ensuring socket destruction on exit.