X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fbackend-parms.lisp;h=11aa4257a4b6734f617ab0008df15c4b5282ecb0;hb=74cf7a4d01664fbf72a662ba093ad67ca243b524;hp=e1c1a1db79694a9f7436a4e4997012c139b0edcc;hpb=a8a79584f77a1ca0b1f651c27d219678e44c3f4d;p=sbcl.git

diff --git a/src/compiler/mips/backend-parms.lisp b/src/compiler/mips/backend-parms.lisp
index e1c1a1d..11aa425 100644
--- a/src/compiler/mips/backend-parms.lisp
+++ b/src/compiler/mips/backend-parms.lisp
@@ -6,7 +6,7 @@
       #!+little-endian :little-endian
       #!-little-endian :big-endian)
 
-(progn ;eval-when (:compile-toplevel :load-toplevel :execute)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   ;; The o32 ABI specifies 4k-64k as page size. We have to pick the
   ;; maximum since mprotect() works only with page granularity.
-  (setf *backend-page-size* 65536))
+  (setf *backend-page-bytes* 65536))