Author: ctian Date: Thu Nov 10 17:40:53 2011 New Revision: 678
Log: [server] adding *remote-host* *remote-port* to socket-server stream handler functions (suggested by Matthew Curry)
Modified: usocket/branches/0.5.x/server.lisp
Modified: usocket/branches/0.5.x/server.lisp ============================================================================== --- usocket/branches/0.5.x/server.lisp Sat Oct 1 07:52:12 2011 (r677) +++ usocket/branches/0.5.x/server.lisp Thu Nov 10 17:40:53 2011 (r678) @@ -80,7 +80,8 @@ &key element-type multi-threading) (let ((real-function #'(lambda (client-socket &rest arguments) (unwind-protect - (apply function (socket-stream client-socket) arguments) + (multiple-value-bind (*remote-host* *remote-port*) (get-peer-name client-socket) + (apply function (socket-stream client-socket) arguments)) (close (socket-stream client-socket)) (socket-close client-socket) nil))))