From: Andrea Corallo <akrl@sdf.org>
Date: Tue, 13 Apr 2021 08:38:14 +0000 (+0200)
Subject: * Fix two comp-cstr tests
X-Git-Tag: emacs-28.0.90~2727^2~22
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d23f19e7d5ff8a1ec1a188dcd530c185029d1f8;p=emacs.git

* Fix two comp-cstr tests

	* test/lisp/emacs-lisp/comp-cstr-tests.el
	(comp-cstr-typespec-tests-alist): Fix test 53 70.
---

diff --git a/test/lisp/emacs-lisp/comp-cstr-tests.el b/test/lisp/emacs-lisp/comp-cstr-tests.el
index f2d9bf583e5..c2492b93f6f 100644
--- a/test/lisp/emacs-lisp/comp-cstr-tests.el
+++ b/test/lisp/emacs-lisp/comp-cstr-tests.el
@@ -147,7 +147,7 @@
       ;; 52 Conservative.
       ((or (member foo) (not string)) . (not string))
       ;; 53
-      ((or (not (integer 1 2)) integer) . integer)
+      ((or (not (integer 1 2)) integer) . t)
       ;; 54
       ((or (not (integer 1 2)) (not integer)) . (not integer))
       ;; 55
@@ -181,7 +181,7 @@
       ;; 69
       ((and (integer 0 20) (not (integer 5 10))) . (or (integer 0 4) (integer 11 20)))
       ;; 70
-      ((and (not (member a)) (not (member b))) . (not (member b a)))
+      ((and (not (member a)) (not (member b))) . (not (member a b)))
       ;; 71
       ((and (not boolean) (not (member b))) . (not (or (member b) boolean)))
       ;; 72