From 989611262cab49de9725b79e41863dac7a2a486b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Thu, 10 Nov 2016 19:42:02 +0100 Subject: [PATCH] tests: add regression test for rwlock bug #303 --- src/tests/regressions/multiprocessing.lsp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/tests/regressions/multiprocessing.lsp b/src/tests/regressions/multiprocessing.lsp index 20d6b6291..7278725bd 100644 --- a/src/tests/regressions/multiprocessing.lsp +++ b/src/tests/regressions/multiprocessing.lsp @@ -538,3 +538,7 @@ creating stray processes." (is (mp:mailbox-empty-p mbox))))) +;;; Date: 2016-11-10 +;;; Description: CLASS-OF called on rwlock crashed lisp process +(test rwlock + (finishes (class-of (mp:make-rwlock))))