emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/native-comp 2d23f19 3/4: * Fix two comp-cstr tests


From: Andrea Corallo
Subject: feature/native-comp 2d23f19 3/4: * Fix two comp-cstr tests
Date: Tue, 13 Apr 2021 06:11:48 -0400 (EDT)

branch: feature/native-comp
commit 2d23f19e7d5ff8a1ec1a188dcd530c185029d1f8
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * Fix two comp-cstr tests
    
        * test/lisp/emacs-lisp/comp-cstr-tests.el
        (comp-cstr-typespec-tests-alist): Fix test 53 70.
---
 test/lisp/emacs-lisp/comp-cstr-tests.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/lisp/emacs-lisp/comp-cstr-tests.el 
b/test/lisp/emacs-lisp/comp-cstr-tests.el
index f2d9bf5..c2492b9 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]