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