Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Loading…

Fix LispWorks create-request-handler-thread warning. #13

Merged
merged 2 commits into from

2 participants

This page is out of date. Refresh to see the latest.
Showing with 7 additions and 8 deletions.
  1. +7 −8 taskmaster.lisp
View
15 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)))))
Something went wrong with that request. Please try again.