X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fnumbers.lisp;h=6a2dd702163a9f0813e1422c9f2959dd3dcd9ee3;hb=bd2df60f7c3f579a9c7610925c79a0e783adaa0e;hp=525beb7585b0dd9f31648bb51cf4896f7f3b533c;hpb=0c7a7f68e66276a3c780a01d55f086a6f0aac929;p=sbcl.git

diff --git a/src/code/numbers.lisp b/src/code/numbers.lisp
index 525beb7..6a2dd70 100644
--- a/src/code/numbers.lisp
+++ b/src/code/numbers.lisp
@@ -363,9 +363,9 @@
                            (,op (imagpart x) (imagpart y))))
        (((foreach bignum fixnum ratio single-float double-float
                   #!+long-float long-float) complex)
-        (complex (,op x (realpart y)) (,op (imagpart y))))
+        (complex (,op x (realpart y)) (,op 0 (imagpart y))))
        ((complex (or rational float))
-        (complex (,op (realpart x) y) (imagpart x)))
+        (complex (,op (realpart x) y) (,op (imagpart x) 0)))
 
        (((foreach fixnum bignum) ratio)
         (let* ((dy (denominator y))