X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-sap.lisp;h=0f937b6f30035e69e503c3cb100848c2539a851d;hb=15d6e7c9a2c3234f95dfe278046fa2fee1b0c007;hp=20383b163197e38aca388b30aa2eb3c12f075c37;hpb=ec2616d216958a608581802c47496c0194478dc8;p=sbcl.git

diff --git a/src/code/target-sap.lisp b/src/code/target-sap.lisp
index 20383b1..0f937b6 100644
--- a/src/code/target-sap.lisp
+++ b/src/code/target-sap.lisp
@@ -78,7 +78,6 @@
   (sap-ref-32 sap offset))
 
 ;;; Return the 64-bit quadword at OFFSET bytes from SAP.
-#!+alpha
 (defun sap-ref-64 (sap offset)
   (declare (type system-area-pointer sap)
 	   (fixnum offset))
@@ -128,7 +127,6 @@
   (signed-sap-ref-32 sap offset))
 
 ;;; Return the signed 64-bit quadword at OFFSET bytes from SAP.
-#!+alpha
 (defun signed-sap-ref-64 (sap offset)
   (declare (type system-area-pointer sap)
 	   (fixnum offset))
@@ -152,7 +150,6 @@
 	   (type (unsigned-byte 32) new-value))
   (setf (sap-ref-32 sap offset) new-value))
 
-#!+alpha
 (defun %set-sap-ref-64 (sap offset new-value)
   (declare (type system-area-pointer sap)
 	   (fixnum offset)
@@ -177,7 +174,6 @@
 	   (type (signed-byte 32) new-value))
   (setf (signed-sap-ref-32 sap offset) new-value))
 
-#!+alpha
 (defun %set-signed-sap-ref-64 (sap offset new-value)
   (declare (type system-area-pointer sap)
 	   (fixnum offset)