Comment 4 for bug 1038034

Attached a variant of Jan's version of the wait-on-semaphore test which can be run as a script.
$ cd tests
$ while sbcl --script wait-on-semaphore.script.lisp ; do true ; done

Often the problem is triggered within the first 10 runs.