feature/native-comp 92af4e8 2/4: * lisp/emacs-lisp/comp-cstr.el (comp-cstr-set-cmp-range): Improve.

[Andrea Corallo]

branch: feature/native-comp
commit 92af4e8fc97a3af043904c32488b84c0e943473d
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * lisp/emacs-lisp/comp-cstr.el (comp-cstr-set-cmp-range): Improve.
---
 lisp/emacs-lisp/comp-cstr.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el
index 62e3c47..d41501e 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)