diff --git a/compiler/ppc/move.lisp b/compiler/ppc/move.lisp
index 468c9a1b14169b87ff5d2b889965b019bd013918..f6b5a726e41769430ac4d6026a7016952e242bbc 100644
--- a/compiler/ppc/move.lisp
+++ b/compiler/ppc/move.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/move.lisp,v 1.4 2004/08/08 11:18:07 rtoy Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/move.lisp,v 1.5 2004/08/09 03:30:48 rtoy Exp $
 ;;;
 ;;;    This file contains the SPARC VM definition of operand loading/saving and
 ;;; the Move VOP.
@@ -239,36 +239,6 @@
 ;;; Check for fixnum, and possibly allocate one or two word bignum result.  Use
 ;;; a worst-case cost to make sure people know they may be number consing.
 ;;;
-#+nil
-(define-vop (move-from-unsigned)
-  (:args (arg :scs (signed-reg unsigned-reg) :target x))
-  (:results (y :scs (any-reg descriptor-reg)))
-  (:temporary (:scs (non-descriptor-reg) :from (:argument 0)) x temp)
-  (:temporary (:sc non-descriptor-reg :offset nl3-offset) pa-flag)
-  (:note "unsigned word to integer coercion")
-  (:generator 20
-    (move x arg)
-    (let ((done (gen-label))
-	  (one-word (gen-label))
-	  (initial-alloc (pad-data-block (1+ bignum-digits-offset))))
-      (inst srawi. temp x 29)
-      (inst slwi y x 2)
-      (inst beq done)
-      
-      (pseudo-atomic (pa-flag :extra initial-alloc)
-	(inst cmpwi x 0)
-	(inst ori y alloc-tn other-pointer-type)
-	(inst li temp (logior (ash 1 type-bits) bignum-type))
-	(inst bge one-word)
-	(inst addi alloc-tn alloc-tn
-	      (- (pad-data-block (+ bignum-digits-offset 2))
-		 (pad-data-block (+ bignum-digits-offset 1))))
-	(inst li temp (logior (ash 2 type-bits) bignum-type))
-	(emit-label one-word)
-	(storew temp y 0 other-pointer-type)
-	(storew x y bignum-digits-offset other-pointer-type))
-      (emit-label done))))
-
 (define-vop (move-from-unsigned)
   (:args (arg :scs (signed-reg unsigned-reg) :target x))
   (:results (y :scs (any-reg descriptor-reg)))