X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Fbackend-parms.lisp;h=294f37044e836aaa784cb66a31493f95f1558cee;hb=37b93fe46f304244d1c69c06b82a22252e393630;hp=9149984a369604eab3c876f2074f2dff93840bb4;hpb=aa2dc9529460ea0d9c99998dc87283fc1a43e808;p=sbcl.git

diff --git a/src/compiler/alpha/backend-parms.lisp b/src/compiler/alpha/backend-parms.lisp
index 9149984..294f370 100644
--- a/src/compiler/alpha/backend-parms.lisp
+++ b/src/compiler/alpha/backend-parms.lisp
@@ -17,8 +17,7 @@
 
 ;;;; compiler constants
 
-(setf *backend-fasl-file-type* "axpf")
-(defconstant +backend-fasl-file-implementation+ :alpha)
+(def!constant +backend-fasl-file-implementation+ :alpha)
 
 (setf *backend-register-save-penalty* 3)
 
@@ -26,5 +25,4 @@
 
 ;;; XXX the C runtime gets page size using getpagesize() - can't we
 ;;; look at that instead of hardcoding it here too?
-(setf *backend-page-size* 8192)
-
+(setf *backend-page-bytes* 8192)