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

Diff of /gcl/cmpnew/gcl_cmpif.c

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

revision 1.2 by camm, Sun Sep 14 02:43:01 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:27 2003 UTC
# Line 14  TTL:; Line 14  TTL:;
14          object V4;          object V4;
15          V3= Cnil;          V3= Cnil;
16          V4= Cnil;          V4= Cnil;
17          if(endp_prop((V2))){          if(((V2))==Cnil){
18          goto T4;}          goto T4;}
19          if(!(endp_prop(cdr((V2))))){          if(!((CMPcdr((V2)))==Cnil)){
20          goto T3;}          goto T3;}
21          goto T4;          goto T4;
22  T4:;  T4:;
23          V5 = make_fixnum((long)length((V2)));          V5 = CMPmake_fixnum((long)length((V2)));
24          (void)((*(LnkLI43))(VV[0],small_fixnum(2),V5));          (void)((*(LnkLI43))(VV[0],small_fixnum(2),V5));
25          goto T3;          goto T3;
26  T3:;  T3:;
27          if(endp_prop(cddr((V2)))){          if((CMPcddr((V2)))==Cnil){
28          goto T8;}          goto T8;}
29          if(endp_prop(cdddr((V2)))){          if((CMPcdddr((V2)))==Cnil){
30          goto T8;}          goto T8;}
31          V6 = make_fixnum((long)length((V2)));          V6 = CMPmake_fixnum((long)length((V2)));
32          (void)((*(LnkLI44))(VV[0],small_fixnum(3),V6));          (void)((*(LnkLI44))(VV[0],small_fixnum(3),V6));
33          goto T8;          goto T8;
34  T8:;  T8:;
35          V4= (*(LnkLI45))(car((V2)));          V4= (*(LnkLI45))(CMPcar((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))(CMPcadr((V2)));
39          VMR1(V8)}          VMR1(V8)}
40          goto T15;          goto T15;
41  T15:;  T15:;
42          if((V7!= Cnil))goto T16;          if((V7!= Cnil))goto T16;
43          if(!(endp_prop(cddr((V2))))){          if(!((CMPcddr((V2)))==Cnil)){
44          goto T18;}          goto T18;}
45          {object V9 = (*(LnkLI47))();          {object V9 = (*(LnkLI47))();
46          VMR1(V9)}          VMR1(V9)}
47          goto T18;          goto T18;
48  T18:;  T18:;
49          {object V10 = (*(LnkLI46))(caddr((V2)));          {object V10 = (*(LnkLI46))(CMPcaddr((V2)));
50          VMR1(V10)}          VMR1(V10)}
51          goto T16;          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));
55          V12= (*(LnkLI50))(cadr((V2)),(V3));          V12= (*(LnkLI50))(CMPcadr((V2)),(V3));
56          if(!(endp_prop(cddr((V2))))){          if(!((CMPcddr((V2)))==Cnil)){
57          goto T24;}          goto T24;}
58          V13= (*(LnkLI47))();          V13= (*(LnkLI47))();
59          goto T22;          goto T22;
60          goto T24;          goto T24;
61  T24:;  T24:;
62          V13= (*(LnkLI50))(caddr((V2)),(V3));          V13= (*(LnkLI50))(CMPcaddr((V2)),(V3));
63          goto T22;          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);
# Line 78  TTL:; Line 78  TTL:;
78          V17= Cnil;          V17= Cnil;
79          if(!(type_of((V16))==t_cons)){          if(!(type_of((V16))==t_cons)){
80          goto T28;}          goto T28;}
81          {object V18= car((V16));          {object V18= CMPcar((V16));
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= CMPcdr((V16));
85          goto T33;          goto T33;
86  T33:;  T33:;
87          if(!(endp_prop((V19)))){          if(!(((V19))==Cnil)){
88          goto T34;}          goto T34;}
89          {object V20 = Ct;          {object V20 = Ct;
90          VMR2(V20)}          VMR2(V20)}
91          goto T34;          goto T34;
92  T34:;  T34:;
93          V17= (*(LnkLI45))(car((V19)));          V17= (*(LnkLI45))(CMPcar((V19)));
94          {object V21= (V17);          {object V21= (V17);
95          if((V21!= Ct))goto T41;          if((V21!= Ct))goto T41;
96          goto T40;          goto T40;
# Line 101  T41:; Line 101  T41:;
101          VMR2(V22)}          VMR2(V22)}
102          goto T42;          goto T42;
103  T42:;  T42:;
104          if(!(endp_prop(cdr((V19))))){          if(!((CMPcdr((V19)))==Cnil)){
105          goto T44;}          goto T44;}
106          {object V23 = (V17);          {object V23 = (V17);
107          VMR2(V23)}          VMR2(V23)}
108          goto T44;          goto T44;
109  T44:;  T44:;
110          {object V24 = listA(3,VV[1],(V17),cdr((V19)));          {object V24 = listA(3,VV[1],(V17),CMPcdr((V19)));
111          VMR2(V24)}}          VMR2(V24)}}
112          goto T40;          goto T40;
113  T40:;  T40:;
114          V19= cdr((V19));          V19= CMPcdr((V19));
115          goto T33;}          goto T33;}
116          goto T30;          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= CMPcdr((V16));
121          goto T52;          goto T52;
122  T52:;  T52:;
123          if(!(endp_prop((V25)))){          if(!(((V25))==Cnil)){
124          goto T53;}          goto T53;}
125          {object V26 = Cnil;          {object V26 = Cnil;
126          VMR2(V26)}          VMR2(V26)}
127          goto T53;          goto T53;
128  T53:;  T53:;
129          V17= (*(LnkLI45))(car((V25)));          V17= (*(LnkLI45))(CMPcar((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;
# Line 137  T60:; Line 137  T60:;
137          goto T59;          goto T59;
138          goto T61;          goto T61;
139  T61:;  T61:;
140          if(!(endp_prop(cdr((V25))))){          if(!((CMPcdr((V25)))==Cnil)){
141          goto T63;}          goto T63;}
142          {object V29 = (V17);          {object V29 = (V17);
143          VMR2(V29)}          VMR2(V29)}
144          goto T63;          goto T63;
145  T63:;  T63:;
146          {object V30 = listA(3,VV[2],(V17),cdr((V25)));          {object V30 = listA(3,VV[2],(V17),CMPcdr((V25)));
147          VMR2(V30)}}          VMR2(V30)}}
148          goto T59;          goto T59;
149  T59:;  T59:;
150          V25= cdr((V25));          V25= CMPcdr((V25));
151          goto T52;}          goto T52;}
152          goto T49;          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_prop(cdr((V16))))){          if(!((CMPcdr((V16)))==Cnil)){
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;          goto T69;
160  T69:;  T69:;
161          if(endp_prop(cddr((V16)))){          if((CMPcddr((V16)))==Cnil){
162          goto T72;}          goto T72;}
163          V31 = make_fixnum((long)length(cdr((V16))));          V31 = CMPmake_fixnum((long)length(CMPcdr((V16))));
164          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V31));          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V31));
165          goto T72;          goto T72;
166  T72:;  T72:;
167          V17= (*(LnkLI45))(cadr((V16)));          V17= (*(LnkLI45))(CMPcadr((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;
# Line 225  register object V43;register object V44; Line 225  register object V43;register object V44;
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= CMPcar((V43));
229          if((V45!= VV[1]))goto T93;switch((long)length(cdr((V43)))){          if((V45!= VV[1]))goto T93;switch((long)length(CMPcdr((V43)))){
230          case 0:          case 0:
231          goto T95;          goto T95;
232  T95:;  T95:;
# Line 235  T95:; Line 235  T95:;
235          case 1:          case 1:
236          goto T96;          goto T96;
237  T96:;  T96:;
238          V43= cadr((V43));          V43= CMPcadr((V43));
239          goto TTL;          goto TTL;
240          default:          default:
241          goto T97;          goto T97;
242  T97:;  T97:;
243          {object V48;          {object V48;
244          object V49= cdr((V43));          object V49= CMPcdr((V43));
245          if(endp(V49)){          if(V49==Cnil){
246          V47= Cnil;          V47= Cnil;
247          goto T102;}          goto T102;}
248          base[0]=V48=MMcons(Cnil,Cnil);          base[0]=V48=MMcons(Cnil,Cnil);
# Line 251  T103:; Line 251  T103:;
251          {register object V50;          {register object V50;
252          V50= (V49->c.c_car);          V50= (V49->c.c_car);
253          (V48->c.c_car)= (*(LnkLI49))((V50),(V44));}          (V48->c.c_car)= (*(LnkLI49))((V50),(V44));}
254          V49=MMcdr(V49);          if((V49=MMcdr(V49))==Cnil){
         if(endp(V49)){  
255          V47= base[0];          V47= base[0];
256          goto T102;}          goto T102;}
257          V48=MMcdr(V48)=MMcons(Cnil,Cnil);          V48=MMcdr(V48)=MMcons(Cnil,Cnil);
# Line 267  T102:; Line 266  T102:;
266          VMR3(V53)}          VMR3(V53)}
267          goto T93;          goto T93;
268  T93:;  T93:;
269          if((V45!= VV[2]))goto T105;switch((long)length(cdr((V43)))){          if((V45!= VV[2]))goto T105;switch((long)length(CMPcdr((V43)))){
270          case 0:          case 0:
271          goto T107;          goto T107;
272  T107:;  T107:;
# Line 276  T107:; Line 275  T107:;
275          case 1:          case 1:
276          goto T108;          goto T108;
277  T108:;  T108:;
278          V43= cadr((V43));          V43= CMPcadr((V43));
279          goto TTL;          goto TTL;
280          default:          default:
281          goto T109;          goto T109;
282  T109:;  T109:;
283          {object V56;          {object V56;
284          object V57= cdr((V43));          object V57= CMPcdr((V43));
285          if(endp(V57)){          if(V57==Cnil){
286          V55= Cnil;          V55= Cnil;
287          goto T114;}          goto T114;}
288          base[0]=V56=MMcons(Cnil,Cnil);          base[0]=V56=MMcons(Cnil,Cnil);
# Line 292  T115:; Line 291  T115:;
291          {register object V58;          {register object V58;
292          V58= (V57->c.c_car);          V58= (V57->c.c_car);
293          (V56->c.c_car)= (*(LnkLI49))((V58),(V44));}          (V56->c.c_car)= (*(LnkLI49))((V58),(V44));}
294          V57=MMcdr(V57);          if((V57=MMcdr(V57))==Cnil){
         if(endp(V57)){  
295          V55= base[0];          V55= base[0];
296          goto T114;}          goto T114;}
297          V56=MMcdr(V56)=MMcons(Cnil,Cnil);          V56=MMcdr(V56)=MMcons(Cnil,Cnil);
# Line 310  T114:; Line 308  T114:;
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_prop(cdr((V43))))){          if(!((CMPcdr((V43)))==Cnil)){
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;          goto T118;
315  T118:;  T118:;
316          if(endp_prop(cddr((V43)))){          if((CMPcddr((V43)))==Cnil){
317          goto T121;}          goto T121;}
318          V62 = make_fixnum((long)length(cdr((V43))));          V62 = CMPmake_fixnum((long)length(CMPcdr((V43))));
319          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V62));          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V62));
320          goto T121;          goto T121;
321  T121:;  T121:;
322          {object V63 = list(2,VV[6],(*(LnkLI49))(cadr((V43)),(V44)));          {object V63 = list(2,VV[6],(*(LnkLI49))(CMPcadr((V43)),(V44)));
323          VMR3(V63)}          VMR3(V63)}
324          goto T117;          goto T117;
325  T117:;  T117:;
# Line 340  T91:; Line 338  T91:;
338  static void 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_check;
342          bds_check;          bds_check;
343          {object V67;          {object V67;
344          object V68;          object V68;
345          object V69;          object V69;
         check_arg(3);  
346          V67=(base[0]);          V67=(base[0]);
347          V68=(base[1]);          V68=(base[1]);
348          V69=(base[2]);          V69=(base[2]);
# Line 354  static void L4() Line 351  static void L4()
351  TTL:;  TTL:;
352          {register object V70;          {register object V70;
353          register object V71;          register object V71;
354          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
355          V70= make_cons(symbol_value(VV[9]),Cnil);          V70= make_cons((VV[9]->s.s_dbind),Cnil);
356          V71= Cnil;          V71= Cnil;
357          if(!((car((V69)))==(VV[10]))){          if(!((CMPcar((V69)))==(VV[10]))){
358          goto T128;}          goto T128;}
359          if((caddr((V69)))!=Cnil){          if((CMPcaddr((V69)))!=Cnil){
360          goto T128;}          goto T128;}
361          if(!((symbol_value(VV[11]))==(VV[12]))){          if(!(((VV[11]->s.s_dbind))==(VV[12]))){
362          goto T128;}          goto T128;}
363          if((symbol_value(VV[13]))==(VV[14])){          if(((VV[13]->s.s_dbind))==(VV[14])){
364          goto T128;}          goto T128;}
365          {object V72;          {object V72;
366          V72= symbol_value(VV[13]);          V72= (VV[13]->s.s_dbind);
367          base[4]= make_cons((V70),symbol_value(VV[15]));          base[4]= make_cons((V70),(VV[15]->s.s_dbind));
368          bds_bind(VV[15],base[4]);          bds_bind(VV[15],base[4]);
369          bds_bind(VV[13],(V70));          bds_bind(VV[13],(V70));
370          V73= (*(LnkLI53))((V67),(V70),(V72));          V73= (*(LnkLI53))((V67),(V70),(V72));
371          bds_unwind1;          bds_unwind1;
372          bds_unwind1;}          bds_unwind1;}
373          if((cdr((V70)))==Cnil){          if((CMPcdr((V70)))==Cnil){
374          goto T139;}          goto T139;}
375          princ_str("\n   goto T",VV[16]);          princ_str("\n   goto T",VV[16]);
376          (void)((*(LnkLI54))(car((V70))));          (void)((*(LnkLI54))(CMPcar((V70))));
377          princ_char(59,VV[16]);          princ_char(59,VV[16]);
378          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
379          (void)((*(LnkLI54))(car((V70))));          (void)((*(LnkLI54))(CMPcar((V70))));
380          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
381          goto T139;          goto T139;
382  T139:;  T139:;
# Line 389  T139:; Line 386  T139:;
386          return;          return;
387          goto T128;          goto T128;
388  T128:;  T128:;
389          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
390          V71= make_cons(symbol_value(VV[9]),Cnil);          V71= make_cons((VV[9]->s.s_dbind),Cnil);
391          base[4]= listA(3,(V71),(V70),symbol_value(VV[15]));          base[4]= listA(3,(V71),(V70),(VV[15]->s.s_dbind));
392          bds_bind(VV[15],base[4]);          bds_bind(VV[15],base[4]);
393          bds_bind(VV[13],(V70));          bds_bind(VV[13],(V70));
394          V74= (*(LnkLI53))((V67),(V70),(V71));          V74= (*(LnkLI53))((V67),(V70),(V71));
395          bds_unwind1;          bds_unwind1;
396          bds_unwind1;          bds_unwind1;
397          if((cdr((V70)))==Cnil){          if((CMPcdr((V70)))==Cnil){
398          goto T155;}          goto T155;}
399          princ_str("\n   goto T",VV[16]);          princ_str("\n   goto T",VV[16]);
400          (void)((*(LnkLI54))(car((V70))));          (void)((*(LnkLI54))(CMPcar((V70))));
401          princ_char(59,VV[16]);          princ_char(59,VV[16]);
402          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
403          (void)((*(LnkLI54))(car((V70))));          (void)((*(LnkLI54))(CMPcar((V70))));
404          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
405          goto T155;          goto T155;
406  T155:;  T155:;
407          base[4]= make_cons(VV[17],symbol_value(VV[15]));          base[4]= make_cons(VV[17],(VV[15]->s.s_dbind));
408          bds_bind(VV[15],base[4]);          bds_bind(VV[15],base[4]);
409          base[5]= (V68);          base[5]= (V68);
410          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
411          (void) (*Lnk55)();          (void) (*Lnk55)();
412          vs_top=sup;          vs_top=sup;
413          bds_unwind1;          bds_unwind1;
414          if((cdr((V71)))==Cnil){          if((CMPcdr((V71)))==Cnil){
415          goto T168;}          goto T168;}
416          princ_str("\n   goto T",VV[16]);          princ_str("\n   goto T",VV[16]);
417          (void)((*(LnkLI54))(car((V71))));          (void)((*(LnkLI54))(CMPcar((V71))));
418          princ_char(59,VV[16]);          princ_char(59,VV[16]);
419          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
420          (void)((*(LnkLI54))(car((V71))));          (void)((*(LnkLI54))(CMPcar((V71))));
421          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
422          goto T168;          goto T168;
423  T168:;  T168:;
# Line 439  object V78;object V79;object V80; Line 436  object V78;object V79;object V80;
436          bds_check;          bds_check;
437          goto TTL;          goto TTL;
438  TTL:;  TTL:;
439          {object V81= car((V78));          {object V81= CMPcar((V78));
440          if((V81!= VV[4]))goto T179;          if((V81!= VV[4]))goto T179;
441          {register object V82;          {register object V82;
442          V82= cdr((V78));          V82= CMPcdr((V78));
443          goto T182;          goto T182;
444  T182:;  T182:;
445          if(!(endp_prop(cdr((V82))))){          if(!((CMPcdr((V82)))==Cnil)){
446          goto T183;}          goto T183;}
447          V78= car((V82));          V78= CMPcar((V82));
448          goto TTL;          goto TTL;
449          goto T183;          goto T183;
450  T183:;  T183:;
451          {register object V83;          {register object V83;
452          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
453          V83= make_cons(symbol_value(VV[9]),Cnil);          V83= make_cons((VV[9]->s.s_dbind),Cnil);
454          bds_bind(VV[15],make_cons((V83),symbol_value(VV[15])));          bds_bind(VV[15],make_cons((V83),(VV[15]->s.s_dbind)));
455          (void)((*(LnkLI53))(car((V82)),(V83),(V80)));          (void)((*(LnkLI53))(CMPcar((V82)),(V83),(V80)));
456          if((cdr((V83)))==Cnil){          if((CMPcdr((V83)))==Cnil){
457          bds_unwind1;          bds_unwind1;
458          goto T191;}          goto T191;}
459          princ_str("\n   goto T",VV[16]);          princ_str("\n   goto T",VV[16]);
460          (void)((*(LnkLI54))(car((V83))));          (void)((*(LnkLI54))(CMPcar((V83))));
461          princ_char(59,VV[16]);          princ_char(59,VV[16]);
462          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
463          (void)((*(LnkLI54))(car((V83))));          (void)((*(LnkLI54))(CMPcar((V83))));
464          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
465          bds_unwind1;}          bds_unwind1;}
466          goto T191;          goto T191;
467  T191:;  T191:;
468          V82= cdr((V82));          V82= CMPcdr((V82));
469          goto T182;}          goto T182;}
470          goto T179;          goto T179;
471  T179:;  T179:;
472          if((V81!= VV[5]))goto T208;          if((V81!= VV[5]))goto T208;
473          {register object V84;          {register object V84;
474          V84= cdr((V78));          V84= CMPcdr((V78));
475          goto T211;          goto T211;
476  T211:;  T211:;
477          if(!(endp_prop(cdr((V84))))){          if(!((CMPcdr((V84)))==Cnil)){
478          goto T212;}          goto T212;}
479          V78= car((V84));          V78= CMPcar((V84));
480          goto TTL;          goto TTL;
481          goto T212;          goto T212;
482  T212:;  T212:;
483          {register object V85;          {register object V85;
484          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
485          V85= make_cons(symbol_value(VV[9]),Cnil);          V85= make_cons((VV[9]->s.s_dbind),Cnil);
486          bds_bind(VV[15],make_cons((V85),symbol_value(VV[15])));          bds_bind(VV[15],make_cons((V85),(VV[15]->s.s_dbind)));
487          (void)((*(LnkLI56))(car((V84)),(V79),(V85)));          (void)((*(LnkLI56))(CMPcar((V84)),(V79),(V85)));
488          if((cdr((V85)))==Cnil){          if((CMPcdr((V85)))==Cnil){
489          bds_unwind1;          bds_unwind1;
490          goto T220;}          goto T220;}
491          princ_str("\n   goto T",VV[16]);          princ_str("\n   goto T",VV[16]);
492          (void)((*(LnkLI54))(car((V85))));          (void)((*(LnkLI54))(CMPcar((V85))));
493          princ_char(59,VV[16]);          princ_char(59,VV[16]);
494          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
495          (void)((*(LnkLI54))(car((V85))));          (void)((*(LnkLI54))(CMPcar((V85))));
496          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
497          bds_unwind1;}          bds_unwind1;}
498          goto T220;          goto T220;
499  T220:;  T220:;
500          V84= cdr((V84));          V84= CMPcdr((V84));
501          goto T211;}          goto T211;}
502          goto T208;          goto T208;
503  T208:;  T208:;
504          if((V81!= VV[6]))goto T237;          if((V81!= VV[6]))goto T237;
505          {object V86 = (*(LnkLI53))(cadr((V78)),(V80),(V79));          {object V86 = (*(LnkLI53))(CMPcadr((V78)),(V80),(V79));
506          VMR5(V86)}          VMR5(V86)}
507          goto T237;          goto T237;
508  T237:;  T237:;
509          if((V81!= VV[10]))goto T238;          if((V81!= VV[10]))goto T238;
510          {object V87= caddr((V78));          {object V87= CMPcaddr((V78));
511          if((V87!= Ct))goto T239;          if((V87!= Ct))goto T239;
512          (void)((*(LnkLI57))((V79)));          (void)((*(LnkLI57))((V79)));
513          princ_str("\n   ",VV[16]);          princ_str("\n   ",VV[16]);
         if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79));  
514          ((V79))->c.c_cdr = Ct;          ((V79))->c.c_cdr = Ct;
515          princ_str("goto T",VV[16]);          princ_str("goto T",VV[16]);
516          (void)((*(LnkLI54))(car((V79))));          (void)((*(LnkLI54))(CMPcar((V79))));
517          princ_char(59,VV[16]);          princ_char(59,VV[16]);
518          {object V88 = Cnil;          {object V88 = Cnil;
519          VMR5(V88)}          VMR5(V88)}
# Line 552  object V95;object V96;object V97; Line 548  object V95;object V96;object V97;
548          bds_check;          bds_check;
549          goto TTL;          goto TTL;
550  TTL:;  TTL:;
551          {object V98= car((V95));          {object V98= CMPcar((V95));
552          if((V98!= VV[4]))goto T249;          if((V98!= VV[4]))goto T249;
553          {register object V99;          {register object V99;
554          V99= cdr((V95));          V99= CMPcdr((V95));
555          goto T252;          goto T252;
556  T252:;  T252:;
557          if(!(endp_prop(cdr((V99))))){          if(!((CMPcdr((V99)))==Cnil)){
558          goto T253;}          goto T253;}
559          V95= car((V99));          V95= CMPcar((V99));
560          goto TTL;          goto TTL;
561          goto T253;          goto T253;
562  T253:;  T253:;
563          {register object V100;          {register object V100;
564          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
565          V100= make_cons(symbol_value(VV[9]),Cnil);          V100= make_cons((VV[9]->s.s_dbind),Cnil);
566          bds_bind(VV[15],make_cons((V100),symbol_value(VV[15])));          bds_bind(VV[15],make_cons((V100),(VV[15]->s.s_dbind)));
567          (void)((*(LnkLI53))(car((V99)),(V100),(V97)));          (void)((*(LnkLI53))(CMPcar((V99)),(V100),(V97)));
568          if((cdr((V100)))==Cnil){          if((CMPcdr((V100)))==Cnil){
569          bds_unwind1;          bds_unwind1;
570          goto T261;}          goto T261;}
571          princ_str("\n   goto T",VV[16]);          princ_str("\n   goto T",VV[16]);
572          (void)((*(LnkLI54))(car((V100))));          (void)((*(LnkLI54))(CMPcar((V100))));
573          princ_char(59,VV[16]);          princ_char(59,VV[16]);
574          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
575          (void)((*(LnkLI54))(car((V100))));          (void)((*(LnkLI54))(CMPcar((V100))));
576          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
577          bds_unwind1;}          bds_unwind1;}
578          goto T261;          goto T261;
579  T261:;  T261:;
580          V99= cdr((V99));          V99= CMPcdr((V99));
581          goto T252;}          goto T252;}
582          goto T249;          goto T249;
583  T249:;  T249:;
584          if((V98!= VV[5]))goto T278;          if((V98!= VV[5]))goto T278;
585          {register object V101;          {register object V101;
586          V101= cdr((V95));          V101= CMPcdr((V95));
587          goto T281;          goto T281;
588  T281:;  T281:;
589          if(!(endp_prop(cdr((V101))))){          if(!((CMPcdr((V101)))==Cnil)){
590          goto T282;}          goto T282;}
591          V95= car((V101));          V95= CMPcar((V101));
592          goto TTL;          goto TTL;
593          goto T282;          goto T282;
594  T282:;  T282:;
595          {register object V102;          {register object V102;
596          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
597          V102= make_cons(symbol_value(VV[9]),Cnil);          V102= make_cons((VV[9]->s.s_dbind),Cnil);
598          bds_bind(VV[15],make_cons((V102),symbol_value(VV[15])));          bds_bind(VV[15],make_cons((V102),(VV[15]->s.s_dbind)));
599          (void)((*(LnkLI56))(car((V101)),(V96),(V102)));          (void)((*(LnkLI56))(CMPcar((V101)),(V96),(V102)));
600          if((cdr((V102)))==Cnil){          if((CMPcdr((V102)))==Cnil){
601          bds_unwind1;          bds_unwind1;
602          goto T290;}          goto T290;}
603          princ_str("\n   goto T",VV[16]);          princ_str("\n   goto T",VV[16]);
604          (void)((*(LnkLI54))(car((V102))));          (void)((*(LnkLI54))(CMPcar((V102))));
605          princ_char(59,VV[16]);          princ_char(59,VV[16]);
606          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
607          (void)((*(LnkLI54))(car((V102))));          (void)((*(LnkLI54))(CMPcar((V102))));
608          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
609          bds_unwind1;}          bds_unwind1;}
610          goto T290;          goto T290;
611  T290:;  T290:;
612          V101= cdr((V101));          V101= CMPcdr((V101));
613          goto T281;}          goto T281;}
614          goto T278;          goto T278;
615  T278:;  T278:;
616          if((V98!= VV[6]))goto T307;          if((V98!= VV[6]))goto T307;
617          {object V103 = (*(LnkLI56))(cadr((V95)),(V97),(V96));          {object V103 = (*(LnkLI56))(CMPcadr((V95)),(V97),(V96));
618          VMR6(V103)}          VMR6(V103)}
619          goto T307;          goto T307;
620  T307:;  T307:;
621          if((V98!= VV[10]))goto T308;          if((V98!= VV[10]))goto T308;
622          {object V104= caddr((V95));          {object V104= CMPcaddr((V95));
623          if((V104!= Ct))goto T309;          if((V104!= Ct))goto T309;
624          {object V105 = Cnil;          {object V105 = Cnil;
625          VMR6(V105)}          VMR6(V105)}
# Line 632  T309:; Line 628  T309:;
628          if((V104!= Cnil))goto T310;          if((V104!= Cnil))goto T310;
629          (void)((*(LnkLI57))((V97)));          (void)((*(LnkLI57))((V97)));
630          princ_str("\n   ",VV[16]);          princ_str("\n   ",VV[16]);
         if(type_of((V97))!=t_cons)FEwrong_type_argument(Scons,(V97));  
631          ((V97))->c.c_cdr = Ct;          ((V97))->c.c_cdr = Ct;
632          princ_str("goto T",VV[16]);          princ_str("goto T",VV[16]);
633          (void)((*(LnkLI54))(car((V97))));          (void)((*(LnkLI54))(CMPcar((V97))));
634          princ_char(59,VV[16]);          princ_char(59,VV[16]);
635          {object V106 = Cnil;          {object V106 = Cnil;
636          VMR6(V106)}          VMR6(V106)}
# Line 664  register object V110; Line 659  register object V110;
659  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
660          goto TTL;          goto TTL;
661  TTL:;  TTL:;
662          if(!(endp_prop((V110)))){          if(!(((V110))==Cnil)){
663          goto T320;}          goto T320;}
664          {object V111 = (*(LnkLI52))();          {object V111 = (*(LnkLI52))();
665          VMR7(V111)}          VMR7(V111)}
666          goto T320;          goto T320;
667  T320:;  T320:;
668          if(!(endp_prop(cdr((V110))))){          if(!((CMPcdr((V110)))==Cnil)){
669          goto T323;}          goto T323;}
670          {object V112 = (*(LnkLI46))(car((V110)));          {object V112 = (*(LnkLI46))(CMPcar((V110)));
671          VMR7(V112)}          VMR7(V112)}
672          goto T323;          goto T323;
673  T323:;  T323:;
# Line 687  T323:; Line 682  T323:;
682  static void L8()  static void L8()
683  {register object *base=vs_base;  {register object *base=vs_base;
684          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
685          vs_reserve(VM8);          vs_check;
686          bds_check;          bds_check;
687          {object V115;          {object V115;
         check_arg(1);  
688          V115=(base[0]);          V115=(base[0]);
689          vs_top=sup;          vs_top=sup;
690          goto TTL;          goto TTL;
# Line 699  TTL:; Line 693  TTL:;
693          V116= (V115);          V116= (V115);
694          goto T327;          goto T327;
695  T327:;  T327:;
696          if(!(endp_prop(cdr((V116))))){          if(!((CMPcdr((V116)))==Cnil)){
697          goto T328;}          goto T328;}
698          base[1]= car((V116));          base[1]= CMPcar((V116));
699          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
700          (void) (*Lnk55)();          (void) (*Lnk55)();
701          return;          return;
702          goto T328;          goto T328;
703  T328:;  T328:;
704          if(!((caar((V116)))==(VV[10]))){          if(!((CMPcaar((V116)))==(VV[10]))){
705          goto T335;}          goto T335;}
706          {object V117= caddar((V116));          {object V117= CMPcaddar((V116));
707          if((V117!= Ct))goto T337;          if((V117!= Ct))goto T337;
708          goto T333;          goto T333;
709          goto T337;          goto T337;
# Line 720  T337:; Line 714  T337:;
714          goto T338;          goto T338;
715  T338:;  T338:;
716          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
717          (void)((*(LnkLI54))(caddar((V116))));          (void)((*(LnkLI54))(CMPcaddar((V116))));
718          princ_str("==Cnil){",VV[16]);          princ_str("==Cnil){",VV[16]);
719          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
720          princ_char(125,VV[16]);          princ_char(125,VV[16]);
721          goto T333;}          goto T333;}
722          goto T335;          goto T335;
723  T335:;  T335:;
724          if(!((caar((V116)))==(VV[20]))){          if(!((CMPcaar((V116)))==(VV[20]))){
725          goto T346;}          goto T346;}
726          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
727          (void)((*(LnkLI61))(car(caddar((V116))),cadr(caddar((V116)))));          (void)((*(LnkLI61))(CMPcar(CMPcaddar((V116))),CMPcadr(CMPcaddar((V116)))));
728          princ_str("==Cnil){",VV[16]);          princ_str("==Cnil){",VV[16]);
729          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
730          princ_char(125,VV[16]);          princ_char(125,VV[16]);
# Line 738  T335:; Line 732  T335:;
732          goto T346;          goto T346;
733  T346:;  T346:;
734          {register object V118;          {register object V118;
735          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
736          V118= make_cons(symbol_value(VV[9]),Cnil);          V118= make_cons((VV[9]->s.s_dbind),Cnil);
737          bds_bind(VV[15],make_cons((V118),symbol_value(VV[15])));          bds_bind(VV[15],make_cons((V118),(VV[15]->s.s_dbind)));
738          base[3]= list(2,VV[18],(V118));          base[3]= list(2,VV[18],(V118));
739          bds_bind(VV[11],base[3]);          bds_bind(VV[11],base[3]);
740          V119= (*(LnkLI58))(car((V116)));          V119= (*(LnkLI58))(CMPcar((V116)));
741          bds_unwind1;          bds_unwind1;
742          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
743          if((cdr((V118)))==Cnil){          if((CMPcdr((V118)))==Cnil){
744          bds_unwind1;          bds_unwind1;
745          goto T333;}          goto T333;}
746          princ_str("\n   goto T",VV[16]);          princ_str("\n   goto T",VV[16]);
747          (void)((*(LnkLI54))(car((V118))));          (void)((*(LnkLI54))(CMPcar((V118))));
748          princ_char(59,VV[16]);          princ_char(59,VV[16]);
749          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
750          (void)((*(LnkLI54))(car((V118))));          (void)((*(LnkLI54))(CMPcar((V118))));
751          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
752          bds_unwind1;}          bds_unwind1;}
753          goto T333;          goto T333;
754  T333:;  T333:;
755          V116= cdr((V116));          V116= CMPcdr((V116));
756          goto T327;}          goto T327;}
757          }          }
758  }  }
# Line 770  register object V121; Line 764  register object V121;
764  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
765          goto TTL;          goto TTL;
766  TTL:;  TTL:;
767          if(!(endp_prop((V121)))){          if(!(((V121))==Cnil)){
768          goto T374;}          goto T374;}
769          {object V122 = (*(LnkLI47))();          {object V122 = (*(LnkLI47))();
770          VMR9(V122)}          VMR9(V122)}
771          goto T374;          goto T374;
772  T374:;  T374:;
773          if(!(endp_prop(cdr((V121))))){          if(!((CMPcdr((V121)))==Cnil)){
774          goto T377;}          goto T377;}
775          {object V123 = (*(LnkLI46))(car((V121)));          {object V123 = (*(LnkLI46))(CMPcar((V121)));
776          VMR9(V123)}          VMR9(V123)}
777          goto T377;          goto T377;
778  T377:;  T377:;
# Line 793  T377:; Line 787  T377:;
787  static void L10()  static void L10()
788  {register object *base=vs_base;  {register object *base=vs_base;
789          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
790          vs_reserve(VM10);          vs_check;
791          bds_check;          bds_check;
792          {object V126;          {object V126;
         check_arg(1);  
793          V126=(base[0]);          V126=(base[0]);
794          vs_top=sup;          vs_top=sup;
795          goto TTL;          goto TTL;
796  TTL:;  TTL:;
797          {object V127;          {object V127;
798          bds_bind(VV[21],symbol_value(VV[21]));          bds_bind(VV[21],(VV[21]->s.s_dbind));
799          V127= Cnil;          V127= Cnil;
800          {register object V128;          {register object V128;
801          V128= (V126);          V128= (V126);
802          goto T382;          goto T382;
803  T382:;  T382:;
804          if(!(endp_prop(cdr((V128))))){          if(!((CMPcdr((V128)))==Cnil)){
805          goto T383;}          goto T383;}
806          base[2]= car((V128));          base[2]= CMPcar((V128));
807          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
808          (void) (*Lnk55)();          (void) (*Lnk55)();
809          bds_unwind1;          bds_unwind1;
810          return;          return;
811          goto T383;          goto T383;
812  T383:;  T383:;
813          if(!((caar((V128)))==(VV[10]))){          if(!((CMPcaar((V128)))==(VV[10]))){
814          goto T390;}          goto T390;}
815          {object V129= caddar((V128));          {object V129= CMPcaddar((V128));
816          if((V129!= Ct))goto T392;          if((V129!= Ct))goto T392;
817          (void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17])));
818          goto T388;          goto T388;
# Line 830  T392:; Line 823  T392:;
823          goto T393;          goto T393;
824  T393:;  T393:;
825          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
826          (void)((*(LnkLI54))(caddar((V128))));          (void)((*(LnkLI54))(CMPcaddar((V128))));
827          princ_str("!=Cnil){",VV[16]);          princ_str("!=Cnil){",VV[16]);
828          (void)((VFUN_NARGS=2,(*(LnkLI60))(caddar((V128)),VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(CMPcaddar((V128)),VV[17])));
829          princ_char(125,VV[16]);          princ_char(125,VV[16]);
830          goto T388;}          goto T388;}
831          goto T390;          goto T390;
832  T390:;  T390:;
833          if(!((caar((V128)))==(VV[20]))){          if(!((CMPcaar((V128)))==(VV[20]))){
834          goto T401;}          goto T401;}
835          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
836          (void)((*(LnkLI61))(car(caddar((V128))),cadr(caddar((V128)))));          (void)((*(LnkLI61))(CMPcar(CMPcaddar((V128))),CMPcadr(CMPcaddar((V128)))));
837          princ_str("!=Cnil){",VV[16]);          princ_str("!=Cnil){",VV[16]);
838          V130= make_cons(VV[20],caddar((V128)));          V130= make_cons(VV[20],CMPcaddar((V128)));
839          (void)((VFUN_NARGS=2,(*(LnkLI60))(/* INLINE-ARGS */V130,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(/* INLINE-ARGS */V130,VV[17])));
840          princ_char(125,VV[16]);          princ_char(125,VV[16]);
841          goto T388;          goto T388;
842          goto T401;          goto T401;
843  T401:;  T401:;
844          if(!((caar((V128)))==(VV[22]))){          if(!((CMPcaar((V128)))==(VV[22]))){
845          goto T411;}          goto T411;}
846          if((get(caddar((V128)),VV[23],Cnil))==Cnil){          {object V131 =(CMPcaddar((V128)))->s.s_plist;
847             object ind= VV[23];
848            while(V131!=Cnil){
849            if(V131->c.c_car==ind){
850            if(((V131->c.c_cdr->c.c_car))==Cnil){
851          goto T411;}          goto T411;}
852          {register object V131;          goto T414;
853          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          }else V131=V131->c.c_cdr->c.c_cdr;}
854          V131= make_cons(symbol_value(VV[9]),Cnil);          goto T411;}
855          bds_bind(VV[15],make_cons((V131),symbol_value(VV[15])));          goto T414;
856          base[4]= list(2,VV[19],(V131));  T414:;
857            {register object V132;
858            (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
859            V132= make_cons((VV[9]->s.s_dbind),Cnil);
860            bds_bind(VV[15],make_cons((V132),(VV[15]->s.s_dbind)));
861            base[4]= list(2,VV[19],(V132));
862          bds_bind(VV[11],base[4]);          bds_bind(VV[11],base[4]);
863          V132= (*(LnkLI58))(car((V128)));          V133= (*(LnkLI58))(CMPcar((V128)));
864          bds_unwind1;          bds_unwind1;
865          (void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17])));
866          if((cdr((V131)))==Cnil){          if((CMPcdr((V132)))==Cnil){
867          bds_unwind1;          bds_unwind1;
868          goto T388;}          goto T388;}
869          princ_str("\n   goto T",VV[16]);          princ_str("\n   goto T",VV[16]);
870          (void)((*(LnkLI54))(car((V131))));          (void)((*(LnkLI54))(CMPcar((V132))));
871          princ_char(59,VV[16]);          princ_char(59,VV[16]);
872          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
873          (void)((*(LnkLI54))(car((V131))));          (void)((*(LnkLI54))(CMPcar((V132))));
874          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
875          bds_unwind1;          bds_unwind1;
876          goto T388;}          goto T388;}
877          goto T411;          goto T411;
878  T411:;  T411:;
879          {register object V133;          {register object V134;
880          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
881          V133= make_cons(symbol_value(VV[9]),Cnil);          V134= make_cons((VV[9]->s.s_dbind),Cnil);
882          bds_bind(VV[24],small_fixnum(0));          bds_bind(VV[24],small_fixnum(0));
883          bds_bind(VV[15],make_cons((V133),symbol_value(VV[15])));          bds_bind(VV[15],make_cons((V134),(VV[15]->s.s_dbind)));
884          V127= (*(LnkLI62))();          V127= (*(LnkLI62))();
885          bds_bind(VV[11],(V127));          bds_bind(VV[11],(V127));
886          V134= (*(LnkLI58))(car((V128)));          V135= (*(LnkLI58))(CMPcar((V128)));
887          bds_unwind1;          bds_unwind1;
888          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
889          (void)((*(LnkLI54))((V127)));          (void)((*(LnkLI54))((V127)));
890          princ_str("==Cnil)",VV[16]);          princ_str("==Cnil)",VV[16]);
891          if(type_of((V133))!=t_cons)FEwrong_type_argument(Scons,(V133));          ((V134))->c.c_cdr = Ct;
         ((V133))->c.c_cdr = Ct;  
892          princ_str("goto T",VV[16]);          princ_str("goto T",VV[16]);
893          (void)((*(LnkLI54))(car((V133))));          (void)((*(LnkLI54))(CMPcar((V134))));
894          princ_char(59,VV[16]);          princ_char(59,VV[16]);
895          (void)((VFUN_NARGS=2,(*(LnkLI60))((V127),VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))((V127),VV[17])));
896          if((cdr((V133)))==Cnil){          if((CMPcdr((V134)))==Cnil){
897          goto T446;}          goto T446;}
898          princ_str("\n   goto T",VV[16]);          princ_str("\n   goto T",VV[16]);
899          (void)((*(LnkLI54))(car((V133))));          (void)((*(LnkLI54))(CMPcar((V134))));
900          princ_char(59,VV[16]);          princ_char(59,VV[16]);
901          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
902          (void)((*(LnkLI54))(car((V133))));          (void)((*(LnkLI54))(CMPcar((V134))));
903          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
904          goto T446;          goto T446;
905  T446:;  T446:;
906          V135= (*(LnkLI63))();          V136= (*(LnkLI63))();
907          bds_unwind1;          bds_unwind1;
908          bds_unwind1;}          bds_unwind1;}
909          goto T388;          goto T388;
910  T388:;  T388:;
911          V128= cdr((V128));          V128= CMPcdr((V128));
912          goto T382;}}          goto T382;}}
913          }          }
914  }  }
915  /*      local entry for function SET-JUMP-TRUE  */  /*      local entry for function SET-JUMP-TRUE  */
916    
917  static object LI11(V138,V139)  static object LI11(V139,V140)
918    
919  register object V138;object V139;  register object V139;object V140;
920  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
921          goto TTL;          goto TTL;
922  TTL:;  TTL:;
923          if(((V138))==Cnil){          if(((V139))==Cnil){
924          goto T460;}          goto T460;}
925          {object V140;          {object V141;
926          V140= (((V138))==(Ct)?Ct:Cnil);          V141= (((V139))==(Ct)?Ct:Cnil);
927          if(((V140))==Cnil){          if(((V141))==Cnil){
928          goto T465;}          goto T465;}
929          goto T462;          goto T462;
930          goto T465;          goto T465;
931  T465:;  T465:;
932          if(!(type_of((V138))==t_cons)){          if(!(type_of((V139))==t_cons)){
933          goto T468;}          goto T468;}
934          if(!((car((V138)))==(VV[25]))){          if(!((CMPcar((V139)))==(VV[25]))){
935          goto T468;}          goto T468;}
936          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
937          base[0]= caddr((V138));          base[0]= CMPcaddr((V139));
938          base[1]= cadddr((V138));          base[1]= CMPcadddr((V139));
939          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
940          (void) (*Lnk64)();          (void) (*Lnk64)();
941          vs_top=sup;          vs_top=sup;
# Line 943  T465:; Line 944  T465:;
944          goto T468;          goto T468;
945  T468:;  T468:;
946          princ_str("\n   if((",VV[16]);          princ_str("\n   if((",VV[16]);
947          (void)((*(LnkLI54))((V138)));          (void)((*(LnkLI54))((V139)));
948          princ_str(")!=Cnil)",VV[16]);}          princ_str(")!=Cnil)",VV[16]);}
949          goto T462;          goto T462;
950  T462:;  T462:;
951          if(((V138))==(Ct)){          if(((V139))==(Ct)){
952          goto T481;}          goto T481;}
953          princ_char(123,VV[16]);          princ_char(123,VV[16]);
954          goto T481;          goto T481;
955  T481:;  T481:;
956          (void)((*(LnkLI57))((V139)));          (void)((*(LnkLI57))((V140)));
957          princ_str("\n   ",VV[16]);          princ_str("\n   ",VV[16]);
958          if(type_of((V139))!=t_cons)FEwrong_type_argument(Scons,(V139));          ((V140))->c.c_cdr = Ct;
         ((V139))->c.c_cdr = Ct;  
959          princ_str("goto T",VV[16]);          princ_str("goto T",VV[16]);
960          (void)((*(LnkLI54))(car((V139))));          (void)((*(LnkLI54))(CMPcar((V140))));
961          princ_char(59,VV[16]);          princ_char(59,VV[16]);
962          if(((V138))==(Ct)){          if(((V139))==(Ct)){
963          goto T493;}          goto T493;}
964          princ_char(125,VV[16]);          princ_char(125,VV[16]);
         {object V141 = Cnil;  
         VMR11(V141)}  
         goto T493;  
 T493:;  
965          {object V142 = Cnil;          {object V142 = Cnil;
966          VMR11(V142)}          VMR11(V142)}
967          goto T460;          goto T493;
968  T460:;  T493:;
969          {object V143 = Cnil;          {object V143 = Cnil;
970          VMR11(V143)}          VMR11(V143)}
971            goto T460;
972    T460:;
973            {object V144 = Cnil;
974            VMR11(V144)}
975          base[0]=base[0];          base[0]=base[0];
976          return Cnil;          return Cnil;
977  }  }
978  /*      local entry for function SET-JUMP-FALSE */  /*      local entry for function SET-JUMP-FALSE */
979    
980  static object LI12(V146,V147)  static object LI12(V147,V148)
981    
982  register object V146;object V147;  register object V147;object V148;
983  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
984          goto TTL;          goto TTL;
985  TTL:;  TTL:;
986          if(((V146))==(Ct)){          if(((V147))==(Ct)){
987          goto T497;}          goto T497;}
988          {object V148;          {object V149;
989          V148= (((V146))==Cnil?Ct:Cnil);          V149= (((V147))==Cnil?Ct:Cnil);
990          if(((V148))==Cnil){          if(((V149))==Cnil){
991          goto T502;}          goto T502;}
992          goto T499;          goto T499;
993          goto T502;          goto T502;
994  T502:;  T502:;
995          if(!(type_of((V146))==t_cons)){          if(!(type_of((V147))==t_cons)){
996          goto T505;}          goto T505;}
997          if(!((car((V146)))==(VV[25]))){          if(!((CMPcar((V147)))==(VV[25]))){
998          goto T505;}          goto T505;}
999          princ_str("\n   if(!(",VV[16]);          princ_str("\n   if(!(",VV[16]);
1000          base[0]= caddr((V146));          base[0]= CMPcaddr((V147));
1001          base[1]= cadddr((V146));          base[1]= CMPcadddr((V147));
1002          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1003          (void) (*Lnk64)();          (void) (*Lnk64)();
1004          vs_top=sup;          vs_top=sup;
# Line 1007  T502:; Line 1007  T502:;
1007          goto T505;          goto T505;
1008  T505:;  T505:;
1009          princ_str("\n   if((",VV[16]);          princ_str("\n   if((",VV[16]);
1010          (void)((*(LnkLI54))((V146)));          (void)((*(LnkLI54))((V147)));
1011          princ_str(")==Cnil)",VV[16]);}          princ_str(")==Cnil)",VV[16]);}
1012          goto T499;          goto T499;
1013  T499:;  T499:;
1014          if(((V146))==Cnil){          if(((V147))==Cnil){
1015          goto T518;}          goto T518;}
1016          princ_char(123,VV[16]);          princ_char(123,VV[16]);
1017          goto T518;          goto T518;
1018  T518:;  T518:;
1019          (void)((*(LnkLI57))((V147)));          (void)((*(LnkLI57))((V148)));
1020          princ_str("\n   ",VV[16]);          princ_str("\n   ",VV[16]);
1021          if(type_of((V147))!=t_cons)FEwrong_type_argument(Scons,(V147));          ((V148))->c.c_cdr = Ct;
         ((V147))->c.c_cdr = Ct;  
1022          princ_str("goto T",VV[16]);          princ_str("goto T",VV[16]);
1023          (void)((*(LnkLI54))(car((V147))));          (void)((*(LnkLI54))(CMPcar((V148))));
1024          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1025          if(((V146))==Cnil){          if(((V147))==Cnil){
1026          goto T530;}          goto T530;}
1027          princ_char(125,VV[16]);          princ_char(125,VV[16]);
         {object V149 = Cnil;  
         VMR12(V149)}  
         goto T530;  
 T530:;  
1028          {object V150 = Cnil;          {object V150 = Cnil;
1029          VMR12(V150)}          VMR12(V150)}
1030          goto T497;          goto T530;
1031  T497:;  T530:;
1032          {object V151 = Cnil;          {object V151 = Cnil;
1033          VMR12(V151)}          VMR12(V151)}
1034            goto T497;
1035    T497:;
1036            {object V152 = Cnil;
1037            VMR12(V152)}
1038          base[0]=base[0];          base[0]=base[0];
1039          return Cnil;          return Cnil;
1040  }  }
1041  /*      local entry for function C1ECASE        */  /*      local entry for function C1ECASE        */
1042    
1043  static object LI13(V153)  static object LI13(V154)
1044    
1045  object V153;  object V154;
1046  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1047          goto TTL;          goto TTL;
1048  TTL:;  TTL:;
1049          {object V154 = (VFUN_NARGS=2,(*(LnkLI65))((V153),Ct));          {object V155 = (VFUN_NARGS=2,(*(LnkLI65))((V154),Ct));
1050          VMR13(V154)}          VMR13(V155)}
1051          return Cnil;          return Cnil;
1052  }  }
1053  /*      local entry for function CONVERT-CASE-TO-SWITCH */  /*      local entry for function CONVERT-CASE-TO-SWITCH */
1054    
1055  static object LI14(V157,V158)  static object LI14(V158,V159)
1056    
1057  object V157;object V158;  object V158;object V159;
1058  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1059          goto TTL;          goto TTL;
1060  TTL:;  TTL:;
1061          {object V159;          {object V160;
         register object V160;  
1062          register object V161;          register object V161;
1063            register object V162;
1064          vs_base=vs_top;          vs_base=vs_top;
1065          Lgensym();          Lgensym();
1066          vs_top=sup;          vs_top=sup;
1067          V159= vs_base[0];          V160= vs_base[0];
         V160= Cnil;  
1068          V161= Cnil;          V161= Cnil;
1069          {register object V162;          V162= Cnil;
1070          register object V163;          {register object V163;
1071          V162= cdr((V157));          register object V164;
1072          V163= car((V162));          V163= CMPcdr((V158));
1073            V164= CMPcar((V163));
1074          goto T538;          goto T538;
1075  T538:;  T538:;
1076          if(!(endp_prop((V162)))){          if(!(((V163))==Cnil)){
1077          goto T539;}          goto T539;}
1078          goto T534;          goto T534;
1079          goto T539;          goto T539;
1080  T539:;  T539:;
1081          if(!(type_of(car((V163)))==t_fixnum)){          if(!(type_of(CMPcar((V164)))==t_fixnum)){
1082          goto T545;}          goto T545;}
1083          {object V164;          {object V165;
1084          V164= car((V163));          V165= CMPcar((V164));
1085          V160= make_cons((V164),(V160));          V161= make_cons((V165),(V161));
1086          goto T543;}          goto T543;}
1087          goto T545;          goto T545;
1088  T545:;  T545:;
1089          if(!(type_of(car((V163)))==t_cons)){          if(!(type_of(CMPcar((V164)))==t_cons)){
1090          goto T550;}          goto T550;}
1091          {register object V165;          {register object V166;
1092          register object V166;          register object V167;
1093          V165= car((V163));          V166= CMPcar((V164));
1094          V166= car((V165));          V167= CMPcar((V166));
1095          goto T555;          goto T555;
1096  T555:;  T555:;
1097          if(!(endp_prop((V165)))){          if(!(((V166))==Cnil)){
1098          goto T556;}          goto T556;}
1099          goto T543;          goto T543;
1100          goto T556;          goto T556;
1101  T556:;  T556:;
1102          V160= make_cons(V166,(V160));          V161= make_cons(V167,(V161));
1103          V165= cdr((V165));          V166= CMPcdr((V166));
1104          V166= car((V165));          V167= CMPcar((V166));
1105          goto T555;}          goto T555;}
1106          goto T550;          goto T550;
1107  T550:;  T550:;
1108          {register object x= car((V163)),V168= VV[26];          {register object x= CMPcar((V164)),V169= VV[26];
1109          while(!endp(V168))          while(V169!=Cnil)
1110          if(eql(x,V168->c.c_car)){          if(eql(x,V169->c.c_car)){
1111          goto T568;          goto T568;
1112          }else V168=V168->c.c_cdr;          }else V169=V169->c.c_cdr;
1113          goto T543;}          goto T543;}
1114          goto T568;          goto T568;
1115  T568:;  T568:;
1116          if((V158)==Cnil){          if((V159)==Cnil){
1117          goto T569;}          goto T569;}
1118          base[2]= VV[27];          base[2]= VV[27];
1119          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1122  T568:; Line 1121  T568:;
1121          vs_top=sup;          vs_top=sup;
1122          goto T569;          goto T569;
1123  T569:;  T569:;
1124          V160= make_cons(Ct,(V160));          V161= make_cons(Ct,(V161));
1125          goto T543;          goto T543;
1126  T543:;  T543:;
1127          {object V170;          {object V171;
1128          V170= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163))));          V171= list(3,VV[28],(V160),make_cons(VV[29],CMPcdr((V164))));
1129          V160= make_cons((V170),(V160));}          V161= make_cons((V171),(V161));}
1130          V162= cdr((V162));          V163= CMPcdr((V163));
1131          V163= car((V162));          V164= CMPcar((V163));
1132          goto T538;}          goto T538;}
1133          goto T534;          goto T534;
1134  T534:;  T534:;
1135          if(((V158))==Cnil){          if(((V159))==Cnil){
1136          goto T580;}          goto T580;}
1137          V160= make_cons(Ct,(V160));          V161= make_cons(Ct,(V161));
1138          {register object V172;          {register object V173;
1139          object V173;          object V174;
1140          V172= cdr((V157));          V173= CMPcdr((V158));
1141          V173= car((V172));          V174= CMPcar((V173));
1142          goto T589;          goto T589;
1143  T589:;  T589:;
1144          if(!(endp_prop((V172)))){          if(!(((V173))==Cnil)){
1145          goto T590;}          goto T590;}
1146          goto T585;          goto T585;
1147          goto T590;          goto T590;
1148  T590:;  T590:;
1149          if(!(type_of(car((V173)))!=t_cons)){          if(!(type_of(CMPcar((V174)))!=t_cons)){
1150          goto T596;}          goto T596;}
1151          {object V174;          {object V175;
1152          V174= car((V173));          V175= CMPcar((V174));
1153          V161= make_cons((V174),(V161));          V162= make_cons((V175),(V162));
1154          goto T594;}          goto T594;}
1155          goto T596;          goto T596;
1156  T596:;  T596:;
1157          V161= append(car((V173)),(V161));          V162= append(CMPcar((V174)),(V162));
1158          goto T594;          goto T594;
1159  T594:;  T594:;
1160          V172= cdr((V172));          V173= CMPcdr((V173));
1161          V173= car((V172));          V174= CMPcar((V173));
1162          goto T589;}          goto T589;}
1163          goto T585;          goto T585;
1164  T585:;  T585:;
1165          {object V175;          {object V176;
1166          V176= car((V157));          V177= CMPcar((V158));
1167          V175= list(4,VV[30],VV[31],/* INLINE-ARGS */V176,list(2,VV[32],(V161)));          V176= list(4,VV[30],VV[31],/* INLINE-ARGS */V177,list(2,VV[32],(V162)));
1168          V160= make_cons((V175),(V160));}          V161= make_cons((V176),(V161));}
1169          goto T580;          goto T580;
1170  T580:;  T580:;
1171          V177= car((V157));          V178= CMPcar((V158));
1172          {object V178 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V177,nreverse((V160))));          {object V179 = list(3,VV[33],(V160),listA(3,VV[34],/* INLINE-ARGS */V178,nreverse((V161))));
1173          VMR14(V178)}}          VMR14(V179)}}
1174          base[0]=base[0];          base[0]=base[0];
1175          return Cnil;          return Cnil;
1176  }  }
1177  /*      local entry for function C1CASE */  /*      local entry for function C1CASE */
1178    
1179  static object LI15(object V179,object first,...)  static object LI15(object V180,object first,...)
1180  {        {      
1181          va_list ap;          va_list ap;
1182          int narg = VFUN_NARGS; VMB15 VMS15 VMV15          int narg = VFUN_NARGS; VMB15 VMS15 VMV15
1183          {object V180;          {object V181;
1184          register object V181;          register object V182;
1185          va_start(ap,first);          va_start(ap,first);
1186          if(narg <1) too_few_arguments();          V181= V180;
         V180= V179;  
1187          narg = narg - 1;          narg = narg - 1;
1188          if (narg <= 0) goto T608;          if (narg <= 0) goto T608;
1189          else {          else {
1190          V181= first;}          V182= first;}
1191          --narg; goto T609;          --narg; goto T609;
1192          goto T608;          goto T608;
1193  T608:;  T608:;
1194          V181= Cnil;          V182= Cnil;
1195          goto T609;          goto T609;
1196  T609:;  T609:;
1197          if(!(endp_prop((V180)))){          if(!(((V181))==Cnil)){
1198          goto T611;}          goto T611;}
1199          (void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0)));
1200          goto T611;          goto T611;
1201  T611:;  T611:;
1202          {register object V182;          {register object V183;
         object V183;  
1203          object V184;          object V184;
1204          V182= (VFUN_NARGS=0,(*(LnkLI48))());          object V185;
1205          V183= (*(LnkLI50))(car((V180)),(V182));          V183= (VFUN_NARGS=0,(*(LnkLI48))());
1206          V184= Cnil;          V184= (*(LnkLI50))(CMPcar((V181)),(V183));
1207          base[2]= structure_ref(cadr((V183)),VV[36],2);          V185= Cnil;
1208            base[2]= STREF(object,CMPcadr((V184)),8);
1209          base[3]= VV[37];          base[3]= VV[37];
1210          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1211          (void) (*Lnk67)();          (void) (*Lnk67)();
1212          vs_top=sup;          vs_top=sup;
1213          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1214          goto T617;}          goto T617;}
1215          V185= (*(LnkLI68))((V180),(V181));          V186= (*(LnkLI68))((V181),(V182));
1216          {object V186 = (*(LnkLI46))(/* INLINE-ARGS */V185);          {object V187 = (*(LnkLI46))(/* INLINE-ARGS */V186);
1217          VMR15(V186)}          VMR15(V187)}
1218          goto T617;          goto T617;
1219  T617:;  T617:;
1220          {register object V187;          {register object V188;
1221          register object V188;          register object V189;
1222          V187= cdr((V180));          V188= CMPcdr((V181));
1223          V188= car((V187));          V189= CMPcar((V188));
1224          goto T626;          goto T626;
1225  T626:;  T626:;
1226          if(!(endp_prop((V187)))){          if(!(((V188))==Cnil)){
1227          goto T627;}          goto T627;}
1228          goto T622;          goto T622;
1229          goto T627;          goto T627;
1230  T627:;  T627:;
1231          if(!(endp_prop((V188)))){          if(!(((V189))==Cnil)){
1232          goto T631;}          goto T631;}
1233          (void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V188))));          (void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V189))));
1234          goto T631;          goto T631;
1235  T631:;  T631:;
1236          {object V189= car((V188));          {object V190= CMPcar((V189));
1237          if((V189!= Cnil))goto T635;          if((V190!= Cnil))goto T635;
1238          goto T634;          goto T634;
1239          goto T635;          goto T635;
1240  T635:;  T635:;
1241          if((V189!= Ct)          if((V190!= Ct)
1242          && (V189!= VV[70]))goto T636;          && (V190!= VV[70]))goto T636;
1243          if(((V181))==Cnil){          if(((V182))==Cnil){
1244          goto T637;}          goto T637;}
1245          if(!(((V181))==(Ct))){          if(!(((V182))==(Ct))){
1246          goto T642;}          goto T642;}
1247          V190= VV[39];          V191= VV[39];
1248          goto T640;          goto T640;
1249          goto T642;          goto T642;
1250  T642:;  T642:;
1251          V190= VV[40];          V191= VV[40];
1252          goto T640;          goto T640;
1253  T640:;  T640:;
1254          (void)((VFUN_NARGS=1,(*(LnkLI69))(V190)));          (void)((VFUN_NARGS=1,(*(LnkLI69))(V191)));
1255          goto T637;          goto T637;
1256  T637:;  T637:;
1257          V181= (*(LnkLI71))(cdr((V188)));          V182= (*(LnkLI71))(CMPcdr((V189)));
1258          (void)((*(LnkLI72))((V182),cadr((V181))));          (void)((*(LnkLI72))((V183),CMPcadr((V182))));
1259          goto T634;          goto T634;
1260          goto T636;          goto T636;
1261  T636:;  T636:;
1262          {object V191;          {object V192;
1263          register object V192;          register object V193;
1264          if(!(type_of(car((V188)))==t_cons)){          if(!(type_of(CMPcar((V189)))==t_cons)){
1265          goto T648;}          goto T648;}
1266          {object V193;          {object V194;
1267          object V194= car((V188));          object V195= CMPcar((V189));
1268          if(endp(V194)){          if(V195==Cnil){
1269          V191= Cnil;          V192= Cnil;
1270          goto T646;}          goto T646;}
1271          base[6]=V193=MMcons(Cnil,Cnil);          base[6]=V194=MMcons(Cnil,Cnil);
1272          goto T650;          goto T650;
1273  T650:;  T650:;
1274          {register object V195;          {register object V196;
1275          V195= (V194->c.c_car);          V196= (V195->c.c_car);
1276          if(!(type_of((V195))==t_symbol)){          if(!(type_of((V196))==t_symbol)){
1277          goto T653;}          goto T653;}
1278          (V193->c.c_car)= (V195);          (V194->c.c_car)= (V196);
1279          goto T651;          goto T651;
1280          goto T653;          goto T653;
1281  T653:;  T653:;
1282          (V193->c.c_car)= (*(LnkLI73))((V195));}          (V194->c.c_car)= (*(LnkLI73))((V196));}
1283          goto T651;          goto T651;
1284  T651:;  T651:;
1285          V194=MMcdr(V194);          if((V195=MMcdr(V195))==Cnil){
1286          if(endp(V194)){          V192= base[6];
         V191= base[6];  
1287          goto T646;}          goto T646;}
1288          V193=MMcdr(V193)=MMcons(Cnil,Cnil);          V194=MMcdr(V194)=MMcons(Cnil,Cnil);
1289          goto T650;}          goto T650;}
1290          goto T648;          goto T648;
1291  T648:;  T648:;
1292          if(!(type_of(car((V188)))==t_symbol)){          if(!(type_of(CMPcar((V189)))==t_symbol)){
1293          goto T656;}          goto T656;}
1294          V191= make_cons(car((V188)),Cnil);          V192= make_cons(CMPcar((V189)),Cnil);
1295          goto T646;          goto T646;
1296          goto T656;          goto T656;
1297  T656:;  T656:;
1298          V196= (*(LnkLI73))(car((V188)));          V197= (*(LnkLI73))(CMPcar((V189)));
1299          V191= make_cons(/* INLINE-ARGS */V196,Cnil);          V192= make_cons(/* INLINE-ARGS */V197,Cnil);
1300          goto T646;          goto T646;
1301  T646:;  T646:;
1302          V192= (*(LnkLI71))(cdr((V188)));          V193= (*(LnkLI71))(CMPcdr((V189)));
1303          (void)((*(LnkLI72))((V182),cadr((V192))));          (void)((*(LnkLI72))((V183),CMPcadr((V193))));
1304          {object V197;          {object V198;
1305          V197= make_cons((V191),(V192));          V198= make_cons((V192),(V193));
1306          V184= make_cons((V197),(V184));}}}          V185= make_cons((V198),(V185));}}}
1307          goto T634;          goto T634;
1308  T634:;  T634:;
1309          V187= cdr((V187));          V188= CMPcdr((V188));
1310          V188= car((V187));          V189= CMPcar((V188));
1311          goto T626;}          goto T626;}
1312          goto T622;          goto T622;
1313  T622:;  T622:;
1314          V198= reverse((V184));          V199= reverse((V185));
1315          if((V181)!=Cnil){          if((V182)!=Cnil){
1316          V199= (V181);          V200= (V182);
1317          goto T667;}          goto T667;}
1318          V199= (*(LnkLI47))();          V200= (*(LnkLI47))();
1319          goto T667;          goto T667;
1320  T667:;  T667:;
1321          {object V200 = list(5,VV[35],(V182),(V183),/* INLINE-ARGS */V198,V199);          {object V201 = list(5,VV[35],(V183),(V184),/* INLINE-ARGS */V199,V200);
1322          VMR15(V200)}}          VMR15(V201)}}
1323          va_end(ap);          va_end(ap);
1324          base[0]=base[0];          base[0]=base[0];
1325          return Cnil;}          return Cnil;}
1326          }          }
1327  /*      local entry for function C2CASE */  /*      local entry for function C2CASE */
1328    
1329  static object LI16(V204,V205,V206)  static object LI16(V205,V206,V207)
1330    
1331  object V204;object V205;object V206;  object V205;object V206;object V207;
1332  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1333          bds_check;          bds_check;
1334          goto TTL;          goto TTL;
1335  TTL:;  TTL:;
1336          {register object V207;          {register object V208;
1337          setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1)));          (VV[41]->s.s_dbind)= number_plus((VV[41]->s.s_dbind),small_fixnum(1));
1338          V207= symbol_value(VV[41]);          V208= (VV[41]->s.s_dbind);
1339          bds_bind(VV[21],symbol_value(VV[21]));          bds_bind(VV[21],(VV[21]->s.s_dbind));
1340          bds_bind(VV[24],small_fixnum(0));          bds_bind(VV[24],small_fixnum(0));
1341          V208= make_cons((V204),Cnil);          V209= make_cons((V205),Cnil);
1342          V209= (VFUN_NARGS=2,(*(LnkLI74))(/* INLINE-ARGS */V208,VV[42]));          V210= (VFUN_NARGS=2,(*(LnkLI74))(/* INLINE-ARGS */V209,VV[42]));
1343          V204= car(/* INLINE-ARGS */V209);          V205= CMPcar(/* INLINE-ARGS */V210);
1344          princ_str("\n   {object V",VV[16]);          princ_str("\n   {object V",VV[16]);
1345          (void)((*(LnkLI54))((V207)));          (void)((*(LnkLI54))((V208)));
1346          princ_str("= ",VV[16]);          princ_str("= ",VV[16]);
1347          (void)((*(LnkLI54))((V204)));          (void)((*(LnkLI54))((V205)));
1348          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1349          {object V210;          {object V211;
1350          object V211;          object V212;
1351          V210= (V205);          V211= (V206);
1352          V211= car((V210));          V212= CMPcar((V211));
1353          goto T682;          goto T682;
1354  T682:;  T682:;
1355          if(!(endp_prop((V210)))){          if(!(((V211))==Cnil)){
1356          goto T683;}          goto T683;}
1357          goto T678;          goto T678;
1358          goto T683;          goto T683;
1359  T683:;  T683:;
1360          {object V212;          {object V213;
         register object V213;  
1361          register object V214;          register object V214;
1362          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          register object V215;
1363          V212= make_cons(symbol_value(VV[9]),Cnil);          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
1364          V213= car((V211));          V213= make_cons((VV[9]->s.s_dbind),Cnil);
1365          V214= Cnil;          V214= CMPcar((V212));
1366            V215= Cnil;
1367          goto T694;          goto T694;
1368  T694:;  T694:;
1369          if(!(((long)length((V213)))<=(5))){          if(!(((long)length((V214)))<=(5))){
1370          goto T695;}          goto T695;}
1371          goto T692;          goto T692;
1372          goto T695;          goto T695;
1373  T695:;  T695:;
1374          if(((V214))!=Cnil){          if(((V215))!=Cnil){
1375          goto T699;}          goto T699;}
1376          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
1377          V214= make_cons(symbol_value(VV[9]),Cnil);          V215= make_cons((VV[9]->s.s_dbind),Cnil);
1378          goto T699;          goto T699;
1379  T699:;  T699:;
1380          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
1381          {register object V216;          {register object V217;
1382          V216= small_fixnum(0);          V217= small_fixnum(0);
1383          goto T709;          goto T709;
1384  T709:;  T709:;
1385          if(!(number_compare((V216),small_fixnum(5))>=0)){          if(!(number_compare((V217),small_fixnum(5))>=0)){
1386          goto T710;}          goto T710;}
1387          goto T706;          goto T706;
1388          goto T710;          goto T710;
1389  T710:;  T710:;
1390          if(!(type_of(car((V213)))==t_symbol)){          if(!(type_of(CMPcar((V214)))==t_symbol)){
1391          goto T716;}          goto T716;}
1392          princ_str("(V",VV[16]);          princ_str("(V",VV[16]);
1393          (void)((*(LnkLI54))((V207)));          (void)((*(LnkLI54))((V208)));
1394          princ_str("== ",VV[16]);          princ_str("== ",VV[16]);
1395          {object V217= car((V213));          {object V218= CMPcar((V214));
1396          if((V217!= Ct))goto T723;          if((V218!= Ct))goto T723;
1397          princ_str("Ct",VV[16]);          princ_str("Ct",VV[16]);
1398          goto T722;          goto T722;
1399          goto T723;          goto T723;
1400  T723:;  T723:;
1401          if((V217!= Cnil))goto T725;          if((V218!= Cnil))goto T725;
1402          princ_str("Cnil",VV[16]);          princ_str("Cnil",VV[16]);
1403          goto T722;          goto T722;
1404          goto T725;          goto T725;
1405  T725:;  T725:;
1406          princ_str("VV[",VV[16]);          princ_str("VV[",VV[16]);
1407          V218= (*(LnkLI75))(car((V213)));          V219= (*(LnkLI75))(CMPcar((V214)));
1408          (void)((*(LnkLI54))(/* INLINE-ARGS */V218));          (void)((*(LnkLI54))(/* INLINE-ARGS */V219));
1409          princ_char(93,VV[16]);}          princ_char(93,VV[16]);}
1410          goto T722;          goto T722;
1411  T722:;  T722:;
# Line 1417  T722:; Line 1414  T722:;
1414          goto T716;          goto T716;
1415  T716:;  T716:;
1416          princ_str("eql(V",VV[16]);          princ_str("eql(V",VV[16]);
1417          (void)((*(LnkLI54))((V207)));          (void)((*(LnkLI54))((V208)));
1418          princ_str(",VV[",VV[16]);          princ_str(",VV[",VV[16]);
1419          (void)((*(LnkLI54))(car((V213))));          (void)((*(LnkLI54))(CMPcar((V214))));
1420          princ_str("])",VV[16]);          princ_str("])",VV[16]);
1421          goto T714;          goto T714;
1422  T714:;  T714:;
1423          if(!(number_compare((V216),small_fixnum(4))<0)){          if(!(number_compare((V217),small_fixnum(4))<0)){
1424          goto T736;}          goto T736;}
1425          princ_str("\n   || ",VV[16]);          princ_str("\n   || ",VV[16]);
1426          goto T736;          goto T736;
1427  T736:;  T736:;
1428          {object V219;          {object V220;
1429          V219= car((V213));          V220= CMPcar((V214));
1430          V213= cdr((V213));}          V214= CMPcdr((V214));}
1431          V216= one_plus((V216));          V217= one_plus((V217));
1432          goto T709;}          goto T709;}
1433          goto T706;          goto T706;
1434  T706:;  T706:;
1435          princ_char(41,VV[16]);          princ_char(41,VV[16]);
1436          if(type_of((V214))!=t_cons)FEwrong_type_argument(Scons,(V214));          ((V215))->c.c_cdr = Ct;
         ((V214))->c.c_cdr = Ct;  
1437          princ_str("goto T",VV[16]);          princ_str("goto T",VV[16]);
1438          (void)((*(LnkLI54))(car((V214))));          (void)((*(LnkLI54))(CMPcar((V215))));
1439          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1440          goto T694;          goto T694;
1441          goto T692;          goto T692;
# Line 1447  T692:; Line 1443  T692:;
1443          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
1444          goto T760;          goto T760;
1445  T760:;  T760:;
1446          if(!(endp_prop((V213)))){          if(!(((V214))==Cnil)){
1447          goto T761;}          goto T761;}
1448          goto T758;          goto T758;
1449          goto T761;          goto T761;
1450  T761:;  T761:;
1451          if(!(type_of(car((V213)))==t_symbol)){          if(!(type_of(CMPcar((V214)))==t_symbol)){
1452          goto T767;}          goto T767;}
1453          princ_str("(V",VV[16]);          princ_str("(V",VV[16]);
1454          (void)((*(LnkLI54))((V207)));          (void)((*(LnkLI54))((V208)));
1455          princ_str("!= ",VV[16]);          princ_str("!= ",VV[16]);
1456          {object V220= car((V213));          {object V221= CMPcar((V214));
1457          if((V220!= Ct))goto T774;          if((V221!= Ct))goto T774;
1458          princ_str("Ct",VV[16]);          princ_str("Ct",VV[16]);
1459          goto T773;          goto T773;
1460          goto T774;          goto T774;
1461  T774:;  T774:;
1462          if((V220!= Cnil))goto T776;          if((V221!= Cnil))goto T776;
1463          princ_str("Cnil",VV[16]);          princ_str("Cnil",VV[16]);
1464          goto T773;          goto T773;
1465          goto T776;          goto T776;
1466  T776:;  T776:;
1467          princ_str("VV[",VV[16]);          princ_str("VV[",VV[16]);
1468          V221= (*(LnkLI75))(car((V213)));          V222= (*(LnkLI75))(CMPcar((V214)));
1469          (void)((*(LnkLI54))(/* INLINE-ARGS */V221));          (void)((*(LnkLI54))(/* INLINE-ARGS */V222));
1470          princ_char(93,VV[16]);}          princ_char(93,VV[16]);}
1471          goto T773;          goto T773;
1472  T773:;  T773:;
# Line 1479  T773:; Line 1475  T773:;
1475          goto T767;          goto T767;
1476  T767:;  T767:;
1477          princ_str("!eql(V",VV[16]);          princ_str("!eql(V",VV[16]);
1478          (void)((*(LnkLI54))((V207)));          (void)((*(LnkLI54))((V208)));
1479          princ_str(",VV[",VV[16]);          princ_str(",VV[",VV[16]);
1480          (void)((*(LnkLI54))(car((V213))));          (void)((*(LnkLI54))(CMPcar((V214))));
1481          princ_str("])",VV[16]);          princ_str("])",VV[16]);
1482          goto T765;          goto T765;
1483  T765:;  T765:;
1484          if(endp_prop(cdr((V213)))){          if((CMPcdr((V214)))==Cnil){
1485          goto T787;}          goto T787;}
1486          princ_str("\n   && ",VV[16]);          princ_str("\n   && ",VV[16]);
1487          goto T787;          goto T787;
1488  T787:;  T787:;
1489          {object V222;          {object V223;
1490          V222= car((V213));          V223= CMPcar((V214));
1491          V213= cdr((V213));}          V214= CMPcdr((V214));}
1492          goto T760;          goto T760;
1493          goto T758;          goto T758;
1494  T758:;  T758:;
1495          princ_char(41,VV[16]);          princ_char(41,VV[16]);
1496          if(type_of((V212))!=t_cons)FEwrong_type_argument(Scons,(V212));          ((V213))->c.c_cdr = Ct;
         ((V212))->c.c_cdr = Ct;  
1497          princ_str("goto T",VV[16]);          princ_str("goto T",VV[16]);
1498          (void)((*(LnkLI54))(car((V212))));          (void)((*(LnkLI54))(CMPcar((V213))));
1499          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1500          if(((V214))==Cnil){          if(((V215))==Cnil){
1501          goto T804;}          goto T804;}
1502          if((cdr((V214)))==Cnil){          if((CMPcdr((V215)))==Cnil){
1503          goto T804;}          goto T804;}
1504          princ_str("\n   goto T",VV[16]);          princ_str("\n   goto T",VV[16]);
1505          (void)((*(LnkLI54))(car((V214))));          (void)((*(LnkLI54))(CMPcar((V215))));
1506          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1507          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
1508          (void)((*(LnkLI54))(car((V214))));          (void)((*(LnkLI54))(CMPcar((V215))));
1509          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
1510          goto T804;          goto T804;
1511  T804:;  T804:;
1512          base[6]= make_cons(VV[17],symbol_value(VV[15]));          base[6]= make_cons(VV[17],(VV[15]->s.s_dbind));
1513          bds_bind(VV[15],base[6]);          bds_bind(VV[15],base[6]);
1514          base[7]= cdr((V211));          base[7]= CMPcdr((V212));
1515          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1516          (void) (*Lnk55)();          (void) (*Lnk55)();
1517          vs_top=sup;          vs_top=sup;
1518          bds_unwind1;          bds_unwind1;
1519          if((cdr((V212)))==Cnil){          if((CMPcdr((V213)))==Cnil){
1520          goto T687;}          goto T687;}
1521          princ_str("\n   goto T",VV[16]);          princ_str("\n   goto T",VV[16]);
1522          (void)((*(LnkLI54))(car((V212))));          (void)((*(LnkLI54))(CMPcar((V213))));
1523          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1524          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
1525          (void)((*(LnkLI54))(car((V212))));          (void)((*(LnkLI54))(CMPcar((V213))));
1526          princ_str(":;",VV[16]);}          princ_str(":;",VV[16]);}
1527          goto T687;          goto T687;
1528  T687:;  T687:;
1529          V210= cdr((V210));          V211= CMPcdr((V211));
1530          V211= car((V210));          V212= CMPcar((V211));
1531          goto T682;}          goto T682;}
1532          goto T678;          goto T678;
1533  T678:;  T678:;
1534          if(!(((V206))==(Ct))){          if(!(((V207))==(Ct))){
1535          goto T835;}          goto T835;}
1536          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]);
1537          (void)((*(LnkLI54))((V207)));          (void)((*(LnkLI54))((V208)));
1538          princ_str(");",VV[16]);          princ_str(");",VV[16]);
1539          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
1540          goto T833;          goto T833;
1541          goto T835;          goto T835;
1542  T835:;  T835:;
1543          base[3]= (V206);          base[3]= (V207);
1544          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1545          (void) (*Lnk55)();          (void) (*Lnk55)();
1546          vs_top=sup;          vs_top=sup;
1547          goto T833;          goto T833;
1548  T833:;  T833:;
1549          princ_char(125,VV[16]);          princ_char(125,VV[16]);
1550          {object V223 = (*(LnkLI63))();          {object V224 = (*(LnkLI63))();
1551          bds_unwind1;          bds_unwind1;
1552          bds_unwind1;          bds_unwind1;
1553          VMR16(V223)}}          VMR16(V224)}}
1554          base[0]=base[0];          base[0]=base[0];
1555          return Cnil;          return Cnil;
1556  }  }

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

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