procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Fix two predicates for missing negation handling

Browse source 
* lisp/emacs-lisp/comp-cstr.el (comp-cstr-empty-p)
	(comp-cstr-null-p): Fix missing negation handling.
This commit is contained in:
Andrea Corallo 2020-12-31 15:32:51 +01:00
parent f78580a0f5
commit e9f5fadb0e
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/comp-cstr.el
View file

@ -139,14 +139,16 @@ Integer values are handled in the `range' slot.")
(with-comp-cstr-accessors
(and (null (typeset cstr))
(null (valset cstr))
(null (range cstr)))))
(null (range cstr))
(null (neg cstr)))))
(defsubst comp-cstr-null-p (x)
(defsubst comp-cstr-null-p (cstr)
"Return t if CSTR is equivalent to the `null' type specifier, nil otherwise."
(with-comp-cstr-accessors
(and (null (typeset x))
(null (range x))
(equal (valset x) '(nil)))))
(and (null (typeset cstr))
(null (range cstr))
(null (neg cstr))
(equal (valset cstr) '(nil)))))
(defun comp-cstrs-homogeneous (cstrs)
"Check if constraints CSTRS are all homogeneously negated or non-negated.