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