better reader-errors for COMPILE-FILE

[sbcl.git] / tests / timer.impure.lisp

diff --git a/tests/timer.impure.lisp b/tests/timer.impure.lisp
index bca8805..e4bd2d5 100644 (file)
--- 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 ()