From 3464fe2187f99d04d2fa0c89d8805198d1139bbb Mon Sep 17 00:00:00 2001 From: Nico de Jager Date: Wed, 23 Nov 2011 15:16:22 +0200 Subject: [PATCH] Fix LispWorks create-request-handler-thread warning. --- taskmaster.lisp | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/taskmaster.lisp b/taskmaster.lisp index 0d856c3..3a4be80 100644 --- a/taskmaster.lisp +++ b/taskmaster.lisp @@ -415,11 +415,10 @@ is set up via PROCESS-REQUEST." #+:lispworks (defmethod create-request-handler-thread ((taskmaster one-thread-per-connection-taskmaster) socket) - (flet ((process (taskmaster sock) - (unwind-protect - (process-connection (taskmaster-acceptor taskmaster) socket) - (decrement-taskmaster-request-count taskmaster)))) - (mp:process-run-function (format nil "hunchentoot-worker~{-~A:~A~})" - (multiple-value-list - (get-peer-address-and-port socket))) - nil #'process taskmaster socket))) + (mp:process-run-function (format nil "hunchentoot-worker~{-~A:~A~})" + (multiple-value-list (get-peer-address-and-port socket))) + nil + (lambda () + (unwind-protect + (process-connection (taskmaster-acceptor taskmaster) socket) + (decrement-taskmaster-request-count taskmaster))))) -- 2.11.4.GIT