Author: ctian Date: Tue Mar 29 09:31:40 2011 New Revision: 602
Log: SOCKET-SERVER return a second value to indicate the created underlying usocket object when running in new thread mode. This make server debugging work easier.
Modified: usocket/branches/0.5.x/server.lisp
Modified: usocket/branches/0.5.x/server.lisp ============================================================================== --- usocket/branches/0.5.x/server.lisp (original) +++ usocket/branches/0.5.x/server.lisp Tue Mar 29 09:31:40 2011 @@ -31,8 +31,8 @@ :timeout timeout :max-buffer-size max-buffer-size))))) (if in-new-thread - (spawn-thread "USOCKET Server" #'real-call) - (real-call))))) + (values (spawn-thread "USOCKET Server" #'real-call) socket) + (real-call)))))
(defvar *remote-host*) (defvar *remote-port*)