diff options
| author | Andrea Corallo | 2024-04-10 18:03:26 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2024-04-10 18:16:26 +0200 |
| commit | d4d8575bf00bb722bbb913fa5aa5b68c6dbef4d3 (patch) | |
| tree | 8257942be46f82413c329f17982810cc0d8c9a89 | |
| parent | 219b98916bc498bf15bbef6577af648834d4727d (diff) | |
| download | emacs-d4d8575bf00bb722bbb913fa5aa5b68c6dbef4d3.tar.gz emacs-d4d8575bf00bb722bbb913fa5aa5b68c6dbef4d3.zip | |
* lisp/emacs-lisp/comp-cstr.el (comp-cstr-symbol-p): Simplify.
| -rw-r--r-- | lisp/emacs-lisp/comp-cstr.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el index 7452b8568de..73d445eb3f4 100644 --- a/lisp/emacs-lisp/comp-cstr.el +++ b/lisp/emacs-lisp/comp-cstr.el | |||
| @@ -929,11 +929,9 @@ Non memoized version of `comp-cstr-intersection-no-mem'." | |||
| 929 | (with-comp-cstr-accessors | 929 | (with-comp-cstr-accessors |
| 930 | (and (null (range cstr)) | 930 | (and (null (range cstr)) |
| 931 | (null (neg cstr)) | 931 | (null (neg cstr)) |
| 932 | (or (and (null (valset cstr)) | 932 | (and (or (null (typeset cstr)) |
| 933 | (equal (typeset cstr) '(symbol))) | 933 | (equal (typeset cstr) '(symbol))) |
| 934 | (and (or (null (typeset cstr)) | 934 | (cl-every #'symbolp (valset cstr)))))) |
| 935 | (equal (typeset cstr) '(symbol))) | ||
| 936 | (cl-every #'symbolp (valset cstr))))))) | ||
| 937 | 935 | ||
| 938 | (defsubst comp-cstr-cons-p (cstr) | 936 | (defsubst comp-cstr-cons-p (cstr) |
| 939 | "Return t if CSTR is certainly a cons." | 937 | "Return t if CSTR is certainly a cons." |