diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp index 39e960b66b479e0a67b11be6441f21df6115c551..41e0d42b608bcffb66e0e9feb1f194c7869d6936 100644 --- a/src/compiler/float-tran.lisp +++ b/src/compiler/float-tran.lisp @@ -1802,10 +1802,6 @@ (deftransform * ((z w) (,real-type (complex ,type)) *) ;; Real * complex '(complex (* z (realpart w)) (* z (imagpart w)))) - #-(or (and linux x86)) - (deftransform cis ((z) ((,type)) *) - ;; Cis. - '(complex (cos z) (sin z))) (deftransform / ((rx y) (,real-type (complex ,type)) *) ;; Real/complex '(let* ((ry (realpart y))