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