diff --git a/code/irrat-dd.lisp b/code/irrat-dd.lisp
index 4e3d48ccfbef13a2bb378fd74c4fbb63fc7814e1..e5168da03ac32c785a0d71842026501b6dc034e5 100644
--- a/code/irrat-dd.lisp
+++ b/code/irrat-dd.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat-dd.lisp,v 1.17 2007/08/02 18:18:18 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat-dd.lisp,v 1.18 2009/03/18 01:24:52 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -67,6 +67,7 @@
   "Sqrt(1/2)")
 
 ;; Evaluate polynomial
+(declaim (maybe-inline poly-eval poly-eval-1))
 (defun poly-eval (x coef)
   (declare (type double-double-float x)
 	   (type (simple-array double-double-float (*)) coef)
diff --git a/code/irrat.lisp b/code/irrat.lisp
index b25ea121b0708b0a309929efd726bd0457d9a496..ddcb43a4521bf270bbfc68069e442f04147a5594 100644
--- a/code/irrat.lisp
+++ b/code/irrat.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat.lisp,v 1.58 2008/11/12 15:04:23 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat.lisp,v 1.59 2009/03/18 01:24:52 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -486,7 +486,6 @@
 				  (complex
 				   (coerce (* pow (%cos y*pi)) rtype)
 				   (coerce (* pow (%sin y*pi)) rtype)))))))))))))
-      (declare (inline real-expt))
       ;; This is really messy and should be cleaned up.  The easiest
       ;; way to see if we're doing what we should is the macroexpand
       ;; the number-dispatch and check each branch.
diff --git a/compiler/float-tran.lisp b/compiler/float-tran.lisp
index c0a31c8d3f54df2d932fbbd519056ab8cc7f9827..0251a35fd26a92e5b76a7e69d0301e367ee49e60 100644
--- a/compiler/float-tran.lisp
+++ b/compiler/float-tran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.128 2008/12/30 16:23:36 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.129 2009/03/18 01:24:53 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1861,7 +1861,7 @@
 	(declare (optimize (inhibit-warnings 3)))
       (values s e))))
 
-(declaim (inline sub-dd))
+(declaim (maybe-inline sub-dd))
 (defun sub-dd (a0 a1 b0 b1)
   "Subtract the double-double B0,B1 from A0,A1"
   (declare (double-float a0 a1 b0 b1)
@@ -1886,7 +1886,7 @@
 		      0d0)
 	      (values r1 r2)))))))
 
-(declaim (inline sub-d-dd))
+(declaim (maybe-inline sub-d-dd))
 (defun sub-d-dd (a b0 b1)
   "Compute double-double = double - double-double"
   (declare (double-float a b0 b1)
@@ -1904,7 +1904,7 @@
 	(values (float-sign (- a b0) 0d0) 0d0)
 	(values r1 r2)))))
 
-(declaim (inline sub-dd-d))
+(declaim (maybe-inline sub-dd-d))
 (defun sub-dd-d (a0 a1 b)
   "Subtract the double B from the double-double A0,A1"
   (declare (double-float a0 a1 b)
@@ -1946,7 +1946,7 @@
      (truly-the ,(type-specifier (node-derived-type node))
 		(kernel:%make-double-double-float hi lo))))
 
-(declaim (inline split))
+(declaim (maybe-inline split))
 ;; This algorithm is the version given by Yozo Hida.  It has problems
 ;; with overflow because we multiply by 1+2^27.
 ;;