Changeset 356

Timestamp:

Jan 20, 2004, 11:30:16 PM (21 years ago)

Author:

Gary Byers

Message:

NX1-ASH: where did those numbers come from ?

File:

• trunk/ccl/compiler/nx1.lisp (modified) (1 diff)

trunk/ccl/compiler/nx1.lisp

@@ -1935 +1935 @@
                      (nx1-form amt)))
         ((and (fixnump amt)
-              (<= 0 amt 27)
-              (or (nx-form-typep num `(signed-byte ,(- 28 amt)) env)
+              (<= 0 amt (integer-length most-positive-fixnum))
+              (or (nx-form-typep num `(signed-byte ,(- (1+ (integer-length most-positive-fixnum))  amt)) env)
                   (and (nx-form-typep num 'fixnum env)
                        (nx-trust-declarations env)