[git] CMU Common Lisp branch master updated. snapshot-2014-06-10-gd9fb490

[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  d9fb490192d3e187fae1b6a34b40b84e191f1e6f (commit)
      from  cc7145cac2b298800b0650938d559c11c35caa24 (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 d9fb490192d3e187fae1b6a34b40b84e191f1e6f
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Tue Jul 22 09:15:27 2014 -0700

    Oops. Didn't comment out quite enough.

diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp
index 6d17c6c..f95e32c 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.

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

Summary of changes:
 src/code/irrat.lisp |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)


hooks/post-receive
-- 
CMU Common Lisp