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

Diff of /gcl/lsp/gcl_iolib.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:19 2003 UTC
# Line 72  static void L2() Line 72  static void L2()
72          if(V12==OBJNULL){          if(V12==OBJNULL){
73          base[4]= Cnil;          base[4]= Cnil;
74          } else {          } else {
75          base[4]= V12;}}          base[4]= V12;
76            }}
77          {object V13=getf(V11,VV[41],OBJNULL);          {object V13=getf(V11,VV[41],OBJNULL);
78          if(V13==OBJNULL){          if(V13==OBJNULL){
79          base[5]= Cnil;          base[5]= Cnil;
80          } else {          } else {
81          base[5]= V13;}}          base[5]= V13;
82            }}
83          {object V14=getf(V11,VV[42],OBJNULL);          {object V14=getf(V11,VV[42],OBJNULL);
84          if(V14==OBJNULL){          if(V14==OBJNULL){
85          base[6]= Cnil;          base[6]= Cnil;
86          } else {          } else {
87          base[6]= V14;}}          base[6]= V14;
88          check_other_key(V11,3,VV[40],VV[41],VV[42]);}          }}
89            check_other_key(V11,3
90            ,VV[40]
91            ,VV[41]
92            ,VV[42]
93            );}
94          V10=V10->c.c_cdr;          V10=V10->c.c_cdr;
95          base[7]= V10;}          base[7]= V10;}
96          if((base[4])==Cnil){          if((base[4])==Cnil){
# Line 141  static void L3() Line 148  static void L3()
148          base[3]= Cnil;          base[3]= Cnil;
149          } else {          } else {
150          base[3]= (V24->c.c_car);          base[3]= (V24->c.c_car);
151          V24=V24->c.c_cdr;}          V24=V24->c.c_cdr;
152            }
153          if(!endp(V24))invalid_macro_call();}          if(!endp(V24))invalid_macro_call();}
154          V23=V23->c.c_cdr;          V23=V23->c.c_cdr;
155          base[4]= V23;}          base[4]= V23;}

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