diff --git a/compiler/amd64/sap.lisp b/compiler/amd64/sap.lisp
index 065e93c0cb100d5b624dfdad74ba86eb842bade0..477310b8ed3249eccdd8235e0aace2bcb77ecd53 100644
--- a/compiler/amd64/sap.lisp
+++ b/compiler/amd64/sap.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/amd64/sap.lisp,v 1.1 2004/05/24 22:35:00 cwang Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/amd64/sap.lisp,v 1.2 2004/06/10 01:45:39 cwang Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -125,57 +125,6 @@
   (:generator 1
     (move sap int)))
 
-(define-vop (fixnum-sap)
-  (:args (int :scs (any-reg)))
-  (:arg-types tagged-num)
-  (:results (sap :scs (sap-reg)))
-  (:result-types system-area-pointer)
-  (:translate fixnum-sap)
-  (:policy :fast-safe)
-  (:generator 1
-    (move sap int)))
-
-#+nil
-(define-vop (fixnum-sap)
-    (:args (x :scs (any-reg descriptor-reg) :target sap
-	      :load-if (not (location= x sap))))
-  (:arg-types tagged-num)
-  (:results (sap :scs (sap-reg)
-		 :load-if (not (location= x sap))))
-  (:result-types system-area-pointer)
-  (:note "fixnum as sap")
-  (:generator 1
-    (move sap x)))
-
-#+nil
-(define-move-vop fixnum-sap :move
-  (any-reg descriptor-reg) (sap-reg))
-
-#+nil
-(define-vop (fixnum-sap)
-  (:args (arg :scs (any-reg descriptor-reg) :target sap
-	    ; :load-if (not (location= arg sap))
-	    ))
-  (:arg-types tagged-num)
-  (:results (sap :scs (sap-reg)
-		 ; :load-if (not (location= arg sap))
-		 ))
-  (:result-types system-area-pointer)
-  (:translate fixnum-sap)
-  (:policy :fast-safe)
-  (:generator 1
-    (move sap arg)))
-
-#+nil
-(define-vop (fixnum-sap)
-  (:args (int :scs (any-reg descriptor-reg) :target sap))
-  (:arg-types fixnum)
-  (:results (sap :scs (sap-reg)))
-  (:result-types system-area-pointer)
-  (:translate fixnum-sap)
-  (:policy :fast-safe)
-  (:generator 1
-    (move sap fixnum)))
 
 
 ;;;; POINTER+ and POINTER-