1.0.23.49: Eliminate FCN as function moniker.

[sbcl.git] / src / compiler / generic / vm-ir2tran.lisp

diff --git a/src/compiler/generic/vm-ir2tran.lisp b/src/compiler/generic/vm-ir2tran.lisp
index c864d26..25e3ed4 100644 (file)
--- a/src/compiler/generic/vm-ir2tran.lisp
+++ b/src/compiler/generic/vm-ir2tran.lisp
@@ -185,7 +185,7 @@
         ;; stack guard pages.
         (values-subtypep (lvar-derived-type words)
                          (load-time-value
-                          (specifier-type `(integer 0 ,(- (/ sb!vm::*backend-page-size*
+                          (specifier-type `(integer 0 ,(- (/ sb!vm::*backend-page-bytes*
                                                              sb!vm:n-word-bytes)
                                                           sb!vm:vector-data-offset)))))))