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.