Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp	(revision 371)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp	(revision 372)
@@ -79,5 +79,6 @@
 (defconstant charcode-shift (- nbits-in-word ncharcodebits))
 (defconstant word-shift 2)
-
+(defconstant target-most-negative-fixnum (ash -1 (1- (- nbits-in-word nfixnumtagbits))))
+(defconstant target-most-positive-fixnum (1- (ash 1 (1- (- nbits-in-word nfixnumtagbits)))))
 
 ;; PPC-32 stuff and tags.