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

[BKNR Commits]

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