/[gcl]/gcl/o/fasdump.c
ViewVC logotype

Diff of /gcl/o/fasdump.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by camm, Fri Jun 10 15:33:07 2005 UTC revision 1.15 by camm, Thu Oct 6 20:30:08 2005 UTC
# Line 697  write_fasd(object obj) Line 697  write_fasd(object obj)
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;}
# Line 720  write_fasd(object obj) Line 720  write_fasd(object obj)
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);
# Line 891  fasd_patch_sharp_cons(object x, int dept Line 891  fasd_patch_sharp_cons(object x, int dept
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);
# Line 1538  read_fasl_vector(object in) Line 1538  read_fasl_vector(object in)
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);

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26