
9 Feb
2009
9 Feb
'09
11:47 a.m.
Revision: 4202 Author: edi URL: http://bknr.net/trac/changeset/4202 Not for LispWorks U trunk/thirdparty/hunchentoot/connection-manager.lisp Modified: trunk/thirdparty/hunchentoot/connection-manager.lisp =================================================================== --- trunk/thirdparty/hunchentoot/connection-manager.lisp 2009-02-09 11:30:37 UTC (rev 4201) +++ trunk/thirdparty/hunchentoot/connection-manager.lisp 2009-02-09 11:47:33 UTC (rev 4202) @@ -127,6 +127,7 @@ nil #'process-connection (server manager) handle)) +#-:lispworks (defun client-as-string (socket) (let ((address (usocket:get-peer-address socket)) (port (usocket:get-peer-port socket)))