[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/taskmaster.lisp

[BKNR Commits]

Revision: 4428
Author: hans
URL: http://bknr.net/trac/changeset/4428

Handle conditions signalled during worker process creation.

U   trunk/thirdparty/hunchentoot/taskmaster.lisp

Modified: trunk/thirdparty/hunchentoot/taskmaster.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/taskmaster.lisp	2009-06-30 10:13:35 UTC (rev 4427)
+++ trunk/thirdparty/hunchentoot/taskmaster.lisp	2009-07-06 08:30:39 UTC (rev 4428)
@@ -153,8 +153,12 @@
              (zerop (mod *worker-counter* *cleanup-interval*)))
     (when *cleanup-function*
       (funcall *cleanup-function*)))
-  (mp:process-run-function (format nil "Hunchentoot worker \(client: ~{~A:~A~})"
-                                   (multiple-value-list
-                                    (get-peer-address-and-port handle)))
-                           nil #'process-connection
-                           (taskmaster-acceptor taskmaster) handle))
+  (handler-case
+      (mp:process-run-function (format nil "Hunchentoot worker \(client: ~{~A:~A~})"
+                                       (multiple-value-list
+                                        (get-peer-address-and-port handle)))
+                               nil #'process-connection
+                               (taskmaster-acceptor taskmaster) handle)
+    (error (cond)
+      (log-message *lisp-errors-log-level*
+                   "Error while creating worker thread for new incoming connection: ~A" cond))))