[bknr-cvs] hans changed deployed/bos/thirdparty/hunchentoot/server.lisp

[BKNR Commits]

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)