mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Simplify correctly (or (integer 1 1) (not (integer 1 1))) as t

Browse source 
* lisp/emacs-lisp/comp-cstr.el (comp-cstr-union-1-no-mem): Logic
	update.
	* test/lisp/emacs-lisp/comp-cstr-tests.el
	(comp-cstr-typespec-tests-alist): Add a test.
This commit is contained in:
Andrea Corallo 2020-12-18 17:22:05 +01:00
parent 3540b1f167
commit e0f20da6ec
2 changed files with 14 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test/lisp/emacs-lisp/comp-cstr-tests.el
View file

@ -199,7 +199,9 @@
;; 80
((and (or marker number) (integer 0 0)) . (integer 0 0))
;; 81
((and t (not t)) . nil))
((and t (not t)) . nil)
;; 82
((or (integer 1 1) (not (integer 1 1))) . t))
"Alist type specifier -> expected type specifier.")
(defmacro comp-cstr-synthesize-tests ()