components/runtime/sbcl/patches/01-concurrency.patch

   1 https://github.com/gentoo/gentoo/blob/master/dev-lisp/sbcl/files/concurrency-test.patch
   2
   3 --- sbcl-1.3.6/contrib/sb-concurrency/tests/test-frlock.lisp.~1~        2016-05-28 17:07:52.000000000 +0300
   4 +++ sbcl-1.3.6/contrib/sb-concurrency/tests/test-frlock.lisp    2016-06-23 13:17:52.746843294 +0300
   5 @@ -22,9 +22,9 @@
   6    #+openbsd 0.01
   7    #-openbsd 0.0001)
   8
   9 -(defun test-frlocks (&key (reader-count 100) (read-count 1000000)
  10 +(defun test-frlocks (&key (reader-count 50) (read-count 500000)
  11                            (outer-read-pause 0) (inner-read-pause 0)
  12 -                          (writer-count 10) (write-count (/ 1 *minimum-sleep*))
  13 +                          (writer-count 10) (write-count 5000)
  14                            (outer-write-pause *minimum-sleep*) (inner-write-pause 0))
  15      (let ((rw (make-frlock))
  16            (a 0)
  17 @@ -87,7 +87,7 @@
  18  #+sb-thread
  19  (deftest* (frlock.1 :fails-on :win32)
  20      (handler-case
  21 -        (sb-ext:with-timeout 60 (test-frlocks))
  22 +        (sb-ext:with-timeout 240 (test-frlocks))
  23        (sb-ext:timeout (c)
  24          (error "~A" c)))
  25    nil