From 48ae99e113aeaba8463ccc28047539cedc7c3906 Mon Sep 17 00:00:00 2001 From: Andrew Berkley Date: Mon, 15 Feb 2021 07:16:52 -0800 Subject: [PATCH] Propagate bounds for union-types in float-or-complex-float-type --- src/compiler/float-tran.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp index f3968822a..27cd5a888 100644 --- a/src/compiler/float-tran.lisp +++ b/src/compiler/float-tran.lisp @@ -632,7 +632,7 @@ ((union-type-p arg) (apply #'type-union (loop for type in (union-type-types arg) - collect (float-or-complex-float-type type)))) + collect (float-or-complex-float-type type lo hi)))) (t (specifier-type 'number)))) (eval-when (:compile-toplevel :execute) -- 2.17.1