Skip to content
Snippets Groups Projects
Commit d9fb4901 authored by Raymond Toy's avatar Raymond Toy
Browse files

Oops. Didn't comment out quite enough.

parent cc7145ca
No related branches found
No related tags found
No related merge requests found
......@@ -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.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment