Parent Directory | Revision Log | Patch
revision 1.9 by camm, Sat Mar 1 22:37:37 2003 UTC | revision 1.9.4.1 by camm, Wed Jul 16 02:02:51 2003 UTC | |
---|---|---|
# | Line 47 fixnnint(object x) | Line 47 fixnnint(object x) |
47 | FEerror("~S is not a non-negative fixnum.", 1, x); | FEerror("~S is not a non-negative fixnum.", 1, x); |
48 | return(fix(x)); | return(fix(x)); |
49 | } | } |
50 | #if 0 | |
51 | object small_fixnum ( int i ) { | |
52 | #include <assert.h> | |
53 | assert ( ( -SMALL_FIXNUM_LIMIT <= i ) && ( i < SMALL_FIXNUM_LIMIT ) ); | |
54 | (object) small_fixnum_table + SMALL_FIXNUM_LIMIT + i; | |
55 | } | |
56 | #endif | |
57 | ||
58 | #define BIGGER_FIXNUM_RANGE | #define BIGGER_FIXNUM_RANGE |
59 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |