(t1 (sb-thread:make-thread (test m1 m2 s1 s2) :name "T1"))
(t2 (sb-thread:make-thread (test m2 m1 s2 s1) :name "T2")))
;; One will deadlock, and the other will then complete normally.
(t1 (sb-thread:make-thread (test m1 m2 s1 s2) :name "T1"))
(t2 (sb-thread:make-thread (test m2 m1 s2 s1) :name "T2")))
;; One will deadlock, and the other will then complete normally.