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@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