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