From d9fb490192d3e187fae1b6a34b40b84e191f1e6f Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Tue, 22 Jul 2014 09:15:27 -0700 Subject: [PATCH] Oops. Didn't comment out quite enough. --- src/code/irrat.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index 6d17c6c06..f95e32cc6 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -617,7 +617,6 @@ (let ((flag (- 1 (ash (logand n 1) 1)))) ;; flag = 1 if n even, -1 if n odd (kernel-tan y0 y1 flag))))))) -||# ;; Compute sin and cos of x, simultaneously. (defun %sincos (x) (declare (double-float x) @@ -643,6 +642,7 @@ (values (- (kernel-cos y0 y1)) (kernel-sin y0 y1 1)))))))) ;;(declaim (ext:end-block)) +||# ;;;; Power functions. -- GitLab