From 5220c88e72ab4e16e7f9250a33e0ce35e41defbb Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Tue, 3 Jul 2007 12:11:42 +0000 Subject: [PATCH] 1.0.7.12: fix clos-interrupts.impure.lisp for unithreaded builds * Forgot #+sb-thread from the test case. --- tests/clos-interrupts.impure.lisp | 18 ++++++++++-------- version.lisp-expr | 2 +- 2 files changed, 11 insertions(+), 9 deletions(-) diff --git a/tests/clos-interrupts.impure.lisp b/tests/clos-interrupts.impure.lisp index 6195449..8935ab7 100644 --- a/tests/clos-interrupts.impure.lisp +++ b/tests/clos-interrupts.impure.lisp @@ -49,14 +49,16 @@ (*interrupting* t)) ;; Test both interrupting yourself and using another thread ;; for to interrupting. - (write-line "interrupt-1") - (sb-thread:join-thread (sb-thread:make-thread - (lambda () - (sb-thread:interrupt-thread - self - (lambda () - (compute-test 1 2)))))) - (write-line "interrupt-2") + #+sb-thread + (progn + (write-line "/interrupt-other") + (sb-thread:join-thread (sb-thread:make-thread + (lambda () + (sb-thread:interrupt-thread + self + (lambda () + (compute-test 1 2))))))) + (write-line "/interrupt-self") (sb-thread:interrupt-thread self (lambda () (compute-test 1 2)))))) (defvar *interrupted-gfs* nil) diff --git a/version.lisp-expr b/version.lisp-expr index dc8e058..31d5ac9 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.7.11" +"1.0.7.12" -- 1.7.10.4