sbcl sb-concurrency tests sometimes fail

[ivan]

Issue description

sbcl's sb-concurrency tests sometimes fail. This was discussed in #42826 but not fixed (I doubt "1.4.10 seems to lack this problem" is true, because the issue is present in 1.4.13.)

full log: 4rkx16znsdyvyhkf3r4phcydxw67kg1y-sbcl-1.4.13.drv.txt

relevant failure:

<3>Doing 25 pending tests of 25 tests total.
<3>Test SB-CONCURRENCY-TEST::FRLOCK.1 failed
<3>Form: (HANDLER-CASE
<3>       (WITH-TIMEOUT 10
<3>         (SB-CONCURRENCY-TEST::TEST-FRLOCKS))
<3>       (TIMEOUT (SB-CONCURRENCY-TEST::C) (ERROR "~A" SB-CONCURRENCY-TEST::C)))
<3>Expected values: NIL
<3>                 NIL
<3>Actual value: #<SIMPLE-ERROR "~A" {1003F20CE3}>.
<3> SB-CONCURRENCY-TEST::QUEUE.1 SB-CONCURRENCY-TEST::QUEUE.2
<3> SB-CONCURRENCY-TEST::QUEUE.3 SB-CONCURRENCY-TEST::QUEUE.4
<3> SB-CONCURRENCY-TEST::QUEUE.5 SB-CONCURRENCY-TEST::QUEUE.T.1
<3> SB-CONCURRENCY-TEST::QUEUE.T.2 SB-CONCURRENCY-TEST::QUEUE.T.3
<3> SB-CONCURRENCY-TEST::MAILBOX-TRIVIA.1 SB-CONCURRENCY-TEST::MAILBOX-TRIVIA.2
<3> SB-CONCURRENCY-TEST::MAILBOX-TRIVIA.3 SB-CONCURRENCY-TEST::MAILBOX-TIMEOUTS
<3> SB-CONCURRENCY-TEST::MAILBOX.SINGLE-PRODUCER-SINGLE-CONSUMER
<3> SB-CONCURRENCY-TEST::MAILBOX.SINGLE-PRODUCER-MULTIPLE-CONSUMERS
<3> SB-CONCURRENCY-TEST::MAILBOX.MULTIPLE-PRODUCERS-SINGLE-CONSUMER
<3> SB-CONCURRENCY-TEST::MAILBOX.MULTIPLE-PRODUCERS-MULTIPLE-CONSUMERS
<3> SB-CONCURRENCY-TEST::MAILBOX.INTERRUPTS-SAFETY.1 SB-CONCURRENCY-TEST::GATE.0
<3> SB-CONCURRENCY-TEST::GATE.1 SB-CONCURRENCY-TEST::GATE.2
<3> SB-CONCURRENCY-TEST::GATE-DEADLINE.1 SB-CONCURRENCY-TEST::GATE-DEADLINE.2
<3> SB-CONCURRENCY-TEST::GATE-TIMEOUT.1 SB-CONCURRENCY-TEST::GATE-TIMEOUT.2
<3>1 out of 25 total tests failed: SB-CONCURRENCY-TEST::FRLOCK.1.
<3>WARNING: ignoring expected failures in test-op
<3>Unhandled SIMPLE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING
<3>                                    {10005185B3}>:
<3>  test-op failed with unexpected failures
<3>
<3>Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005185B3}>
<3>0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SIMPLE-ERROR "test-op failed with unexpected failures" {10064064A3}> #<unused argument> :QUIT T)
<3>1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<SIMPLE-ERROR "test-op failed with unexpected failures" {10064064A3}>)
<3>2: (INVOKE-DEBUGGER #<SIMPLE-ERROR "test-op failed with unexpected failures" {10064064A3}>)
<3>3: (ERROR "test-op failed with unexpected failures")
<3>4: ((:METHOD ASDF/ACTION:PERFORM (ASDF/LISP-ACTION:TEST-OP (EQL (ASDF/SYSTEM:FIND-SYSTEM "sb-concurrency/tests")))) #<unused argument> #<unused argument>) [fast-method]
<3>5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "sb-concurrency/tests">)
<3>6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
<3>7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "sb-concurrency/tests">) [fast-method]
<3>8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1001FCDCD3}>) [fast-method]
<3>9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
<3>10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1001FCDCD3}>) [fast-method]
<3>11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "sb-concurrency"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
<3>12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "sb-concurrency">)
<3>13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
<3>14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "sb-concurrency">) [fast-method]
<3>15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:TEST-OP "sb-concurrency")
<3>16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
<3>17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:TEST-OP "sb-concurrency") [fast-method]
<3>18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1004B7813B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
<3>19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
<3>20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10037FCAFB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
<3>21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:TEST-OP "sb-concurrency") [fast-method]
<3>22: (ASDF/OPERATE:TEST-SYSTEM "sb-concurrency")
<3>23: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF/INTERFACE::TEST-ASDF-CONTRIB "sb-concurrency") #<NULL-LEXENV>)
<3>24: (EVAL (ASDF/INTERFACE::TEST-ASDF-CONTRIB "sb-concurrency"))
<3>25: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:LOAD . "../asdf-stub.lisp") (:EVAL . "(asdf::test-asdf-contrib \"sb-concurrency\")")))
<3>26: (SB-IMPL::TOPLEVEL-INIT)
<3>27: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
<3>28: ((FLET "WITHOUT-INTERRUPTS-BODY-27" :IN SAVE-LISP-AND-DIE))
<3>29: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))
<3>
<3>unhandled condition in --disable-debugger mode, quitting
<3>;
<3>; compilation unit aborted
<3>;   caught 1 fatal ERROR condition
<3>make: *** [../asdf-module.mk:41: test] Error 1
<3>make: Leaving directory '/build/sbcl-1.4.13/contrib/sb-concurrency'

<3>WARNING! Some of the contrib modules did not build successfully or pass
<3>their self-tests. Failed contribs:"
<3>  sb-concurrency
<3>

Steps to reproduce

Run a build of sbcl-1.4.13 on a busy Hydra machine and hope that the tests fail.

Technical details

Please run nix-shell -p nix-info --run "nix-info -m" and paste the
results.

# nix-shell -p nix-info --run "nix-info -m"
 - system: `"x86_64-linux"`
 - host os: `Linux 4.19.7, NixOS, 19.03.git.3f179d2 (Koi)`
 - multi-user?: `yes`
 - sandbox: `yes`
 - version: `nix-env (Nix) 2.1.3`
 - channels(root): `""`
 - nixpkgs: `/var/nixpkgs`

[stale]

Thank you for your contributions.

This has been automatically marked as stale because it has had no activity for 180 days.

If this is still important to you, we ask that you leave a comment below. Your comment can be as simple as "still important to me". This lets people see that at least one person still cares about this. Someone will have to do this at most twice a year if there is no other activity.

Here are suggestions that might help resolve this more quickly:

1. Search for maintainers and people that previously touched the related code and @ mention them in a comment.
2. Ask on the NixOS Discourse.
3. Ask on the #nixos channel on irc.freenode.net.