From feb345d07a3da8e07a455b5564006f747da4bc1e Mon Sep 17 00:00:00 2001 From: Joshua Elsasser Date: Tue, 22 Nov 2011 17:15:03 -0800 Subject: [PATCH] Avoid a reader error in threads.pure.lisp with non-threaded sbcl. --- tests/threads.pure.lisp | 1 + 1 file changed, 1 insertion(+) 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)))) -- 1.7.10.4