Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv30308/tests

Modified Files:
	clos-interrupts.impure.lisp 
Log Message:
1.0.7.12: fix clos-interrupts.impure.lisp for unithreaded builds

 * Forgot #+sb-thread from the test case.


Index: clos-interrupts.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/clos-interrupts.impure.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- clos-interrupts.impure.lisp	21 Jun 2007 15:09:10 -0000	1.1
+++ clos-interrupts.impure.lisp	3 Jul 2007 12:11:42 -0000	1.2
@@ -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)

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv30308

Modified Files:
	version.lisp-expr 
Log Message:
1.0.7.12: fix clos-interrupts.impure.lisp for unithreaded builds

 * Forgot #+sb-thread from the test case.


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.3496
retrieving revision 1.3497
diff -u -d -r1.3496 -r1.3497
--- version.lisp-expr	3 Jul 2007 10:21:21 -0000	1.3496
+++ version.lisp-expr	3 Jul 2007 12:11:42 -0000	1.3497
@@ -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"

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv18255/tests

Modified Files:
	threads.pure.lisp 
Log Message:
1.0.7.11: fix test WITHOUT-INTERRUPTS+GET-MUTEX
 * Incorrect use of JOIN-THREAD.


Index: threads.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/threads.pure.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- threads.pure.lisp	1 Jul 2007 15:03:36 -0000	1.2
+++ threads.pure.lisp	3 Jul 2007 10:21:22 -0000	1.3
@@ -58,10 +58,11 @@
             :fails-on :sb-lutex)
   (let* ((lock (make-mutex))
          (foo (get-mutex lock))
+         (bar nil)
          (thread (make-thread (lambda ()
                                 (sb-sys:without-interrupts
-                                  (with-mutex (lock)
-                                    :fini))))))
+                                    (with-mutex (lock)
+                                      (setf bar t)))))))
     (sleep 1)
     (assert (thread-alive-p thread))
     (terminate-thread thread)
@@ -70,4 +71,5 @@
     (release-mutex lock)
     (sleep 1)
     (assert (not (thread-alive-p thread)))
-    (assert (eq :fini (join-thread thread)))))
+    (assert (eq :aborted (join-thread thread :default :aborted)))
+    (assert bar)))

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv18255

Modified Files:
	version.lisp-expr 
Log Message:
1.0.7.11: fix test WITHOUT-INTERRUPTS+GET-MUTEX
 * Incorrect use of JOIN-THREAD.


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.3495
retrieving revision 1.3496
diff -u -d -r1.3495 -r1.3496
--- version.lisp-expr	2 Jul 2007 17:48:52 -0000	1.3495
+++ version.lisp-expr	3 Jul 2007 10:21:21 -0000	1.3496
@@ -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.10"
+"1.0.7.11"