Skip to content
Snippets Groups Projects
Commit 24e9f71a authored by pw's avatar pw
Browse files

Add deftransform for CIS.

parent 15ca3b07
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.45 1997/12/06 18:47:34 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.46 1997/12/06 20:12:21 pw Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1258,6 +1258,12 @@
(frob single-float)
(frob double-float))
(macrolet ((frob (type)
`(deftransform cis ((z) ((,type)) *)
'(complex (cos z) (sin z)))))
(frob single-float)
(frob double-float))
;;; Here are simple optimizers for sin, cos, and tan. They do not
;;; produce a minimal range for the result; the result is the widest
;;; possible answer. This gets around the problem of doing range
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment