Revision: 4408 Author: hans URL: http://bknr.net/trac/changeset/4408
guard against ECONNABORTED in accept calls U deployed/bos/thirdparty/hunchentoot/server.lisp
Modified: deployed/bos/thirdparty/hunchentoot/server.lisp =================================================================== --- deployed/bos/thirdparty/hunchentoot/server.lisp 2009-05-20 11:07:47 UTC (rev 4407) +++ deployed/bos/thirdparty/hunchentoot/server.lisp 2009-05-20 13:56:06 UTC (rev 4408) @@ -399,7 +399,11 @@ (usocket:wait-for-input listener :timeout +new-connection-wait-time+))) ((server-shutdown-p server)) (when new-connection-p - (let ((client-connection (usocket:socket-accept listener))) + (let ((client-connection + (handler-case + (usocket:socket-accept listener) + ;; ignore condition + (usocket:connection-aborted-error () nil)))) (when client-connection (set-timeouts client-connection (server-read-timeout server)