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