Commit 70adc28e authored by Andrea Corallo's avatar Andrea Corallo
Browse files

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

parent 30624803
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment