777 |
|
|
778 |
void |
void |
779 |
check_arg_range(int n, int m) |
check_arg_range(int n, int m) |
780 |
{ if (VFUN_NARGS < n) |
{ |
781 |
Icall_error_handler( |
object x,x1; |
782 |
sKtoo_few_arguments, |
|
783 |
|
x=make_fixnum(n); |
784 |
|
x1=make_fixnum(VFUN_NARGS); |
785 |
|
if (VFUN_NARGS < n) |
786 |
|
Icall_error_handler( |
787 |
|
sKtoo_few_arguments, |
788 |
make_simple_string("Needed at least ~D args, but received ~d"), |
make_simple_string("Needed at least ~D args, but received ~d"), |
789 |
2,make_fixnum(n),make_fixnum(VFUN_NARGS)); |
2,x,x1); |
790 |
else if (VFUN_NARGS > m) |
else if (VFUN_NARGS > m) |
791 |
Icall_error_handler( |
Icall_error_handler( |
792 |
sKtoo_many_arguments, |
sKtoo_many_arguments, |
793 |
make_simple_string("Needed no more than ~D args, but received ~d"), |
make_simple_string("Needed no more than ~D args, but received ~d"), |
794 |
2,make_fixnum(m),make_fixnum(VFUN_NARGS)); |
2,x,x1); |
795 |
} |
} |
796 |
|
|
797 |
|
|