(loop
(assert (eq wanted (subtypep type1 type2))))))))
-#+sb-thread
+;;; Disabled. Hangs occasionally at least on x86. See comment before
+;;; the next test case.
+#+(and nil sb-thread)
(with-test (:name (:timer :parallel-unschedule))
(let ((timer (sb-ext:make-timer (lambda () 42) :name "parallel schedulers"))
(other nil))
;;;; it seems plausible that the fast timers simply fill up the interrupt
;;;; queue completely. (On some occasions the process unwedges itself after
;;;; a few minutes, but not always.)
+;;;;
+;;;; FIXME: Another failure mode on Linux: recursive entries to
+;;;; RUN-EXPIRED-TIMERS blowing the stack.
+#+nil
(with-test (:name (:timer :schedule-stress))
(flet ((test ()
(let* ((slow-timers (loop for i from 1 upto 100