From 2fff2c5484fbe8b72f84c15d7f37016d649a01b4 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Thu, 27 Feb 2003 03:50:51 +0000 Subject: [PATCH] Add another eql/member combination test. --- ansi-tests/subtypep-member.lsp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/ansi-tests/subtypep-member.lsp b/ansi-tests/subtypep-member.lsp index 24ae4bc5..d143ee7a 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) -- GitLab