785 |
|
|
786 |
if (n < 0) { |
if (n < 0) { |
787 |
vs_push(make_fixnum(n)); |
vs_push(make_fixnum(n)); |
788 |
FEwrong_type_argument(sLpositive_fixnum, vs_head); |
FEwrong_type_argument(sLnon_negative_fixnum, vs_head); |
789 |
} |
} |
790 |
while (n-- > 0) |
while (n-- > 0) |
791 |
if (endp_prop(x)) { |
if (endp_prop(x)) { |
808 |
return; |
return; |
809 |
if (n==2) { |
if (n==2) { |
810 |
if (type_of(vs_base[1])!=t_fixnum || (n=fix(vs_base[1]))<0) |
if (type_of(vs_base[1])!=t_fixnum || (n=fix(vs_base[1]))<0) |
811 |
FEwrong_type_argument(sLpositive_fixnum,vs_base[1]); |
FEwrong_type_argument(sLnon_negative_fixnum,vs_base[1]); |
812 |
vs_popp; |
vs_popp; |
813 |
} |
} |
814 |
|
|