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

Diff of /gcl/lsp/destructuring_bind.c

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

revision 1.3 by camm, Fri Feb 15 19:37:49 2002 UTC revision 1.4 by camm, Fri Feb 15 21:50:28 2002 UTC
# Line 43  static L1() Line 43  static L1()
43          base[16]= Cnil;          base[16]= Cnil;
44          base[17]= (V7);          base[17]= (V7);
45          vs_top=(vs_base=base+15)+3;          vs_top=(vs_base=base+15)+3;
46          (void) (*Lnk21)();          (void) (*Lnk22)();
47          if(vs_base>=vs_top){vs_top=sup;goto T7;}          if(vs_base>=vs_top){vs_top=sup;goto T7;}
48          V10= vs_base[0];          V10= vs_base[0];
49          vs_base++;          vs_base++;
# Line 64  T10:; Line 64  T10:;
64          bds_bind(VV[2],Cnil);          bds_bind(VV[2],Cnil);
65          bds_bind(VV[3],Cnil);          bds_bind(VV[3],Cnil);
66          bds_bind(VV[4],Cnil);          bds_bind(VV[4],Cnil);
67          {object V14;          bds_bind(VV[5],Cnil);
68            {object V13;
69            object V14;
70          object V15;          object V15;
71          object V16;          base[19]= (V1);
72          base[18]= (V1);          base[20]= (V2);
73          base[19]= (V2);          base[21]= (V4);
74          base[20]= (V4);          base[22]= (V5);
75          base[21]= (V5);          base[23]= (V9);
76          base[22]= (V9);          base[24]= (((V6))==Cnil?Ct:Cnil);
77          base[23]= (((V6))==Cnil?Ct:Cnil);          base[25]= Cnil;
78          base[24]= Cnil;          base[26]= (V8);
79          base[25]= (V8);          vs_top=(vs_base=base+19)+8;
         vs_top=(vs_base=base+18)+8;  
80          (void) (*Lnk80)();          (void) (*Lnk80)();
81          if(vs_base>=vs_top){vs_top=sup;goto T20;}          if(vs_base>=vs_top){vs_top=sup;goto T20;}
82          V14= vs_base[0];          V13= vs_base[0];
83          vs_base++;          vs_base++;
84          if(vs_base>=vs_top){vs_top=sup;goto T21;}          if(vs_base>=vs_top){vs_top=sup;goto T21;}
85          V15= vs_base[0];          V14= vs_base[0];
86          vs_base++;          vs_base++;
87          if(vs_base>=vs_top){vs_top=sup;goto T22;}          if(vs_base>=vs_top){vs_top=sup;goto T22;}
88          V16= vs_base[0];          V15= vs_base[0];
89          vs_top=sup;          vs_top=sup;
90          goto T23;          goto T23;
91  T20:;  T20:;
92          V14= Cnil;          V13= Cnil;
93  T21:;  T21:;
94          V15= Cnil;          V14= Cnil;
95  T22:;  T22:;
96          V16= Cnil;          V15= Cnil;
97  T23:;  T23:;
98          V17= nreverse((VV[4]->s.s_dbind));          V16= nreverse((VV[4]->s.s_dbind));
99          if((Cnil)==Cnil){          if(((VV[5]->s.s_dbind))==Cnil){
100          goto T28;}          goto T28;}
101          V19= list(2,VV[6],make_cons(VV[7],Cnil));          V18= list(2,VV[7],make_cons(VV[8],(VV[5]->s.s_dbind)));
102          base[19]= make_cons(/* INLINE-ARGS */V19,Cnil);          base[20]= make_cons(/* INLINE-ARGS */V18,Cnil);
103          goto T26;          goto T26;
104  T28:;  T28:;
105          base[19]= Cnil;          base[20]= Cnil;
106  T26:;  T26:;
107          base[20]= (VV[2]->s.s_dbind);          base[21]= (VV[2]->s.s_dbind);
108          V20= nreverse((VV[3]->s.s_dbind));          V19= nreverse((VV[3]->s.s_dbind));
109          V21= listA(3,VV[5],/* INLINE-ARGS */V20,append((V11),(V10)));          V20= listA(3,VV[6],/* INLINE-ARGS */V19,append((V11),(V10)));
110          base[21]= make_cons(/* INLINE-ARGS */V21,Cnil);          base[22]= make_cons(/* INLINE-ARGS */V20,Cnil);
111          vs_top=(vs_base=base+19)+3;          vs_top=(vs_base=base+20)+3;
112          Lappend();          Lappend();
113          vs_top=sup;          vs_top=sup;
114          V18= vs_base[0];          V17= vs_base[0];
115          base[18]= listA(3,VV[5],/* INLINE-ARGS */V17,V18);          base[19]= listA(3,VV[6],/* INLINE-ARGS */V16,V17);
116          if(((V8))==Cnil){          if(((V8))==Cnil){
117          goto T34;}          goto T34;}
118          if(((V14))!=Cnil){          if(((V13))!=Cnil){
119          goto T34;}          goto T34;}
120          V22= list(2,VV[6],list(2,VV[8],(V8)));          V21= list(2,VV[7],list(2,VV[9],(V8)));
121          base[19]= make_cons(/* INLINE-ARGS */V22,Cnil);          base[20]= make_cons(/* INLINE-ARGS */V21,Cnil);
122          goto T32;          goto T32;
123  T34:;  T34:;
124          base[19]= Cnil;          base[20]= Cnil;
125  T32:;  T32:;
126          base[20]= (V12);          base[21]= (V12);
127          base[21]= (V15);          base[22]= (V14);
128          base[22]= (V16);          base[23]= (V15);
129          vs_top=(vs_base=base+18)+5;          vs_top=(vs_base=base+19)+5;
130            bds_unwind1;
131          bds_unwind1;          bds_unwind1;
132          bds_unwind1;          bds_unwind1;
133          bds_unwind1;          bds_unwind1;
# Line 139  static L2() Line 141  static L2()
141  {register object *base=vs_base;  {register object *base=vs_base;
142          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
143          vs_check;          vs_check;
144          {object V23;          {object V22;
145          object V24;          object V23;
146            register object V24;
147          register object V25;          register object V25;
148          register object V26;          object V26;
149          object V27;          object V27;
150          object V28;          object V28;
151          object V29;          object V29;
152          object V30;          V22=(base[0]);
153          V23=(base[0]);          V23=(base[1]);
154          V24=(base[1]);          V24=(base[2]);
155          V25=(base[2]);          V25=(base[3]);
156          V26=(base[3]);          V26=(base[4]);
         V27=(base[4]);  
157          vs_base=vs_base+5;          vs_base=vs_base+5;
158          if(vs_base>=vs_top){vs_top=sup;goto T41;}          if(vs_base>=vs_top){vs_top=sup;goto T41;}
159          V28=(base[5]);          V27=(base[5]);
160          vs_base++;          vs_base++;
161          if(vs_base>=vs_top){vs_top=sup;goto T42;}          if(vs_base>=vs_top){vs_top=sup;goto T42;}
162          V29=(base[6]);          V28=(base[6]);
163          vs_base++;          vs_base++;
164          if(vs_base>=vs_top){vs_top=sup;goto T43;}          if(vs_base>=vs_top){vs_top=sup;goto T43;}
165          V30=(base[7]);          V29=(base[7]);
166          vs_top=sup;          vs_top=sup;
167          goto T44;          goto T44;
168  T41:;  T41:;
169          V28= Cnil;          V27= Cnil;
170  T42:;  T42:;
171          V29= Cnil;          V28= Cnil;
172  T43:;  T43:;
173          V30= Cnil;          V29= Cnil;
174  T44:;  T44:;
175          {register object V31;          {register object V30;
176          object V32;          object V31;
177          register object V33;          register object V32;
178            object V33;
179          object V34;          object V34;
180          object V35;          object V35;
181          object V36;          object V36;
182          object V37;          object V37;
183          object V38;          object V38;
184          object V39;          if(((V27))==Cnil){
         if(((V28))==Cnil){  
185          goto T50;}          goto T50;}
186          V31= list(2,VV[9],(V24));          V30= list(2,VV[10],(V23));
187          goto T48;          goto T48;
188  T50:;  T50:;
189          V31= (V24);          V30= (V23);
190  T48:;  T48:;
191          V32= VV[10];          V31= VV[11];
192            V32= small_fixnum(0);
193          V33= small_fixnum(0);          V33= small_fixnum(0);
194          V34= small_fixnum(0);          V34= Cnil;
195          V35= Cnil;          V35= Cnil;
196          V36= Cnil;          V36= Cnil;
197          V37= Cnil;          V37= Cnil;
198          V38= Cnil;          V38= Cnil;
199          V39= Cnil;          {object V39;
200          {object V40;          V39= (V22);
         V40= (V23);  
201  T57:;  T57:;
202          if(!(type_of((V40))!=t_cons)){          if(!(type_of((V39))!=t_cons)){
203          goto T58;}          goto T58;}
204          goto T52;          goto T52;
205  T58:;  T58:;
206          if(!((CMPcar((V40)))==(VV[11]))){          if(!((CMPcar((V39)))==(VV[12]))){
207          goto T62;}          goto T62;}
208          goto T55;          goto T55;
209  T62:;  T62:;
210          V40= CMPcdr((V40));          V39= CMPcdr((V39));
211          goto T57;}          goto T57;}
212  T55:;  T55:;
213          if((CMPcar((V23)))==(VV[11])){          if((CMPcar((V22)))==(VV[12])){
214          goto T52;}          goto T52;}
215          base[8]= VV[12];          base[8]= VV[13];
216          base[9]= (V26);          base[9]= (V25);
217          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
218          Lerror();          Lerror();
219          vs_top=sup;          vs_top=sup;
220  T52:;  T52:;
221          {register object V41;          {register object V40;
222          V41= (V23);          V40= (V22);
223  T73:;  T73:;
224          if(!(type_of((V41))!=t_cons)){          if(!(type_of((V40))!=t_cons)){
225          goto T74;}          goto T74;}
226          if(((V41))!=Cnil){          if(((V40))!=Cnil){
227          goto T78;}          goto T78;}
228          goto T71;          goto T71;
229  T78:;  T78:;
230          base[8]= (V41);          base[8]= (V40);
231          base[9]= (V31);          base[9]= (V30);
232          base[10]= Cnil;          base[10]= Cnil;
233          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
234          (void) (*Lnk81)();          (void) (*Lnk81)();
235          vs_top=sup;          vs_top=sup;
236          V37= Ct;          V36= Ct;
237          goto T71;          goto T71;
238  T74:;  T74:;
239          {register object V42;          {register object V41;
240          V42= CMPcar((V41));          V41= CMPcar((V40));
241          if(!(((V42))==(VV[11]))){          if(!(((V41))==(VV[12]))){
242          goto T89;}          goto T89;}
243          if((CMPcdr((V41)))==Cnil){          if((CMPcdr((V40)))==Cnil){
244          goto T92;}          goto T92;}
245          if(!(type_of(CMPcadr((V41)))==t_symbol)){          if(!(type_of(CMPcadr((V40)))==t_symbol)){
246          goto T92;}          goto T92;}
247          V41= CMPcdr((V41));          V40= CMPcdr((V40));
248          base[8]= CMPcar((V41));          base[8]= CMPcar((V40));
249          base[9]= (V24);          base[9]= (V23);
250          base[10]= Cnil;          base[10]= Cnil;
251          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
252          (void) (*Lnk81)();          (void) (*Lnk81)();
253          vs_top=sup;          vs_top=sup;
254          goto T86;          goto T86;
255  T92:;  T92:;
256          base[8]= VV[13];          base[8]= VV[14];
257          base[9]= (V26);          base[9]= (V25);
258          base[10]= (V25);          base[10]= (V24);
259          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
260          (void) (*Lnk82)();          (void) (*Lnk82)();
261          vs_top=sup;          vs_top=sup;
262          goto T86;          goto T86;
263  T89:;  T89:;
264          if(!(((V42))==(VV[14]))){          if(!(((V41))==(VV[15]))){
265          goto T105;}          goto T105;}
266          if(((V29))==Cnil){          if(((V28))==Cnil){
267          goto T109;}          goto T109;}
268          base[8]= VV[15];          base[8]= VV[16];
269          base[9]= (V26);          base[9]= (V25);
270          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
271          Lerror();          Lerror();
272          vs_top=sup;          vs_top=sup;
273          goto T107;          goto T107;
274  T109:;  T109:;
275          if(((V28))!=Cnil){          if(((V27))!=Cnil){
276          goto T107;}          goto T107;}
277          base[8]= VV[16];          base[8]= VV[17];
278          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
279          Lerror();          Lerror();
280          vs_top=sup;          vs_top=sup;
281  T107:;  T107:;
282          if((CMPcdr((V41)))==Cnil){          if((CMPcdr((V40)))==Cnil){
283          goto T117;}          goto T117;}
284          if(!(type_of(CMPcadr((V41)))==t_symbol)){          if(!(type_of(CMPcadr((V40)))==t_symbol)){
285          goto T117;}          goto T117;}
286          V41= CMPcdr((V41));          V40= CMPcdr((V40));
287          base[8]= CMPcar((V41));          base[8]= CMPcar((V40));
288          base[9]= (V30);          base[9]= (V29);
289          base[10]= Cnil;          base[10]= Cnil;
290          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
291          (void) (*Lnk81)();          (void) (*Lnk81)();
292          vs_top=sup;          vs_top=sup;
293          V39= Ct;          V38= Ct;
294          goto T86;          goto T86;
295  T117:;  T117:;
296          base[8]= VV[17];          base[8]= VV[18];
297          base[9]= (V26);          base[9]= (V25);
298          base[10]= (V25);          base[10]= (V24);
299          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
300          (void) (*Lnk82)();          (void) (*Lnk82)();
301          vs_top=sup;          vs_top=sup;
302          goto T86;          goto T86;
303  T105:;  T105:;
304          if(((V42))==(VV[18])){          if(((V41))==(VV[19])){
305          goto T131;}          goto T131;}
306          if(!(((V42))==(VV[19]))){          if(!(((V41))==(VV[20]))){
307          goto T132;}          goto T132;}
308  T131:;  T131:;
309          if((CMPcdr((V41)))==Cnil){          if((CMPcdr((V40)))==Cnil){
310          goto T137;}          goto T137;}
311          if(!(type_of(CMPcadr((V41)))==t_symbol)){          if(!(type_of(CMPcadr((V40)))==t_symbol)){
312          goto T137;}          goto T137;}
313          V41= CMPcdr((V41));          V40= CMPcdr((V40));
314          V37= Ct;          V36= Ct;
315          base[8]= CMPcar((V41));          base[8]= CMPcar((V40));
316          base[9]= (V31);          base[9]= (V30);
317          base[10]= Cnil;          base[10]= Cnil;
318          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
319          (void) (*Lnk81)();          (void) (*Lnk81)();
320          vs_top=sup;          vs_top=sup;
321          goto T86;          goto T86;
322  T137:;  T137:;
323          if((CMPcdr((V41)))==Cnil){          if((CMPcdr((V40)))==Cnil){
324          goto T149;}          goto T149;}
325          if(!(type_of(CMPcadr((V41)))==t_cons)){          if(!(type_of(CMPcadr((V40)))==t_cons)){
326          goto T149;}          goto T149;}
327          if(!(type_of(CMPcaadr((V41)))==t_symbol)){          if(!(type_of(CMPcaadr((V40)))==t_symbol)){
328          goto T149;}          goto T149;}
329          V41= CMPcdr((V41));          V40= CMPcdr((V40));
330          V37= Ct;          V36= Ct;
331          {object V43;          {object V42;
332            object V43;
333          object V44;          object V44;
334          object V45;          object V45;
335          object V46;          V42= CMPcaar((V40));
336          V43= CMPcaar((V41));          V43= CMPcadar((V40));
337          V44= CMPcadar((V41));          V44= CMPcaddar((V40));
         V45= CMPcaddar((V41));  
338          vs_base=vs_top;          vs_base=vs_top;
339          Lgensym();          Lgensym();
340          vs_top=sup;          vs_top=sup;
341          V46= vs_base[0];          V45= vs_base[0];
342          base[8]= (V46);          base[8]= (V45);
343          base[9]= list(2,VV[20],list(4,VV[21],(V31),(V30),(((((V45))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil)));          base[9]= list(2,VV[21],list(4,VV[22],(V30),(V29),(((((V44))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil)));
344          base[10]= Ct;          base[10]= Ct;
345          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
346          (void) (*Lnk81)();          (void) (*Lnk81)();
347          vs_top=sup;          vs_top=sup;
348          V39= Ct;          V38= Ct;
349          if(((V43))==Cnil){          if(((V42))==Cnil){
350          goto T169;}          goto T169;}
351          base[8]= (V43);          base[8]= (V42);
352          base[9]= list(2,VV[22],(V46));          base[9]= list(2,VV[23],(V45));
353          base[10]= Cnil;          base[10]= Cnil;
354          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
355          (void) (*Lnk81)();          (void) (*Lnk81)();
356          vs_top=sup;          vs_top=sup;
357  T169:;  T169:;
358          if(((V44))==Cnil){          if(((V43))==Cnil){
359          goto T175;}          goto T175;}
360          base[8]= (V44);          base[8]= (V43);
361          base[9]= list(2,VV[23],(V46));          base[9]= list(2,VV[24],(V45));
362          base[10]= Cnil;          base[10]= Cnil;
363          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
364          (void) (*Lnk81)();          (void) (*Lnk81)();
365          vs_top=sup;          vs_top=sup;
366  T175:;  T175:;
367          if(((V45))==Cnil){          if(((V44))==Cnil){
368          goto T86;}          goto T86;}
369          base[8]= (V45);          base[8]= (V44);
370          base[9]= list(2,VV[24],(V46));          base[9]= list(2,VV[25],(V45));
371          base[10]= Cnil;          base[10]= Cnil;
372          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
373          (void) (*Lnk81)();          (void) (*Lnk81)();
374          vs_top=sup;          vs_top=sup;
375          goto T86;}          goto T86;}
376  T149:;  T149:;
377          base[8]= symbol_name((V42));          base[8]= symbol_name((V41));
378          base[9]= (V26);          base[9]= (V25);
379          base[10]= (V25);          base[10]= (V24);
380          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
381          (void) (*Lnk82)();          (void) (*Lnk82)();
382          vs_top=sup;          vs_top=sup;
383          goto T86;          goto T86;
384  T132:;  T132:;
385          if(!(((V42))==(VV[25]))){          if(!(((V41))==(VV[26]))){
386          goto T190;}          goto T190;}
387          V32= VV[26];          V31= VV[27];
388          goto T86;          goto T86;
389  T190:;  T190:;
390          if(!(((V42))==(VV[27]))){          if(!(((V41))==(VV[28]))){
391          goto T194;}          goto T194;}
392          V32= VV[28];          V31= VV[29];
393          base[8]= VV[29];          base[8]= VV[30];
394          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
395          Lgensym();          Lgensym();
396          vs_top=sup;          vs_top=sup;
397          V36= vs_base[0];          V35= vs_base[0];
398          (VV[30]->s.s_dbind)= make_cons((V36),(VV[30]->s.s_dbind));          (VV[5]->s.s_dbind)= make_cons((V35),(VV[5]->s.s_dbind));
399          V37= Ct;          V36= Ct;
400          base[8]= (V36);          base[8]= (V35);
401          base[9]= (V31);          base[9]= (V30);
402          base[10]= Ct;          base[10]= Ct;
403          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
404          (void) (*Lnk81)();          (void) (*Lnk81)();
405          vs_top=sup;          vs_top=sup;
406          goto T86;          goto T86;
407  T194:;  T194:;
408          if(!(((V42))==(VV[31]))){          if(!(((V41))==(VV[31]))){
409          goto T209;}          goto T209;}
410          V38= Ct;          V37= Ct;
411          goto T86;          goto T86;
412  T209:;  T209:;
413          if(!(((V42))==(VV[32]))){          if(!(((V41))==(VV[32]))){
414          goto T213;}          goto T213;}
415          V32= VV[33];          V31= VV[33];
416          goto T86;          goto T86;
417  T213:;  T213:;
418          if(!(type_of((V42))==t_cons||((V42))==Cnil)){          if(!(type_of((V41))==t_cons||((V41))==Cnil)){
419          goto T217;}          goto T217;}
420          {object V47= (V32);          {object V46= (V31);
421          if((V47!= VV[10]))goto T219;          if((V46!= VV[11]))goto T219;
422          {object V48;          {object V47;
423          base[8]= VV[34];          base[8]= VV[34];
424          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
425          Lgensym();          Lgensym();
426          vs_top=sup;          vs_top=sup;
427          V48= vs_base[0];          V47= vs_base[0];
428          base[8]= (V48);          base[8]= (V47);
429          base[9]= list(2,VV[22],(V31));          base[9]= list(2,VV[23],(V30));
430          base[10]= (V42);          base[10]= (V41);
431          base[11]= (V25);          base[11]= (V24);
432          base[12]= (V26);          base[12]= (V25);
433          base[13]= (V27);          base[13]= (V26);
434          vs_top=(vs_base=base+8)+6;          vs_top=(vs_base=base+8)+6;
435          (void) (*Lnk83)();          (void) (*Lnk83)();
436          vs_top=sup;          vs_top=sup;
437          base[8]= (V42);          base[8]= (V41);
438          base[9]= (V48);          base[9]= (V47);
439          base[10]= (V25);          base[10]= (V24);
440          base[11]= (V26);          base[11]= (V25);
441          base[12]= (V27);          base[12]= (V26);
442          vs_top=(vs_base=base+8)+5;          vs_top=(vs_base=base+8)+5;
443          (void) (*Lnk80)();          (void) (*Lnk80)();
444          vs_top=sup;}          vs_top=sup;}
445          V31= list(2,VV[9],(V31));          V30= list(2,VV[10],(V30));
         V34= number_plus((V34),small_fixnum(1));  
446          V33= number_plus((V33),small_fixnum(1));          V33= number_plus((V33),small_fixnum(1));
447            V32= number_plus((V32),small_fixnum(1));
448          goto T86;          goto T86;
449  T219:;  T219:;
450          if((V47!= VV[26]))goto T240;          if((V46!= VV[27]))goto T240;
451          if(!((length((V42)))>(3))){          if(!((length((V41)))>(3))){
452          goto T241;}          goto T241;}
453          base[8]= VV[35];          base[8]= VV[35];
454          base[9]= VV[36];          base[9]= VV[36];
455          base[10]= (V42);          base[10]= (V41);
456          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
457          Lcerror();          Lcerror();
458          vs_top=sup;          vs_top=sup;
459  T241:;  T241:;
460          base[8]= CMPcar((V42));          base[8]= CMPcar((V41));
461          base[9]= CMPcadr((V42));          base[9]= CMPcadr((V41));
462          base[10]= CMPcaddr((V42));          base[10]= CMPcaddr((V41));
463          base[11]= list(2,VV[37],list(2,VV[38],(V31)));          base[11]= list(2,VV[37],list(2,VV[38],(V30)));
464          base[12]= list(2,VV[22],(V31));          base[12]= list(2,VV[23],(V30));
465          base[13]= (V25);          base[13]= (V24);
466          base[14]= (V26);          base[14]= (V25);
467          base[15]= (V27);          base[15]= (V26);
468          vs_top=(vs_base=base+8)+8;          vs_top=(vs_base=base+8)+8;
469          (void) (*Lnk84)();          (void) (*Lnk84)();
470          vs_top=sup;          vs_top=sup;
471          V31= list(2,VV[9],(V31));          V30= list(2,VV[10],(V30));
472          V33= number_plus((V33),small_fixnum(1));          V32= number_plus((V32),small_fixnum(1));
473          goto T86;          goto T86;
474  T240:;  T240:;
475          if((V47!= VV[28]))goto T259;          if((V46!= VV[29]))goto T259;
476          {object V49;          {object V48;
477            object V49;
478          object V50;          object V50;
479          object V51;          object V51;
480          object V52;          V48= (type_of(CMPcar((V41)))==t_cons?Ct:Cnil);
481          V49= (type_of(CMPcar((V42)))==t_cons?Ct:Cnil);          if(((V48))==Cnil){
         if(((V49))==Cnil){  
482          goto T263;}          goto T263;}
483          V50= CMPcadar((V42));          V49= CMPcadar((V41));
484          goto T261;          goto T261;
485  T263:;  T263:;
486          V50= CMPcar((V42));          V49= CMPcar((V41));
487  T261:;  T261:;
488          if(((V49))==Cnil){          if(((V48))==Cnil){
489          goto T267;}          goto T267;}
490          V51= CMPcaar((V42));          V50= CMPcaar((V41));
491          goto T265;          goto T265;
492  T267:;  T267:;
493          base[12]= (V50);          base[12]= (V49);
494          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
495          (void) (*Lnk85)();          (void) (*Lnk85)();
496          vs_top=sup;          vs_top=sup;
497          V51= vs_base[0];          V50= vs_base[0];
498  T265:;  T265:;
499          V52= CMPcaddr((V42));          V51= CMPcaddr((V41));
500          base[12]= (V50);          base[12]= (V49);
501          base[13]= CMPcadr((V42));          base[13]= CMPcadr((V41));
502          base[14]= (V52);          base[14]= (V51);
503          base[15]= list(3,VV[39],list(2,VV[40],(V51)),(V36));          base[15]= list(3,VV[39],list(2,VV[40],(V50)),(V35));
504          base[16]= list(3,VV[41],list(2,VV[40],(V51)),(V36));          base[16]= list(3,VV[41],list(2,VV[40],(V50)),(V35));
505          base[17]= (V25);          base[17]= (V24);
506          base[18]= (V26);          base[18]= (V25);
507          base[19]= (V27);          base[19]= (V26);
508          vs_top=(vs_base=base+12)+8;          vs_top=(vs_base=base+12)+8;
509          (void) (*Lnk84)();          (void) (*Lnk84)();
510          vs_top=sup;          vs_top=sup;
511          V35= make_cons((V51),(V35));          V34= make_cons((V50),(V34));
512          goto T86;}          goto T86;}
513  T259:;  T259:;
514          if((V47!= VV[33]))goto T281;          if((V46!= VV[33]))goto T281;
515          base[8]= CMPcar((V42));          base[8]= CMPcar((V41));
516          base[9]= CMPcadr((V42));          base[9]= CMPcadr((V41));
517          base[10]= Cnil;          base[10]= Cnil;
518          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
519          (void) (*Lnk81)();          (void) (*Lnk81)();
# Line 520  T259:; Line 522  T259:;
522  T281:;  T281:;
523          goto T86;}          goto T86;}
524  T217:;  T217:;
525          if(!(type_of((V42))==t_symbol)){          if(!(type_of((V41))==t_symbol)){
526          goto T286;}          goto T286;}
527          {object V53= (V32);          {object V52= (V31);
528          if((V53!= VV[10]))goto T288;          if((V52!= VV[11]))goto T288;
         V34= number_plus((V34),small_fixnum(1));  
529          V33= number_plus((V33),small_fixnum(1));          V33= number_plus((V33),small_fixnum(1));
530          base[8]= (V42);          V32= number_plus((V32),small_fixnum(1));
531          base[9]= list(2,VV[22],(V31));          base[8]= (V41);
532            base[9]= list(2,VV[23],(V30));
533          base[10]= Cnil;          base[10]= Cnil;
534          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
535          (void) (*Lnk81)();          (void) (*Lnk81)();
536          vs_top=sup;          vs_top=sup;
537          V31= list(2,VV[9],(V31));          V30= list(2,VV[10],(V30));
538          goto T86;          goto T86;
539  T288:;  T288:;
540          if((V53!= VV[26]))goto T298;          if((V52!= VV[27]))goto T298;
541          V33= number_plus((V33),small_fixnum(1));          V32= number_plus((V32),small_fixnum(1));
542          base[8]= (V42);          base[8]= (V41);
543          base[9]= list(2,VV[22],(V31));          base[9]= list(2,VV[23],(V30));
544          base[10]= Cnil;          base[10]= Cnil;
545          base[11]= list(2,VV[37],list(2,VV[38],(V31)));          base[11]= list(2,VV[37],list(2,VV[38],(V30)));
546          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
547          (void) (*Lnk81)();          (void) (*Lnk81)();
548          vs_top=sup;          vs_top=sup;
549          V31= list(2,VV[9],(V31));          V30= list(2,VV[10],(V30));
550          goto T86;          goto T86;
551  T298:;  T298:;
552          if((V53!= VV[28]))goto T307;          if((V52!= VV[29]))goto T307;
553          {object V54;          {object V53;
554          base[8]= (V42);          base[8]= (V41);
555          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
556          (void) (*Lnk85)();          (void) (*Lnk85)();
557          vs_top=sup;          vs_top=sup;
558          V54= vs_base[0];          V53= vs_base[0];
559          base[8]= (V42);          base[8]= (V41);
560          base[9]= list(3,VV[41],(V54),(V36));          base[9]= list(3,VV[41],(V53),(V35));
561          base[10]= Cnil;          base[10]= Cnil;
562          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
563          (void) (*Lnk81)();          (void) (*Lnk81)();
564          vs_top=sup;          vs_top=sup;
565          V35= make_cons((V54),(V35));          V34= make_cons((V53),(V34));
566          goto T86;}          goto T86;}
567  T307:;  T307:;
568          if((V53!= VV[33]))goto T315;          if((V52!= VV[33]))goto T315;
569          base[8]= (V42);          base[8]= (V41);
570          base[9]= Cnil;          base[9]= Cnil;
571          base[10]= Cnil;          base[10]= Cnil;
572          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
# Line 575  T315:; Line 577  T315:;
577          goto T86;}          goto T86;}
578  T286:;  T286:;
579          base[8]= VV[42];          base[8]= VV[42];
580          base[9]= (V42);          base[9]= (V41);
581          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
582          Lerror();          Lerror();
583          vs_top=sup;}          vs_top=sup;}
584  T86:;  T86:;
585          V41= CMPcdr((V41));          V40= CMPcdr((V40));
586          goto T73;}          goto T73;}
587  T71:;  T71:;
588          if(((V37))!=Cnil){          if(((V36))!=Cnil){
589          goto T324;}          goto T324;}
590          if(((V28))==Cnil){          if(((V27))==Cnil){
591          goto T330;}          goto T330;}
592          V55= list(2,VV[9],(V24));          V54= list(2,VV[10],(V23));
593          goto T328;          goto T328;
594  T330:;  T330:;
595          V55= (V24);          V54= (V23);
596  T328:;  T328:;
597          V56= list(2,VV[45],list(3,VV[46],VV[47],V55));          V55= list(2,VV[45],list(3,VV[46],VV[47],V54));
598          if(((V37))!=Cnil){          if(((V36))!=Cnil){
599          goto T334;}          goto T334;}
600          V57= make_cons((V33),Cnil);          V56= make_cons((V32),Cnil);
601          goto T332;          goto T332;
602  T334:;  T334:;
603          V57= Cnil;          V56= Cnil;
604  T332:;  T332:;
605          V58= listA(4,VV[44],(V34),/* INLINE-ARGS */V56,V57);          V57= listA(4,VV[44],(V33),/* INLINE-ARGS */V55,V56);
606          {object V60;          {object V59;
607          if(((V28))==Cnil){          if(((V27))==Cnil){
608          goto T339;}          goto T339;}
609          V60= list(2,VV[9],(V24));          V59= list(2,VV[10],(V23));
610          goto T337;          goto T337;
611  T339:;  T339:;
612          V60= (V24);          V59= (V23);
613  T337:;  T337:;
614          if(!(((V27))==(VV[1]))){          if(!(((V26))==(VV[1]))){
615          goto T342;}          goto T342;}
616          V61= list(2,VV[40],(V26));          V60= list(2,VV[40],(V25));
617          V62= list(2,VV[40],(V25));          V61= list(2,VV[40],(V24));
618          V63= list(2,VV[40],(V23));          V62= list(2,VV[40],(V22));
619          if(((V37))!=Cnil){          if(((V36))!=Cnil){
620          goto T346;}          goto T346;}
621          V64= (V33);          V63= (V32);
622          goto T344;          goto T344;
623  T346:;  T346:;
624          V64= Cnil;          V63= Cnil;
625  T344:;  T344:;
626          V59= list(7,VV[48],/* INLINE-ARGS */V61,/* INLINE-ARGS */V62,(V60),/* INLINE-ARGS */V63,(V34),V64);          V58= list(7,VV[48],/* INLINE-ARGS */V60,/* INLINE-ARGS */V61,(V59),/* INLINE-ARGS */V62,(V33),V63);
627          goto T336;          goto T336;
628  T342:;  T342:;
629          V65= list(2,VV[40],(V26));          V64= list(2,VV[40],(V25));
630          if(((V25))==Cnil){          if(((V24))==Cnil){
631          goto T350;}          goto T350;}
632          V66= list(2,VV[51],list(2,VV[40],(V25)));          V65= list(2,VV[51],list(2,VV[40],(V24)));
633          goto T348;          goto T348;
634  T350:;  T350:;
635          V66= Cnil;          V65= Cnil;
636  T348:;  T348:;
637          V67= list(2,VV[40],(V23));          V66= list(2,VV[40],(V22));
638          if(((V37))!=Cnil){          if(((V36))!=Cnil){
639          goto T354;}          goto T354;}
640          V68= list(2,VV[55],(V33));          V67= list(2,VV[55],(V32));
641          goto T352;          goto T352;
642  T354:;  T354:;
643          V68= Cnil;          V67= Cnil;
644  T352:;  T352:;
645          V69= listA(7,VV[52],(V60),VV[53],/* INLINE-ARGS */V67,VV[54],(V34),V68);          V68= listA(7,VV[52],(V59),VV[53],/* INLINE-ARGS */V66,VV[54],(V33),V67);
646          V59= listA(5,(V27),VV[49],VV[50],/* INLINE-ARGS */V65,append(V66,/* INLINE-ARGS */V69));}          V58= listA(5,(V26),VV[49],VV[50],/* INLINE-ARGS */V64,append(V65,/* INLINE-ARGS */V68));}
647  T336:;  T336:;
648          V70= list(3,VV[43],/* INLINE-ARGS */V58,V59);          V69= list(3,VV[43],/* INLINE-ARGS */V57,V58);
649          (VV[2]->s.s_dbind)= make_cons(/* INLINE-ARGS */V70,(VV[2]->s.s_dbind));          (VV[2]->s.s_dbind)= make_cons(/* INLINE-ARGS */V69,(VV[2]->s.s_dbind));
650  T324:;  T324:;
651          if(((V35))==Cnil){          if(((V34))==Cnil){
652          goto T356;}          goto T356;}
653          {object V71;          {object V70;
654          object V72;          object V71;
655          base[8]= VV[56];          base[8]= VV[56];
656          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
657          Lgensym();          Lgensym();
658          vs_top=sup;          vs_top=sup;
659          V71= vs_base[0];          V70= vs_base[0];
660          base[8]= VV[57];          base[8]= VV[57];
661          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
662          Lgensym();          Lgensym();
663          vs_top=sup;          vs_top=sup;
664          V72= vs_base[0];          V71= vs_base[0];
665          V73= list(2,(V71),(V72));          V72= list(2,(V70),(V71));
666          V74= list(2,VV[40],(V35));          V73= list(2,VV[40],(V34));
667          V75= list(4,VV[59],(V36),/* INLINE-ARGS */V74,list(2,VV[40],(V38)));          V74= list(4,VV[59],(V35),/* INLINE-ARGS */V73,list(2,VV[40],(V37)));
668          V76= list(2,VV[40],(V26));          V75= list(2,VV[40],(V25));
669          if(((V25))==Cnil){          if(((V24))==Cnil){
670          goto T366;}          goto T366;}
671          V77= list(2,VV[51],list(2,VV[40],(V25)));          V76= list(2,VV[51],list(2,VV[40],(V24)));
672          goto T364;          goto T364;
673  T366:;  T366:;
674          V77= Cnil;          V76= Cnil;
675  T364:;  T364:;
676          V78= list(4,VV[62],(V71),VV[63],(V72));          V77= list(4,VV[62],(V70),VV[63],(V71));
677          V79= list(4,VV[58],/* INLINE-ARGS */V73,/* INLINE-ARGS */V75,list(3,VV[60],(V71),listA(5,(V27),VV[61],VV[50],/* INLINE-ARGS */V76,append(V77,/* INLINE-ARGS */V78))));          V78= list(4,VV[58],/* INLINE-ARGS */V72,/* INLINE-ARGS */V74,list(3,VV[60],(V70),listA(5,(V26),VV[61],VV[50],/* INLINE-ARGS */V75,append(V76,/* INLINE-ARGS */V77))));
678          (VV[2]->s.s_dbind)= make_cons(/* INLINE-ARGS */V79,(VV[2]->s.s_dbind));}          (VV[2]->s.s_dbind)= make_cons(/* INLINE-ARGS */V78,(VV[2]->s.s_dbind));}
679  T356:;  T356:;
680          base[8]= (V39);          base[8]= (V38);
681          base[9]= (V34);          base[9]= (V33);
682          if(((V37))!=Cnil){          if(((V36))!=Cnil){
683          goto T372;}          goto T372;}
684          base[10]= (V33);          base[10]= (V32);
685          goto T370;          goto T370;
686  T372:;  T372:;
687          base[10]= Cnil;          base[10]= Cnil;
# Line 694  static L3() Line 696  static L3()
696  {register object *base=vs_base;  {register object *base=vs_base;
697          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
698          vs_check;          vs_check;
699          {object V80;          {object V79;
700            object V80;
701          object V81;          object V81;
702          object V82;          object V82;
703          object V83;          object V83;
704          object V84;          object V84;
705          object V85;          V79=(base[0]);
706          V80=(base[0]);          V80=(base[1]);
707          V81=(base[1]);          V81=(base[2]);
708          V82=(base[2]);          V82=(base[3]);
709          V83=(base[3]);          V83=(base[4]);
710          V84=(base[4]);          V84=(base[5]);
         V85=(base[5]);  
711          vs_top=sup;          vs_top=sup;
712  TTL:;  TTL:;
713          {register object V86;          {register object V85;
714          base[6]= VV[64];          base[6]= VV[64];
715          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
716          Lgensym();          Lgensym();
717          vs_top=sup;          vs_top=sup;
718          V86= vs_base[0];          V85= vs_base[0];
719          V87= list(2,(V86),(V81));          V86= list(2,(V85),(V80));
720          V88= make_cons(/* INLINE-ARGS */V87,Cnil);          V87= make_cons(/* INLINE-ARGS */V86,Cnil);
721          V89= list(2,VV[67],(V86));          V88= list(2,VV[67],(V85));
722          V90= list(2,VV[40],(V84));          V89= list(2,VV[40],(V83));
723          if(((V83))==Cnil){          if(((V82))==Cnil){
724          goto T379;}          goto T379;}
725          V91= list(2,VV[51],list(2,VV[40],(V83)));          V90= list(2,VV[51],list(2,VV[40],(V82)));
726          goto T377;          goto T377;
727  T379:;  T379:;
728          V91= Cnil;          V90= Cnil;
729  T377:;  T377:;
730          V92= list(4,VV[69],(V86),VV[53],list(2,VV[40],(V82)));          V91= list(4,VV[69],(V85),VV[53],list(2,VV[40],(V81)));
731          V93= list(2,(V80),list(3,VV[65],/* INLINE-ARGS */V88,list(4,VV[66],/* INLINE-ARGS */V89,(V86),listA(5,(V85),VV[68],VV[50],/* INLINE-ARGS */V90,append(V91,/* INLINE-ARGS */V92)))));          V92= list(2,(V79),list(3,VV[65],/* INLINE-ARGS */V87,list(4,VV[66],/* INLINE-ARGS */V88,(V85),listA(5,(V84),VV[68],VV[50],/* INLINE-ARGS */V89,append(V90,/* INLINE-ARGS */V91)))));
732          (VV[4]->s.s_dbind)= make_cons(/* INLINE-ARGS */V93,(VV[4]->s.s_dbind));          (VV[4]->s.s_dbind)= make_cons(/* INLINE-ARGS */V92,(VV[4]->s.s_dbind));
733          base[6]= (VV[4]->s.s_dbind);          base[6]= (VV[4]->s.s_dbind);
734          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
735          return;}          return;}
# Line 739  static L4() Line 741  static L4()
741  {register object *base=vs_base;  {register object *base=vs_base;
742          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
743          vs_check;          vs_check;
744          {object V94;          {object V93;
745            object V94;
746          object V95;          object V95;
747          object V96;          object V96;
748          object V97;          object V97;
749          object V98;          V93=(base[0]);
750          V94=(base[0]);          V94=(base[1]);
751          V95=(base[1]);          V95=(base[2]);
         V96=(base[2]);  
752          vs_base=vs_base+3;          vs_base=vs_base+3;
753          if(vs_base>=vs_top){vs_top=sup;goto T381;}          if(vs_base>=vs_top){vs_top=sup;goto T381;}
754          V97=(base[3]);          V96=(base[3]);
755          vs_base++;          vs_base++;
756          if(vs_base>=vs_top){vs_top=sup;goto T382;}          if(vs_base>=vs_top){vs_top=sup;goto T382;}
757          V98=(base[4]);          V97=(base[4]);
758          vs_top=sup;          vs_top=sup;
759          goto T383;          goto T383;
760  T381:;  T381:;
761          V97= Cnil;          V96= Cnil;
762  T382:;  T382:;
763          V98= (VV[0]->s.s_dbind);          V97= (VV[0]->s.s_dbind);
764  T383:;  T383:;
765          {object V99;          {object V98;
766          if(((V97))==Cnil){          if(((V96))==Cnil){
767          goto T388;}          goto T388;}
768          V99= list(2,(V94),list(4,VV[66],(V97),(V95),(V98)));          V98= list(2,(V93),list(4,VV[66],(V96),(V94),(V97)));
769          goto T386;          goto T386;
770  T388:;  T388:;
771          V99= list(2,(V94),(V95));          V98= list(2,(V93),(V94));
772  T386:;  T386:;
773          if(((V96))==Cnil){          if(((V95))==Cnil){
774          goto T391;}          goto T391;}
775          (VV[4]->s.s_dbind)= make_cons((V99),(VV[4]->s.s_dbind));          (VV[4]->s.s_dbind)= make_cons((V98),(VV[4]->s.s_dbind));
776          base[5]= (VV[4]->s.s_dbind);          base[5]= (VV[4]->s.s_dbind);
777          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
778          return;          return;
779  T391:;  T391:;
780          (VV[3]->s.s_dbind)= make_cons((V99),(VV[3]->s.s_dbind));          (VV[3]->s.s_dbind)= make_cons((V98),(VV[3]->s.s_dbind));
781          base[5]= (VV[3]->s.s_dbind);          base[5]= (VV[3]->s.s_dbind);
782          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
783          return;}          return;}
# Line 787  static L5() Line 789  static L5()
789  {register object *base=vs_base;  {register object *base=vs_base;
790          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
791          vs_check;          vs_check;
792          {register object V100;          {register object V99;
793          object V101;          object V100;
794          register object V102;          register object V101;
795            object V102;
796          object V103;          object V103;
797          object V104;          object V104;
798          object V105;          object V105;
799          object V106;          object V106;
800          object V107;          V99=(base[0]);
801          V100=(base[0]);          V100=(base[1]);
802          V101=(base[1]);          V101=(base[2]);
803          V102=(base[2]);          V102=(base[3]);
804          V103=(base[3]);          V103=(base[4]);
805          V104=(base[4]);          V104=(base[5]);
806          V105=(base[5]);          V105=(base[6]);
807          V106=(base[6]);          V106=(base[7]);
         V107=(base[7]);  
808          vs_top=sup;          vs_top=sup;
809  TTL:;  TTL:;
810          if(((V102))!=Cnil){          if(((V101))!=Cnil){
811          goto T395;}          goto T395;}
812          base[8]= VV[70];          base[8]= VV[70];
813          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
814          Lgensym();          Lgensym();
815          vs_top=sup;          vs_top=sup;
816          V102= vs_base[0];          V101= vs_base[0];
817  T395:;  T395:;
818          base[8]= (V102);          base[8]= (V101);
819          base[9]= (V103);          base[9]= (V102);
820          base[10]= Ct;          base[10]= Ct;
821          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
822          (void) (*Lnk81)();          (void) (*Lnk81)();
823          vs_top=sup;          vs_top=sup;
824          if(!(type_of((V100))==t_cons)){          if(!(type_of((V99))==t_cons)){
825          goto T405;}          goto T405;}
826          {object V108;          {object V107;
827          base[8]= VV[71];          base[8]= VV[71];
828          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
829          Lgensym();          Lgensym();
830          vs_top=sup;          vs_top=sup;
831          V108= vs_base[0];          V107= vs_base[0];
832          base[8]= (V108);          base[8]= (V107);
833          base[9]= list(4,VV[66],(V102),(V104),(V101));          base[9]= list(4,VV[66],(V101),(V103),(V100));
834          base[10]= (V100);          base[10]= (V99);
835          base[11]= (V105);          base[11]= (V104);
836          base[12]= (V106);          base[12]= (V105);
837          base[13]= (V107);          base[13]= (V106);
838          vs_top=(vs_base=base+8)+6;          vs_top=(vs_base=base+8)+6;
839          (void) (*Lnk83)();          (void) (*Lnk83)();
840          vs_top=sup;          vs_top=sup;
841          base[8]= (V100);          base[8]= (V99);
842          base[9]= (V108);          base[9]= (V107);
843          base[10]= (V105);          base[10]= (V104);
844          base[11]= (V106);          base[11]= (V105);
845          base[12]= (V107);          base[12]= (V106);
846          vs_top=(vs_base=base+8)+5;          vs_top=(vs_base=base+8)+5;
847          (void) (*Lnk80)();          (void) (*Lnk80)();
848          return;}          return;}
849  T405:;  T405:;
850          if(!(type_of((V100))==t_symbol)){          if(!(type_of((V99))==t_symbol)){
851          goto T422;}          goto T422;}
852          base[8]= (V100);          base[8]= (V99);
853          base[9]= (V104);          base[9]= (V103);
854          base[10]= Cnil;          base[10]= Cnil;
855          base[11]= (V102);          base[11]= (V101);
856          base[12]= (V101);          base[12]= (V100);
857          vs_top=(vs_base=base+8)+5;          vs_top=(vs_base=base+8)+5;
858          (void) (*Lnk81)();          (void) (*Lnk81)();
859          return;          return;
860  T422:;  T422:;
861          base[8]= VV[72];          base[8]= VV[72];
862          base[9]= (V100);          base[9]= (V99);
863          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
864          Lerror();          Lerror();
865          return;          return;
# Line 869  static L6() Line 871  static L6()
871  {register object *base=vs_base;  {register object *base=vs_base;
872          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
873          vs_check;          vs_check;
874          {object V109;          {object V108;
875          object V110;          object V109;
876          register object V111;          register object V110;
877          V109=(base[0]);          V108=(base[0]);
878          V110=(base[1]);          V109=(base[1]);
879          vs_base=vs_base+2;          vs_base=vs_base+2;
880          if(vs_base>=vs_top){vs_top=sup;goto T431;}          if(vs_base>=vs_top){vs_top=sup;goto T431;}
881          V111=(base[2]);          V110=(base[2]);
882          vs_top=sup;          vs_top=sup;
883          goto T432;          goto T432;
884  T431:;  T431:;
885          V111= Ct;          V110= Ct;
886  T432:;  T432:;
887          {register object V112;          {register object V111;
888          register object V113;          register object V112;
889            V111= Cnil;
890          V112= Cnil;          V112= Cnil;
891          V113= Cnil;          {register object V113;
892          {register object V114;          V113= (V108);
         V114= (V109);  
893  T435:;  T435:;
894          if(!(((V114))==Cnil)){          if(!(((V113))==Cnil)){
895          goto T436;}          goto T436;}
896          base[3]= (V114);          base[3]= (V113);
897          base[4]= nreverse((V112));          base[4]= nreverse((V111));
898          base[5]= (V113);          base[5]= (V112);
899          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
900          return;          return;
901  T436:;  T436:;
902          {register object V115;          {register object V114;
903          V115= CMPcar((V114));          V114= CMPcar((V113));
904          if(!(type_of((V115))==t_string)){          if(!(type_of((V114))==t_string)){
905          goto T446;}          goto T446;}
906          if((CMPcdr((V114)))==Cnil){          if((CMPcdr((V113)))==Cnil){
907          goto T446;}          goto T446;}
908          if(((V111))==Cnil){          if(((V110))==Cnil){
909          goto T451;}          goto T451;}
910          V113= (V115);          V112= (V114);
911          V111= Cnil;          V110= Cnil;
912          goto T443;          goto T443;
913  T451:;  T451:;
914          base[3]= (V114);          base[3]= (V113);
915          base[4]= nreverse((V112));          base[4]= nreverse((V111));
916          base[5]= (V113);          base[5]= (V112);
917          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
918          return;          return;
919  T446:;  T446:;
920          if(!(type_of((V115))==t_cons)){          if(!(type_of((V114))==t_cons)){
921          goto T459;}          goto T459;}
922          if(type_of(CMPcar((V115)))==t_symbol){          if(type_of(CMPcar((V114)))==t_symbol){
923          goto T460;}          goto T460;}
924  T459:;  T459:;
925          base[3]= (V114);          base[3]= (V113);
926          base[4]= nreverse((V112));          base[4]= nreverse((V111));
927          base[5]= (V113);          base[5]= (V112);
928          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
929          return;          return;
930  T460:;  T460:;
931          if(!((CMPcar((V115)))==(VV[6]))){          if(!((CMPcar((V114)))==(VV[7]))){
932          goto T468;}          goto T468;}
933          V112= make_cons((V115),(V112));          V111= make_cons((V114),(V111));
934          goto T443;          goto T443;
935  T468:;  T468:;
936          base[3]= (V114);          base[3]= (V113);
937          base[4]= nreverse((V112));          base[4]= nreverse((V111));
938          base[5]= (V113);          base[5]= (V112);
939          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
940          return;}          return;}
941  T443:;  T443:;
942          V114= CMPcdr((V114));          V113= CMPcdr((V113));
943          goto T435;}}          goto T435;}}
944          }          }
945  }  }
# Line 948  static L7() Line 950  static L7()
950          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
951          vs_check;          vs_check;
952          vs_top=sup;          vs_top=sup;
953          {object V116=base[0]->c.c_cdr;          {object V115=base[0]->c.c_cdr;
954          base[2]= (V116->c.c_car);          base[2]= (V115->c.c_car);
955          V116=V116->c.c_cdr;          V115=V115->c.c_cdr;
956          base[3]= (V116->c.c_car);          base[3]= (V115->c.c_car);
957          V116=V116->c.c_cdr;          V115=V115->c.c_cdr;
958          base[4]= V116;}          base[4]= V115;}
959          {object V117;          {object V116;
960          base[6]= VV[73];          base[6]= VV[73];
961          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
962          Lgensym();          Lgensym();
963          vs_top=sup;          vs_top=sup;
964          V117= vs_base[0];          V116= vs_base[0];
965          {object V118;          {object V117;
966          object V119;          object V118;
967          base[6]= base[2];          base[6]= base[2];
968          base[7]= (V117);          base[7]= (V116);
969          base[8]= base[4];          base[8]= base[4];
970          base[9]= Cnil;          base[9]= Cnil;
971          base[10]= VV[74];          base[10]= VV[74];
# Line 974  static L7() Line 976  static L7()
976          vs_top=(vs_base=base+6)+9;          vs_top=(vs_base=base+6)+9;
977          (void) (*Lnk86)();          (void) (*Lnk86)();
978          if(vs_base>=vs_top){vs_top=sup;goto T489;}          if(vs_base>=vs_top){vs_top=sup;goto T489;}
979          V118= vs_base[0];          V117= vs_base[0];
980          vs_base++;          vs_base++;
981          if(vs_base>=vs_top){vs_top=sup;goto T490;}          if(vs_base>=vs_top){vs_top=sup;goto T490;}
982          V119= vs_base[0];          V118= vs_base[0];
983          vs_top=sup;          vs_top=sup;
984          goto T491;          goto T491;
985  T489:;  T489:;
986          V118= Cnil;          V117= Cnil;
987  T490:;  T490:;
988          V119= Cnil;          V118= Cnil;
989  T491:;  T491:;
990          V120= list(2,(V117),base[3]);          V119= list(2,(V116),base[3]);
991          V121= make_cons(/* INLINE-ARGS */V120,Cnil);          V120= make_cons(/* INLINE-ARGS */V119,Cnil);
992          V122= make_cons((V118),Cnil);          V121= make_cons((V117),Cnil);
993          base[6]= listA(3,VV[65],/* INLINE-ARGS */V121,append((V119),/* INLINE-ARGS */V122));          base[6]= listA(3,VV[65],/* INLINE-ARGS */V120,append((V118),/* INLINE-ARGS */V121));
994          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
995          return;}}          return;}}
996  }  }
# Line 999  static LnkT83(){ call_or_link(VV[83],&Ln Line 1001  static LnkT83(){ call_or_link(VV[83],&Ln
1001  static LnkT82(){ call_or_link(VV[82],&Lnk82);} /* DEFMACRO-ERROR */  static LnkT82(){ call_or_link(VV[82],&Lnk82);} /* DEFMACRO-ERROR */
1002  static LnkT81(){ call_or_link(VV[81],&Lnk81);} /* PUSH-LET-BINDING */  static LnkT81(){ call_or_link(VV[81],&Lnk81);} /* PUSH-LET-BINDING */
1003  static LnkT80(){ call_or_link(VV[80],&Lnk80);} /* PARSE-DEFMACRO-LAMBDA-LIST */  static LnkT80(){ call_or_link(VV[80],&Lnk80);} /* PARSE-DEFMACRO-LAMBDA-LIST */
1004  static LnkT21(){ call_or_link(VV[21],&Lnk21);} /* PARSE-BODY */  static LnkT22(){ call_or_link(VV[22],&Lnk22);} /* PARSE-BODY */

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