Revision: 4434 Author: hans URL: http://bknr.net/trac/changeset/4434
Another fix...
U trunk/thirdparty/hunchentoot/taskmaster.lisp
Modified: trunk/thirdparty/hunchentoot/taskmaster.lisp =================================================================== --- trunk/thirdparty/hunchentoot/taskmaster.lisp 2009-07-06 11:22:34 UTC (rev 4433) +++ trunk/thirdparty/hunchentoot/taskmaster.lisp 2009-07-06 11:26:02 UTC (rev 4434) @@ -132,14 +132,16 @@ ;; 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 - (bt:make-thread (lambda () - (process-connection (taskmaster-acceptor taskmaster) socket)) - :name (format nil "Hunchentoot worker (client: ~A)" (client-as-string socket))) + ;; 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)))
- (error (cond) - (log-message *lisp-errors-log-level* - "Error while creating worker thread for new incoming connection: ~A" cond)))) + (error (cond) + (log-message *lisp-errors-log-level* + "Error while creating worker thread for new incoming connection: ~A" cond)))))
;; LispWorks implementation