mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/comp-cstr.el (comp-cstr-symbol-p): Simplify.

Browse source
This commit is contained in:
Andrea Corallo 2024-04-10 18:03:26 +02:00
parent 219b98916b
commit d4d8575bf0
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -929,11 +929,9 @@ Non memoized version of `comp-cstr-intersection-no-mem'."
(with-comp-cstr-accessors (with-comp-cstr-accessors
(and (null (range cstr)) (and (null (range cstr))
(null (neg cstr)) (null (neg cstr))
(or (and (null (valset cstr)) (and (or (null (typeset cstr))
(equal (typeset cstr) '(symbol))) (equal (typeset cstr) '(symbol)))
(and (or (null (typeset cstr)) (cl-every #'symbolp (valset cstr))))))
(equal (typeset cstr) '(symbol)))
(cl-every #'symbolp (valset cstr)))))))
(defsubst comp-cstr-cons-p (cstr) (defsubst comp-cstr-cons-p (cstr)
"Return t if CSTR is certainly a cons." "Return t if CSTR is certainly a cons."