/[gcl]/gcl/cmpnew/cmpif.c
ViewVC logotype

Diff of /gcl/cmpnew/cmpif.c

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

revision 1.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:54 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "cmpif.h"  #include "cmpif.h"
4  init_cmpif(){do_init(VV);}  void init_cmpif(){do_init(VV);}
5  /*      local entry for function C1IF   */  /*      local entry for function C1IF   */
6    
7  static object LI1(V2)  static object LI1(V2)
8    
9  register object V2;  register object V2;
10  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
11    goto TTL;
12  TTL:;  TTL:;
13          {register object V3;          {register object V3;
14          object V4;          object V4;
# Line 17  TTL:; Line 18  TTL:;
18          goto T4;}          goto T4;}
19          if(!(endp(cdr((V2))))){          if(!(endp(cdr((V2))))){
20          goto T3;}          goto T3;}
21    goto T4;
22  T4:;  T4:;
23          V5 = make_fixnum(length((V2)));          V5 = make_fixnum(length((V2)));
24          (void)((*(LnkLI43))(VV[0],small_fixnum(2),V5));          (void)((*(LnkLI43))(VV[0],small_fixnum(2),V5));
25    goto T3;
26  T3:;  T3:;
27          if(endp(cddr((V2)))){          if(endp(cddr((V2)))){
28          goto T8;}          goto T8;}
# Line 27  T3:; Line 30  T3:;
30          goto T8;}          goto T8;}
31          V6 = make_fixnum(length((V2)));          V6 = make_fixnum(length((V2)));
32          (void)((*(LnkLI44))(VV[0],small_fixnum(3),V6));          (void)((*(LnkLI44))(VV[0],small_fixnum(3),V6));
33    goto T8;
34  T8:;  T8:;
35          V4= (*(LnkLI45))(car((V2)));          V4= (*(LnkLI45))(car((V2)));
36          {object V7= (V4);          {object V7= (V4);
37          if((V7!= Ct))goto T15;          if((V7!= Ct))goto T15;
38          {object V8 = (*(LnkLI46))(cadr((V2)));          {object V8 = (*(LnkLI46))(cadr((V2)));
39          VMR1(V8)}          VMR1(V8)}
40    goto T15;
41  T15:;  T15:;
42          if((V7!= Cnil))goto T16;          if((V7!= Cnil))goto T16;
43          if(!(endp(cddr((V2))))){          if(!(endp(cddr((V2))))){
44          goto T18;}          goto T18;}
45          {object V9 = (*(LnkLI47))();          {object V9 = (*(LnkLI47))();
46          VMR1(V9)}          VMR1(V9)}
47    goto T18;
48  T18:;  T18:;
49          {object V10 = (*(LnkLI46))(caddr((V2)));          {object V10 = (*(LnkLI46))(caddr((V2)));
50          VMR1(V10)}          VMR1(V10)}
51    goto T16;
52  T16:;  T16:;
53          V3= (VFUN_NARGS=0,(*(LnkLI48))());          V3= (VFUN_NARGS=0,(*(LnkLI48))());
54          V11= (*(LnkLI49))((V4),(V3));          V11= (*(LnkLI49))((V4),(V3));
# Line 50  T16:; Line 57  T16:;
57          goto T24;}          goto T24;}
58          V13= (*(LnkLI47))();          V13= (*(LnkLI47))();
59          goto T22;          goto T22;
60    goto T24;
61  T24:;  T24:;
62          V13= (*(LnkLI50))(caddr((V2)),(V3));          V13= (*(LnkLI50))(caddr((V2)),(V3));
63    goto T22;
64  T22:;  T22:;
65          {object V14 = list(5,VV[0],(V3),/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,V13);          {object V14 = list(5,VV[0],(V3),/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,V13);
66          VMR1(V14)}}}          VMR1(V14)}}}
67            return Cnil;
68  }  }
69  /*      local entry for function C1FMLA-CONSTANT        */  /*      local entry for function C1FMLA-CONSTANT        */
70    
# Line 62  static object LI2(V16) Line 72  static object LI2(V16)
72    
73  register object V16;  register object V16;
74  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
75    goto TTL;
76  TTL:;  TTL:;
77          {register object V17;          {register object V17;
78          V17= Cnil;          V17= Cnil;
# Line 71  TTL:; Line 82  TTL:;
82          if((V18!= VV[1]))goto T30;          if((V18!= VV[1]))goto T30;
83          {register object V19;          {register object V19;
84          V19= cdr((V16));          V19= cdr((V16));
85    goto T33;
86  T33:;  T33:;
87          if(!(endp((V19)))){          if(!(endp((V19)))){
88          goto T34;}          goto T34;}
89          {object V20 = Ct;          {object V20 = Ct;
90          VMR2(V20)}          VMR2(V20)}
91    goto T34;
92  T34:;  T34:;
93          V17= (*(LnkLI45))(car((V19)));          V17= (*(LnkLI45))(car((V19)));
94          {object V21= (V17);          {object V21= (V17);
95          if((V21!= Ct))goto T41;          if((V21!= Ct))goto T41;
96          goto T40;          goto T40;
97    goto T41;
98  T41:;  T41:;
99          if((V21!= Cnil))goto T42;          if((V21!= Cnil))goto T42;
100          {object V22 = Cnil;          {object V22 = Cnil;
101          VMR2(V22)}          VMR2(V22)}
102    goto T42;
103  T42:;  T42:;
104          if(!(endp(cdr((V19))))){          if(!(endp(cdr((V19))))){
105          goto T44;}          goto T44;}
106          {object V23 = (V17);          {object V23 = (V17);
107          VMR2(V23)}          VMR2(V23)}
108    goto T44;
109  T44:;  T44:;
110          {object V24 = listA(3,VV[1],(V17),cdr((V19)));          {object V24 = listA(3,VV[1],(V17),cdr((V19)));
111          VMR2(V24)}}          VMR2(V24)}}
112    goto T40;
113  T40:;  T40:;
114          V19= cdr((V19));          V19= cdr((V19));
115          goto T33;}          goto T33;}
116    goto T30;
117  T30:;  T30:;
118          if((V18!= VV[2]))goto T49;          if((V18!= VV[2]))goto T49;
119          {register object V25;          {register object V25;
120          V25= cdr((V16));          V25= cdr((V16));
121    goto T52;
122  T52:;  T52:;
123          if(!(endp((V25)))){          if(!(endp((V25)))){
124          goto T53;}          goto T53;}
125          {object V26 = Cnil;          {object V26 = Cnil;
126          VMR2(V26)}          VMR2(V26)}
127    goto T53;
128  T53:;  T53:;
129          V17= (*(LnkLI45))(car((V25)));          V17= (*(LnkLI45))(car((V25)));
130          {object V27= (V17);          {object V27= (V17);
131          if((V27!= Ct))goto T60;          if((V27!= Ct))goto T60;
132          {object V28 = Ct;          {object V28 = Ct;
133          VMR2(V28)}          VMR2(V28)}
134    goto T60;
135  T60:;  T60:;
136          if((V27!= Cnil))goto T61;          if((V27!= Cnil))goto T61;
137          goto T59;          goto T59;
138    goto T61;
139  T61:;  T61:;
140          if(!(endp(cdr((V25))))){          if(!(endp(cdr((V25))))){
141          goto T63;}          goto T63;}
142          {object V29 = (V17);          {object V29 = (V17);
143          VMR2(V29)}          VMR2(V29)}
144    goto T63;
145  T63:;  T63:;
146          {object V30 = listA(3,VV[2],(V17),cdr((V25)));          {object V30 = listA(3,VV[2],(V17),cdr((V25)));
147          VMR2(V30)}}          VMR2(V30)}}
148    goto T59;
149  T59:;  T59:;
150          V25= cdr((V25));          V25= cdr((V25));
151          goto T52;}          goto T52;}
152    goto T49;
153  T49:;  T49:;
154          if((V18!= VV[3])          if((V18!= VV[3])
155          && (V18!= VV[51]))goto T68;          && (V18!= VV[51]))goto T68;
156          if(!(endp(cdr((V16))))){          if(!(endp(cdr((V16))))){
157          goto T69;}          goto T69;}
158          (void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0)));
159    goto T69;
160  T69:;  T69:;
161          if(endp(cddr((V16)))){          if(endp(cddr((V16)))){
162          goto T72;}          goto T72;}
163          V31 = make_fixnum(length(cdr((V16))));          V31 = make_fixnum(length(cdr((V16))));
164          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V31));          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V31));
165    goto T72;
166  T72:;  T72:;
167          V17= (*(LnkLI45))(cadr((V16)));          V17= (*(LnkLI45))(cadr((V16)));
168          {object V32= (V17);          {object V32= (V17);
169          if((V32!= Ct))goto T77;          if((V32!= Ct))goto T77;
170          {object V33 = Cnil;          {object V33 = Cnil;
171          VMR2(V33)}          VMR2(V33)}
172    goto T77;
173  T77:;  T77:;
174          if((V32!= Cnil))goto T78;          if((V32!= Cnil))goto T78;
175          {object V34 = Ct;          {object V34 = Ct;
176          VMR2(V34)}          VMR2(V34)}
177    goto T78;
178  T78:;  T78:;
179          {object V35 = list(2,VV[3],(V17));          {object V35 = list(2,VV[3],(V17));
180          VMR2(V35)}}          VMR2(V35)}}
181    goto T68;
182  T68:;  T68:;
183          {object V36 = (V16);          {object V36 = (V16);
184          VMR2(V36)}}          VMR2(V36)}}
185    goto T28;
186  T28:;  T28:;
187          if(!(type_of((V16))==t_symbol)){          if(!(type_of((V16))==t_symbol)){
188          goto T80;}          goto T80;}
# Line 169  T28:; Line 200  T28:;
200          goto T87;}          goto T87;}
201          {object V37 = Ct;          {object V37 = Ct;
202          VMR2(V37)}          VMR2(V37)}
203    goto T87;
204  T87:;  T87:;
205          {object V38 = Cnil;          {object V38 = Cnil;
206          VMR2(V38)}          VMR2(V38)}
207    goto T83;
208  T83:;  T83:;
209          {object V39 = (V16);          {object V39 = (V16);
210          VMR2(V39)}          VMR2(V39)}
211    goto T80;
212  T80:;  T80:;
213          {object V40 = Ct;          {object V40 = Ct;
214          VMR2(V40)}}          VMR2(V40)}}
215            base[0]=base[0];
216            return Cnil;
217  }  }
218  /*      local entry for function C1FMLA */  /*      local entry for function C1FMLA */
219    
# Line 185  static object LI3(V43,V44) Line 221  static object LI3(V43,V44)
221    
222  register object V43;register object V44;  register object V43;register object V44;
223  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
224    goto TTL;
225  TTL:;  TTL:;
226          if(!(type_of((V43))==t_cons)){          if(!(type_of((V43))==t_cons)){
227          goto T91;}          goto T91;}
228          {object V45= car((V43));          {object V45= car((V43));
229          if((V45!= VV[1]))goto T93;switch(length(cdr((V43)))){          if((V45!= VV[1]))goto T93;switch(length(cdr((V43)))){
230          case 0:          case 0:
231    goto T95;
232  T95:;  T95:;
233          {object V46 = (*(LnkLI52))();          {object V46 = (*(LnkLI52))();
234          VMR3(V46)}          VMR3(V46)}
235          case 1:          case 1:
236    goto T96;
237  T96:;  T96:;
238          V43= cadr((V43));          V43= cadr((V43));
239          goto TTL;          goto TTL;
240          default:          default:
241    goto T97;
242  T97:;  T97:;
243          {object V48;          {object V48;
244          object V49= cdr((V43));          object V49= cdr((V43));
# Line 206  T97:; Line 246  T97:;
246          V47= Cnil;          V47= Cnil;
247          goto T102;}          goto T102;}
248          base[0]=V48=MMcons(Cnil,Cnil);          base[0]=V48=MMcons(Cnil,Cnil);
249    goto T103;
250  T103:;  T103:;
251          {register object V50;          {register object V50;
252          V50= (V49->c.c_car);          V50= (V49->c.c_car);
# Line 215  T103:; Line 256  T103:;
256          goto T102;}          goto T102;}
257          V48=MMcdr(V48)=MMcons(Cnil,Cnil);          V48=MMcdr(V48)=MMcons(Cnil,Cnil);
258          goto T103;}          goto T103;}
259    goto T102;
260  T102:;  T102:;
261          {object V51 = make_cons(VV[4],V47);          {object V51 = make_cons(VV[4],V47);
262          VMR3(V51)}          VMR3(V51)}
# Line 222  T102:; Line 264  T102:;
264          VMR3(V52)}}          VMR3(V52)}}
265          {object V53 = Cnil;          {object V53 = Cnil;
266          VMR3(V53)}          VMR3(V53)}
267    goto T93;
268  T93:;  T93:;
269          if((V45!= VV[2]))goto T105;switch(length(cdr((V43)))){          if((V45!= VV[2]))goto T105;switch(length(cdr((V43)))){
270          case 0:          case 0:
271    goto T107;
272  T107:;  T107:;
273          {object V54 = (*(LnkLI47))();          {object V54 = (*(LnkLI47))();
274          VMR3(V54)}          VMR3(V54)}
275          case 1:          case 1:
276    goto T108;
277  T108:;  T108:;
278          V43= cadr((V43));          V43= cadr((V43));
279          goto TTL;          goto TTL;
280          default:          default:
281    goto T109;
282  T109:;  T109:;
283          {object V56;          {object V56;
284          object V57= cdr((V43));          object V57= cdr((V43));
# Line 240  T109:; Line 286  T109:;
286          V55= Cnil;          V55= Cnil;
287          goto T114;}          goto T114;}
288          base[0]=V56=MMcons(Cnil,Cnil);          base[0]=V56=MMcons(Cnil,Cnil);
289    goto T115;
290  T115:;  T115:;
291          {register object V58;          {register object V58;
292          V58= (V57->c.c_car);          V58= (V57->c.c_car);
# Line 249  T115:; Line 296  T115:;
296          goto T114;}          goto T114;}
297          V56=MMcdr(V56)=MMcons(Cnil,Cnil);          V56=MMcdr(V56)=MMcons(Cnil,Cnil);
298          goto T115;}          goto T115;}
299    goto T114;
300  T114:;  T114:;
301          {object V59 = make_cons(VV[5],V55);          {object V59 = make_cons(VV[5],V55);
302          VMR3(V59)}          VMR3(V59)}
# Line 256  T114:; Line 304  T114:;
304          VMR3(V60)}}          VMR3(V60)}}
305          {object V61 = Cnil;          {object V61 = Cnil;
306          VMR3(V61)}          VMR3(V61)}
307    goto T105;
308  T105:;  T105:;
309          if((V45!= VV[3])          if((V45!= VV[3])
310          && (V45!= VV[51]))goto T117;          && (V45!= VV[51]))goto T117;
311          if(!(endp(cdr((V43))))){          if(!(endp(cdr((V43))))){
312          goto T118;}          goto T118;}
313          (void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0)));
314    goto T118;
315  T118:;  T118:;
316          if(endp(cddr((V43)))){          if(endp(cddr((V43)))){
317          goto T121;}          goto T121;}
318          V62 = make_fixnum(length(cdr((V43))));          V62 = make_fixnum(length(cdr((V43))));
319          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V62));          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V62));
320    goto T121;
321  T121:;  T121:;
322          {object V63 = list(2,VV[6],(*(LnkLI49))(cadr((V43)),(V44)));          {object V63 = list(2,VV[6],(*(LnkLI49))(cadr((V43)),(V44)));
323          VMR3(V63)}          VMR3(V63)}
324    goto T117;
325  T117:;  T117:;
326          V64= list(3,VV[7],VV[8],(V43));          V64= list(3,VV[7],VV[8],(V43));
327          {object V65 = (*(LnkLI50))(/* INLINE-ARGS */V64,(V44));          {object V65 = (*(LnkLI50))(/* INLINE-ARGS */V64,(V44));
328          VMR3(V65)}}          VMR3(V65)}}
329    goto T91;
330  T91:;  T91:;
331          {object V66 = (*(LnkLI50))((V43),(V44));          {object V66 = (*(LnkLI50))((V43),(V44));
332          VMR3(V66)}          VMR3(V66)}
333            base[0]=base[0];
334            return Cnil;
335  }  }
336  /*      function definition for C2IF    */  /*      function definition for C2IF    */
337    
338  static L4()  static void L4()
339  {register object *base=vs_base;  {register object *base=vs_base;
340          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
341          vs_reserve(VM4);          vs_reserve(VM4);
# Line 293  static L4() Line 348  static L4()
348          V68=(base[1]);          V68=(base[1]);
349          V69=(base[2]);          V69=(base[2]);
350          vs_top=sup;          vs_top=sup;
351    goto TTL;
352  TTL:;  TTL:;
353          {register object V70;          {register object V70;
354          register object V71;          register object V71;
# Line 317  TTL:; Line 373  TTL:;
373          bds_unwind1;}          bds_unwind1;}
374          if((cdr((V70)))==Cnil){          if((cdr((V70)))==Cnil){
375          goto T139;}          goto T139;}
376            princ_str("\ngoto T",VV[16]);
377            (void)((*(LnkLI54))(car((V70))));
378            princ_char(59,VV[16]);
379          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
380          (void)((*(LnkLI54))(car((V70))));          (void)((*(LnkLI54))(car((V70))));
381          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
382    goto T139;
383  T139:;  T139:;
384          base[4]= (V68);          base[4]= (V68);
385          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
386          (void) (*Lnk55)();          (void) (*Lnk55)();
387          return;          return;
388    goto T128;
389  T128:;  T128:;
390          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
391          V71= make_cons(symbol_value(VV[9]),Cnil);          V71= make_cons(symbol_value(VV[9]),Cnil);
# Line 335  T128:; Line 396  T128:;
396          bds_unwind1;          bds_unwind1;
397          bds_unwind1;          bds_unwind1;
398          if((cdr((V70)))==Cnil){          if((cdr((V70)))==Cnil){
399          goto T151;}          goto T155;}
400            princ_str("\ngoto T",VV[16]);
401            (void)((*(LnkLI54))(car((V70))));
402            princ_char(59,VV[16]);
403          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
404          (void)((*(LnkLI54))(car((V70))));          (void)((*(LnkLI54))(car((V70))));
405          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
406  T151:;  goto T155;
407    T155:;
408          base[4]= make_cons(VV[17],symbol_value(VV[15]));          base[4]= make_cons(VV[17],symbol_value(VV[15]));
409          bds_bind(VV[15],base[4]);          bds_bind(VV[15],base[4]);
410          base[5]= (V68);          base[5]= (V68);
# Line 348  T151:; Line 413  T151:;
413          vs_top=sup;          vs_top=sup;
414          bds_unwind1;          bds_unwind1;
415          if((cdr((V71)))==Cnil){          if((cdr((V71)))==Cnil){
416          goto T160;}          goto T168;}
417            princ_str("\ngoto T",VV[16]);
418            (void)((*(LnkLI54))(car((V71))));
419            princ_char(59,VV[16]);
420          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
421          (void)((*(LnkLI54))(car((V71))));          (void)((*(LnkLI54))(car((V71))));
422          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
423  T160:;  goto T168;
424    T168:;
425          base[4]= (V69);          base[4]= (V69);
426          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
427          (void) (*Lnk55)();          (void) (*Lnk55)();
# Line 366  static object LI5(V78,V79,V80) Line 435  static object LI5(V78,V79,V80)
435  object V78;object V79;object V80;  object V78;object V79;object V80;
436  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
437          bds_check;          bds_check;
438    goto TTL;
439  TTL:;  TTL:;
440          {object V81= car((V78));          {object V81= car((V78));
441          if((V81!= VV[4]))goto T167;          if((V81!= VV[4]))goto T179;
442          {register object V82;          {register object V82;
443          V82= cdr((V78));          V82= cdr((V78));
444  T170:;  goto T182;
445    T182:;
446          if(!(endp(cdr((V82))))){          if(!(endp(cdr((V82))))){
447          goto T171;}          goto T183;}
448          V78= car((V82));          V78= car((V82));
449          goto TTL;          goto TTL;
450  T171:;  goto T183;
451    T183:;
452          {register object V83;          {register object V83;
453          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
454          V83= make_cons(symbol_value(VV[9]),Cnil);          V83= make_cons(symbol_value(VV[9]),Cnil);
# Line 384  T171:; Line 456  T171:;
456          (void)((*(LnkLI53))(car((V82)),(V83),(V80)));          (void)((*(LnkLI53))(car((V82)),(V83),(V80)));
457          if((cdr((V83)))==Cnil){          if((cdr((V83)))==Cnil){
458          bds_unwind1;          bds_unwind1;
459          goto T179;}          goto T191;}
460            princ_str("\ngoto T",VV[16]);
461            (void)((*(LnkLI54))(car((V83))));
462            princ_char(59,VV[16]);
463          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
464          (void)((*(LnkLI54))(car((V83))));          (void)((*(LnkLI54))(car((V83))));
465          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
466          bds_unwind1;}          bds_unwind1;}
467  T179:;  goto T191;
468    T191:;
469          V82= cdr((V82));          V82= cdr((V82));
470          goto T170;}          goto T182;}
471  T167:;  goto T179;
472          if((V81!= VV[5]))goto T192;  T179:;
473            if((V81!= VV[5]))goto T208;
474          {register object V84;          {register object V84;
475          V84= cdr((V78));          V84= cdr((V78));
476  T195:;  goto T211;
477    T211:;
478          if(!(endp(cdr((V84))))){          if(!(endp(cdr((V84))))){
479          goto T196;}          goto T212;}
480          V78= car((V84));          V78= car((V84));
481          goto TTL;          goto TTL;
482  T196:;  goto T212;
483    T212:;
484          {register object V85;          {register object V85;
485          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
486          V85= make_cons(symbol_value(VV[9]),Cnil);          V85= make_cons(symbol_value(VV[9]),Cnil);
# Line 409  T196:; Line 488  T196:;
488          (void)((*(LnkLI56))(car((V84)),(V79),(V85)));          (void)((*(LnkLI56))(car((V84)),(V79),(V85)));
489          if((cdr((V85)))==Cnil){          if((cdr((V85)))==Cnil){
490          bds_unwind1;          bds_unwind1;
491          goto T204;}          goto T220;}
492            princ_str("\ngoto T",VV[16]);
493            (void)((*(LnkLI54))(car((V85))));
494            princ_char(59,VV[16]);
495          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
496          (void)((*(LnkLI54))(car((V85))));          (void)((*(LnkLI54))(car((V85))));
497          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
498          bds_unwind1;}          bds_unwind1;}
499  T204:;  goto T220;
500    T220:;
501          V84= cdr((V84));          V84= cdr((V84));
502          goto T195;}          goto T211;}
503  T192:;  goto T208;
504          if((V81!= VV[6]))goto T217;  T208:;
505            if((V81!= VV[6]))goto T237;
506          {object V86 = (*(LnkLI53))(cadr((V78)),(V80),(V79));          {object V86 = (*(LnkLI53))(cadr((V78)),(V80),(V79));
507          VMR5(V86)}          VMR5(V86)}
508  T217:;  goto T237;
509          if((V81!= VV[10]))goto T218;  T237:;
510            if((V81!= VV[10]))goto T238;
511          {object V87= caddr((V78));          {object V87= caddr((V78));
512          if((V87!= Ct))goto T219;          if((V87!= Ct))goto T239;
513          (void)((*(LnkLI57))((V79)));          (void)((*(LnkLI57))((V79)));
514          princ_str("\n   ",VV[16]);          princ_str("\n   ",VV[16]);
515          if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79));          if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79));
# Line 434  T217:; Line 519  T217:;
519          princ_char(59,VV[16]);          princ_char(59,VV[16]);
520          {object V88 = Cnil;          {object V88 = Cnil;
521          VMR5(V88)}          VMR5(V88)}
522  T219:;  goto T239;
523          if((V87!= Cnil))goto T226;  T239:;
524            if((V87!= Cnil))goto T246;
525          {object V89 = Cnil;          {object V89 = Cnil;
526          VMR5(V89)}          VMR5(V89)}
527  T226:;  goto T246;
528    T246:;
529          base[0]= list(2,VV[18],(V79));          base[0]= list(2,VV[18],(V79));
530          bds_bind(VV[11],base[0]);          bds_bind(VV[11],base[0]);
531          {object V90 = (*(LnkLI58))((V78));          {object V90 = (*(LnkLI58))((V78));
532          bds_unwind1;          bds_unwind1;
533          VMR5(V90)}}          VMR5(V90)}}
534  T218:;  goto T238;
535    T238:;
536          base[0]= list(2,VV[18],(V79));          base[0]= list(2,VV[18],(V79));
537          bds_bind(VV[11],base[0]);          bds_bind(VV[11],base[0]);
538          {object V91 = (*(LnkLI58))((V78));          {object V91 = (*(LnkLI58))((V78));
539          bds_unwind1;          bds_unwind1;
540          VMR5(V91)}}          VMR5(V91)}}
541            base[0]=base[0];
542            return Cnil;
543  }  }
544  /*      local entry for function CJF    */  /*      local entry for function CJF    */
545    
# Line 458  static object LI6(V95,V96,V97) Line 548  static object LI6(V95,V96,V97)
548  object V95;object V96;object V97;  object V95;object V96;object V97;
549  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
550          bds_check;          bds_check;
551    goto TTL;
552  TTL:;  TTL:;
553          {object V98= car((V95));          {object V98= car((V95));
554          if((V98!= VV[4]))goto T229;          if((V98!= VV[4]))goto T249;
555          {register object V99;          {register object V99;
556          V99= cdr((V95));          V99= cdr((V95));
557  T232:;  goto T252;
558    T252:;
559          if(!(endp(cdr((V99))))){          if(!(endp(cdr((V99))))){
560          goto T233;}          goto T253;}
561          V95= car((V99));          V95= car((V99));
562          goto TTL;          goto TTL;
563  T233:;  goto T253;
564    T253:;
565          {register object V100;          {register object V100;
566          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
567          V100= make_cons(symbol_value(VV[9]),Cnil);          V100= make_cons(symbol_value(VV[9]),Cnil);
# Line 476  T233:; Line 569  T233:;
569          (void)((*(LnkLI53))(car((V99)),(V100),(V97)));          (void)((*(LnkLI53))(car((V99)),(V100),(V97)));
570          if((cdr((V100)))==Cnil){          if((cdr((V100)))==Cnil){
571          bds_unwind1;          bds_unwind1;
572          goto T241;}          goto T261;}
573            princ_str("\ngoto T",VV[16]);
574            (void)((*(LnkLI54))(car((V100))));
575            princ_char(59,VV[16]);
576          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
577          (void)((*(LnkLI54))(car((V100))));          (void)((*(LnkLI54))(car((V100))));
578          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
579          bds_unwind1;}          bds_unwind1;}
580  T241:;  goto T261;
581    T261:;
582          V99= cdr((V99));          V99= cdr((V99));
583          goto T232;}          goto T252;}
584  T229:;  goto T249;
585          if((V98!= VV[5]))goto T254;  T249:;
586            if((V98!= VV[5]))goto T278;
587          {register object V101;          {register object V101;
588          V101= cdr((V95));          V101= cdr((V95));
589  T257:;  goto T281;
590    T281:;
591          if(!(endp(cdr((V101))))){          if(!(endp(cdr((V101))))){
592          goto T258;}          goto T282;}
593          V95= car((V101));          V95= car((V101));
594          goto TTL;          goto TTL;
595  T258:;  goto T282;
596    T282:;
597          {register object V102;          {register object V102;
598          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
599          V102= make_cons(symbol_value(VV[9]),Cnil);          V102= make_cons(symbol_value(VV[9]),Cnil);
# Line 501  T258:; Line 601  T258:;
601          (void)((*(LnkLI56))(car((V101)),(V96),(V102)));          (void)((*(LnkLI56))(car((V101)),(V96),(V102)));
602          if((cdr((V102)))==Cnil){          if((cdr((V102)))==Cnil){
603          bds_unwind1;          bds_unwind1;
604          goto T266;}          goto T290;}
605            princ_str("\ngoto T",VV[16]);
606            (void)((*(LnkLI54))(car((V102))));
607            princ_char(59,VV[16]);
608          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
609          (void)((*(LnkLI54))(car((V102))));          (void)((*(LnkLI54))(car((V102))));
610          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
611          bds_unwind1;}          bds_unwind1;}
612  T266:;  goto T290;
613    T290:;
614          V101= cdr((V101));          V101= cdr((V101));
615          goto T257;}          goto T281;}
616  T254:;  goto T278;
617          if((V98!= VV[6]))goto T279;  T278:;
618            if((V98!= VV[6]))goto T307;
619          {object V103 = (*(LnkLI56))(cadr((V95)),(V97),(V96));          {object V103 = (*(LnkLI56))(cadr((V95)),(V97),(V96));
620          VMR6(V103)}          VMR6(V103)}
621  T279:;  goto T307;
622          if((V98!= VV[10]))goto T280;  T307:;
623            if((V98!= VV[10]))goto T308;
624          {object V104= caddr((V95));          {object V104= caddr((V95));
625          if((V104!= Ct))goto T281;          if((V104!= Ct))goto T309;
626          {object V105 = Cnil;          {object V105 = Cnil;
627          VMR6(V105)}          VMR6(V105)}
628  T281:;  goto T309;
629          if((V104!= Cnil))goto T282;  T309:;
630            if((V104!= Cnil))goto T310;
631          (void)((*(LnkLI57))((V97)));          (void)((*(LnkLI57))((V97)));
632          princ_str("\n   ",VV[16]);          princ_str("\n   ",VV[16]);
633          if(type_of((V97))!=t_cons)FEwrong_type_argument(Scons,(V97));          if(type_of((V97))!=t_cons)FEwrong_type_argument(Scons,(V97));
# Line 530  T281:; Line 637  T281:;
637          princ_char(59,VV[16]);          princ_char(59,VV[16]);
638          {object V106 = Cnil;          {object V106 = Cnil;
639          VMR6(V106)}          VMR6(V106)}
640  T282:;  goto T310;
641    T310:;
642          base[0]= list(2,VV[19],(V97));          base[0]= list(2,VV[19],(V97));
643          bds_bind(VV[11],base[0]);          bds_bind(VV[11],base[0]);
644          {object V107 = (*(LnkLI58))((V95));          {object V107 = (*(LnkLI58))((V95));
645          bds_unwind1;          bds_unwind1;
646          VMR6(V107)}}          VMR6(V107)}}
647  T280:;  goto T308;
648    T308:;
649          base[0]= list(2,VV[19],(V97));          base[0]= list(2,VV[19],(V97));
650          bds_bind(VV[11],base[0]);          bds_bind(VV[11],base[0]);
651          {object V108 = (*(LnkLI58))((V95));          {object V108 = (*(LnkLI58))((V95));
652          bds_unwind1;          bds_unwind1;
653          VMR6(V108)}}          VMR6(V108)}}
654            base[0]=base[0];
655            return Cnil;
656  }  }
657  /*      local entry for function C1AND  */  /*      local entry for function C1AND  */
658    
# Line 549  static object LI7(V110) Line 660  static object LI7(V110)
660    
661  register object V110;  register object V110;
662  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
663    goto TTL;
664  TTL:;  TTL:;
665          if(!(endp((V110)))){          if(!(endp((V110)))){
666          goto T292;}          goto T320;}
667          {object V111 = (*(LnkLI52))();          {object V111 = (*(LnkLI52))();
668          VMR7(V111)}          VMR7(V111)}
669  T292:;  goto T320;
670    T320:;
671          if(!(endp(cdr((V110))))){          if(!(endp(cdr((V110))))){
672          goto T295;}          goto T323;}
673          {object V112 = (*(LnkLI46))(car((V110)));          {object V112 = (*(LnkLI46))(car((V110)));
674          VMR7(V112)}          VMR7(V112)}
675  T295:;  goto T323;
676    T323:;
677          {object V113;          {object V113;
678          V113= (VFUN_NARGS=0,(*(LnkLI48))());          V113= (VFUN_NARGS=0,(*(LnkLI48))());
679          {object V114 = list(3,VV[1],(V113),(*(LnkLI59))((V110),(V113)));          {object V114 = list(3,VV[1],(V113),(*(LnkLI59))((V110),(V113)));
680          VMR7(V114)}}          VMR7(V114)}}
681            return Cnil;
682  }  }
683  /*      function definition for C2AND   */  /*      function definition for C2AND   */
684    
685  static L8()  static void L8()
686  {register object *base=vs_base;  {register object *base=vs_base;
687          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
688          vs_reserve(VM8);          vs_reserve(VM8);
# Line 576  static L8() Line 691  static L8()
691          check_arg(1);          check_arg(1);
692          V115=(base[0]);          V115=(base[0]);
693          vs_top=sup;          vs_top=sup;
694    goto TTL;
695  TTL:;  TTL:;
696          {register object V116;          {register object V116;
697          V116= (V115);          V116= (V115);
698  T299:;  goto T327;
699    T327:;
700          if(!(endp(cdr((V116))))){          if(!(endp(cdr((V116))))){
701          goto T300;}          goto T328;}
702          base[1]= car((V116));          base[1]= car((V116));
703          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
704          (void) (*Lnk55)();          (void) (*Lnk55)();
705          return;          return;
706  T300:;  goto T328;
707    T328:;
708          if(!((caar((V116)))==(VV[10]))){          if(!((caar((V116)))==(VV[10]))){
709          goto T307;}          goto T335;}
710          {object V117= caddar((V116));          {object V117= caddar((V116));
711          if((V117!= Ct))goto T309;          if((V117!= Ct))goto T337;
712          goto T305;          goto T333;
713  T309:;  goto T337;
714          if((V117!= Cnil))goto T310;  T337:;
715            if((V117!= Cnil))goto T338;
716          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
717          goto T305;          goto T333;
718  T310:;  goto T338;
719    T338:;
720          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
721          (void)((*(LnkLI54))(caddar((V116))));          (void)((*(LnkLI54))(caddar((V116))));
722          princ_str("==Cnil){",VV[16]);          princ_str("==Cnil){",VV[16]);
723          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
724          princ_char(125,VV[16]);          princ_char(125,VV[16]);
725          goto T305;}          goto T333;}
726  T307:;  goto T335;
727    T335:;
728          if(!((caar((V116)))==(VV[20]))){          if(!((caar((V116)))==(VV[20]))){
729          goto T318;}          goto T346;}
730          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
731          (void)((*(LnkLI61))(car(caddar((V116))),cadr(caddar((V116)))));          (void)((*(LnkLI61))(car(caddar((V116))),cadr(caddar((V116)))));
732          princ_str("==Cnil){",VV[16]);          princ_str("==Cnil){",VV[16]);
733          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
734          princ_char(125,VV[16]);          princ_char(125,VV[16]);
735          goto T305;          goto T333;
736  T318:;  goto T346;
737    T346:;
738          {register object V118;          {register object V118;
739          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
740          V118= make_cons(symbol_value(VV[9]),Cnil);          V118= make_cons(symbol_value(VV[9]),Cnil);
# Line 624  T318:; Line 746  T318:;
746          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
747          if((cdr((V118)))==Cnil){          if((cdr((V118)))==Cnil){
748          bds_unwind1;          bds_unwind1;
749          goto T305;}          goto T333;}
750            princ_str("\ngoto T",VV[16]);
751            (void)((*(LnkLI54))(car((V118))));
752            princ_char(59,VV[16]);
753          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
754          (void)((*(LnkLI54))(car((V118))));          (void)((*(LnkLI54))(car((V118))));
755          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
756          bds_unwind1;}          bds_unwind1;}
757  T305:;  goto T333;
758    T333:;
759          V116= cdr((V116));          V116= cdr((V116));
760          goto T299;}          goto T327;}
761          }          }
762  }  }
763  /*      local entry for function C1OR   */  /*      local entry for function C1OR   */
# Line 640  static object LI9(V121) Line 766  static object LI9(V121)
766    
767  register object V121;  register object V121;
768  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
769    goto TTL;
770  TTL:;  TTL:;
771          if(!(endp((V121)))){          if(!(endp((V121)))){
772          goto T342;}          goto T374;}
773          {object V122 = (*(LnkLI47))();          {object V122 = (*(LnkLI47))();
774          VMR9(V122)}          VMR9(V122)}
775  T342:;  goto T374;
776    T374:;
777          if(!(endp(cdr((V121))))){          if(!(endp(cdr((V121))))){
778          goto T345;}          goto T377;}
779          {object V123 = (*(LnkLI46))(car((V121)));          {object V123 = (*(LnkLI46))(car((V121)));
780          VMR9(V123)}          VMR9(V123)}
781  T345:;  goto T377;
782    T377:;
783          {object V124;          {object V124;
784          V124= (VFUN_NARGS=0,(*(LnkLI48))());          V124= (VFUN_NARGS=0,(*(LnkLI48))());
785          {object V125 = list(3,VV[2],(V124),(*(LnkLI59))((V121),(V124)));          {object V125 = list(3,VV[2],(V124),(*(LnkLI59))((V121),(V124)));
786          VMR9(V125)}}          VMR9(V125)}}
787            return Cnil;
788  }  }
789  /*      function definition for C2OR    */  /*      function definition for C2OR    */
790    
791  static L10()  static void L10()
792  {register object *base=vs_base;  {register object *base=vs_base;
793          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
794          vs_reserve(VM10);          vs_reserve(VM10);
# Line 667  static L10() Line 797  static L10()
797          check_arg(1);          check_arg(1);
798          V126=(base[0]);          V126=(base[0]);
799          vs_top=sup;          vs_top=sup;
800    goto TTL;
801  TTL:;  TTL:;
802          {object V127;          {object V127;
803          bds_bind(VV[21],symbol_value(VV[21]));          bds_bind(VV[21],symbol_value(VV[21]));
804          V127= Cnil;          V127= Cnil;
805          {register object V128;          {register object V128;
806          V128= (V126);          V128= (V126);
807  T350:;  goto T382;
808    T382:;
809          if(!(endp(cdr((V128))))){          if(!(endp(cdr((V128))))){
810          goto T351;}          goto T383;}
811          base[2]= car((V128));          base[2]= car((V128));
812          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
813          (void) (*Lnk55)();          (void) (*Lnk55)();
814          bds_unwind1;          bds_unwind1;
815          return;          return;
816  T351:;  goto T383;
817    T383:;
818          if(!((caar((V128)))==(VV[10]))){          if(!((caar((V128)))==(VV[10]))){
819          goto T358;}          goto T390;}
820          {object V129= caddar((V128));          {object V129= caddar((V128));
821          if((V129!= Ct))goto T360;          if((V129!= Ct))goto T392;
822          (void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17])));
823          goto T356;          goto T388;
824  T360:;  goto T392;
825          if((V129!= Cnil))goto T361;  T392:;
826          goto T356;          if((V129!= Cnil))goto T393;
827  T361:;          goto T388;
828    goto T393;
829    T393:;
830          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
831          (void)((*(LnkLI54))(caddar((V128))));          (void)((*(LnkLI54))(caddar((V128))));
832          princ_str("!=Cnil){",VV[16]);          princ_str("!=Cnil){",VV[16]);
833          (void)((VFUN_NARGS=2,(*(LnkLI60))(caddar((V128)),VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(caddar((V128)),VV[17])));
834          princ_char(125,VV[16]);          princ_char(125,VV[16]);
835          goto T356;}          goto T388;}
836  T358:;  goto T390;
837    T390:;
838          if(!((caar((V128)))==(VV[20]))){          if(!((caar((V128)))==(VV[20]))){
839          goto T369;}          goto T401;}
840          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
841          (void)((*(LnkLI61))(car(caddar((V128))),cadr(caddar((V128)))));          (void)((*(LnkLI61))(car(caddar((V128))),cadr(caddar((V128)))));
842          princ_str("!=Cnil){",VV[16]);          princ_str("!=Cnil){",VV[16]);
843          V130= make_cons(VV[20],caddar((V128)));          V130= make_cons(VV[20],caddar((V128)));
844          (void)((VFUN_NARGS=2,(*(LnkLI60))(/* INLINE-ARGS */V130,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(/* INLINE-ARGS */V130,VV[17])));
845          princ_char(125,VV[16]);          princ_char(125,VV[16]);
846          goto T356;          goto T388;
847  T369:;  goto T401;
848    T401:;
849          if(!((caar((V128)))==(VV[22]))){          if(!((caar((V128)))==(VV[22]))){
850          goto T379;}          goto T411;}
851          if((get(caddar((V128)),VV[23],Cnil))==Cnil){          if((get(caddar((V128)),VV[23],Cnil))==Cnil){
852          goto T379;}          goto T411;}
853          {register object V131;          {register object V131;
854          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
855          V131= make_cons(symbol_value(VV[9]),Cnil);          V131= make_cons(symbol_value(VV[9]),Cnil);
# Line 724  T369:; Line 861  T369:;
861          (void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17])));
862          if((cdr((V131)))==Cnil){          if((cdr((V131)))==Cnil){
863          bds_unwind1;          bds_unwind1;
864          goto T356;}          goto T388;}
865            princ_str("\ngoto T",VV[16]);
866            (void)((*(LnkLI54))(car((V131))));
867            princ_char(59,VV[16]);
868          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
869          (void)((*(LnkLI54))(car((V131))));          (void)((*(LnkLI54))(car((V131))));
870          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
871          bds_unwind1;          bds_unwind1;
872          goto T356;}          goto T388;}
873  T379:;  goto T411;
874    T411:;
875          {register object V133;          {register object V133;
876          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
877          V133= make_cons(symbol_value(VV[9]),Cnil);          V133= make_cons(symbol_value(VV[9]),Cnil);
# Line 750  T379:; Line 891  T379:;
891          princ_char(59,VV[16]);          princ_char(59,VV[16]);
892          (void)((VFUN_NARGS=2,(*(LnkLI60))((V127),VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))((V127),VV[17])));
893          if((cdr((V133)))==Cnil){          if((cdr((V133)))==Cnil){
894          goto T410;}          goto T446;}
895            princ_str("\ngoto T",VV[16]);
896            (void)((*(LnkLI54))(car((V133))));
897            princ_char(59,VV[16]);
898          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
899          (void)((*(LnkLI54))(car((V133))));          (void)((*(LnkLI54))(car((V133))));
900          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
901  T410:;  goto T446;
902    T446:;
903          V135= (*(LnkLI63))();          V135= (*(LnkLI63))();
904          bds_unwind1;          bds_unwind1;
905          bds_unwind1;}          bds_unwind1;}
906  T356:;  goto T388;
907    T388:;
908          V128= cdr((V128));          V128= cdr((V128));
909          goto T350;}}          goto T382;}}
910          }          }
911  }  }
912  /*      local entry for function SET-JUMP-TRUE  */  /*      local entry for function SET-JUMP-TRUE  */
# Line 769  static object LI11(V138,V139) Line 915  static object LI11(V138,V139)
915    
916  register object V138;object V139;  register object V138;object V139;
917  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
918    goto TTL;
919  TTL:;  TTL:;
920          if(((V138))==Cnil){          if(((V138))==Cnil){
921          goto T420;}          goto T460;}
922          {object V140;          {object V140;
923          V140= (((V138))==(Ct)?Ct:Cnil);          V140= (((V138))==(Ct)?Ct:Cnil);
924          if(((V140))==Cnil){          if(((V140))==Cnil){
925          goto T425;}          goto T465;}
926          goto T422;          goto T462;
927  T425:;  goto T465;
928    T465:;
929          if(!(type_of((V138))==t_cons)){          if(!(type_of((V138))==t_cons)){
930          goto T428;}          goto T468;}
931          if(!((car((V138)))==(VV[25]))){          if(!((car((V138)))==(VV[25]))){
932          goto T428;}          goto T468;}
933          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
934          base[0]= caddr((V138));          base[0]= caddr((V138));
935          base[1]= cadddr((V138));          base[1]= cadddr((V138));
# Line 789  T425:; Line 937  T425:;
937          (void) (*Lnk64)();          (void) (*Lnk64)();
938          vs_top=sup;          vs_top=sup;
939          princ_char(41,VV[16]);          princ_char(41,VV[16]);
940          goto T422;          goto T462;
941  T428:;  goto T468;
942    T468:;
943          princ_str("\n   if((",VV[16]);          princ_str("\n   if((",VV[16]);
944          (void)((*(LnkLI54))((V138)));          (void)((*(LnkLI54))((V138)));
945          princ_str(")!=Cnil)",VV[16]);}          princ_str(")!=Cnil)",VV[16]);}
946  T422:;  goto T462;
947    T462:;
948          if(((V138))==(Ct)){          if(((V138))==(Ct)){
949          goto T441;}          goto T481;}
950          princ_char(123,VV[16]);          princ_char(123,VV[16]);
951  T441:;  goto T481;
952    T481:;
953          (void)((*(LnkLI57))((V139)));          (void)((*(LnkLI57))((V139)));
954          princ_str("\n   ",VV[16]);          princ_str("\n   ",VV[16]);
955          if(type_of((V139))!=t_cons)FEwrong_type_argument(Scons,(V139));          if(type_of((V139))!=t_cons)FEwrong_type_argument(Scons,(V139));
# Line 807  T441:; Line 958  T441:;
958          (void)((*(LnkLI54))(car((V139))));          (void)((*(LnkLI54))(car((V139))));
959          princ_char(59,VV[16]);          princ_char(59,VV[16]);
960          if(((V138))==(Ct)){          if(((V138))==(Ct)){
961          goto T453;}          goto T493;}
962          princ_char(125,VV[16]);          princ_char(125,VV[16]);
963          {object V141 = Cnil;          {object V141 = Cnil;
964          VMR11(V141)}          VMR11(V141)}
965  T453:;  goto T493;
966    T493:;
967          {object V142 = Cnil;          {object V142 = Cnil;
968          VMR11(V142)}          VMR11(V142)}
969  T420:;  goto T460;
970    T460:;
971          {object V143 = Cnil;          {object V143 = Cnil;
972          VMR11(V143)}          VMR11(V143)}
973            base[0]=base[0];
974            return Cnil;
975  }  }
976  /*      local entry for function SET-JUMP-FALSE */  /*      local entry for function SET-JUMP-FALSE */
977    
# Line 824  static object LI12(V146,V147) Line 979  static object LI12(V146,V147)
979    
980  register object V146;object V147;  register object V146;object V147;
981  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
982    goto TTL;
983  TTL:;  TTL:;
984          if(((V146))==(Ct)){          if(((V146))==(Ct)){
985          goto T457;}          goto T497;}
986          {object V148;          {object V148;
987          V148= (((V146))==Cnil?Ct:Cnil);          V148= (((V146))==Cnil?Ct:Cnil);
988          if(((V148))==Cnil){          if(((V148))==Cnil){
989          goto T462;}          goto T502;}
990          goto T459;          goto T499;
991  T462:;  goto T502;
992    T502:;
993          if(!(type_of((V146))==t_cons)){          if(!(type_of((V146))==t_cons)){
994          goto T465;}          goto T505;}
995          if(!((car((V146)))==(VV[25]))){          if(!((car((V146)))==(VV[25]))){
996          goto T465;}          goto T505;}
997          princ_str("\n   if(!(",VV[16]);          princ_str("\n   if(!(",VV[16]);
998          base[0]= caddr((V146));          base[0]= caddr((V146));
999          base[1]= cadddr((V146));          base[1]= cadddr((V146));
# Line 844  T462:; Line 1001  T462:;
1001          (void) (*Lnk64)();          (void) (*Lnk64)();
1002          vs_top=sup;          vs_top=sup;
1003          princ_str("))",VV[16]);          princ_str("))",VV[16]);
1004          goto T459;          goto T499;
1005  T465:;  goto T505;
1006    T505:;
1007          princ_str("\n   if((",VV[16]);          princ_str("\n   if((",VV[16]);
1008          (void)((*(LnkLI54))((V146)));          (void)((*(LnkLI54))((V146)));
1009          princ_str(")==Cnil)",VV[16]);}          princ_str(")==Cnil)",VV[16]);}
1010  T459:;  goto T499;
1011    T499:;
1012          if(((V146))==Cnil){          if(((V146))==Cnil){
1013          goto T478;}          goto T518;}
1014          princ_char(123,VV[16]);          princ_char(123,VV[16]);
1015  T478:;  goto T518;
1016    T518:;
1017          (void)((*(LnkLI57))((V147)));          (void)((*(LnkLI57))((V147)));
1018          princ_str("\n   ",VV[16]);          princ_str("\n   ",VV[16]);
1019          if(type_of((V147))!=t_cons)FEwrong_type_argument(Scons,(V147));          if(type_of((V147))!=t_cons)FEwrong_type_argument(Scons,(V147));
# Line 862  T478:; Line 1022  T478:;
1022          (void)((*(LnkLI54))(car((V147))));          (void)((*(LnkLI54))(car((V147))));
1023          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1024          if(((V146))==Cnil){          if(((V146))==Cnil){
1025          goto T490;}          goto T530;}
1026          princ_char(125,VV[16]);          princ_char(125,VV[16]);
1027          {object V149 = Cnil;          {object V149 = Cnil;
1028          VMR12(V149)}          VMR12(V149)}
1029  T490:;  goto T530;
1030    T530:;
1031          {object V150 = Cnil;          {object V150 = Cnil;
1032          VMR12(V150)}          VMR12(V150)}
1033  T457:;  goto T497;
1034    T497:;
1035          {object V151 = Cnil;          {object V151 = Cnil;
1036          VMR12(V151)}          VMR12(V151)}
1037            base[0]=base[0];
1038            return Cnil;
1039  }  }
1040  /*      local entry for function C1ECASE        */  /*      local entry for function C1ECASE        */
1041    
# Line 879  static object LI13(V153) Line 1043  static object LI13(V153)
1043    
1044  object V153;  object V153;
1045  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1046    goto TTL;
1047  TTL:;  TTL:;
1048          {object V154 = (VFUN_NARGS=2,(*(LnkLI65))((V153),Ct));          {object V154 = (VFUN_NARGS=2,(*(LnkLI65))((V153),Ct));
1049          VMR13(V154)}          VMR13(V154)}
1050            return Cnil;
1051  }  }
1052  /*      local entry for function CONVERT-CASE-TO-SWITCH */  /*      local entry for function CONVERT-CASE-TO-SWITCH */
1053    
# Line 889  static object LI14(V157,V158) Line 1055  static object LI14(V157,V158)
1055    
1056  object V157;object V158;  object V157;object V158;
1057  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1058    goto TTL;
1059  TTL:;  TTL:;
1060          {object V159;          {object V159;
1061          register object V160;          register object V160;
# Line 903  TTL:; Line 1070  TTL:;
1070          register object V163;          register object V163;
1071          V162= cdr((V157));          V162= cdr((V157));
1072          V163= car((V162));          V163= car((V162));
1073  T498:;  goto T538;
1074    T538:;
1075          if(!(endp((V162)))){          if(!(endp((V162)))){
1076          goto T499;}          goto T539;}
1077          goto T494;          goto T534;
1078  T499:;  goto T539;
1079    T539:;
1080          if(!(type_of(car((V163)))==t_fixnum)){          if(!(type_of(car((V163)))==t_fixnum)){
1081          goto T505;}          goto T545;}
1082          V160= make_cons(car((V163)),(V160));          V160= make_cons(car((V163)),(V160));
1083          goto T503;          goto T543;
1084  T505:;  goto T545;
1085    T545:;
1086          if(!(type_of(car((V163)))==t_cons)){          if(!(type_of(car((V163)))==t_cons)){
1087          goto T509;}          goto T549;}
1088          {register object V164;          {register object V164;
1089          register object V165;          register object V165;
1090          V164= car((V163));          V164= car((V163));
1091          V165= car((V164));          V165= car((V164));
1092  T514:;  goto T554;
1093    T554:;
1094          if(!(endp((V164)))){          if(!(endp((V164)))){
1095          goto T515;}          goto T555;}
1096          goto T503;          goto T543;
1097  T515:;  goto T555;
1098    T555:;
1099          V160= make_cons((V165),(V160));          V160= make_cons((V165),(V160));
1100          V164= cdr((V164));          V164= cdr((V164));
1101          V165= car((V164));          V165= car((V164));
1102          goto T514;}          goto T554;}
1103  T509:;  goto T549;
1104    T549:;
1105          {register object x= car((V163)),V166= VV[26];          {register object x= car((V163)),V166= VV[26];
1106          while(!endp(V166))          while(!endp(V166))
1107          if(eql(x,V166->c.c_car)){          if(eql(x,V166->c.c_car)){
1108          goto T527;          goto T567;
1109          }else V166=V166->c.c_cdr;          }else V166=V166->c.c_cdr;
1110          goto T503;}          goto T543;}
1111  T527:;  goto T567;
1112    T567:;
1113          if((V158)==Cnil){          if((V158)==Cnil){
1114          goto T528;}          goto T568;}
1115          base[2]= VV[27];          base[2]= VV[27];
1116          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1117          (void) (*Lnk66)();          (void) (*Lnk66)();
1118          vs_top=sup;          vs_top=sup;
1119  T528:;  goto T568;
1120    T568:;
1121          V160= make_cons(Ct,(V160));          V160= make_cons(Ct,(V160));
1122  T503:;  goto T543;
1123    T543:;
1124          V167= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163))));          V167= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163))));
1125          V160= make_cons(/* INLINE-ARGS */V167,(V160));          V160= make_cons(/* INLINE-ARGS */V167,(V160));
1126          V162= cdr((V162));          V162= cdr((V162));
1127          V163= car((V162));          V163= car((V162));
         goto T498;}  
 T494:;  
         if(((V158))==Cnil){  
1128          goto T538;}          goto T538;}
1129    goto T534;
1130    T534:;
1131            if(((V158))==Cnil){
1132            goto T578;}
1133          V160= make_cons(Ct,(V160));          V160= make_cons(Ct,(V160));
1134          {register object V168;          {register object V168;
1135          object V169;          object V169;
1136          V168= cdr((V157));          V168= cdr((V157));
1137          V169= car((V168));          V169= car((V168));
1138  T547:;  goto T587;
1139    T587:;
1140          if(!(endp((V168)))){          if(!(endp((V168)))){
1141          goto T548;}          goto T588;}
1142          goto T543;          goto T583;
1143  T548:;  goto T588;
1144    T588:;
1145          if(!(type_of(car((V169)))!=t_cons)){          if(!(type_of(car((V169)))!=t_cons)){
1146          goto T554;}          goto T594;}
1147          V161= make_cons(car((V169)),(V161));          V161= make_cons(car((V169)),(V161));
1148          goto T552;          goto T592;
1149  T554:;  goto T594;
1150    T594:;
1151          V161= append(car((V169)),(V161));          V161= append(car((V169)),(V161));
1152  T552:;  goto T592;
1153    T592:;
1154          V168= cdr((V168));          V168= cdr((V168));
1155          V169= car((V168));          V169= car((V168));
1156          goto T547;}          goto T587;}
1157  T543:;  goto T583;
1158    T583:;
1159          V170= car((V157));          V170= car((V157));
1160          V171= list(4,VV[30],VV[31],/* INLINE-ARGS */V170,list(2,VV[32],(V161)));          V171= list(4,VV[30],VV[31],/* INLINE-ARGS */V170,list(2,VV[32],(V161)));
1161          V160= make_cons(/* INLINE-ARGS */V171,(V160));          V160= make_cons(/* INLINE-ARGS */V171,(V160));
1162  T538:;  goto T578;
1163    T578:;
1164          V172= car((V157));          V172= car((V157));
1165          {object V173 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V172,nreverse((V160))));          {object V173 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V172,nreverse((V160))));
1166          VMR14(V173)}}          VMR14(V173)}}
1167            base[0]=base[0];
1168            return Cnil;
1169  }  }
1170  /*      local entry for function C1CASE */  /*      local entry for function C1CASE */
1171    
# Line 992  static object LI15(V174,va_alist) Line 1177  static object LI15(V174,va_alist)
1177          int narg = VFUN_NARGS; VMB15 VMS15 VMV15          int narg = VFUN_NARGS; VMB15 VMS15 VMV15
1178          {object V175;          {object V175;
1179          register object V176;          register object V176;
1180            Vcs[0]=Vcs[0];
1181            va_start(ap);
1182          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
1183          V175= V174;          V175= V174;
1184          narg = narg - 1;          narg = narg - 1;
1185          if (narg <= 0) goto T564;          if (narg <= 0) goto T604;
1186          else {          else {
         va_start(ap);  
1187          V176= va_arg(ap,object);}          V176= va_arg(ap,object);}
1188          --narg; goto T565;          --narg; goto T605;
1189  T564:;  goto T604;
1190    T604:;
1191          V176= Cnil;          V176= Cnil;
1192  T565:;  goto T605;
1193    T605:;
1194          if(!(endp((V175)))){          if(!(endp((V175)))){
1195          goto T567;}          goto T607;}
1196          (void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0)));
1197  T567:;  goto T607;
1198    T607:;
1199          {register object V177;          {register object V177;
1200          object V178;          object V178;
1201          object V179;          object V179;
# Line 1019  T567:; Line 1208  T567:;
1208          (void) (*Lnk67)();          (void) (*Lnk67)();
1209          vs_top=sup;          vs_top=sup;
1210          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1211          goto T573;}          goto T613;}
1212          V180= (*(LnkLI68))((V175),(V176));          V180= (*(LnkLI68))((V175),(V176));
1213          {object V181 = (*(LnkLI46))(/* INLINE-ARGS */V180);          {object V181 = (*(LnkLI46))(/* INLINE-ARGS */V180);
1214          VMR15(V181)}          VMR15(V181)}
1215  T573:;  goto T613;
1216    T613:;
1217          {register object V182;          {register object V182;
1218          register object V183;          register object V183;
1219          V182= cdr((V175));          V182= cdr((V175));
1220          V183= car((V182));          V183= car((V182));
1221  T582:;  goto T622;
1222    T622:;
1223          if(!(endp((V182)))){          if(!(endp((V182)))){
1224          goto T583;}          goto T623;}
1225          goto T578;          goto T618;
1226  T583:;  goto T623;
1227    T623:;
1228          if(!(endp((V183)))){          if(!(endp((V183)))){
1229          goto T587;}          goto T627;}
1230          (void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V183))));          (void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V183))));
1231  T587:;  goto T627;
1232    T627:;
1233          {object V184= car((V183));          {object V184= car((V183));
1234          if((V184!= Cnil))goto T591;          if((V184!= Cnil))goto T631;
1235          goto T590;          goto T630;
1236  T591:;  goto T631;
1237    T631:;
1238          if((V184!= Ct)          if((V184!= Ct)
1239          && (V184!= VV[70]))goto T592;          && (V184!= VV[70]))goto T632;
1240          if(((V176))==Cnil){          if(((V176))==Cnil){
1241          goto T593;}          goto T633;}
1242          if(!(((V176))==(Ct))){          if(!(((V176))==(Ct))){
1243          goto T598;}          goto T638;}
1244          V185= VV[39];          V185= VV[39];
1245          goto T596;          goto T636;
1246  T598:;  goto T638;
1247    T638:;
1248          V185= VV[40];          V185= VV[40];
1249  T596:;  goto T636;
1250    T636:;
1251          (void)((VFUN_NARGS=1,(*(LnkLI69))(V185)));          (void)((VFUN_NARGS=1,(*(LnkLI69))(V185)));
1252  T593:;  goto T633;
1253    T633:;
1254          V176= (*(LnkLI71))(cdr((V183)));          V176= (*(LnkLI71))(cdr((V183)));
1255          (void)((*(LnkLI72))((V177),cadr((V176))));          (void)((*(LnkLI72))((V177),cadr((V176))));
1256          goto T590;          goto T630;
1257  T592:;  goto T632;
1258    T632:;
1259          {object V186;          {object V186;
1260          register object V187;          register object V187;
1261          if(!(type_of(car((V183)))==t_cons)){          if(!(type_of(car((V183)))==t_cons)){
1262          goto T604;}          goto T644;}
1263          {object V188;          {object V188;
1264          object V189= car((V183));          object V189= car((V183));
1265          if(endp(V189)){          if(endp(V189)){
1266          V186= Cnil;          V186= Cnil;
1267          goto T602;}          goto T642;}
1268          base[6]=V188=MMcons(Cnil,Cnil);          base[6]=V188=MMcons(Cnil,Cnil);
1269  T606:;  goto T646;
1270    T646:;
1271          {register object V190;          {register object V190;
1272          V190= (V189->c.c_car);          V190= (V189->c.c_car);
1273          if(!(type_of((V190))==t_symbol)){          if(!(type_of((V190))==t_symbol)){
1274          goto T609;}          goto T649;}
1275          (V188->c.c_car)= (V190);          (V188->c.c_car)= (V190);
1276          goto T607;          goto T647;
1277  T609:;  goto T649;
1278    T649:;
1279          (V188->c.c_car)= (*(LnkLI73))((V190));}          (V188->c.c_car)= (*(LnkLI73))((V190));}
1280  T607:;  goto T647;
1281    T647:;
1282          if(endp(V189=MMcdr(V189))){          if(endp(V189=MMcdr(V189))){
1283          V186= base[6];          V186= base[6];
1284          goto T602;}          goto T642;}
1285          V188=MMcdr(V188)=MMcons(Cnil,Cnil);          V188=MMcdr(V188)=MMcons(Cnil,Cnil);
1286          goto T606;}          goto T646;}
1287  T604:;  goto T644;
1288    T644:;
1289          if(!(type_of(car((V183)))==t_symbol)){          if(!(type_of(car((V183)))==t_symbol)){
1290          goto T612;}          goto T652;}
1291          V186= make_cons(car((V183)),Cnil);          V186= make_cons(car((V183)),Cnil);
1292          goto T602;          goto T642;
1293  T612:;  goto T652;
1294    T652:;
1295          V191= (*(LnkLI73))(car((V183)));          V191= (*(LnkLI73))(car((V183)));
1296          V186= make_cons(/* INLINE-ARGS */V191,Cnil);          V186= make_cons(/* INLINE-ARGS */V191,Cnil);
1297  T602:;  goto T642;
1298    T642:;
1299          V187= (*(LnkLI71))(cdr((V183)));          V187= (*(LnkLI71))(cdr((V183)));
1300          (void)((*(LnkLI72))((V177),cadr((V187))));          (void)((*(LnkLI72))((V177),cadr((V187))));
1301          V192= make_cons((V186),(V187));          V192= make_cons((V186),(V187));
1302          V179= make_cons(/* INLINE-ARGS */V192,(V179));}}          V179= make_cons(/* INLINE-ARGS */V192,(V179));}}
1303  T590:;  goto T630;
1304    T630:;
1305          V182= cdr((V182));          V182= cdr((V182));
1306          V183= car((V182));          V183= car((V182));
1307          goto T582;}          goto T622;}
1308  T578:;  goto T618;
1309    T618:;
1310          V193= reverse((V179));          V193= reverse((V179));
1311          if((V176)!=Cnil){          if((V176)!=Cnil){
1312          V194= (V176);          V194= (V176);
1313          goto T622;}          goto T662;}
1314          V194= (*(LnkLI47))();          V194= (*(LnkLI47))();
1315  T622:;  goto T662;
1316    T662:;
1317          {object V195 = list(5,VV[35],(V177),(V178),/* INLINE-ARGS */V193,V194);          {object V195 = list(5,VV[35],(V177),(V178),/* INLINE-ARGS */V193,V194);
1318          VMR15(V195)}}}          VMR15(V195)}}
1319            va_end(ap);
1320            base[0]=base[0];
1321            return Cnil;}
1322          }          }
1323  /*      local entry for function C2CASE */  /*      local entry for function C2CASE */
1324    
# Line 1117  static object LI16(V199,V200,V201) Line 1327  static object LI16(V199,V200,V201)
1327  object V199;object V200;object V201;  object V199;object V200;object V201;
1328  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1329          bds_check;          bds_check;
1330    goto TTL;
1331  TTL:;  TTL:;
1332          {register object V202;          {register object V202;
1333          setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1)));          setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1)));
# Line 1135  TTL:; Line 1346  TTL:;
1346          object V206;          object V206;
1347          V205= (V200);          V205= (V200);
1348          V206= car((V205));          V206= car((V205));
1349  T637:;  goto T677;
1350    T677:;
1351          if(!(endp((V205)))){          if(!(endp((V205)))){
1352          goto T638;}          goto T678;}
1353          goto T633;          goto T673;
1354  T638:;  goto T678;
1355    T678:;
1356          {object V207;          {object V207;
1357          register object V208;          register object V208;
1358          register object V209;          register object V209;
# Line 1147  T638:; Line 1360  T638:;
1360          V207= make_cons(symbol_value(VV[9]),Cnil);          V207= make_cons(symbol_value(VV[9]),Cnil);
1361          V208= car((V206));          V208= car((V206));
1362          V209= Cnil;          V209= Cnil;
1363  T649:;  goto T689;
1364    T689:;
1365          if(!((length((V208)))<=(5))){          if(!((length((V208)))<=(5))){
1366          goto T650;}          goto T690;}
1367          goto T647;          goto T687;
1368  T650:;  goto T690;
1369    T690:;
1370          if(((V209))!=Cnil){          if(((V209))!=Cnil){
1371          goto T654;}          goto T694;}
1372          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
1373          V209= make_cons(symbol_value(VV[9]),Cnil);          V209= make_cons(symbol_value(VV[9]),Cnil);
1374  T654:;  goto T694;
1375    T694:;
1376          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
1377          {register object V211;          {register object V211;
1378          V211= small_fixnum(0);          V211= small_fixnum(0);
1379  T664:;  goto T704;
1380    T704:;
1381          if(!(number_compare((V211),small_fixnum(5))>=0)){          if(!(number_compare((V211),small_fixnum(5))>=0)){
1382          goto T665;}          goto T705;}
1383          goto T661;          goto T701;
1384  T665:;  goto T705;
1385    T705:;
1386          if(!(type_of(car((V208)))==t_symbol)){          if(!(type_of(car((V208)))==t_symbol)){
1387          goto T671;}          goto T711;}
1388          princ_str("(V",VV[16]);          princ_str("(V",VV[16]);
1389          (void)((*(LnkLI54))((V202)));          (void)((*(LnkLI54))((V202)));
1390          princ_str("== ",VV[16]);          princ_str("== ",VV[16]);
1391          {object V212= car((V208));          {object V212= car((V208));
1392          if((V212!= Ct))goto T678;          if((V212!= Ct))goto T718;
1393          princ_str("Ct",VV[16]);          princ_str("Ct",VV[16]);
1394          goto T677;          goto T717;
1395  T678:;  goto T718;
1396          if((V212!= Cnil))goto T680;  T718:;
1397            if((V212!= Cnil))goto T720;
1398          princ_str("Cnil",VV[16]);          princ_str("Cnil",VV[16]);
1399          goto T677;          goto T717;
1400  T680:;  goto T720;
1401    T720:;
1402          princ_str("VV[",VV[16]);          princ_str("VV[",VV[16]);
1403          V213= (*(LnkLI75))(car((V208)));          V213= (*(LnkLI75))(car((V208)));
1404          (void)((*(LnkLI54))(/* INLINE-ARGS */V213));          (void)((*(LnkLI54))(/* INLINE-ARGS */V213));
1405          princ_char(93,VV[16]);}          princ_char(93,VV[16]);}
1406  T677:;  goto T717;
1407    T717:;
1408          princ_char(41,VV[16]);          princ_char(41,VV[16]);
1409          goto T669;          goto T709;
1410  T671:;  goto T711;
1411    T711:;
1412          princ_str("eql(V",VV[16]);          princ_str("eql(V",VV[16]);
1413          (void)((*(LnkLI54))((V202)));          (void)((*(LnkLI54))((V202)));
1414          princ_str(",VV[",VV[16]);          princ_str(",VV[",VV[16]);
1415          (void)((*(LnkLI54))(car((V208))));          (void)((*(LnkLI54))(car((V208))));
1416          princ_str("])",VV[16]);          princ_str("])",VV[16]);
1417  T669:;  goto T709;
1418    T709:;
1419          if(!(number_compare((V211),small_fixnum(4))<0)){          if(!(number_compare((V211),small_fixnum(4))<0)){
1420          goto T691;}          goto T731;}
1421          princ_str("\n   || ",VV[16]);          princ_str("\n   || ",VV[16]);
1422  T691:;  goto T731;
1423    T731:;
1424          {object V214;          {object V214;
1425          V214= car((V208));          V214= car((V208));
1426          V208= cdr((V208));}          V208= cdr((V208));}
1427          V211= one_plus((V211));          V211= one_plus((V211));
1428          goto T664;}          goto T704;}
1429  T661:;  goto T701;
1430    T701:;
1431          princ_char(41,VV[16]);          princ_char(41,VV[16]);
1432          if(type_of((V209))!=t_cons)FEwrong_type_argument(Scons,(V209));          if(type_of((V209))!=t_cons)FEwrong_type_argument(Scons,(V209));
1433          ((V209))->c.c_cdr = Ct;          ((V209))->c.c_cdr = Ct;
1434          princ_str("goto T",VV[16]);          princ_str("goto T",VV[16]);
1435          (void)((*(LnkLI54))(car((V209))));          (void)((*(LnkLI54))(car((V209))));
1436          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1437          goto T649;          goto T689;
1438  T647:;  goto T687;
1439    T687:;
1440          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
1441  T715:;  goto T755;
1442    T755:;
1443          if(!(endp((V208)))){          if(!(endp((V208)))){
1444          goto T716;}          goto T756;}
1445          goto T713;          goto T753;
1446  T716:;  goto T756;
1447    T756:;
1448          if(!(type_of(car((V208)))==t_symbol)){          if(!(type_of(car((V208)))==t_symbol)){
1449          goto T722;}          goto T762;}
1450          princ_str("(V",VV[16]);          princ_str("(V",VV[16]);
1451          (void)((*(LnkLI54))((V202)));          (void)((*(LnkLI54))((V202)));
1452          princ_str("!= ",VV[16]);          princ_str("!= ",VV[16]);
1453          {object V215= car((V208));          {object V215= car((V208));
1454          if((V215!= Ct))goto T729;          if((V215!= Ct))goto T769;
1455          princ_str("Ct",VV[16]);          princ_str("Ct",VV[16]);
1456          goto T728;          goto T768;
1457  T729:;  goto T769;
1458          if((V215!= Cnil))goto T731;  T769:;
1459            if((V215!= Cnil))goto T771;
1460          princ_str("Cnil",VV[16]);          princ_str("Cnil",VV[16]);
1461          goto T728;          goto T768;
1462  T731:;  goto T771;
1463    T771:;
1464          princ_str("VV[",VV[16]);          princ_str("VV[",VV[16]);
1465          V216= (*(LnkLI75))(car((V208)));          V216= (*(LnkLI75))(car((V208)));
1466          (void)((*(LnkLI54))(/* INLINE-ARGS */V216));          (void)((*(LnkLI54))(/* INLINE-ARGS */V216));
1467          princ_char(93,VV[16]);}          princ_char(93,VV[16]);}
1468  T728:;  goto T768;
1469    T768:;
1470          princ_char(41,VV[16]);          princ_char(41,VV[16]);
1471          goto T720;          goto T760;
1472  T722:;  goto T762;
1473    T762:;
1474          princ_str("!eql(V",VV[16]);          princ_str("!eql(V",VV[16]);
1475          (void)((*(LnkLI54))((V202)));          (void)((*(LnkLI54))((V202)));
1476          princ_str(",VV[",VV[16]);          princ_str(",VV[",VV[16]);
1477          (void)((*(LnkLI54))(car((V208))));          (void)((*(LnkLI54))(car((V208))));
1478          princ_str("])",VV[16]);          princ_str("])",VV[16]);
1479  T720:;  goto T760;
1480    T760:;
1481          if(endp(cdr((V208)))){          if(endp(cdr((V208)))){
1482          goto T742;}          goto T782;}
1483          princ_str("\n   && ",VV[16]);          princ_str("\n   && ",VV[16]);
1484  T742:;  goto T782;
1485    T782:;
1486          {object V217;          {object V217;
1487          V217= car((V208));          V217= car((V208));
1488          V208= cdr((V208));}          V208= cdr((V208));}
1489          goto T715;          goto T755;
1490  T713:;  goto T753;
1491    T753:;
1492          princ_char(41,VV[16]);          princ_char(41,VV[16]);
1493          if(type_of((V207))!=t_cons)FEwrong_type_argument(Scons,(V207));          if(type_of((V207))!=t_cons)FEwrong_type_argument(Scons,(V207));
1494          ((V207))->c.c_cdr = Ct;          ((V207))->c.c_cdr = Ct;
# Line 1261  T713:; Line 1496  T713:;
1496          (void)((*(LnkLI54))(car((V207))));          (void)((*(LnkLI54))(car((V207))));
1497          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1498          if(((V209))==Cnil){          if(((V209))==Cnil){
1499          goto T759;}          goto T799;}
1500          if((cdr((V209)))==Cnil){          if((cdr((V209)))==Cnil){
1501          goto T759;}          goto T799;}
1502            princ_str("\ngoto T",VV[16]);
1503            (void)((*(LnkLI54))(car((V209))));
1504            princ_char(59,VV[16]);
1505          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
1506          (void)((*(LnkLI54))(car((V209))));          (void)((*(LnkLI54))(car((V209))));
1507          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
1508  T759:;  goto T799;
1509    T799:;
1510          base[6]= make_cons(VV[17],symbol_value(VV[15]));          base[6]= make_cons(VV[17],symbol_value(VV[15]));
1511          bds_bind(VV[15],base[6]);          bds_bind(VV[15],base[6]);
1512          base[7]= cdr((V206));          base[7]= cdr((V206));
# Line 1276  T759:; Line 1515  T759:;
1515          vs_top=sup;          vs_top=sup;
1516          bds_unwind1;          bds_unwind1;
1517          if((cdr((V207)))==Cnil){          if((cdr((V207)))==Cnil){
1518          goto T642;}          goto T682;}
1519            princ_str("\ngoto T",VV[16]);
1520            (void)((*(LnkLI54))(car((V207))));
1521            princ_char(59,VV[16]);
1522          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
1523          (void)((*(LnkLI54))(car((V207))));          (void)((*(LnkLI54))(car((V207))));
1524          princ_str(":;",VV[16]);}          princ_str(":;",VV[16]);}
1525  T642:;  goto T682;
1526    T682:;
1527          V205= cdr((V205));          V205= cdr((V205));
1528          V206= car((V205));          V206= car((V205));
1529          goto T637;}          goto T677;}
1530  T633:;  goto T673;
1531    T673:;
1532          if(!(((V201))==(Ct))){          if(!(((V201))==(Ct))){
1533          goto T782;}          goto T830;}
1534          princ_str("\n   FEerror(\"The ECASE key value ~s is illegal.\",1,V",VV[16]);          princ_str("\n   FEerror(\"The ECASE key value ~s is illegal.\",1,V",VV[16]);
1535          (void)((*(LnkLI54))((V202)));          (void)((*(LnkLI54))((V202)));
1536          princ_str(");",VV[16]);          princ_str(");",VV[16]);
1537          goto T780;          base[3]= cdr(car((V200)));
1538  T782:;          vs_top=(vs_base=base+3)+1;
1539            (void) (*Lnk55)();
1540            vs_top=sup;
1541            goto T828;
1542    goto T830;
1543    T830:;
1544          base[3]= (V201);          base[3]= (V201);
1545          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1546          (void) (*Lnk55)();          (void) (*Lnk55)();
1547          vs_top=sup;          vs_top=sup;
1548  T780:;  goto T828;
1549    T828:;
1550          princ_char(125,VV[16]);          princ_char(125,VV[16]);
1551          {object V218 = (*(LnkLI63))();          {object V218 = (*(LnkLI63))();
1552          bds_unwind1;          bds_unwind1;
1553          bds_unwind1;          bds_unwind1;
1554          VMR16(V218)}}          VMR16(V218)}}
1555            base[0]=base[0];
1556            return Cnil;
1557  }  }
1558  static object  LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,1,ap);} /* ADD-SYMBOL */  static object  LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],(void **)&LnkLI75,1,ap);} /* ADD-SYMBOL */
1559  static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[74],&LnkLI74,ap);} /* INLINE-ARGS */  static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[74],(void **)&LnkLI74,ap);} /* INLINE-ARGS */
1560  static object  LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],&LnkLI73,1,ap);} /* ADD-OBJECT */  static object  LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],(void **)&LnkLI73,1,ap);} /* ADD-OBJECT */
1561  static object  LnkTLI72(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[72],&LnkLI72,2,ap);} /* ADD-INFO */  static object  LnkTLI72(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[72],(void **)&LnkLI72,2,ap);} /* ADD-INFO */
1562  static object  LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],&LnkLI71,1,ap);} /* C1PROGN */  static object  LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],(void **)&LnkLI71,1,ap);} /* C1PROGN */
1563  static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[69],&LnkLI69,ap);} /* CMPERR */  static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[69],(void **)&LnkLI69,ap);} /* CMPERR */
1564  static object  LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],&LnkLI68,2,ap);} /* CONVERT-CASE-TO-SWITCH */  static object  LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],(void **)&LnkLI68,2,ap);} /* CONVERT-CASE-TO-SWITCH */
1565  static LnkT67(){ call_or_link(VV[67],&Lnk67);} /* SUBTYPEP */  static void LnkT67(){ call_or_link(VV[67],(void **)&Lnk67);} /* SUBTYPEP */
1566  static LnkT66(){ call_or_link(VV[66],&Lnk66);} /* CMPERROR */  static void LnkT66(){ call_or_link(VV[66],(void **)&Lnk66);} /* CMPERROR */
1567  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],&LnkLI65,ap);} /* C1CASE */  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],(void **)&LnkLI65,ap);} /* C1CASE */
1568  static LnkT64(){ call_or_link(VV[64],&Lnk64);} /* WT-INLINE-LOC */  static void LnkT64(){ call_or_link(VV[64],(void **)&Lnk64);} /* WT-INLINE-LOC */
1569  static object  LnkTLI63(){return call_proc0(VV[63],&LnkLI63);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI63(){return call_proc0(VV[63],(void **)&LnkLI63);} /* CLOSE-INLINE-BLOCKS */
1570  static object  LnkTLI62(){return call_proc0(VV[62],&LnkLI62);} /* WT-C-PUSH */  static object  LnkTLI62(){return call_proc0(VV[62],(void **)&LnkLI62);} /* WT-C-PUSH */
1571  static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],&LnkLI61,2,ap);} /* WT-VAR */  static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],(void **)&LnkLI61,2,ap);} /* WT-VAR */
1572  static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[60],&LnkLI60,ap);} /* UNWIND-EXIT */  static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[60],(void **)&LnkLI60,ap);} /* UNWIND-EXIT */
1573  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,2,ap);} /* C1ARGS */  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,2,ap);} /* C1ARGS */
1574  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,1,ap);} /* C2EXPR* */  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,1,ap);} /* C2EXPR* */
1575  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],&LnkLI57,1,ap);} /* UNWIND-NO-EXIT */  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],(void **)&LnkLI57,1,ap);} /* UNWIND-NO-EXIT */
1576  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,3,ap);} /* CJT */  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,3,ap);} /* CJT */
1577  static LnkT55(){ call_or_link(VV[55],&Lnk55);} /* C2EXPR */  static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* C2EXPR */
1578  static object  LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],&LnkLI54,1,ap);} /* WT1 */  static object  LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],(void **)&LnkLI54,1,ap);} /* WT1 */
1579  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],&LnkLI53,3,ap);} /* CJF */  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],(void **)&LnkLI53,3,ap);} /* CJF */
1580  static object  LnkTLI52(){return call_proc0(VV[52],&LnkLI52);} /* C1T */  static object  LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* C1T */
1581  static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],&LnkLI50,2,ap);} /* C1EXPR* */  static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],(void **)&LnkLI50,2,ap);} /* C1EXPR* */
1582  static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],&LnkLI49,2,ap);} /* C1FMLA */  static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],(void **)&LnkLI49,2,ap);} /* C1FMLA */
1583  static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],&LnkLI48,ap);} /* MAKE-INFO */  static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],(void **)&LnkLI48,ap);} /* MAKE-INFO */
1584  static object  LnkTLI47(){return call_proc0(VV[47],&LnkLI47);} /* C1NIL */  static object  LnkTLI47(){return call_proc0(VV[47],(void **)&LnkLI47);} /* C1NIL */
1585  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,1,ap);} /* C1EXPR */  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],(void **)&LnkLI46,1,ap);} /* C1EXPR */
1586  static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[45],&LnkLI45,1,ap);} /* C1FMLA-CONSTANT */  static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[45],(void **)&LnkLI45,1,ap);} /* C1FMLA-CONSTANT */
1587  static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],&LnkLI44,3,ap);} /* TOO-MANY-ARGS */  static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],(void **)&LnkLI44,3,ap);} /* TOO-MANY-ARGS */
1588  static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],&LnkLI43,3,ap);} /* TOO-FEW-ARGS */  static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],(void **)&LnkLI43,3,ap);} /* TOO-FEW-ARGS */
1589    
1590  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1591  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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