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

* lisp/emacs-lisp/comp-cstr.el (comp-cstr-union-1-no-mem): (not null) => t.

Browse source
This commit is contained in:
Andrea Corallo 2021-04-13 10:38:00 +02:00
parent 3062480309
commit 70adc28e97
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -631,7 +631,15 @@ DST is returned."
(setf (typeset dst) (typeset neg)
(valset dst) (valset neg)
(range dst) (range neg)
(neg dst) (neg neg))))))
(neg dst) (neg neg)))))
;; (not null) => t
(when (and (neg dst)
(null (typeset dst))
(null (valset dst))
(null (range dst)))
(give-up)))
dst)))
(defun comp-cstr-union-1 (range dst &rest srcs)