diff --git a/ansi-tests/subtypep-member.lsp b/ansi-tests/subtypep-member.lsp index 24ae4bc5afe58865bbb7112448c43eb0d12827b5..d143ee7a0f142c85421b3ea18ee8c9587d992752 100644 --- a/ansi-tests/subtypep-member.lsp +++ b/ansi-tests/subtypep-member.lsp @@ -174,3 +174,6 @@ (check-all-not-subtypep '(satisfies symbolp) '(member a b c d)) nil) +(deftest subtypep.member.36 + (check-disjointness '(eql a) '(or (member b c d) (eql e))) + nil)