Extend use of the linkage table to static symbols

[sbcl.git] / contrib / sb-concurrency / tests / test-mailbox.lisp

diff --git a/contrib/sb-concurrency/tests/test-mailbox.lisp b/contrib/sb-concurrency/tests/test-mailbox.lisp
index db4b221..d38459b 100644 (file)
--- a/contrib/sb-concurrency/tests/test-mailbox.lisp
+++ b/contrib/sb-concurrency/tests/test-mailbox.lisp
@@ -38,6 +38,7 @@
   (3 nil (#\1 #\2 #\3) nil)
   (0 t nil t))
 
+#+sb-thread
 (deftest mailbox-timeouts
     (let* ((mbox (make-mailbox))
            (writers (loop for i from 1 upto 20
@@ -56,12 +57,12 @@
       (apply #'+ (mapcar #'join-thread readers)))
   1000)
 
-;;; FIXME: Several tests disabled on Darwin and SunOS due to hangs.
+;;; FIXME: Several tests disabled on SunOS due to hangs.
 ;;;
-;;; On Darwin at least the issues don't seem to have anything to do with
-;;; mailboxes per-se, but are rather related to our usage of signal-unsafe
+;;; The issues don't seem to have anything to do with mailboxes
+;;; per-se, but are rather related to our usage of signal-unsafe
 ;;; pthread functions inside signal handlers.
-#+(and sb-thread (not (or darwin sunos)))
+#+(and sb-thread (not sunos))
 (progn
 
 ;; Dummy struct for ATOMIC-INCF to work.
@@ -194,10 +195,10 @@
   (:timeouts . 0))
 
 (deftest mailbox.multiple-producers-multiple-consumers
-    (test-mailbox-producers-consumers :n-senders 100
-                                      :n-receivers 100
+    (test-mailbox-producers-consumers :n-senders 50
+                                      :n-receivers 50
                                       :n-messages 1000)
-  (:received . 100000)
+  (:received . 50000)
   (:garbage  . 0)
   (:errors   . 0)
   (:timeouts . 0))
@@ -205,8 +206,8 @@
 (deftest mailbox.interrupts-safety.1
     (multiple-value-bind (received garbage errors timeouts)
         (test-mailbox-producers-consumers
-         :n-senders 100
-         :n-receivers 100
+         :n-senders 50
+         :n-receivers 50
          :n-messages 1000
          :interruptor #'(lambda (threads &aux (n (length threads)))
                           ;; 99 so even in the unlikely case that only