[usocket-cvs] r477 - usocket/branches/experimental-udp - usocket-cvs@common-lisp.net - mailman3.common-lisp.net

14 Nov 2008

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

    