X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftimer.impure.lisp;h=e4bd2d5e62f264437be686f69c07bd0141af5d2f;hb=b94258cdc4fc43cf83d693ee456416631ba6ab96;hp=bca8805165a195ba43d1f57d04d8e1acf5dee6ba;hpb=4c81c652cdc32faefee1bccb84c3c9a7854e3edd;p=sbcl.git diff --git a/tests/timer.impure.lisp b/tests/timer.impure.lisp index bca8805..e4bd2d5 100644 --- a/tests/timer.impure.lisp +++ b/tests/timer.impure.lisp @@ -89,7 +89,7 @@ (with-test (:name (:timer :relative) :fails-on '(and :sparc :linux) - :skipped-on :win32) + :skipped-on :win32) (let* ((has-run-p nil) (timer (make-timer (lambda () (setq has-run-p t)) :name "simple timer"))) @@ -102,7 +102,7 @@ (with-test (:name (:timer :absolute) :fails-on '(and :sparc :linux) - :skipped-on :win32) + :skipped-on :win32) (let* ((has-run-p nil) (timer (make-timer (lambda () (setq has-run-p t)) :name "simple timer"))) @@ -131,7 +131,7 @@ (with-test (:name (:timer :repeat-and-unschedule) :fails-on '(and :sparc :linux) - :skipped-on :win32) + :skipped-on :win32) (let* ((run-count 0) timer) (setq timer @@ -245,7 +245,9 @@ ;;; Used to hang occasionally at least on x86. Two bugs caused it: ;;; running out of stack (due to repeating timers being rescheduled ;;; before they ran) and dying threads were open interrupts. -(with-test (:name (:timer :parallel-unschedule) :fails-on :ppc :skipped-on '(not :sb-thread) :broken-on '(or :darwin :ppc)) +(with-test (:name (:timer :parallel-unschedule) + :skipped-on '(not :sb-thread) + :broken-on ':ppc) (let ((timer (sb-ext:make-timer (lambda () 42) :name "parallel schedulers")) (other nil)) (flet ((flop ()