[usocket-cvs] r477 - usocket/branches/experimental-udp

[Chun Tian (binghe)]

Author: ctian
Date: Fri Nov 14 15:51:32 2008
New Revision: 477

Log:
[udp] bugfix for SCL, make sure server thread can exit when (QUIT) called, otherwise SCL will hang.

Modified:
   usocket/branches/experimental-udp/server.lisp

Modified: usocket/branches/experimental-udp/server.lisp
==============================================================================
--- usocket/branches/experimental-udp/server.lisp	(original)
+++ usocket/branches/experimental-udp/server.lisp	Fri Nov 14 15:51:32 2008
@@ -38,5 +38,8 @@
                                   (when (minusp n)
                                     (error "send error: ~A~%" n))))))
 			(error "receive error: ~A" n))))
+                  #+scl (when thread:*quitting-lisp*
+                          (return))
                   #+(and cmu mp) (mp:process-yield))))
-      (socket-close socket))))
+      (socket-close socket)
+      (values))))