[usocket-cvs] r602 - usocket/branches/0.5.x

[Chun Tian (binghe)]

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