(let ((stopped-threads (sb-thread::waitqueue-data lock)))
(when stopped-threads
(format stream "~{~&Thread ~A suspended~}~%" stopped-threads))))
(let ((stopped-threads (sb-thread::waitqueue-data lock)))
(when stopped-threads
(format stream "~{~&Thread ~A suspended~}~%" stopped-threads))))