diff --git a/code/numbers.lisp b/code/numbers.lisp
index 433a06de5d68ea9697bd21514265da4b80347ea9..f8907d6449ae5f2a05f8d4b3e1f460ee85c80774 100644
--- a/code/numbers.lisp
+++ b/code/numbers.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/numbers.lisp,v 1.64 2008/01/28 22:41:08 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.65 2008/08/12 20:38:23 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1601,6 +1601,8 @@ significant bit of INTEGER is bit 0."
 ;; calls ash-left-mod32 when the COUNT is known to be a (UNSIGNED-BYTE
 ;; 5), which is what %ASHL wants.
 #+modular-arith
+(declaim (inline vm::ash-left-mod32))
+#+modular-arith
 (defun vm::ash-left-mod32 (integer count)
   (declare (type integer integer)
 	   (type (integer 0 31) count))
diff --git a/compiler/x86/arith.lisp b/compiler/x86/arith.lisp
index 4857d89a145e2ff8f49e32a9a8ed9e8671d06d46..8207a1a600a6aaedc2eef0606dbf711303edc80e 100644
--- a/compiler/x86/arith.lisp
+++ b/compiler/x86/arith.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/arith.lisp,v 1.19 2008/08/12 13:37:16 rtoy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/arith.lisp,v 1.20 2008/08/12 20:38:23 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1591,12 +1591,4 @@
 			(specifier-type '(unsigned-byte 5))))
     (cut-to-width integer width)
     'vm::ash-left-mod32))
-
-;; This should only get called when the ash modular function optimizer
-;; succeeds, which is for a count of 0-31, which is just right for
-;; %ashl.
-(declaim (inline vm::ash-left-mod32))
-(defun vm::ash-left-mod32 (integer count)
-  (bignum::%ashl (ldb (byte 32 0) integer) count))
-
 )