Style fix
authorStelian Ionescu <sionescu@cddr.org>
Sat, 16 Mar 2013 17:22:09 +0000 (18:22 +0100)
committerStelian Ionescu <sionescu@cddr.org>
Sat, 16 Mar 2013 17:22:09 +0000 (18:22 +0100)
test/bordeaux-threads-test.lisp

index ec3d819..e400910 100644 (file)
@@ -43,12 +43,12 @@ Distributed under the MIT license (see LICENSE file)
                                 (setf (car box)
                                       (catch 'new-thread
                                         (sleep 60)
-                                        0))))))
+                                        'not-interrupted))))))
     (sleep 1)
     (interrupt-thread thread (lambda ()
-                               (throw 'new-thread 1)))
+                               (throw 'new-thread 'interrupted)))
     (join-thread thread)
-    (is (eql 1 (car box)))))
+    (is (eql 'interrupted (car box)))))
 
 (test should-lock-without-contention
   (with-fixture using-lock ()