From a4a5e7a1bb713c5ae0390cde10e4c917a567e1a7 Mon Sep 17 00:00:00 2001 From: Lutz Euler Date: Sat, 2 Mar 2013 19:52:19 +0100 Subject: [PATCH] Silence a warning from the test harness for unthreaded builds. "The variable THREADS is defined but never used.", so, in WITH-TEST only bind THREADS under #+SB-THREAD as all places where this variable is used are guarded by this feature expression, too. --- tests/test-util.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/test-util.lisp b/tests/test-util.lisp index 20b2c54..d6246bf 100644 --- a/tests/test-util.lisp +++ b/tests/test-util.lisp @@ -39,7 +39,7 @@ (defmacro with-test ((&key fails-on broken-on skipped-on name) &body body) (let ((block-name (gensym)) - (threads (gensym "THREADS"))) + #+sb-thread (threads (gensym "THREADS"))) `(progn (start-test) (cond -- 1.7.10.4