X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fhost-alieneval.lisp;h=0003d8ba4981a3714e9fe07f64f95ebb780637ae;hb=c7de1989d006e0b3a4f26143b7a81c9bdb754101;hp=413bebaa30a2188e3eb4d1a6de7ff5cdb628d37b;hpb=22b819c0cd0ca0ea5be52ba280b9e9e0b8e86210;p=sbcl.git

diff --git a/src/code/host-alieneval.lisp b/src/code/host-alieneval.lisp
index 413beba..0003d8b 100644
--- a/src/code/host-alieneval.lisp
+++ b/src/code/host-alieneval.lisp
@@ -558,12 +558,12 @@
 	    (8 'signed-sap-ref-8)
 	    (16 'signed-sap-ref-16)
 	    (32 'signed-sap-ref-32)
-	    #!+alpha (64 'signed-sap-ref-64))
+	    (64 'signed-sap-ref-64))
 	  (case (alien-integer-type-bits type)
 	    (8 'sap-ref-8)
 	    (16 'sap-ref-16)
 	    (32 'sap-ref-32)
-	    #!+alpha (64 'sap-ref-64)))))
+	    (64 'sap-ref-64)))))
     (if ref-fun
 	`(,ref-fun ,sap (/ ,offset sb!vm:n-byte-bits))
 	(error "cannot extract ~W-bit integers"