CMUCL commit: amd64-dd-branch src/tools/cross-scripts (cross-x86-amd64.lisp)

[Raymond Toy]

    Date: Wednesday, November 4, 2009 @ 08:02:52
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/tools/cross-scripts
     Tag: amd64-dd-branch

Modified: cross-x86-amd64.lisp

Oops. TARGET-MOST-POSITIVE-FIXNUM and TARGET-MOST-NEGATIVE-FIXNUM are
not constants.


----------------------+
 cross-x86-amd64.lisp |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


Index: src/tools/cross-scripts/cross-x86-amd64.lisp
diff -u src/tools/cross-scripts/cross-x86-amd64.lisp:1.1.2.3 src/tools/cross-scripts/cross-x86-amd64.lisp:1.1.2.4
--- src/tools/cross-scripts/cross-x86-amd64.lisp:1.1.2.3	Tue Nov  3 23:26:34 2009
+++ src/tools/cross-scripts/cross-x86-amd64.lisp	Wed Nov  4 08:02:51 2009
@@ -135,8 +135,8 @@
 (defconstant char-bytes (truncate char-bits byte-bits)
   "Number of bytes needed to represent a character")
 
-(defconstant target-most-positive-fixnum (1- (ash 1 61)))
-(defconstant target-most-negative-fixnum (ash -1 61))
+(defparameter target-most-positive-fixnum (1- (ash 1 61)))
+(defparameter target-most-negative-fixnum (ash -1 61))
 
 (defconstant most-positive-fixnum #.vm::target-most-positive-fixnum
   "The fixnum closest in value to positive infinity.")