X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fcoerce.lisp;h=59bd1da19739950d3a97c5aa42f91f6304b58341;hb=69ef68ba7393e3492c1b4a756d1140f71c2922bc;hp=575083f15371e1279e9d9ecd7f7cc4697e845f25;hpb=e3f68bde025bd0602cf554e1eaf5935aaa74662a;p=sbcl.git

diff --git a/src/code/coerce.lisp b/src/code/coerce.lisp
index 575083f..59bd1da 100644
--- a/src/code/coerce.lisp
+++ b/src/code/coerce.lisp
@@ -179,6 +179,9 @@
 		     ((csubtypep type (specifier-type '(complex long-float)))
 		      (complex (%long-float (realpart object))
 			       (%long-float (imagpart object))))
+                     ((csubtypep type (specifier-type '(complex float)))
+                      (complex (%single-float (realpart object))
+                               (%single-float (imagpart object))))
 		     ((and (typep object 'rational)
 			   (csubtypep type (specifier-type '(complex float))))
 		      ;; Perhaps somewhat surprisingly, ANSI specifies