/[gcl]/gcl/clcs/clcs_macros.c
ViewVC logotype

Diff of /gcl/clcs/clcs_macros.c

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

revision 1.3 by camm, Tue Jul 15 18:03:36 2003 UTC revision 1.4 by camm, Tue Sep 23 21:48:26 2003 UTC
# Line 23  T2:; Line 23  T2:;
23          goto T3;          goto T3;
24  T3:;  T3:;
25          {register object V10;          {register object V10;
26          V10= caar((V8));          V10= CMPcaar((V8));
27          if(!(type_of((V10))!=t_cons)){          if(!(type_of((V10))!=t_cons)){
28          goto T10;}          goto T10;}
29          {object V11;          {object V11;
# Line 34  T3:; Line 34  T3:;
34          goto T14;          goto T14;
35  T14:;  T14:;
36          {register object x= (V10),V12= VV[0];          {register object x= (V10),V12= VV[0];
37          while(!endp(V12))          while(V12!=Cnil)
38          if(eql(x,V12->c.c_car)){          if(eql(x,V12->c.c_car)){
39          goto T18;          goto T18;
40          }else V12=V12->c.c_cdr;          }else V12=V12->c.c_cdr;
# Line 42  T14:; Line 42  T14:;
42          goto T18;          goto T18;
43  T18:;  T18:;
44          {register object x= (V4),V13= VV[1];          {register object x= (V4),V13= VV[1];
45          while(!endp(V13))          while(V13!=Cnil)
46          if(eql(x,V13->c.c_car)){          if(eql(x,V13->c.c_car)){
47          goto T19;          goto T19;
48          }else V13=V13->c.c_cdr;}          }else V13=V13->c.c_cdr;}
# Line 72  T28:; Line 72  T28:;
72          {register object V17;          {register object V17;
73          register object V18;          register object V18;
74          V17= (V10);          V17= (V10);
75          V18= car((V17));          V18= CMPcar((V17));
76          goto T34;          goto T34;
77  T34:;  T34:;
78          if(!(endp_prop((V17)))){          if(!(((V17))==Cnil)){
79          goto T35;}          goto T35;}
80          goto T7;          goto T7;
81          goto T35;          goto T35;
# Line 83  T35:; Line 83  T35:;
83          {register object V19;          {register object V19;
84          V19= (V18);          V19= (V18);
85          V7= make_cons((V19),(V7));}          V7= make_cons((V19),(V7));}
86          V17= cdr((V17));          V17= CMPcdr((V17));
87          V18= car((V17));          V18= CMPcar((V17));
88          goto T34;}}          goto T34;}}
89          goto T7;          goto T7;
90  T7:;  T7:;
91          V8= cdr((V8));          V8= CMPcdr((V8));
92          goto T2;}          goto T2;}
93          base[0]=base[0];          base[0]=base[0];
94          return Cnil;          return Cnil;
# Line 112  T51:; Line 112  T51:;
112          goto T52;          goto T52;
113  T52:;  T52:;
114          {register object V24;          {register object V24;
115          V24= caar((V22));          V24= CMPcaar((V22));
116          {register object x= (V24),V25= VV[3];          {register object x= (V24),V25= VV[3];
117          while(!endp(V25))          while(V25!=Cnil)
118          if(eql(x,V25->c.c_car)){          if(eql(x,V25->c.c_car)){
119          goto T59;          goto T59;
120          }else V25=V25->c.c_cdr;          }else V25=V25->c.c_cdr;
121          goto T56;}          goto T56;}
122          goto T59;          goto T59;
123  T59:;  T59:;
124          V26= car((V22));          V26= CMPcar((V22));
125          V27= make_cons((V24),Cnil);          V27= make_cons((V24),Cnil);
         if(type_of(/* INLINE-ARGS */V26)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V26);  
126          (/* INLINE-ARGS */V26)->c.c_car = /* INLINE-ARGS */V27;}          (/* INLINE-ARGS */V26)->c.c_car = /* INLINE-ARGS */V27;}
127          goto T56;          goto T56;
128  T56:;  T56:;
129          V22= cdr((V22));          V22= CMPcdr((V22));
130          goto T51;}          goto T51;}
131          return Cnil;          return Cnil;
132  }  }
# Line 136  T56:; Line 135  T56:;
135  static void L3()  static void L3()
136  {register object *base=vs_base;  {register object *base=vs_base;
137          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
138          vs_reserve(VM3);          vs_check;
         check_arg(2);  
139          vs_top=sup;          vs_top=sup;
140          {object V28=base[0]->c.c_cdr;          {object V28=base[0]->c.c_cdr;
         if(endp(V28))invalid_macro_call();  
141          base[2]= (V28->c.c_car);          base[2]= (V28->c.c_car);
142          V28=V28->c.c_cdr;          V28=V28->c.c_cdr;
143          base[3]= V28;}          base[3]= V28;}
# Line 167  static void L3() Line 164  static void L3()
164  static void L4()  static void L4()
165  {register object *base=vs_base;  {register object *base=vs_base;
166          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
167          vs_reserve(VM4);          vs_check;
         check_arg(2);  
168          vs_top=sup;          vs_top=sup;
169          {object V37=base[0]->c.c_cdr;          {object V37=base[0]->c.c_cdr;
         if(endp(V37))invalid_macro_call();  
170          base[2]= (V37->c.c_car);          base[2]= (V37->c.c_car);
171          V37=V37->c.c_cdr;          V37=V37->c.c_cdr;
172          base[3]= V37;}          base[3]= V37;}
# Line 204  static void L4() Line 199  static void L4()
199  static void L5()  static void L5()
200  {register object *base=vs_base;  {register object *base=vs_base;
201          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
202          vs_reserve(VM5);          vs_check;
         check_arg(2);  
203          vs_top=sup;          vs_top=sup;
204          {object V48=base[0]->c.c_cdr;          {object V48=base[0]->c.c_cdr;
         if(endp(V48))invalid_macro_call();  
205          base[2]= (V48->c.c_car);          base[2]= (V48->c.c_car);
206          V48=V48->c.c_cdr;          V48=V48->c.c_cdr;
207          base[3]= V48;}          base[3]= V48;}
# Line 233  static void L5() Line 226  static void L5()
226  static void L6()  static void L6()
227  {register object *base=vs_base;  {register object *base=vs_base;
228          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
229          vs_reserve(VM6);          vs_check;
         check_arg(2);  
230          vs_top=sup;          vs_top=sup;
231          {object V56=base[0]->c.c_cdr;          {object V56=base[0]->c.c_cdr;
         if(endp(V56))invalid_macro_call();  
232          base[2]= (V56->c.c_car);          base[2]= (V56->c.c_car);
233          V56=V56->c.c_cdr;          V56=V56->c.c_cdr;
234          base[3]= V56;}          base[3]= V56;}
# Line 280  TTL:; Line 271  TTL:;
271          goto T79;}          goto T79;}
272          base[0]= (V69);          base[0]= (V69);
273          base[1]= VV[49];          base[1]= VV[49];
274          base[2]= make_fixnum((long)length((V68)));          base[2]= CMPmake_fixnum((long)length((V68)));
275          base[3]= (V68);          base[3]= (V68);
276          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
277          Lformat();          Lformat();
# Line 304  T79:; Line 295  T79:;
295  static void L8()  static void L8()
296  {register object *base=vs_base;  {register object *base=vs_base;
297          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
298          vs_reserve(VM8);          vs_check;
299          {object V72;          {object V72;
300          object V73;          object V73;
         check_arg(2);  
301          V72=(base[0]);          V72=(base[0]);
302          V73=(base[1]);          V73=(base[1]);
303          vs_top=sup;          vs_top=sup;
# Line 321  TTL:; Line 311  TTL:;
311          vs_top=sup;          vs_top=sup;
312          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
313          goto T88;}          goto T88;}
314          base[2]= symbol_value(VV[52]);          base[2]= (VV[52]->s.s_dbind);
315          base[3]= VV[53];          base[3]= VV[53];
316          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
317          Lformat();          Lformat();
# Line 335  TTL:; Line 325  TTL:;
325          base[3]= make_cons((V73),Cnil);          base[3]= make_cons((V73),Cnil);
326          values= base[3];          values= base[3];
327          while(!endp(symbols)){          while(!endp(symbols)){
         if(type_of(MMcar(symbols))!=t_symbol)  
         FEinvalid_variable("~s is not a symbol.",MMcar(symbols));  
328          if(endp(values))bds_bind(MMcar(symbols),OBJNULL);          if(endp(values))bds_bind(MMcar(symbols),OBJNULL);
329          else{bds_bind(MMcar(symbols),MMcar(values));          else{bds_bind(MMcar(symbols),MMcar(values));
330          values=MMcdr(values);}          values=MMcdr(values);}
# Line 362  T88:; Line 350  T88:;
350  static void L10()  static void L10()
351  {register object *base=vs_base;  {register object *base=vs_base;
352          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
353          vs_reserve(VM9);          vs_check;
354          {object V75;          {object V75;
         check_arg(1);  
355          V75=(base[0]);          V75=(base[0]);
356          vs_top=sup;          vs_top=sup;
357          goto TTL;          goto TTL;
# Line 388  TTL:; Line 375  TTL:;
375  static void L11()  static void L11()
376  {register object *base=vs_base;  {register object *base=vs_base;
377          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
378          vs_reserve(VM10);          vs_check;
         check_arg(2);  
379          vs_top=sup;          vs_top=sup;
380          {object V76=base[0]->c.c_cdr;          {object V76=base[0]->c.c_cdr;
         if(endp(V76))invalid_macro_call();  
381          base[2]= (V76->c.c_car);          base[2]= (V76->c.c_car);
382          V76=V76->c.c_cdr;          V76=V76->c.c_cdr;
383          if(endp(V76)){          if(endp(V76)){
# Line 423  T113:; Line 408  T113:;
408          V79= list(3,VV[27],VV[61],list(3,VV[62],list(2,VV[14],base[3]),VV[30]));          V79= list(3,VV[27],VV[61],list(3,VV[62],list(2,VV[14],base[3]),VV[30]));
409          {object V81;          {object V81;
410          object V82= base[3];          object V82= base[3];
411          if(endp(V82)){          if(V82==Cnil){
412          V80= Cnil;          V80= Cnil;
413          goto T117;}          goto T117;}
414          base[6]=V81=MMcons(Cnil,Cnil);          base[6]=V81=MMcons(Cnil,Cnil);
415          goto T118;          goto T118;
416  T118:;  T118:;
417          (V81->c.c_car)= list(3,VV[34],(V82->c.c_car),list(3,VV[63],list(2,VV[14],(V82->c.c_car)),(V82->c.c_car)));          (V81->c.c_car)= list(3,VV[34],(V82->c.c_car),list(3,VV[63],list(2,VV[14],(V82->c.c_car)),(V82->c.c_car)));
418          V82=MMcdr(V82);          if((V82=MMcdr(V82))==Cnil){
         if(endp(V82)){  
419          V80= base[6];          V80= base[6];
420          goto T117;}          goto T117;}
421          V81=MMcdr(V81)=MMcons(Cnil,Cnil);          V81=MMcdr(V81)=MMcons(Cnil,Cnil);
# Line 451  static object LI12() Line 435  static object LI12()
435  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
436          goto TTL;          goto TTL;
437  TTL:;  TTL:;
438          base[0]= symbol_value(VV[52]);          base[0]= (VV[52]->s.s_dbind);
439          base[1]= VV[64];          base[1]= VV[64];
440          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
441          Lformat();          Lformat();
442          vs_top=sup;          vs_top=sup;
443          base[1]= symbol_value(VV[52]);          base[1]= (VV[52]->s.s_dbind);
444          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
445          Lread();          Lread();
446          vs_top=sup;          vs_top=sup;
# Line 475  TTL:; Line 459  TTL:;
459  static void L13()  static void L13()
460  {register object *base=vs_base;  {register object *base=vs_base;
461          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
462          vs_reserve(VM12);          vs_check;
         check_arg(2);  
463          vs_top=sup;          vs_top=sup;
464          {object V88=base[0]->c.c_cdr;          {object V88=base[0]->c.c_cdr;
         if(endp(V88))invalid_macro_call();  
465          base[2]= (V88->c.c_car);          base[2]= (V88->c.c_car);
466          V88=V88->c.c_cdr;          V88=V88->c.c_cdr;
         if(endp(V88))invalid_macro_call();  
467          base[3]= (V88->c.c_car);          base[3]= (V88->c.c_car);
468          V88=V88->c.c_cdr;          V88=V88->c.c_cdr;
469          if(endp(V88)){          if(endp(V88)){
470          base[4]= Cnil;          base[4]= Cnil;
471          } else {          } else {
472          base[4]= (V88->c.c_car);          base[4]= (V88->c.c_car);}}
         V88=V88->c.c_cdr;}  
         if(!endp(V88))invalid_macro_call();}  
473          {object V89;          {object V89;
474          object V90;          object V90;
475          vs_base=vs_top;          vs_base=vs_top;
# Line 525  static void L9(base0) Line 504  static void L9(base0)
504  register object *base0;  register object *base0;
505  {       register object *base=vs_base;  {       register object *base=vs_base;
506          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
507          vs_reserve(VM13);          vs_check;
         check_arg(0);  
508          vs_top=sup;          vs_top=sup;
509          goto TTL;          goto TTL;
510  TTL:;  TTL:;
511          base[1]= symbol_value(VV[52]);          base[1]= (VV[52]->s.s_dbind);
512          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
513          Lread();          Lread();
514          vs_top=sup;          vs_top=sup;

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

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