X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Firrat.lisp;h=7b18f5a7856b53bc65b7aba06ed5ad31dc15b835;hb=322be917a6b06f5741b0da8a6621a4f1e881bf11;hp=6d869380e051e7c2895d0ba1574c36700db6d883;hpb=3bd7a97d1b11a2b0aee086ef211cae807f3dfc35;p=sbcl.git

diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp
index 6d86938..7b18f5a 100644
--- a/src/code/irrat.lisp
+++ b/src/code/irrat.lisp
@@ -67,81 +67,6 @@
 #!-x86 (def-math-rtn "sqrt" 1)
 (def-math-rtn "hypot" 2)
 #!-(or hpux x86) (def-math-rtn "log1p" 1)
-
-#!+x86 ;; These are needed for use by byte-compiled files.
-(progn
-  (defun %sin (x)
-    (declare (double-float x)
-	     (values double-float))
-    (%sin x))
-  (defun %sin-quick (x)
-    (declare (double-float x)
-	     (values double-float))
-    (%sin-quick x))
-  (defun %cos (x)
-    (declare (double-float x)
-	     (values double-float))
-    (%cos x))
-  (defun %cos-quick (x)
-    (declare (double-float x)
-	     (values double-float))
-    (%cos-quick x))
-  (defun %tan (x)
-    (declare (double-float x)
-	     (values double-float))
-    (%tan x))
-  (defun %tan-quick (x)
-    (declare (double-float x)
-	     (values double-float))
-    (%tan-quick x))
-  (defun %atan (x)
-    (declare (double-float x)
-	     (values double-float))
-    (%atan x))
-  (defun %atan2 (x y)
-    (declare (double-float x y)
-	     (values double-float))
-    (%atan2 x y))
-  (defun %exp (x)
-    (declare (double-float x)
-	     (values double-float))
-    (%exp x))
-  (defun %log (x)
-    (declare (double-float x)
-	     (values double-float))
-    (%log x))
-  (defun %log10 (x)
-    (declare (double-float x)
-	     (values double-float))
-    (%log10 x))
-  #+nil ;; notyet
-  (defun %pow (x y)
-    (declare (type (double-float 0d0) x)
-	     (double-float y)
-	     (values (double-float 0d0)))
-    (%pow x y))
-  (defun %sqrt (x)
-    (declare (double-float x)
-	     (values double-float))
-    (%sqrt x))
-  (defun %scalbn (f ex)
-    (declare (double-float f)
-	     (type (signed-byte 32) ex)
-	     (values double-float))
-    (%scalbn f ex))
-  (defun %scalb (f ex)
-    (declare (double-float f ex)
-	     (values double-float))
-    (%scalb f ex))
-  (defun %logb (x)
-    (declare (double-float x)
-	     (values double-float))
-    (%logb x))
-  (defun %log1p (x)
-    (declare (double-float x)
-	     (values double-float))
-    (%log1p x))
-  ) ; progn
 
 ;;;; power functions
 
@@ -194,7 +119,7 @@
 ;;; from the general complex case.
 (defun expt (base power)
   #!+sb-doc
-  "Returns BASE raised to the POWER."
+  "Return BASE raised to the POWER."
   (if (zerop power)
       (1+ (* base power))
     (labels (;; determine if the double float is an integer.
@@ -387,7 +312,7 @@
 
 (defun abs (number)
   #!+sb-doc
-  "Returns the absolute value of the number."
+  "Return the absolute value of the number."
   (number-dispatch ((number number))
     (((foreach single-float double-float fixnum rational))
      (abs number))
@@ -944,7 +869,8 @@
 	      #-(or linux hpux) #.(/ (asinh most-positive-double-float) 4d0)
 	      ;; This is more accurate under linux.
 	      #+(or linux hpux) #.(/ (+ (log 2.0d0)
-                                          (log most-positive-double-float)) 4d0))
+					(log most-positive-double-float))
+				     4d0))
               (coerce-to-complex-type (float-sign x)
                                       (float-sign y) z))
 	  (t