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

Diff of /gcl/lsp/gcl_assert.c

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

revision 1.1.2.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.1.2.2 by camm, Tue Sep 23 18:39:18 2003 UTC
# Line 23  static void L1() Line 23  static void L1()
23          } else {          } else {
24          base[4]= (V1->c.c_car);          base[4]= (V1->c.c_car);
25          base[5]= Ct;          base[5]= Ct;
26          V1=V1->c.c_cdr;}          V1=V1->c.c_cdr;
27            }
28          if(!endp(V1))invalid_macro_call();}          if(!endp(V1))invalid_macro_call();}
29          V2= list(2,list(3,VV[2],base[2],list(2,VV[3],base[3])),Cnil);          V2= list(2,list(3,VV[2],base[2],list(2,VV[3],base[3])),Cnil);
30          V3= list(2,VV[3],base[2]);          V3= list(2,VV[3],base[2]);
# Line 58  static void L2() Line 59  static void L2()
59          base[3]= Cnil;          base[3]= Cnil;
60          } else {          } else {
61          base[3]= (V7->c.c_car);          base[3]= (V7->c.c_car);
62          V7=V7->c.c_cdr;}          V7=V7->c.c_cdr;
63            }
64          if(endp(V7)){          if(endp(V7)){
65          base[4]= Cnil;          base[4]= Cnil;
66          } else {          } else {
67          base[4]= (V7->c.c_car);          base[4]= (V7->c.c_car);
68          V7=V7->c.c_cdr;}          V7=V7->c.c_cdr;
69            }
70          base[5]= V7;}          base[5]= V7;}
71          V8= list(2,base[2],Cnil);          V8= list(2,base[2],Cnil);
72          if((base[4])==Cnil){          if((base[4])==Cnil){

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

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