From: Alastair Bridgewater <nyef_sbcl@lisphacker.com>
Date: Sun, 14 Feb 2010 21:29:08 +0000 (-0500)
Subject: Fix definition of most-FOOative-fixnum.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2cc6274e2130abb04833a7932e5cbaf97e93dca6;p=sbcl.git

Fix definition of most-FOOative-fixnum.

  * Define in terms of n-positive-fixnum-bits, not some relation between
n-word-bits and n-lowtag-bits.
---

diff --git a/src/compiler/generic/early-vm.lisp b/src/compiler/generic/early-vm.lisp
index 897d830..d9e89db 100644
--- 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")