Avoid a reader error in threads.pure.lisp with non-threaded sbcl.

diff --git a/tests/threads.pure.lisp b/tests/threads.pure.lisp
index fb21822..1545237 100644 (file)
--- a/tests/threads.pure.lisp
+++ b/tests/threads.pure.lisp
@@ -515,6 +515,7 @@
                      (signal-semaphore sem))
                    ;; KLUDGE: Prevent interrupts after this point from
                    ;; unwinding us, so that we can reason about the counts.
+                   #+sb-thread
                    (sb-thread::block-deferrable-signals))))))
       (let* ((threads (loop for i from 1 upto 100
                             collect (make-thread #'critical :name (format nil "T~A" i))))