Revision: 4435 Author: hans URL: http://bknr.net/trac/changeset/4435 Remote debugging. U trunk/thirdparty/hunchentoot/taskmaster.lisp Modified: trunk/thirdparty/hunchentoot/taskmaster.lisp =================================================================== --- trunk/thirdparty/hunchentoot/taskmaster.lisp 2009-07-06 11:26:02 UTC (rev 4434) +++ trunk/thirdparty/hunchentoot/taskmaster.lisp 2009-07-06 12:02:30 UTC (rev 4435) @@ -132,14 +132,14 @@ ;; worker thread. One such problem exists in ;; GET-PEER-ADDRESS-AND-PORT which can signal socket conditions on ;; some platforms in certain situations. - ;; Need to bind *ACCEPTOR* so that LOG-MESSAGE can do its work. - (let ((*acceptor* (taskmaster-acceptor taskmaster))) - (handler-case - (bt:make-thread (lambda () - (process-connection *acceptor* socket)) - :name (format nil "Hunchentoot worker \(client: ~A)" (client-as-string socket))) + (handler-case + (bt:make-thread (lambda () + (process-connection (taskmaster-acceptor taskmaster) socket)) + :name (format nil "Hunchentoot worker \(client: ~A)" (client-as-string socket))) - (error (cond) + (error (cond) + ;; Need to bind *ACCEPTOR* so that LOG-MESSAGE can do its work. + (let ((*acceptor* (taskmaster-acceptor taskmaster))) (log-message *lisp-errors-log-level* "Error while creating worker thread for new incoming connection: ~A" cond)))))