/[gcl]/gcl/lsp/make_defpackage.c
ViewVC logotype

Diff of /gcl/lsp/make_defpackage.c

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

revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC revision 1.6 by camm, Tue Sep 24 19:01:45 2002 UTC
# Line 58  T10:; Line 58  T10:;
58          Lpackage_name();          Lpackage_name();
59          vs_top=sup;          vs_top=sup;
60          (V13->c.c_car)= vs_base[0];          (V13->c.c_car)= vs_base[0];
61          if(endp(V14=MMcdr(V14))){          V14=MMcdr(V14);
62            if(endp(V14)){
63          V6= base[6];          V6= base[6];
64          goto T9;}          goto T9;}
65          V13=MMcdr(V13)=MMcons(Cnil,Cnil);          V13=MMcdr(V13)=MMcons(Cnil,Cnil);
# Line 297  T124:; Line 298  T124:;
298  goto T133;  goto T133;
299  T133:;  T133:;
300          (V41->c.c_car)= symbol_name((V42->c.c_car));          (V41->c.c_car)= symbol_name((V42->c.c_car));
301          if(endp(V42=MMcdr(V42))){          V42=MMcdr(V42);
302            if(endp(V42)){
303          V40= base[10];          V40= base[10];
304          goto T132;}          goto T132;}
305          V41=MMcdr(V41)=MMcons(Cnil,Cnil);          V41=MMcdr(V41)=MMcons(Cnil,Cnil);
# Line 333  T139:; Line 335  T139:;
335          V47= vs_base[0];          V47= vs_base[0];
336          V48= list(3,VV[5],V47,symbol_name((V45->c.c_car)));          V48= list(3,VV[5],V47,symbol_name((V45->c.c_car)));
337          (V44->c.c_car)= make_cons(/* INLINE-ARGS */V48,Cnil);          (V44->c.c_car)= make_cons(/* INLINE-ARGS */V48,Cnil);
338          if(endp(V45=MMcdr(V45))){          V45=MMcdr(V45);
339            if(endp(V45)){
340          base[10]= base[11];          base[10]= base[11];
341          goto T135;}          goto T135;}
342          V44=MMcdr(V44)=MMcons(Cnil,Cnil);          V44=MMcdr(V44)=MMcons(Cnil,Cnil);
# Line 364  T148:; Line 367  T148:;
367          V52= vs_base[0];          V52= vs_base[0];
368          V53= list(3,VV[6],V52,symbol_name((V50->c.c_car)));          V53= list(3,VV[6],V52,symbol_name((V50->c.c_car)));
369          (V49->c.c_car)= make_cons(/* INLINE-ARGS */V53,Cnil);          (V49->c.c_car)= make_cons(/* INLINE-ARGS */V53,Cnil);
370          if(endp(V50=MMcdr(V50))){          V50=MMcdr(V50);
371            if(endp(V50)){
372          base[11]= base[12];          base[11]= base[12];
373          goto T144;}          goto T144;}
374          V49=MMcdr(V49)=MMcons(Cnil,Cnil);          V49=MMcdr(V49)=MMcons(Cnil,Cnil);

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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