From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 27 Dec 2020 14:51:57 +0000 (+0100)
Subject: * lisp/emacs-lisp/comp-cstr.el (comp-cstr-set-cmp-range): Improve.
X-Git-Tag: emacs-28.0.90~2727^2~209
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92af4e8fc97a3af043904c32488b84c0e943473d;p=emacs.git

* lisp/emacs-lisp/comp-cstr.el (comp-cstr-set-cmp-range): Improve.
---

diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el
index 62e3c47ce3a..d41501e6804 100644
--- a/lisp/emacs-lisp/comp-cstr.el
+++ b/lisp/emacs-lisp/comp-cstr.el
@@ -374,7 +374,10 @@ Return them as multiple value."
   "Support range comparison functions."
   (with-comp-cstr-accessors
     (if ext-range
-        (setf (typeset dst) (and (typeset old-dst) '(float))
+        (setf (typeset dst) (when (cl-some (lambda (x)
+                                             (comp-subtype-p 'float x))
+                                           (typeset old-dst))
+                                '(float))
               (valset dst) ()
               (range dst) (if (range old-dst)
                               (comp-range-intersection (range old-dst)