Fix definition of most-FOOative-fixnum.

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

diff --git a/src/compiler/generic/early-vm.lisp b/src/compiler/generic/early-vm.lisp
index 897d830..d9e89db 100644 (file)
--- a/src/compiler/generic/early-vm.lisp
+++ b/src/compiler/generic/early-vm.lisp
@@ -38,11 +38,11 @@
 (def!constant widetag-mask (1- (ash 1 n-widetag-bits)))
 
 (def!constant sb!xc:most-positive-fixnum
-    (1- (ash 1 (- n-word-bits n-lowtag-bits)))
+    (1- (ash 1 n-positive-fixnum-bits))
   #!+sb-doc
   "the fixnum closest in value to positive infinity")
 (def!constant sb!xc:most-negative-fixnum
-    (ash -1 (- n-word-bits n-lowtag-bits))
+    (ash -1 n-positive-fixnum-bits)
   #!+sb-doc
   "the fixnum closest in value to negative infinity")