X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fnumbers.lisp;h=6a2dd702163a9f0813e1422c9f2959dd3dcd9ee3;hb=d442c23da9851beac541b8bddfc2c0837cb87309;hp=b8ef2002a04ac008c55826210b6c7e23069755b2;hpb=5e0af0dad59e01274b0e84b58e5f0904c9890b37;p=sbcl.git

diff --git a/src/code/numbers.lisp b/src/code/numbers.lisp
index b8ef200..6a2dd70 100644
--- a/src/code/numbers.lisp
+++ b/src/code/numbers.lisp
@@ -358,7 +358,7 @@
        (bignum-cross-fixnum ,op ,big-op)
        (float-contagion ,op x y)
 
-       ((complex complex) +
+       ((complex complex)
         (canonical-complex (,op (realpart x) (realpart y))
                            (,op (imagpart x) (imagpart y))))
        (((foreach bignum fixnum ratio single-float double-float