From: Lutz Euler <lutz.euler@freenet.de>
Date: Sat, 2 Mar 2013 18:52:19 +0000 (+0100)
Subject: Silence a warning from the test harness for unthreaded builds.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a4a5e7a1bb713c5ae0390cde10e4c917a567e1a7;p=sbcl.git

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.
---

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