/[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.2 by camm, Sun Sep 14 02:43:05 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:31 2003 UTC
# Line 70  static void L2() Line 70  static void L2()
70          V11=V11->c.c_cdr;          V11=V11->c.c_cdr;
71          {object V12=getf(V11,VV[40],OBJNULL);          {object V12=getf(V11,VV[40],OBJNULL);
72          if(V12==OBJNULL){          if(V12==OBJNULL){
73          base[4]= Cnil;          base[4]= Cnil;} else {
74          } else {          base[4]= V12;
75          base[4]= V12;}}          }}
76          {object V13=getf(V11,VV[41],OBJNULL);          {object V13=getf(V11,VV[41],OBJNULL);
77          if(V13==OBJNULL){          if(V13==OBJNULL){
78          base[5]= Cnil;          base[5]= Cnil;} else {
79          } else {          base[5]= V13;
80          base[5]= V13;}}          }}
81          {object V14=getf(V11,VV[42],OBJNULL);          {object V14=getf(V11,VV[42],OBJNULL);
82          if(V14==OBJNULL){          if(V14==OBJNULL){
83          base[6]= Cnil;          base[6]= Cnil;} else {
84          } else {          base[6]= V14;
85          base[6]= V14;}}          }}
86          check_other_key(V11,3,VV[40],VV[41],VV[42]);}          check_other_key(V11,3,VV[40],VV[41],VV[42]);}
87          V10=V10->c.c_cdr;          V10=V10->c.c_cdr;
88          base[7]= V10;}          base[7]= V10;}

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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