Fix (compile '(setf function)).

[sbcl.git] / src / compiler / alpha / backend-parms.lisp

diff --git a/src/compiler/alpha/backend-parms.lisp b/src/compiler/alpha/backend-parms.lisp
index f92efe7..294f370 100644 (file)
--- a/src/compiler/alpha/backend-parms.lisp
+++ b/src/compiler/alpha/backend-parms.lisp
@@ -17,7 +17,7 @@
 \f
 ;;;; compiler constants
 
-(defconstant +backend-fasl-file-implementation+ :alpha)
+(def!constant +backend-fasl-file-implementation+ :alpha)
 
 (setf *backend-register-save-penalty* 3)
 
@@ -25,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)