From b6bd0b590e541a159c4b5eb7e31b64c2ef0b47dc Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Fri, 25 Jul 2014 21:05:19 -0700
Subject: [PATCH] All platforms have sincos now, so remove the deftransform for
 cis that converted cis to (complex (cos x) (sin x)).  Besides, that was
 blocking the other deftransform for cis that replaced cis with a call to
 %sincos.

---
 src/compiler/float-tran.lisp | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp
index 39e960b66..41e0d42b6 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))
-- 
GitLab