From: Joshua Elsasser <joshua@elsasser.org>
Date: Wed, 23 Nov 2011 01:15:03 +0000 (-0800)
Subject: Avoid a reader error in threads.pure.lisp with non-threaded sbcl.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=feb345d07a3da8e07a455b5564006f747da4bc1e;p=sbcl.git

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