[git] CMU Common Lisp branch master updated. snapshot-2014-06-20-gb6bd0b5

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  b6bd0b590e541a159c4b5eb7e31b64c2ef0b47dc (commit)
      from  44f82278524424b6022353ca288b21e422655203 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit b6bd0b590e541a159c4b5eb7e31b64c2ef0b47dc
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Fri Jul 25 21:05:19 2014 -0700

    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.

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

-----------------------------------------------------------------------

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


hooks/post-receive
-- 
CMU Common Lisp