/[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.2.4.1 by camm, Wed Jul 16 02:02:47 2003 UTC revision 1.2.4.1.4.1 by camm, Tue Sep 23 18:39:17 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "clcs_macros.h"  #include "clcs_macros.h"
4  void init_clcs_macros(){do_init(VV);}  void init_clcs_macros(){do_init(VV);}
5  /*      local entry for function ACCUMULATE-CASES       */  /*      function definition for ACCUMULATE-CASES        */
6    
7  static object LI1(V4,V5,V6)  static void L1()
8    {register object *base=vs_base;
9  object V4;object V5;object V6;          register object *sup=base+VM1; VC1
10  {        VMB1 VMS1 VMV1          vs_check;
11            {object V1;
12            object V2;
13            object V3;
14            V1=(base[0]);
15            V2=(base[1]);
16            V3=(base[2]);
17            vs_top=sup;
18          goto TTL;          goto TTL;
19  TTL:;  TTL:;
20          {register object V7;          {register object V4;
21          register object V8;          register object V5;
22          V7= Cnil;          V4= Cnil;
23          V8= (V5);          V5= (V2);
24          goto T2;          goto T2;
25  T2:;  T2:;
26          if(((V8))!=Cnil){          if(((V5))!=Cnil){
27          goto T3;}          goto T3;}
28          {object V9 = nreverse((V7));          base[3]= nreverse((V4));
29          VMR1(V9)}          vs_top=(vs_base=base+3)+1;
30            return;
31          goto T3;          goto T3;
32  T3:;  T3:;
33          {register object V10;          {register object V6;
34          V10= caar((V8));          V6= CMPcaar((V5));
35          if(!(type_of((V10))!=t_cons)){          if(!(type_of((V6))!=t_cons)){
36          goto T10;}          goto T10;}
37          {object V11;          {object V7;
38          V11= (((V10))==Cnil?Ct:Cnil);          V7= (((V6))==Cnil?Ct:Cnil);
39          if(((V11))==Cnil){          if(((V7))==Cnil){
40          goto T14;}          goto T14;}
41          goto T7;          goto T7;
42          goto T14;          goto T14;
43  T14:;  T14:;
44          {register object x= (V10),V12= VV[0];          {register object x= (V6),V8= VV[0];
45          while(!endp(V12))          while(V8!=Cnil)
46          if(eql(x,V12->c.c_car)){          if(eql(x,V8->c.c_car)){
47          goto T18;          goto T18;
48          }else V12=V12->c.c_cdr;          }else V8=V8->c.c_cdr;
49          goto T17;}          goto T17;}
50          goto T18;          goto T18;
51  T18:;  T18:;
52          {register object x= (V4),V13= VV[1];          {register object x= (V1),V9= VV[1];
53          while(!endp(V13))          while(V9!=Cnil)
54          if(eql(x,V13->c.c_car)){          if(eql(x,V9->c.c_car)){
55          goto T19;          goto T19;
56          }else V13=V13->c.c_cdr;}          }else V9=V9->c.c_cdr;}
57          base[0]= VV[2];          base[3]= VV[2];
58          base[1]= (V4);          base[4]= (V1);
59          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+3)+2;
60          (void) (*Lnk8)();          (void) (*Lnk8)();
61          vs_top=sup;          vs_top=sup;
62          goto T19;          goto T19;
63  T19:;  T19:;
64          {object V14;          {object V10;
65          V14= make_cons((V10),Cnil);          V10= make_cons((V6),Cnil);
66          V7= make_cons((V14),(V7));          V4= make_cons((V10),(V4));
67          goto T7;}          goto T7;}
68          goto T17;          goto T17;
69  T17:;  T17:;
70          V7= make_cons(V10,(V7));          V4= make_cons(V6,(V4));
71          goto T7;}          goto T7;}
72          goto T10;          goto T10;
73  T10:;  T10:;
74          if(((V6))==Cnil){          if(((V3))==Cnil){
75          goto T28;}          goto T28;}
76          V7= make_cons(V10,(V7));          V4= make_cons(V6,(V4));
77          goto T7;          goto T7;
78          goto T28;          goto T28;
79  T28:;  T28:;
80          {register object V17;          {register object V13;
81          register object V18;          register object V14;
82          V17= (V10);          V13= (V6);
83          V18= car((V17));          V14= CMPcar((V13));
84          goto T34;          goto T34;
85  T34:;  T34:;
86          if(!(endp_prop((V17)))){          if(!(((V13))==Cnil)){
87          goto T35;}          goto T35;}
88          goto T7;          goto T7;
89          goto T35;          goto T35;
90  T35:;  T35:;
91          {register object V19;          {register object V15;
92          V19= (V18);          V15= (V14);
93          V7= make_cons((V19),(V7));}          V4= make_cons((V15),(V4));}
94          V17= cdr((V17));          V13= CMPcdr((V13));
95          V18= car((V17));          V14= CMPcar((V13));
96          goto T34;}}          goto T34;}}
97          goto T7;          goto T7;
98  T7:;  T7:;
99          V8= cdr((V8));          V5= CMPcdr((V5));
100          goto T2;}          goto T2;}
101          base[0]=base[0];          }
         return Cnil;  
102  }  }
103  /*      local entry for function ESCAPE-SPECIAL-CASES-REPLACE   */  /*      function definition for ESCAPE-SPECIAL-CASES-REPLACE    */
104    
105  static object LI2(V21)  static void L2()
106    {register object *base=vs_base;
107  register object V21;          register object *sup=base+VM2; VC2
108  {        VMB2 VMS2 VMV2          vs_check;
109            {register object V16;
110            V16=(base[0]);
111            vs_top=sup;
112          goto TTL;          goto TTL;
113  TTL:;  TTL:;
114          {register object V22;          {register object V17;
115          V22= (V21);          V17= (V16);
116          goto T51;          goto T51;
117  T51:;  T51:;
118          if(((V22))!=Cnil){          if(((V17))!=Cnil){
119          goto T52;}          goto T52;}
120          {object V23 = (V21);          base[1]= (V16);
121          VMR2(V23)}          vs_top=(vs_base=base+1)+1;
122            return;
123          goto T52;          goto T52;
124  T52:;  T52:;
125          {register object V24;          {register object V18;
126          V24= caar((V22));          V18= CMPcaar((V17));
127          {register object x= (V24),V25= VV[3];          {register object x= (V18),V19= VV[3];
128          while(!endp(V25))          while(V19!=Cnil)
129          if(eql(x,V25->c.c_car)){          if(eql(x,V19->c.c_car)){
130          goto T59;          goto T59;
131          }else V25=V25->c.c_cdr;          }else V19=V19->c.c_cdr;
132          goto T56;}          goto T56;}
133          goto T59;          goto T59;
134  T59:;  T59:;
135          V26= car((V22));          V20= CMPcar((V17));
136          V27= make_cons((V24),Cnil);          V21= make_cons((V18),Cnil);
137          if(type_of(/* INLINE-ARGS */V26)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V26);          (/* INLINE-ARGS */V20)->c.c_car = /* INLINE-ARGS */V21;}
         (/* INLINE-ARGS */V26)->c.c_car = /* INLINE-ARGS */V27;}  
138          goto T56;          goto T56;
139  T56:;  T56:;
140          V22= cdr((V22));          V17= CMPcdr((V17));
141          goto T51;}          goto T51;}
142          return Cnil;          }
143  }  }
144  /*      macro definition for ECASE      */  /*      macro definition for ECASE      */
145    
146  static void L3()  static void L3()
147  {register object *base=vs_base;  {register object *base=vs_base;
148          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
149          vs_reserve(VM3);          vs_check;
150          check_arg(2);          vs_top=sup;
151            {object V22=base[0]->c.c_cdr;
152            base[2]= (V22->c.c_car);
153            V22=V22->c.c_cdr;
154            base[3]= V22;}
155            {object V23;
156            object V24;
157            object V25;
158            base[4]= VV[4];
159            base[5]= base[3];
160            base[6]= Cnil;
161            vs_top=(vs_base=base+4)+3;
162            (void) (*Lnk72)();
163            vs_top=sup;
164            V23= vs_base[0];
165            base[4]= base[3];
166            vs_top=(vs_base=base+4)+1;
167            (void) (*Lnk73)();
168          vs_top=sup;          vs_top=sup;
169          {object V28=base[0]->c.c_cdr;          V24= vs_base[0];
         if(endp(V28))invalid_macro_call();  
         base[2]= (V28->c.c_car);  
         V28=V28->c.c_cdr;  
         base[3]= V28;}  
         {object V29;  
         object V30;  
         object V31;  
         V29= (*(LnkLI72))(VV[4],base[3],Cnil);  
         V30= (*(LnkLI73))(base[3]);  
170          vs_base=vs_top;          vs_base=vs_top;
171          Lgensym();          Lgensym();
172          vs_top=sup;          vs_top=sup;
173          V31= vs_base[0];          V25= vs_base[0];
174          V32= list(2,(V31),base[2]);          V26= list(2,(V25),base[2]);
175          V33= make_cons(/* INLINE-ARGS */V32,Cnil);          V27= make_cons(/* INLINE-ARGS */V26,Cnil);
176          V34= list(2,VV[14],make_cons(VV[15],(V29)));          V28= list(2,VV[14],make_cons(VV[15],(V23)));
177          V35= list(2,VV[7],list(10,VV[8],VV[9],VV[10],VV[11],VV[12],(V31),VV[13],/* INLINE-ARGS */V34,VV[16],list(2,VV[14],(V29))));          V29= list(2,VV[7],list(10,VV[8],VV[9],VV[10],VV[11],VV[12],(V25),VV[13],/* INLINE-ARGS */V28,VV[16],list(2,VV[14],(V23))));
178          V36= make_cons(/* INLINE-ARGS */V35,Cnil);          V30= make_cons(/* INLINE-ARGS */V29,Cnil);
179          base[4]= list(3,VV[5],/* INLINE-ARGS */V33,listA(3,VV[6],(V31),append((V30),/* INLINE-ARGS */V36)));          base[4]= list(3,VV[5],/* INLINE-ARGS */V27,listA(3,VV[6],(V25),append((V24),/* INLINE-ARGS */V30)));
180          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
181          return;}          return;}
182  }  }
# Line 167  static void L3() Line 185  static void L3()
185  static void L4()  static void L4()
186  {register object *base=vs_base;  {register object *base=vs_base;
187          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
188          vs_reserve(VM4);          vs_check;
189          check_arg(2);          vs_top=sup;
190            {object V31=base[0]->c.c_cdr;
191            base[2]= (V31->c.c_car);
192            V31=V31->c.c_cdr;
193            base[3]= V31;}
194            {object V32;
195            object V33;
196            object V34;
197            object V35;
198            base[4]= VV[17];
199            base[5]= base[3];
200            base[6]= Cnil;
201            vs_top=(vs_base=base+4)+3;
202            (void) (*Lnk72)();
203            vs_top=sup;
204            V32= vs_base[0];
205            base[4]= base[3];
206            vs_top=(vs_base=base+4)+1;
207            (void) (*Lnk73)();
208          vs_top=sup;          vs_top=sup;
209          {object V37=base[0]->c.c_cdr;          V33= vs_base[0];
         if(endp(V37))invalid_macro_call();  
         base[2]= (V37->c.c_car);  
         V37=V37->c.c_cdr;  
         base[3]= V37;}  
         {object V38;  
         object V39;  
         object V40;  
         object V41;  
         V38= (*(LnkLI72))(VV[17],base[3],Cnil);  
         V39= (*(LnkLI73))(base[3]);  
210          vs_base=vs_top;          vs_base=vs_top;
211          Lgensym();          Lgensym();
212          vs_top=sup;          vs_top=sup;
213          V40= vs_base[0];          V34= vs_base[0];
214          vs_base=vs_top;          vs_base=vs_top;
215          Lgensym();          Lgensym();
216          vs_top=sup;          vs_top=sup;
217          V41= vs_base[0];          V35= vs_base[0];
218          V42= list(2,VV[14],make_cons(VV[15],(V38)));          V36= list(2,VV[14],make_cons(VV[15],(V32)));
219          V43= list(10,VV[8],VV[22],VV[10],VV[23],VV[12],base[2],VV[13],/* INLINE-ARGS */V42,VV[16],list(2,VV[14],(V38)));          V37= list(10,VV[8],VV[22],VV[10],VV[23],VV[12],base[2],VV[13],/* INLINE-ARGS */V36,VV[16],list(2,VV[14],(V32)));
220          V44= list(3,VV[27],VV[28],list(4,VV[29],VV[30],VV[31],list(2,VV[14],base[2])));          V38= list(3,VV[27],VV[28],list(4,VV[29],VV[30],VV[31],list(2,VV[14],base[2])));
221          V45= list(3,VV[34],base[2],VV[35]);          V39= list(3,VV[34],base[2],VV[35]);
222          V46= list(2,VV[7],list(3,VV[21],/* INLINE-ARGS */V43,list(8,VV[24],VV[25],VV[26],/* INLINE-ARGS */V44,VV[32],VV[33],/* INLINE-ARGS */V45,list(2,VV[36],(V41)))));          V40= list(2,VV[7],list(3,VV[21],/* INLINE-ARGS */V37,list(8,VV[24],VV[25],VV[26],/* INLINE-ARGS */V38,VV[32],VV[33],/* INLINE-ARGS */V39,list(2,VV[36],(V35)))));
223          V47= make_cons(/* INLINE-ARGS */V46,Cnil);          V41= make_cons(/* INLINE-ARGS */V40,Cnil);
224          base[4]= list(3,VV[18],(V40),list(3,VV[19],(V41),list(3,VV[20],(V40),listA(3,VV[6],base[2],append((V39),/* INLINE-ARGS */V47)))));          base[4]= list(3,VV[18],(V34),list(3,VV[19],(V35),list(3,VV[20],(V34),listA(3,VV[6],base[2],append((V33),/* INLINE-ARGS */V41)))));
225          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
226          return;}          return;}
227  }  }
# Line 204  static void L4() Line 230  static void L4()
230  static void L5()  static void L5()
231  {register object *base=vs_base;  {register object *base=vs_base;
232          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
233          vs_reserve(VM5);          vs_check;
         check_arg(2);  
234          vs_top=sup;          vs_top=sup;
235          {object V48=base[0]->c.c_cdr;          {object V42=base[0]->c.c_cdr;
236          if(endp(V48))invalid_macro_call();          base[2]= (V42->c.c_car);
237          base[2]= (V48->c.c_car);          V42=V42->c.c_cdr;
238          V48=V48->c.c_cdr;          base[3]= V42;}
239          base[3]= V48;}          {object V43;
240          {object V49;          object V44;
241          object V50;          base[4]= VV[37];
242          V49= (*(LnkLI72))(VV[37],base[3],Ct);          base[5]= base[3];
243            base[6]= Ct;
244            vs_top=(vs_base=base+4)+3;
245            (void) (*Lnk72)();
246            vs_top=sup;
247            V43= vs_base[0];
248          vs_base=vs_top;          vs_base=vs_top;
249          Lgensym();          Lgensym();
250          vs_top=sup;          vs_top=sup;
251          V50= vs_base[0];          V44= vs_base[0];
252          V51= list(2,(V50),base[2]);          V45= list(2,(V44),base[2]);
253          V52= make_cons(/* INLINE-ARGS */V51,Cnil);          V46= make_cons(/* INLINE-ARGS */V45,Cnil);
254          V53= list(2,VV[14],make_cons(VV[41],(V49)));          V47= list(2,VV[14],make_cons(VV[41],(V43)));
255          V54= list(2,VV[7],list(10,VV[8],VV[39],VV[10],VV[40],VV[12],(V50),VV[13],/* INLINE-ARGS */V53,VV[16],list(2,VV[14],(V49))));          V48= list(2,VV[7],list(10,VV[8],VV[39],VV[10],VV[40],VV[12],(V44),VV[13],/* INLINE-ARGS */V47,VV[16],list(2,VV[14],(V43))));
256          V55= make_cons(/* INLINE-ARGS */V54,Cnil);          V49= make_cons(/* INLINE-ARGS */V48,Cnil);
257          base[4]= list(3,VV[5],/* INLINE-ARGS */V52,listA(3,VV[38],(V50),append(base[3],/* INLINE-ARGS */V55)));          base[4]= list(3,VV[5],/* INLINE-ARGS */V46,listA(3,VV[38],(V44),append(base[3],/* INLINE-ARGS */V49)));
258          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
259          return;}          return;}
260  }  }
# Line 233  static void L5() Line 263  static void L5()
263  static void L6()  static void L6()
264  {register object *base=vs_base;  {register object *base=vs_base;
265          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
266          vs_reserve(VM6);          vs_check;
267          check_arg(2);          vs_top=sup;
268            {object V50=base[0]->c.c_cdr;
269            base[2]= (V50->c.c_car);
270            V50=V50->c.c_cdr;
271            base[3]= V50;}
272            {object V51;
273            object V52;
274            object V53;
275            base[4]= VV[42];
276            base[5]= base[3];
277            base[6]= Ct;
278            vs_top=(vs_base=base+4)+3;
279            (void) (*Lnk72)();
280          vs_top=sup;          vs_top=sup;
281          {object V56=base[0]->c.c_cdr;          V51= vs_base[0];
         if(endp(V56))invalid_macro_call();  
         base[2]= (V56->c.c_car);  
         V56=V56->c.c_cdr;  
         base[3]= V56;}  
         {object V57;  
         object V58;  
         object V59;  
         V57= (*(LnkLI72))(VV[42],base[3],Ct);  
282          vs_base=vs_top;          vs_base=vs_top;
283          Lgensym();          Lgensym();
284          vs_top=sup;          vs_top=sup;
285          V58= vs_base[0];          V52= vs_base[0];
286          vs_base=vs_top;          vs_base=vs_top;
287          Lgensym();          Lgensym();
288          vs_top=sup;          vs_top=sup;
289          V59= vs_base[0];          V53= vs_base[0];
290          V60= list(2,VV[14],make_cons(VV[41],(V57)));          V54= list(2,VV[14],make_cons(VV[41],(V51)));
291          V61= list(10,VV[8],VV[43],VV[10],VV[44],VV[12],base[2],VV[13],/* INLINE-ARGS */V60,VV[16],list(2,VV[14],(V57)));          V55= list(10,VV[8],VV[43],VV[10],VV[44],VV[12],base[2],VV[13],/* INLINE-ARGS */V54,VV[16],list(2,VV[14],(V51)));
292          V62= list(3,VV[27],VV[46],list(4,VV[29],VV[30],VV[47],list(2,VV[14],base[2])));          V56= list(3,VV[27],VV[46],list(4,VV[29],VV[30],VV[47],list(2,VV[14],base[2])));
293          V63= list(3,VV[34],base[2],VV[35]);          V57= list(3,VV[34],base[2],VV[35]);
294          V64= list(2,VV[7],list(3,VV[21],/* INLINE-ARGS */V61,list(8,VV[24],VV[45],VV[26],/* INLINE-ARGS */V62,VV[32],VV[33],/* INLINE-ARGS */V63,list(2,VV[36],(V59)))));          V58= list(2,VV[7],list(3,VV[21],/* INLINE-ARGS */V55,list(8,VV[24],VV[45],VV[26],/* INLINE-ARGS */V56,VV[32],VV[33],/* INLINE-ARGS */V57,list(2,VV[36],(V53)))));
295          V65= make_cons(/* INLINE-ARGS */V64,Cnil);          V59= make_cons(/* INLINE-ARGS */V58,Cnil);
296          base[4]= list(3,VV[18],(V58),list(3,VV[19],(V59),list(3,VV[20],(V58),listA(3,VV[38],base[2],append(base[3],/* INLINE-ARGS */V65)))));          base[4]= list(3,VV[18],(V52),list(3,VV[19],(V53),list(3,VV[20],(V52),listA(3,VV[38],base[2],append(base[3],/* INLINE-ARGS */V59)))));
297          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
298          return;}          return;}
299  }  }
300  /*      local entry for function ASSERT-REPORT  */  /*      function definition for ASSERT-REPORT   */
   
 static object LI7(V68,V69)  
301    
302  object V68;object V69;  static void L7()
303  {        VMB7 VMS7 VMV7  {register object *base=vs_base;
304            register object *sup=base+VM7; VC7
305            vs_check;
306            {object V60;
307            object V61;
308            V60=(base[0]);
309            V61=(base[1]);
310            vs_top=sup;
311          goto TTL;          goto TTL;
312  TTL:;  TTL:;
313          base[0]= (V69);          base[2]= (V61);
314          base[1]= VV[48];          base[3]= VV[48];
315          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+2)+2;
316          Lformat();          Lformat();
317          vs_top=sup;          vs_top=sup;
318          if(((V68))==Cnil){          if(((V60))==Cnil){
319          goto T79;}          goto T93;}
320          base[0]= (V69);          base[2]= (V61);
321          base[1]= VV[49];          base[3]= VV[49];
322          base[2]= make_fixnum((long)length((V68)));          base[4]= CMPmake_fixnum((long)length((V60)));
323          base[3]= (V68);          base[5]= (V60);
324          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+2)+4;
325          Lformat();          Lformat();
326          vs_top=sup;          return;
327          {object V70 = vs_base[0];          goto T93;
328          VMR7(V70)}  T93:;
329          goto T79;          base[2]= (V61);
330  T79:;          base[3]= VV[50];
331          base[0]= (V69);          vs_top=(vs_base=base+2)+2;
         base[1]= VV[50];  
         vs_top=(vs_base=base+0)+2;  
332          Lformat();          Lformat();
333          vs_top=sup;          return;
334          {object V71 = vs_base[0];          }
         VMR7(V71)}  
         base[0]=base[0];  
         return Cnil;  
335  }  }
336  /*      function definition for ASSERT-PROMPT   */  /*      function definition for ASSERT-PROMPT   */
337    
338  static void L8()  static void L8()
339  {register object *base=vs_base;  {register object *base=vs_base;
340          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
341          vs_reserve(VM8);          vs_check;
342          {object V72;          {object V62;
343          object V73;          object V63;
344          check_arg(2);          V62=(base[0]);
345          V72=(base[0]);          V63=(base[1]);
         V73=(base[1]);  
346          vs_top=sup;          vs_top=sup;
347          goto TTL;          goto TTL;
348  TTL:;  TTL:;
349          base[2]= VV[51];          base[2]= VV[51];
350          base[3]= (V72);          base[3]= (V62);
351          base[4]= (V73);          base[4]= (V63);
352          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
353          (void) (*Lnk74)();          (void) (*Lnk74)();
354          vs_top=sup;          vs_top=sup;
355          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
356          goto T88;}          goto T102;}
357          base[2]= symbol_value(VV[52]);          base[2]= (VV[52]->s.s_dbind);
358          base[3]= VV[53];          base[3]= VV[53];
359          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
360          Lformat();          Lformat();
361          vs_top=sup;          vs_top=sup;
362          if(!(type_of((V72))==t_symbol)){          if(!(type_of((V62))==t_symbol)){
363          goto T97;}          goto T111;}
364          {object symbols,values;          {object symbols,values;
365          bds_ptr V74=bds_top;          bds_ptr V64=bds_top;
366          base[2]= make_cons((V72),Cnil);          base[2]= make_cons((V62),Cnil);
367          symbols= base[2];          symbols= base[2];
368          base[3]= make_cons((V73),Cnil);          base[3]= make_cons((V63),Cnil);
369          values= base[3];          values= base[3];
370          while(!endp(symbols)){          while(!endp(symbols)){
         if(type_of(MMcar(symbols))!=t_symbol)  
         FEinvalid_variable("~s is not a symbol.",MMcar(symbols));  
371          if(endp(values))bds_bind(MMcar(symbols),OBJNULL);          if(endp(values))bds_bind(MMcar(symbols),OBJNULL);
372          else{bds_bind(MMcar(symbols),MMcar(values));          else{bds_bind(MMcar(symbols),MMcar(values));
373          values=MMcdr(values);}          values=MMcdr(values);}
374          symbols=MMcdr(symbols);}          symbols=MMcdr(symbols);}
375          vs_base=vs_top;          vs_base=vs_top;
376          L9(base);          L9(base);
377          bds_unwind(V74);          bds_unwind(V64);
378          return;}          return;}
379          goto T97;          goto T111;
380  T97:;  T111:;
381          vs_base=vs_top;          vs_base=vs_top;
382          L9(base);          L9(base);
383          return;          return;
384          goto T88;          goto T102;
385  T88:;  T102:;
386          base[2]= (V73);          base[2]= (V63);
387          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
388          return;          return;
389          }          }
# Line 362  T88:; Line 393  T88:;
393  static void L10()  static void L10()
394  {register object *base=vs_base;  {register object *base=vs_base;
395          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
396          vs_reserve(VM9);          vs_check;
397          {object V75;          {object V65;
398          check_arg(1);          V65=(base[0]);
         V75=(base[0]);  
399          vs_top=sup;          vs_top=sup;
400          goto TTL;          goto TTL;
401  TTL:;  TTL:;
402          base[1]= VV[54];          base[1]= VV[54];
403          base[2]= VV[12];          base[2]= VV[12];
404          base[3]= (V75);          base[3]= (V65);
405          base[4]= VV[13];          base[4]= VV[13];
406          base[5]= Cnil;          base[5]= Cnil;
407          base[6]= VV[55];          base[6]= VV[55];
408          base[7]= VV[56];          base[7]= VV[56];
409          base[8]= VV[57];          base[8]= VV[57];
410          base[9]= make_cons((V75),Cnil);          base[9]= make_cons((V65),Cnil);
411          vs_top=(vs_base=base+1)+9;          vs_top=(vs_base=base+1)+9;
412          (void) (*Lnk8)();          (void) (*Lnk8)();
413          return;          return;
# Line 388  TTL:; Line 418  TTL:;
418  static void L11()  static void L11()
419  {register object *base=vs_base;  {register object *base=vs_base;
420          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
421          vs_reserve(VM10);          vs_check;
         check_arg(2);  
422          vs_top=sup;          vs_top=sup;
423          {object V76=base[0]->c.c_cdr;          {object V66=base[0]->c.c_cdr;
424          if(endp(V76))invalid_macro_call();          base[2]= (V66->c.c_car);
425          base[2]= (V76->c.c_car);          V66=V66->c.c_cdr;
426          V76=V76->c.c_cdr;          if(endp(V66)){
         if(endp(V76)){  
427          base[3]= Cnil;          base[3]= Cnil;
428          } else {          } else {
429          base[3]= (V76->c.c_car);          base[3]= (V66->c.c_car);
430          V76=V76->c.c_cdr;}          V66=V66->c.c_cdr;}
431          if(endp(V76)){          if(endp(V66)){
432          base[4]= Cnil;          base[4]= Cnil;
433          } else {          } else {
434          base[4]= (V76->c.c_car);          base[4]= (V66->c.c_car);
435          V76=V76->c.c_cdr;}          V66=V66->c.c_cdr;}
436          base[5]= V76;}          base[5]= V66;}
437          {object V77;          {object V67;
438          vs_base=vs_top;          vs_base=vs_top;
439          Lgensym();          Lgensym();
440          vs_top=sup;          vs_top=sup;
441          V77= vs_base[0];          V67= vs_base[0];
442          if((base[4])==Cnil){          if((base[4])==Cnil){
443          goto T115;}          goto T129;}
444          V78= listA(3,VV[8],base[4],base[5]);          V68= listA(3,VV[8],base[4],base[5]);
445          goto T113;          goto T127;
446          goto T115;          goto T129;
447  T115:;  T129:;
448          V78= list(2,VV[59],list(2,VV[14],base[2]));          V68= list(2,VV[59],list(2,VV[14],base[2]));
449          goto T113;          goto T127;
450  T113:;  T127:;
451          V79= list(3,VV[27],VV[61],list(3,VV[62],list(2,VV[14],base[3]),VV[30]));          V69= list(3,VV[27],VV[61],list(3,VV[62],list(2,VV[14],base[3]),VV[30]));
452          {object V81;          {object V71;
453          object V82= base[3];          object V72= base[3];
454          if(endp(V82)){          if(V72==Cnil){
455          V80= Cnil;          V70= Cnil;
456          goto T117;}          goto T131;}
457          base[6]=V81=MMcons(Cnil,Cnil);          base[6]=V71=MMcons(Cnil,Cnil);
458          goto T118;          goto T132;
459  T118:;  T132:;
460          (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)));          (V71->c.c_car)= list(3,VV[34],(V72->c.c_car),list(3,VV[63],list(2,VV[14],(V72->c.c_car)),(V72->c.c_car)));
461          V82=MMcdr(V82);          if((V72=MMcdr(V72))==Cnil){
462          if(endp(V82)){          V70= base[6];
463          V80= base[6];          goto T131;}
464          goto T117;}          V71=MMcdr(V71)=MMcons(Cnil,Cnil);
465          V81=MMcdr(V81)=MMcons(Cnil,Cnil);          goto T132;}
466          goto T118;}          goto T131;
467          goto T117;  T131:;
468  T117:;          V74= list(2,VV[36],(V67));
469          V84= list(2,VV[36],(V77));          V75= make_cons(/* INLINE-ARGS */V74,Cnil);
470          V85= make_cons(/* INLINE-ARGS */V84,Cnil);          base[6]= list(3,VV[19],(V67),list(3,VV[58],base[2],list(3,VV[21],V68,listA(5,VV[60],Cnil,VV[26],/* INLINE-ARGS */V69,append(V70,/* INLINE-ARGS */V75)))));
         base[6]= list(3,VV[19],(V77),list(3,VV[58],base[2],list(3,VV[21],V78,listA(5,VV[60],Cnil,VV[26],/* INLINE-ARGS */V79,append(V80,/* INLINE-ARGS */V85)))));  
471          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
472          return;}          return;}
473  }  }
474  /*      local entry for function READ-EVALUATED-FORM    */  /*      function definition for READ-EVALUATED-FORM     */
   
 static object LI12()  
475    
476  {        VMB11 VMS11 VMV11  static void L12()
477    {register object *base=vs_base;
478            register object *sup=base+VM11; VC11
479            vs_check;
480            vs_top=sup;
481          goto TTL;          goto TTL;
482  TTL:;  TTL:;
483          base[0]= symbol_value(VV[52]);          base[0]= (VV[52]->s.s_dbind);
484          base[1]= VV[64];          base[1]= VV[64];
485          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
486          Lformat();          Lformat();
487          vs_top=sup;          vs_top=sup;
488          base[1]= symbol_value(VV[52]);          base[1]= (VV[52]->s.s_dbind);
489          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
490          Lread();          Lread();
491          vs_top=sup;          vs_top=sup;
# Line 464  TTL:; Line 493  TTL:;
493          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
494          Leval();          Leval();
495          vs_top=sup;          vs_top=sup;
496          V86= vs_base[0];          V76= vs_base[0];
497          {object V87 = make_cons(V86,Cnil);          base[0]= make_cons(V76,Cnil);
498          VMR11(V87)}          vs_top=(vs_base=base+0)+1;
499          base[0]=base[0];          return;
         return Cnil;  
500  }  }
501  /*      macro definition for CHECK-TYPE */  /*      macro definition for CHECK-TYPE */
502    
503  static void L13()  static void L13()
504  {register object *base=vs_base;  {register object *base=vs_base;
505          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
506          vs_reserve(VM12);          vs_check;
         check_arg(2);  
507          vs_top=sup;          vs_top=sup;
508          {object V88=base[0]->c.c_cdr;          {object V77=base[0]->c.c_cdr;
509          if(endp(V88))invalid_macro_call();          base[2]= (V77->c.c_car);
510          base[2]= (V88->c.c_car);          V77=V77->c.c_cdr;
511          V88=V88->c.c_cdr;          base[3]= (V77->c.c_car);
512          if(endp(V88))invalid_macro_call();          V77=V77->c.c_cdr;
513          base[3]= (V88->c.c_car);          if(endp(V77)){
         V88=V88->c.c_cdr;  
         if(endp(V88)){  
514          base[4]= Cnil;          base[4]= Cnil;
515          } else {          } else {
516          base[4]= (V88->c.c_car);          base[4]= (V77->c.c_car);}}
517          V88=V88->c.c_cdr;}          {object V78;
518          if(!endp(V88))invalid_macro_call();}          object V79;
         {object V89;  
         object V90;  
519          vs_base=vs_top;          vs_base=vs_top;
520          Lgensym();          Lgensym();
521          vs_top=sup;          vs_top=sup;
522          V89= vs_base[0];          V78= vs_base[0];
523          vs_base=vs_top;          vs_base=vs_top;
524          Lgensym();          Lgensym();
525          vs_top=sup;          vs_top=sup;
526          V90= vs_base[0];          V79= vs_base[0];
527          V91= list(3,VV[66],base[2],list(2,VV[14],base[3]));          V80= list(3,VV[66],base[2],list(2,VV[14],base[3]));
528          V92= list(3,VV[65],/* INLINE-ARGS */V91,list(3,VV[20],(V89),Cnil));          V81= list(3,VV[65],/* INLINE-ARGS */V80,list(3,VV[20],(V78),Cnil));
529          if((base[4])==Cnil){          if((base[4])==Cnil){
530          goto T131;}          goto T145;}
531          V93= list(5,VV[8],VV[67],list(2,VV[14],base[2]),base[2],base[4]);          V82= list(5,VV[8],VV[67],list(2,VV[14],base[2]),base[2],base[4]);
532          goto T129;          goto T143;
533          goto T131;          goto T145;
534  T131:;  T145:;
535          V94= list(2,VV[14],base[2]);          V83= list(2,VV[14],base[2]);
536          V93= list(5,VV[8],VV[68],/* INLINE-ARGS */V94,base[2],list(2,VV[14],base[3]));          V82= list(5,VV[8],VV[68],/* INLINE-ARGS */V83,base[2],list(2,VV[14],base[3]));
537          goto T129;          goto T143;
538  T129:;  T143:;
539          V95= list(3,VV[27],VV[70],list(4,VV[29],VV[30],VV[71],list(2,VV[14],base[2])));          V84= list(3,VV[27],VV[70],list(4,VV[29],VV[30],VV[71],list(2,VV[14],base[2])));
540          V96= list(3,VV[34],base[2],VV[35]);          V85= list(3,VV[34],base[2],VV[35]);
541          base[5]= list(3,VV[18],(V89),list(4,VV[19],(V90),/* INLINE-ARGS */V92,list(3,VV[21],V93,list(8,VV[24],VV[69],VV[26],/* INLINE-ARGS */V95,VV[32],VV[33],/* INLINE-ARGS */V96,list(2,VV[36],(V90))))));          base[5]= list(3,VV[18],(V78),list(4,VV[19],(V79),/* INLINE-ARGS */V81,list(3,VV[21],V82,list(8,VV[24],VV[69],VV[26],/* INLINE-ARGS */V84,VV[32],VV[33],/* INLINE-ARGS */V85,list(2,VV[36],(V79))))));
542          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
543          return;}          return;}
544  }  }
# Line 525  static void L9(base0) Line 548  static void L9(base0)
548  register object *base0;  register object *base0;
549  {       register object *base=vs_base;  {       register object *base=vs_base;
550          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
551          vs_reserve(VM13);          vs_check;
         check_arg(0);  
552          vs_top=sup;          vs_top=sup;
553          goto TTL;          goto TTL;
554  TTL:;  TTL:;
555          base[1]= symbol_value(VV[52]);          base[1]= (VV[52]->s.s_dbind);
556          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
557          Lread();          Lread();
558          vs_top=sup;          vs_top=sup;
# Line 540  TTL:; Line 562  TTL:;
562          return;          return;
563  }  }
564  static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* Y-OR-N-P */  static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* Y-OR-N-P */
565  static object  LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* ESCAPE-SPECIAL-CASES-REPLACE */  static void LnkT73(){ call_or_link(VV[73],(void **)(void *)&Lnk73);} /* ESCAPE-SPECIAL-CASES-REPLACE */
566  static object  LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)(void *)&LnkLI72,3,first,ap);va_end(ap);return V1;} /* ACCUMULATE-CASES */  static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* ACCUMULATE-CASES */
567  static void LnkT8(){ call_or_link(VV[8],(void **)(void *)&Lnk8);} /* ERROR */  static void LnkT8(){ call_or_link(VV[8],(void **)(void *)&Lnk8);} /* ERROR */
568    
569  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.2.4.1  
changed lines
  Added in v.1.2.4.1.4.1

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