summaryrefslogtreecommitdiff
path: root/lisp/queue
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/queue')
-rw-r--r--lisp/queue/queue.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/queue/queue.lisp b/lisp/queue/queue.lisp
index ecd517f..47b9e65 100644
--- a/lisp/queue/queue.lisp
+++ b/lisp/queue/queue.lisp
@@ -12,7 +12,7 @@
(defvar *queue-mutex* (sb-thread:make-mutex))
(defmacro with-error-handled-thread ((thread-name level) &body body)
- "`level' is either :warning or :critical."
+ (declare (ignore level))
(let ((thread-fn (intern (string-upcase thread-name) *package*)))
`(progn
(defun ,thread-fn ()