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

[BKNR Commits]

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