54 |
struct {int min,max;} bigger_fixnums; |
struct {int min,max;} bigger_fixnums; |
55 |
|
|
56 |
struct fixnum_struct *bigger_fixnum_table; |
struct fixnum_struct *bigger_fixnum_table; |
57 |
DEFUN("ALLOCATE-BIGGER-FIXNUM-RANGE",object,fSallocate_bigger_fixnum_range, |
DEFUN_NEW("ALLOCATE-BIGGER-FIXNUM-RANGE",object,fSallocate_bigger_fixnum_range, |
58 |
SI,2,2,NONE,OI,IO,OO,OO,"") (min,max) |
SI,2,2,NONE,OI,IO,OO,OO,(int min,int max),"") |
|
int min,max; |
|
59 |
{ int j; |
{ int j; |
60 |
if (min <= max); else {FEerror("Need Min < Max",0);} |
if (min <= max); else {FEerror("Need Min < Max",0);} |
61 |
bigger_fixnum_table= (void *) malloc(sizeof(struct fixnum_struct)* |
bigger_fixnum_table= (void *) malloc(sizeof(struct fixnum_struct)* |