From 189660084f58d379043ae25d55f88062301e3020 Mon Sep 17 00:00:00 2001 From: Roger Sen Date: Wed, 28 Dec 2011 19:54:26 +0100 Subject: [PATCH] Updated hunchentoot:log-message to hunchentoot:log-message* --- limited-thread-taskmaster.asd | 2 +- src/taskmaster.lisp | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/limited-thread-taskmaster.asd b/limited-thread-taskmaster.asd index b4c3f97..6df365d 100644 --- a/limited-thread-taskmaster.asd +++ b/limited-thread-taskmaster.asd @@ -5,7 +5,7 @@ (asdf:defsystem :limited-thread-taskmaster :description "A taskmaster for Hunchentoot that limits the number of worker threads." :author "Bill St. Clair " - :version "1.0" + :version "1.1" :license "Apache" :depends-on (hunchentoot eager-future) :components diff --git a/src/taskmaster.lisp b/src/taskmaster.lisp index 5ff831a..8fbdefd 100644 --- a/src/taskmaster.lisp +++ b/src/taskmaster.lisp @@ -55,9 +55,9 @@ LIMIT must be an integer >= 2." #+ccl (setf (ccl:process-name thread) "Hunchentoot worker (idle)")))) (error (cond) - ;; need to bind *ACCEPTOR* so that LOG-MESSAGE can do its work. + ;; need to bind *ACCEPTOR* so that LOG-MESSAGE* can do its work. (let ((hunchentoot:*acceptor* (hunchentoot:taskmaster-acceptor taskmaster))) - (hunchentoot:log-message + (hunchentoot:log-message* hunchentoot:*lisp-errors-log-level* "Error while scheduling new incoming connection: ~A" cond))))))