685 |
for (b1=b,i=0;i<x->a.a_rank;i++,b1=b1->c.c_cdr) { |
for (b1=b,i=0;i<x->a.a_rank;i++,b1=b1->c.c_cdr) { |
686 |
b1->d.t=(int)t_cons; |
b1->d.t=(int)t_cons; |
687 |
b1->d.m=FALSE; |
b1->d.m=FALSE; |
688 |
b1->c.c_car=x->a.a_dims[i]<SMALL_FIXNUM_LIMIT ? |
b1->c.c_car=/* x->a.a_dims[i]<SMALL_FIXNUM_LIMIT ? */ |
689 |
small_fixnum(x->a.a_dims[i]) : |
/* small_fixnum(x->a.a_dims[i]) : */ |
690 |
|
/* now done in a macro */ |
691 |
make_fixnum(x->a.a_dims[i]); |
make_fixnum(x->a.a_dims[i]); |
692 |
b1->c.c_cdr=i<x->a.a_rank-1 ? (object)++p : Cnil; |
b1->c.c_cdr=i<x->a.a_rank-1 ? (object)++p : Cnil; |
693 |
} |
} |