697 |
{ if(x==Cnil) |
{ if(x==Cnil) |
698 |
{PUT_OP(d_list1+l); |
{PUT_OP(d_list1+l); |
699 |
break;} |
break;} |
700 |
if(type_of(x)==t_cons) |
if(consp(x)) |
701 |
{if ((int) d_list1 + ++l > (int) d_list4) |
{if ((int) d_list1 + ++l > (int) d_list4) |
702 |
{PUT_OP(d_list); |
{PUT_OP(d_list); |
703 |
break;} |
break;} |
720 |
obj=obj->c.c_cdr; |
obj=obj->c.c_cdr; |
721 |
{int l=0; |
{int l=0; |
722 |
while(1) |
while(1) |
723 |
{if (type_of(obj)==t_cons) |
{if (consp(obj)) |
724 |
{ enum circ_ind is_indexed=LATER_INDEX; |
{ enum circ_ind is_indexed=LATER_INDEX; |
725 |
if(HASHP(t_cons)){ |
if(HASHP(t_cons)){ |
726 |
is_indexed=do_hash(obj,d_dot); |
is_indexed=do_hash(obj,d_dot); |
891 |
{ |
{ |
892 |
for (;;) { |
for (;;) { |
893 |
x->c.c_car = fasd_patch_sharp(x->c.c_car,depth+1); |
x->c.c_car = fasd_patch_sharp(x->c.c_car,depth+1); |
894 |
if (type_of(x->c.c_cdr) == t_cons) |
if (consp(x->c.c_cdr)) |
895 |
x = x->c.c_cdr; |
x = x->c.c_cdr; |
896 |
else { |
else { |
897 |
x->c.c_cdr = fasd_patch_sharp(x->c.c_cdr,depth+1); |
x->c.c_cdr = fasd_patch_sharp(x->c.c_cdr,depth+1); |
1538 |
result=FFN(read_fasd_top)(ar); |
result=FFN(read_fasd_top)(ar); |
1539 |
if (type_of(result) !=t_vector) goto ERROR; |
if (type_of(result) !=t_vector) goto ERROR; |
1540 |
last=result->v.v_self[result->v.v_fillp-1]; |
last=result->v.v_self[result->v.v_fillp-1]; |
1541 |
if(type_of(last)!=t_cons || last->c.c_car !=sSPinit) |
if(!consp(last) || last->c.c_car !=sSPinit) |
1542 |
goto ERROR; |
goto ERROR; |
1543 |
current_fasd.table->v.v_self = 0; |
current_fasd.table->v.v_self = 0; |
1544 |
FFN(close_fasd)(ar); |
FFN(close_fasd)(ar); |