282 |
int rank = n - 2; |
int rank = n - 2; |
283 |
if (x->a.a_rank != rank) |
if (x->a.a_rank != rank) |
284 |
FEerror(" ~a has wrong rank",1,x); |
FEerror(" ~a has wrong rank",1,x); |
285 |
if (rank == 0) return fSaset1(x,0,ii); |
if (rank == 0) return fSaset1(x,make_fixnum(0),ii); |
286 |
ASSURE_TYPE(ii,t_fixnum); |
ASSURE_TYPE(ii,t_fixnum); |
287 |
i = fix(ii); |
i = fix(ii); |
288 |
if (rank == 1) |
if (rank == 1) |
1142 |
object ind[ARRAY_RANK_LIMIT]; |
object ind[ARRAY_RANK_LIMIT]; |
1143 |
/* 3 args */ |
/* 3 args */ |
1144 |
ind[0]=array; |
ind[0]=array; |
1145 |
if (cursor==sLnil) {fSaset1(array,0,val); RETURN1(array);} |
if (cursor==sLnil) {fSaset1(array,make_fixnum(0),val); RETURN1(array);} |
1146 |
ind[1]=MMcar(cursor); |
ind[1]=MMcar(cursor); |
1147 |
i = 2; |
i = 2; |
1148 |
for (x = MMcdr(cursor); !endp(x); x = MMcdr(x)) |
for (x = MMcdr(cursor); !endp(x); x = MMcdr(x)) |