diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp index 3df41f4b89f4332f5e9a9a6bb171a0700c71c71d..93b88b7f516273175a99ff29edbc6e29937eddc4 100644 --- a/src/compiler/float-tran.lisp +++ b/src/compiler/float-tran.lisp @@ -1903,7 +1903,7 @@ (deftransform upgraded-complex-real-contagion-arg1 ((x y) * * :defun-only t :node node) ;;(format t "upgraded-complex-real-contagion-arg1~%") `(,(continuation-function-name (basic-combination-fun node)) - (coerce x '(complex ,(type-specifier (continuation-type y)))) + (coerce x '(complex ,(numeric-type-format (continuation-type y)))) y)) ;;; (deftransform upgraded-complex-real-contagion-arg2 ((x y) * * :defun-only t :node node) @@ -1912,7 +1912,7 @@ (continuation-type x) (continuation-type y)) `(,(continuation-function-name (basic-combination-fun node)) x - (coerce y '(complex ,(type-specifier (continuation-type x)))))) + (coerce y '(complex ,(numeric-type-format (continuation-type x)))))) (dolist (x '(= + * / -)) diff --git a/src/general-info/release-21d.md b/src/general-info/release-21d.md index b15456bb36c220f534d18ff360018348475fe521..7940e53fb8978db4795b7c318596e7a4edd3fd53 100644 --- a/src/general-info/release-21d.md +++ b/src/general-info/release-21d.md @@ -34,6 +34,7 @@ public domain. * ~~#47~~ Backquate and multiple splices * ~~#59~~ Incorrect type-derivation for `decode-float` * ~~#60~~ The function `C::%UNARY-FROUND` is undefined + * ~~#58~~ Bogus type error in comparison of complex number with `THE` form * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: diff --git a/tests/issues.lisp b/tests/issues.lisp index 5458531c092935c27868b296aab00ef21ab2badd..eda48a3490449276a717f4129d8c3ede1cf186bd 100644 --- a/tests/issues.lisp +++ b/tests/issues.lisp @@ -515,3 +515,9 @@ (assert-equalp (values 2d0 0d0) (funcall c14 2d0)))) + +(define-test issue.58 + (:tag :issues) + (let ((c9 (compile nil #'(lambda (x) + (= (the (eql 1.0d0) x) #c(1/2 1/2)))))) + (assert-false (funcall c9 1.d0))))