bknr-cvs

Download

bknr-cvs@common-lisp.net

July 2009

1 participants
12 discussions

[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/taskmaster.lisp
by BKNR Commits 06 Jul '09

06 Jul '09

Revision: 4429 Author: hans URL: http://bknr.net/trac/changeset/4429 Add a comment to the HANDLER-CASE form previously added. U trunk/thirdparty/hunchentoot/taskmaster.lisp Modified: trunk/thirdparty/hunchentoot/taskmaster.lisp =================================================================== --- trunk/thirdparty/hunchentoot/taskmaster.lisp 2009-07-06 08:30:39 UTC (rev 4428) +++ trunk/thirdparty/hunchentoot/taskmaster.lisp 2009-07-06 08:47:23 UTC (rev 4429) @@ -153,6 +153,11 @@ (zerop (mod *worker-counter* *cleanup-interval*))) (when *cleanup-function* (funcall *cleanup-function*))) + ;; We are handling all conditions here as we want to make sure that + ;; the acceptor process never crashes while trying to create a + ;; worker thread. One such problem exists in + ;; GET-PEER-ADDRESS-AND-PORT which can signal socket conditions on + ;; some platforms in certain situations. (handler-case (mp:process-run-function (format nil "Hunchentoot worker \(client: ~{~A:~A~})" (multiple-value-list

1 0

[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/taskmaster.lisp
by BKNR Commits 06 Jul '09

06 Jul '09

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

1 0