From 2cc6274e2130abb04833a7932e5cbaf97e93dca6 Mon Sep 17 00:00:00 2001 From: Alastair Bridgewater Date: Sun, 14 Feb 2010 16:29:08 -0500 Subject: [PATCH] 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. --- src/compiler/generic/early-vm.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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") -- 1.7.10.4