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

Diff of /gcl/cmpnew/cmptype.c

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

revision 1.3 by camm, Thu Jan 31 19:17:46 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "cmptype.h"  #include "cmptype.h"
4  init_cmptype(){do_init(VV);}  void init_cmptype(){do_init(VV);}
5  /*      local entry for function OBJECT-TYPE    */  /*      local entry for function OBJECT-TYPE    */
6    
7  static object LI1(V2)  static object LI1(V2)
8    
9  object V2;  object V2;
10  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
11    goto TTL;
12  TTL:;  TTL:;
13          {object V3;          {object V3;
14          base[0]= (V2);          base[0]= (V2);
# Line 21  TTL:; Line 22  TTL:;
22          && (V4!= VV[3]))goto T3;          && (V4!= VV[3]))goto T3;
23          {object V5 = (V3);          {object V5 = (V3);
24          VMR1(V5)}          VMR1(V5)}
25    goto T3;
26  T3:;  T3:;
27          if((V4!= VV[38])          if((V4!= VV[38])
28          && (V4!= VV[51])          && (V4!= VV[51])
29          && (V4!= VV[0]))goto T4;          && (V4!= VV[0]))goto T4;
30          {object V6 = VV[0];          {object V6 = VV[0];
31          VMR1(V6)}          VMR1(V6)}
32    goto T4;
33  T4:;  T4:;
34          if((V4!= VV[5])          if((V4!= VV[5])
35          && (V4!= VV[6]))goto T5;          && (V4!= VV[6]))goto T5;
36          {object V7 = (V3);          {object V7 = (V3);
37          VMR1(V7)}          VMR1(V7)}
38    goto T5;
39  T5:;  T5:;
40          if((V4!= VV[1]))goto T6;          if((V4!= VV[1]))goto T6;
41          base[0]= (V2);          base[0]= (V2);
# Line 41  T5:; Line 45  T5:;
45          V8= vs_base[0];          V8= vs_base[0];
46          {object V9 = list(2,VV[1],V8);          {object V9 = list(2,VV[1],V8);
47          VMR1(V9)}          VMR1(V9)}
48    goto T6;
49  T6:;  T6:;
50          if((V4!= VV[2]))goto T9;          if((V4!= VV[2]))goto T9;
51          base[0]= (V2);          base[0]= (V2);
# Line 50  T6:; Line 55  T6:;
55          V10= vs_base[0];          V10= vs_base[0];
56          {object V11 = list(2,VV[2],V10);          {object V11 = list(2,VV[2],V10);
57          VMR1(V11)}          VMR1(V11)}
58    goto T9;
59  T9:;  T9:;
60          {object V12 = Ct;          {object V12 = Ct;
61          VMR1(V12)}}}          VMR1(V12)}}}
62            base[0]=base[0];
63            return Cnil;
64  }  }
65  /*      local entry for function TYPE-FILTER    */  /*      local entry for function TYPE-FILTER    */
66    
# Line 60  static object LI2(V14) Line 68  static object LI2(V14)
68    
69  object V14;  object V14;
70  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
71    goto TTL;
72  TTL:;  TTL:;
73          {object V15= (V14);          {object V15= (V14);
74          if((V15!= VV[10])          if((V15!= VV[10])
# Line 68  TTL:; Line 77  TTL:;
77          && (V15!= VV[3]))goto T12;          && (V15!= VV[3]))goto T12;
78          {object V16 = (V14);          {object V16 = (V14);
79          VMR2(V16)}          VMR2(V16)}
80    goto T12;
81  T12:;  T12:;
82          if((V15!= VV[52]))goto T13;          if((V15!= VV[52]))goto T13;
83          {object V17 = VV[3];          {object V17 = VV[3];
84          VMR2(V17)}          VMR2(V17)}
85    goto T13;
86  T13:;  T13:;
87          if((V15!= VV[4]))goto T14;          if((V15!= VV[4]))goto T14;
88          {object V18 = VV[4];          {object V18 = VV[4];
89          VMR2(V18)}          VMR2(V18)}
90    goto T14;
91  T14:;  T14:;
92          if((V15!= VV[53]))goto T15;          if((V15!= VV[53]))goto T15;
93          {object V19 = VV[3];          {object V19 = VV[3];
94          VMR2(V19)}          VMR2(V19)}
95    goto T15;
96  T15:;  T15:;
97          if((V15!= VV[54])          if((V15!= VV[54])
98          && (V15!= VV[5]))goto T16;          && (V15!= VV[5]))goto T16;
99          {object V20 = VV[5];          {object V20 = VV[5];
100          VMR2(V20)}          VMR2(V20)}
101    goto T16;
102  T16:;  T16:;
103          if((V15!= VV[55])          if((V15!= VV[55])
104          && (V15!= VV[6]))goto T17;          && (V15!= VV[6]))goto T17;
105          {object V21 = VV[6];          {object V21 = VV[6];
106          VMR2(V21)}          VMR2(V21)}
107    goto T17;
108  T17:;  T17:;
109          if((V15!= Cnil)          if((V15!= Cnil)
110          && (V15!= Ct))goto T18;          && (V15!= Ct))goto T18;
111          {object V22 = Ct;          {object V22 = Ct;
112          VMR2(V22)}          VMR2(V22)}
113    goto T18;
114  T18:;  T18:;
115          {register object V23;          {register object V23;
116          register object V24;          register object V24;
# Line 109  T18:; Line 125  T18:;
125          goto T28;}          goto T28;}
126          V24= Cnil;          V24= Cnil;
127          goto T26;          goto T26;
128    goto T28;
129  T28:;  T28:;
130          {object V26;          {object V26;
131          V26= (*(LnkLI58))(cadr((V23)));          V26= (*(LnkLI58))(cadr((V23)));
# Line 116  T28:; Line 133  T28:;
133          goto T32;}          goto T32;}
134          V24= (V26);          V24= (V26);
135          goto T26;          goto T26;
136    goto T32;
137  T32:;  T32:;
138          V24= Ct;}          V24= Ct;}
139    goto T26;
140  T26:;  T26:;
141          if(((V24))!=Cnil){          if(((V24))!=Cnil){
142          goto T22;}          goto T22;}
143    goto T21;
144  T21:;  T21:;
145          {object V27 = Ct;          {object V27 = Ct;
146          VMR2(V27)}          VMR2(V27)}
147    goto T22;
148  T22:;  T22:;
149          if(endp(cddr((V23)))){          if(endp(cddr((V23)))){
150          goto T35;}          goto T35;}
# Line 135  T22:; Line 156  T22:;
156          goto T35;}          goto T35;}
157          if(!((length(caddr((V23))))==(1))){          if(!((length(caddr((V23))))==(1))){
158          goto T35;}          goto T35;}
159    goto T34;
160  T34:;  T34:;
161          {object V28= (V24);          {object V28= (V24);
162          if((V28!= VV[38]))goto T45;          if((V28!= VV[38]))goto T45;
163          {object V29 = VV[5];          {object V29 = VV[5];
164          VMR2(V29)}          VMR2(V29)}
165    goto T45;
166  T45:;  T45:;
167          if((V28!= VV[39]))goto T46;          if((V28!= VV[39]))goto T46;
168          {object V30 = VV[6];          {object V30 = VV[6];
169          VMR2(V30)}          VMR2(V30)}
170    goto T46;
171  T46:;  T46:;
172          {object V31 = list(2,VV[1],(V24));          {object V31 = list(2,VV[1],(V24));
173          VMR2(V31)}}          VMR2(V31)}}
174    goto T35;
175  T35:;  T35:;
176          {object V32 = list(2,VV[2],(V24));          {object V32 = list(2,VV[2],(V24));
177          VMR2(V32)}          VMR2(V32)}
178    goto T20;
179  T20:;  T20:;
180          if((V25!= VV[11]))goto T47;          if((V25!= VV[11]))goto T47;
181          V33= cdr((V23));          V33= cdr((V23));
# Line 158  T20:; Line 184  T20:;
184          goto T49;}          goto T49;}
185          {object V35 = VV[10];          {object V35 = VV[10];
186          VMR2(V35)}          VMR2(V35)}
187    goto T49;
188  T49:;  T49:;
189          {object V36 = VV[11];          {object V36 = VV[11];
190          VMR2(V36)}          VMR2(V36)}
191    goto T47;
192  T47:;  T47:;
193          if((V25!= VV[12]))goto T51;          if((V25!= VV[12]))goto T51;
194          {object V37 = VV[12];          {object V37 = VV[12];
195          VMR2(V37)}          VMR2(V37)}
196    goto T51;
197  T51:;  T51:;
198          if((V25!= VV[3])          if((V25!= VV[3])
199          && (V25!= VV[53])          && (V25!= VV[53])
200          && (V25!= VV[52]))goto T52;          && (V25!= VV[52]))goto T52;
201          {object V38 = VV[3];          {object V38 = VV[3];
202          VMR2(V38)}          VMR2(V38)}
203    goto T52;
204  T52:;  T52:;
205          if((V25!= VV[13]))goto T53;          if((V25!= VV[13]))goto T53;
206          {object V39 = VV[13];          {object V39 = VV[13];
207          VMR2(V39)}          VMR2(V39)}
208    goto T53;
209  T53:;  T53:;
210          base[0]= (V23);          base[0]= (V23);
211          base[1]= VV[10];          base[1]= VV[10];
# Line 185  T53:; Line 216  T53:;
216          goto T55;}          goto T55;}
217          {object V40 = VV[10];          {object V40 = VV[10];
218          VMR2(V40)}          VMR2(V40)}
219    goto T55;
220  T55:;  T55:;
221          base[0]= (V23);          base[0]= (V23);
222          base[1]= VV[11];          base[1]= VV[11];
# Line 195  T55:; Line 227  T55:;
227          goto T60;}          goto T60;}
228          {object V41 = VV[11];          {object V41 = VV[11];
229          VMR2(V41)}          VMR2(V41)}
230    goto T60;
231  T60:;  T60:;
232          base[0]= (V23);          base[0]= (V23);
233          base[1]= VV[0];          base[1]= VV[0];
# Line 205  T60:; Line 238  T60:;
238          goto T65;}          goto T65;}
239          {object V42 = VV[0];          {object V42 = VV[0];
240          VMR2(V42)}          VMR2(V42)}
241    goto T65;
242  T65:;  T65:;
243          base[0]= (V23);          base[0]= (V23);
244          base[1]= VV[12];          base[1]= VV[12];
# Line 215  T65:; Line 249  T65:;
249          goto T70;}          goto T70;}
250          {object V43 = VV[12];          {object V43 = VV[12];
251          VMR2(V43)}          VMR2(V43)}
252    goto T70;
253  T70:;  T70:;
254          base[0]= (V23);          base[0]= (V23);
255          base[1]= VV[3];          base[1]= VV[3];
# Line 225  T70:; Line 260  T70:;
260          goto T75;}          goto T75;}
261          {object V44 = VV[3];          {object V44 = VV[3];
262          VMR2(V44)}          VMR2(V44)}
263    goto T75;
264  T75:;  T75:;
265          base[0]= (V23);          base[0]= (V23);
266          base[1]= VV[14];          base[1]= VV[14];
# Line 235  T75:; Line 271  T75:;
271          goto T80;}          goto T80;}
272          {object V45 = VV[15];          {object V45 = VV[15];
273          VMR2(V45)}          VMR2(V45)}
274    goto T80;
275  T80:;  T80:;
276          base[0]= (V23);          base[0]= (V23);
277          base[1]= VV[5];          base[1]= VV[5];
# Line 245  T80:; Line 282  T80:;
282          goto T85;}          goto T85;}
283          {object V46 = VV[5];          {object V46 = VV[5];
284          VMR2(V46)}          VMR2(V46)}
285    goto T85;
286  T85:;  T85:;
287          base[0]= (V23);          base[0]= (V23);
288          base[1]= VV[6];          base[1]= VV[6];
# Line 255  T85:; Line 293  T85:;
293          goto T90;}          goto T90;}
294          {object V47 = VV[6];          {object V47 = VV[6];
295          VMR2(V47)}          VMR2(V47)}
296    goto T90;
297  T90:;  T90:;
298          base[0]= (V23);          base[0]= (V23);
299          base[1]= VV[16];          base[1]= VV[16];
# Line 265  T90:; Line 304  T90:;
304          goto T95;}          goto T95;}
305          {object V48 = VV[17];          {object V48 = VV[17];
306          VMR2(V48)}          VMR2(V48)}
307    goto T95;
308  T95:;  T95:;
309          base[0]= (V23);          base[0]= (V23);
310          base[1]= VV[18];          base[1]= VV[18];
# Line 275  T95:; Line 315  T95:;
315          goto T100;}          goto T100;}
316          {object V49 = VV[19];          {object V49 = VV[19];
317          VMR2(V49)}          VMR2(V49)}
318    goto T100;
319  T100:;  T100:;
320          base[0]= (V23);          base[0]= (V23);
321          base[1]= VV[20];          base[1]= VV[20];
# Line 285  T100:; Line 326  T100:;
326          goto T105;}          goto T105;}
327          {object V50 = VV[21];          {object V50 = VV[21];
328          VMR2(V50)}          VMR2(V50)}
329    goto T105;
330  T105:;  T105:;
331          base[0]= (V23);          base[0]= (V23);
332          base[1]= VV[22];          base[1]= VV[22];
# Line 295  T105:; Line 337  T105:;
337          goto T110;}          goto T110;}
338          {object V51 = VV[23];          {object V51 = VV[23];
339          VMR2(V51)}          VMR2(V51)}
340    goto T110;
341  T110:;  T110:;
342          base[0]= (V23);          base[0]= (V23);
343          base[1]= VV[24];          base[1]= VV[24];
# Line 305  T110:; Line 348  T110:;
348          goto T115;}          goto T115;}
349          {object V52 = VV[25];          {object V52 = VV[25];
350          VMR2(V52)}          VMR2(V52)}
351    goto T115;
352  T115:;  T115:;
353          base[0]= (V23);          base[0]= (V23);
354          base[1]= VV[26];          base[1]= VV[26];
# Line 315  T115:; Line 359  T115:;
359          goto T120;}          goto T120;}
360          {object V53 = VV[27];          {object V53 = VV[27];
361          VMR2(V53)}          VMR2(V53)}
362    goto T120;
363  T120:;  T120:;
364          base[0]= (V23);          base[0]= (V23);
365          base[1]= VV[28];          base[1]= VV[28];
# Line 325  T120:; Line 370  T120:;
370          goto T125;}          goto T125;}
371          {object V54 = VV[29];          {object V54 = VV[29];
372          VMR2(V54)}          VMR2(V54)}
373    goto T125;
374  T125:;  T125:;
375          base[0]= (V23);          base[0]= (V23);
376          base[1]= VV[30];          base[1]= VV[30];
# Line 335  T125:; Line 381  T125:;
381          goto T130;}          goto T130;}
382          {object V55 = VV[31];          {object V55 = VV[31];
383          VMR2(V55)}          VMR2(V55)}
384    goto T130;
385  T130:;  T130:;
386          base[0]= (V23);          base[0]= (V23);
387          base[1]= VV[32];          base[1]= VV[32];
# Line 345  T130:; Line 392  T130:;
392          goto T135;}          goto T135;}
393          {object V56 = VV[33];          {object V56 = VV[33];
394          VMR2(V56)}          VMR2(V56)}
395    goto T135;
396  T135:;  T135:;
397          if(!((car((V23)))==(VV[34]))){          if(!((car((V23)))==(VV[34]))){
398          goto T140;}          goto T140;}
# Line 352  T135:; Line 400  T135:;
400          goto T143;}          goto T143;}
401          {object V57 = list(2,VV[34],(*(LnkLI36))(cadr((V23))));          {object V57 = list(2,VV[34],(*(LnkLI36))(cadr((V23))));
402          VMR2(V57)}          VMR2(V57)}
403    goto T143;
404  T143:;  T143:;
405          {object V58 = Ct;          {object V58 = Ct;
406          VMR2(V58)}          VMR2(V58)}
407    goto T140;
408  T140:;  T140:;
409          {object V59;          {object V59;
410          if((car((V23)))==(VV[35])){          if((car((V23)))==(VV[35])){
411          goto T146;}          goto T146;}
412          V59= Cnil;          V59= Cnil;
413          goto T145;          goto T145;
414    goto T146;
415  T146:;  T146:;
416          if(type_of(cadr((V23)))==t_symbol){          if(type_of(cadr((V23)))==t_symbol){
417          goto T148;}          goto T148;}
418          V59= Cnil;          V59= Cnil;
419          goto T145;          goto T145;
420    goto T148;
421  T148:;  T148:;
422          V59= get(cadr((V23)),VV[36],Cnil);          V59= get(cadr((V23)),VV[36],Cnil);
423    goto T145;
424  T145:;  T145:;
425          if(((V59))==Cnil){          if(((V59))==Cnil){
426          goto T151;}          goto T151;}
427          {object V60 = (V59);          {object V60 = (V59);
428          VMR2(V60)}          VMR2(V60)}
429    goto T151;
430  T151:;  T151:;
431          {object V61 = Ct;          {object V61 = Ct;
432          VMR2(V61)}}}}}          VMR2(V61)}}}}}
433            base[0]=base[0];
434            return Cnil;
435  }  }
436  /*      local entry for function TYPE-AND       */  /*      local entry for function TYPE-AND       */
437    
# Line 383  static object LI3(V64,V65) Line 439  static object LI3(V64,V65)
439    
440  register object V64;register object V65;  register object V64;register object V65;
441  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
442    goto TTL;
443  TTL:;  TTL:;
444          if(!(equal((V64),(V65)))){          if(!(equal((V64),(V65)))){
445          goto T154;}          goto T154;}
446          {object V66 = (V64);          {object V66 = (V64);
447          VMR3(V66)}          VMR3(V66)}
448    goto T154;
449  T154:;  T154:;
450          if(!(((V64))==(Ct))){          if(!(((V64))==(Ct))){
451          goto T157;}          goto T157;}
452          {object V67 = (V65);          {object V67 = (V65);
453          VMR3(V67)}          VMR3(V67)}
454    goto T157;
455  T157:;  T157:;
456          if(!(((V64))==(VV[7]))){          if(!(((V64))==(VV[7]))){
457          goto T160;}          goto T160;}
458          {object V68 = (V65);          {object V68 = (V65);
459          VMR3(V68)}          VMR3(V68)}
460    goto T160;
461  T160:;  T160:;
462          if(!(((V64))==(VV[37]))){          if(!(((V64))==(VV[37]))){
463          goto T163;}          goto T163;}
464          {object V69 = (V65);          {object V69 = (V65);
465          VMR3(V69)}          VMR3(V69)}
466    goto T163;
467  T163:;  T163:;
468          if(!(((V65))==(VV[37]))){          if(!(((V65))==(VV[37]))){
469          goto T166;}          goto T166;}
470          {object V70 = (V64);          {object V70 = (V64);
471          VMR3(V70)}          VMR3(V70)}
472    goto T166;
473  T166:;  T166:;
474          if(!(((V65))==(Ct))){          if(!(((V65))==(Ct))){
475          goto T169;}          goto T169;}
476          {object V71 = (V64);          {object V71 = (V64);
477          VMR3(V71)}          VMR3(V71)}
478    goto T169;
479  T169:;  T169:;
480          if(!(((V65))==(VV[7]))){          if(!(((V65))==(VV[7]))){
481          goto T172;}          goto T172;}
482          {object V72 = (V64);          {object V72 = (V64);
483          VMR3(V72)}          VMR3(V72)}
484    goto T172;
485  T172:;  T172:;
486          if(!(type_of((V65))==t_cons)){          if(!(type_of((V65))==t_cons)){
487          goto T175;}          goto T175;}
# Line 425  T172:; Line 489  T172:;
489          goto T175;}          goto T175;}
490          V65= cadr((V65));          V65= cadr((V65));
491          goto TTL;          goto TTL;
492    goto T175;
493  T175:;  T175:;
494          if(!(type_of((V64))==t_cons)){          if(!(type_of((V64))==t_cons)){
495          goto T183;}          goto T183;}
# Line 436  T175:; Line 501  T175:;
501          goto T188;}          goto T188;}
502          {object V75 = (V65);          {object V75 = (V65);
503          VMR3(V75)}          VMR3(V75)}
504    goto T188;
505  T188:;  T188:;
506          {object V76 = Cnil;          {object V76 = Cnil;
507          VMR3(V76)}          VMR3(V76)}
508    goto T186;
509  T186:;  T186:;
510          if((V74!= VV[39]))goto T190;          if((V74!= VV[39]))goto T190;
511          if(!(((V65))==(VV[6]))){          if(!(((V65))==(VV[6]))){
512          goto T192;}          goto T192;}
513          {object V77 = (V65);          {object V77 = (V65);
514          VMR3(V77)}          VMR3(V77)}
515    goto T192;
516  T192:;  T192:;
517          {object V78 = Cnil;          {object V78 = Cnil;
518          VMR3(V78)}          VMR3(V78)}
519    goto T190;
520  T190:;  T190:;
521          if(!(type_of((V65))==t_cons)){          if(!(type_of((V65))==t_cons)){
522          goto T195;}          goto T195;}
# Line 457  T190:; Line 526  T190:;
526          goto T195;}          goto T195;}
527          {object V79 = (V65);          {object V79 = (V65);
528          VMR3(V79)}          VMR3(V79)}
529    goto T195;
530  T195:;  T195:;
531          {object V80 = Cnil;          {object V80 = Cnil;
532          VMR3(V80)}}          VMR3(V80)}}
533    goto T185;
534  T185:;  T185:;
535          if((V73!= VV[1]))goto T201;          if((V73!= VV[1]))goto T201;
536          if(!(type_of((V65))==t_cons)){          if(!(type_of((V65))==t_cons)){
# Line 470  T185:; Line 541  T185:;
541          goto T203;}          goto T203;}
542          {object V81 = (V64);          {object V81 = (V64);
543          VMR3(V81)}          VMR3(V81)}
544    goto T203;
545  T203:;  T203:;
546          {object V82 = Cnil;          {object V82 = Cnil;
547          VMR3(V82)}          VMR3(V82)}
548    goto T201;
549  T201:;  T201:;
550          if((V73!= VV[34]))goto T209;          if((V73!= VV[34]))goto T209;
551          V64= cadr((V64));          V64= cadr((V64));
552          goto TTL;          goto TTL;
553    goto T209;
554  T209:;  T209:;
555          {object V83 = Cnil;          {object V83 = Cnil;
556          VMR3(V83)}}          VMR3(V83)}}
557    goto T183;
558  T183:;  T183:;
559          {object V84= (V64);          {object V84= (V64);
560          if((V84!= VV[5]))goto T213;          if((V84!= VV[5]))goto T213;
# Line 491  T183:; Line 566  T183:;
566          goto T215;}          goto T215;}
567          {object V85 = (V64);          {object V85 = (V64);
568          VMR3(V85)}          VMR3(V85)}
569    goto T215;
570  T215:;  T215:;
571          {object V86 = Cnil;          {object V86 = Cnil;
572          VMR3(V86)}          VMR3(V86)}
573    goto T213;
574  T213:;  T213:;
575          if((V84!= VV[6]))goto T221;          if((V84!= VV[6]))goto T221;
576          if(!(type_of((V65))==t_cons)){          if(!(type_of((V65))==t_cons)){
# Line 504  T213:; Line 581  T213:;
581          goto T223;}          goto T223;}
582          {object V87 = (V64);          {object V87 = (V64);
583          VMR3(V87)}          VMR3(V87)}
584    goto T223;
585  T223:;  T223:;
586          {object V88 = Cnil;          {object V88 = Cnil;
587          VMR3(V88)}          VMR3(V88)}
588    goto T221;
589  T221:;  T221:;
590          if((V84!= VV[61]))goto T229;          if((V84!= VV[61]))goto T229;
591          {register object x= (V65),V89= VV[40];          {register object x= (V65),V89= VV[40];
# Line 515  T221:; Line 594  T221:;
594          goto T232;          goto T232;
595          }else V89=V89->c.c_cdr;          }else V89=V89->c.c_cdr;
596          goto T231;}          goto T231;}
597    goto T232;
598  T232:;  T232:;
599          {object V90 = (V65);          {object V90 = (V65);
600          VMR3(V90)}          VMR3(V90)}
601    goto T231;
602  T231:;  T231:;
603          {object V91 = Cnil;          {object V91 = Cnil;
604          VMR3(V91)}          VMR3(V91)}
605    goto T229;
606  T229:;  T229:;
607          if((V84!= VV[62]))goto T233;          if((V84!= VV[62]))goto T233;
608          {register object x= (V65),V92= VV[41];          {register object x= (V65),V92= VV[41];
# Line 529  T229:; Line 611  T229:;
611          goto T236;          goto T236;
612          }else V92=V92->c.c_cdr;          }else V92=V92->c.c_cdr;
613          goto T235;}          goto T235;}
614    goto T236;
615  T236:;  T236:;
616          {object V93 = (V65);          {object V93 = (V65);
617          VMR3(V93)}          VMR3(V93)}
618    goto T235;
619  T235:;  T235:;
620          {object V94 = Cnil;          {object V94 = Cnil;
621          VMR3(V94)}          VMR3(V94)}
622    goto T233;
623  T233:;  T233:;
624          if((V84!= VV[3])          if((V84!= VV[3])
625          && (V84!= VV[12]))goto T237;          && (V84!= VV[12]))goto T237;
# Line 544  T233:; Line 629  T233:;
629          goto T240;          goto T240;
630          }else V95=V95->c.c_cdr;          }else V95=V95->c.c_cdr;
631          goto T239;}          goto T239;}
632    goto T240;
633  T240:;  T240:;
634          {object V96 = (V64);          {object V96 = (V64);
635          VMR3(V96)}          VMR3(V96)}
636    goto T239;
637  T239:;  T239:;
638          {object V97 = Cnil;          {object V97 = Cnil;
639          VMR3(V97)}          VMR3(V97)}
640    goto T237;
641  T237:;  T237:;
642          if((V84!= VV[63])          if((V84!= VV[63])
643          && (V84!= VV[64])          && (V84!= VV[64])
# Line 558  T237:; Line 646  T237:;
646          goto T243;}          goto T243;}
647          {object V98 = (V64);          {object V98 = (V64);
648          VMR3(V98)}          VMR3(V98)}
649    goto T243;
650  T243:;  T243:;
651          {object V99 = Cnil;          {object V99 = Cnil;
652          VMR3(V99)}          VMR3(V99)}
653    goto T241;
654  T241:;  T241:;
655          if((V84!= VV[66]))goto T245;          if((V84!= VV[66]))goto T245;
656          base[0]= (V64);          base[0]= (V64);
# Line 572  T241:; Line 662  T241:;
662          goto T247;}          goto T247;}
663          {object V100 = (V64);          {object V100 = (V64);
664          VMR3(V100)}          VMR3(V100)}
665    goto T247;
666  T247:;  T247:;
667          {object V101 = Cnil;          {object V101 = Cnil;
668          VMR3(V101)}          VMR3(V101)}
669    goto T245;
670  T245:;  T245:;
671          if((V84!= VV[11]))goto T251;          if((V84!= VV[11]))goto T251;
672          {object V102= (V65);          {object V102= (V65);
673          if((V102!= VV[10]))goto T252;          if((V102!= VV[10]))goto T252;
674          {object V103 = (V65);          {object V103 = (V65);
675          VMR3(V103)}          VMR3(V103)}
676    goto T252;
677  T252:;  T252:;
678          {object V104 = Cnil;          {object V104 = Cnil;
679          VMR3(V104)}}          VMR3(V104)}}
680    goto T251;
681  T251:;  T251:;
682          if((V84!= VV[10]))goto T253;          if((V84!= VV[10]))goto T253;
683          {object V105= (V65);          {object V105= (V65);
# Line 591  T251:; Line 685  T251:;
685          && (V105!= VV[61]))goto T254;          && (V105!= VV[61]))goto T254;
686          {object V106 = VV[10];          {object V106 = VV[10];
687          VMR3(V106)}          VMR3(V106)}
688    goto T254;
689  T254:;  T254:;
690          if((V105!= VV[63])          if((V105!= VV[63])
691          && (V105!= VV[64])          && (V105!= VV[64])
# Line 598  T254:; Line 693  T254:;
693          && (V105!= VV[39]))goto T255;          && (V105!= VV[39]))goto T255;
694          {object V107 = (V65);          {object V107 = (V65);
695          VMR3(V107)}          VMR3(V107)}
696    goto T255;
697  T255:;  T255:;
698          if((V105!= VV[66]))goto T256;          if((V105!= VV[66]))goto T256;
699          base[0]= (V65);          base[0]= (V65);
# Line 609  T255:; Line 705  T255:;
705          goto T258;}          goto T258;}
706          {object V108 = (V65);          {object V108 = (V65);
707          VMR3(V108)}          VMR3(V108)}
708    goto T258;
709  T258:;  T258:;
710          {object V109 = Cnil;          {object V109 = Cnil;
711          VMR3(V109)}          VMR3(V109)}
712    goto T256;
713  T256:;  T256:;
714          {object V110 = Cnil;          {object V110 = Cnil;
715          VMR3(V110)}}          VMR3(V110)}}
716    goto T253;
717  T253:;  T253:;
718          {object V111 = Cnil;          {object V111 = Cnil;
719          VMR3(V111)}}          VMR3(V111)}}
720            base[0]=base[0];
721            return Cnil;
722  }  }
723  /*      local entry for function TYPE>= */  /*      local entry for function TYPE>= */
724    
# Line 625  static object LI4(V114,V115) Line 726  static object LI4(V114,V115)
726    
727  object V114;object V115;  object V114;object V115;
728  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
729    goto TTL;
730  TTL:;  TTL:;
731          V116= (*(LnkLI67))((V114),(V115));          V116= (*(LnkLI67))((V114),(V115));
732          {object V117 = (equal(/* INLINE-ARGS */V116,(V115))?Ct:Cnil);          {object V117 = (equal(/* INLINE-ARGS */V116,(V115))?Ct:Cnil);
733          VMR4(V117)}          VMR4(V117)}
734            return Cnil;
735  }  }
736  /*      local entry for function RESET-INFO-TYPE        */  /*      local entry for function RESET-INFO-TYPE        */
737    
# Line 636  static object LI5(V119) Line 739  static object LI5(V119)
739    
740  object V119;  object V119;
741  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
742    goto TTL;
743  TTL:;  TTL:;
744          if((structure_ref((V119),VV[43],2))==Cnil){          if((structure_ref((V119),VV[43],2))==Cnil){
745          goto T263;}          goto T263;}
# Line 648  TTL:; Line 752  TTL:;
752          (void)(structure_set((V120),VV[43],2,Ct));          (void)(structure_set((V120),VV[43],2,Ct));
753          {object V121 = (V120);          {object V121 = (V120);
754          VMR5(V121)}}          VMR5(V121)}}
755    goto T263;
756  T263:;  T263:;
757          {object V122 = (V119);          {object V122 = (V119);
758          VMR5(V122)}          VMR5(V122)}
759            base[0]=base[0];
760            return Cnil;
761  }  }
762  /*      local entry for function AND-FORM-TYPE  */  /*      local entry for function AND-FORM-TYPE  */
763    
# Line 658  static object LI6(V126,V127,V128) Line 765  static object LI6(V126,V127,V128)
765    
766  object V126;register object V127;object V128;  object V126;register object V127;object V128;
767  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
768    goto TTL;
769  TTL:;  TTL:;
770          {register object V129;          {register object V129;
771          V129= Cnil;          V129= Cnil;
# Line 666  TTL:; Line 774  TTL:;
774          if(((V129))!=Cnil){          if(((V129))!=Cnil){
775          goto T271;}          goto T271;}
776          (void)((VFUN_NARGS=3,(*(LnkLI69))(VV[44],(V128),(V126))));          (void)((VFUN_NARGS=3,(*(LnkLI69))(VV[44],(V128),(V126))));
777    goto T271;
778  T271:;  T271:;
779          V131= structure_ref(cadr((V127)),VV[43],2);          V131= structure_ref(cadr((V127)),VV[43],2);
780          if(!(((V129))==(/* INLINE-ARGS */V131))){          if(!(((V129))==(/* INLINE-ARGS */V131))){
781          goto T275;}          goto T275;}
782          {object V132 = (V127);          {object V132 = (V127);
783          VMR6(V132)}          VMR6(V132)}
784    goto T275;
785  T275:;  T275:;
786          {object V133;          {object V133;
787          base[0]= cadr((V127));          base[0]= cadr((V127));
# Line 682  T275:; Line 792  T275:;
792          (void)(structure_set((V133),VV[43],2,(V129)));          (void)(structure_set((V133),VV[43],2,(V129)));
793          {object V134 = listA(3,car((V127)),(V133),cddr((V127)));          {object V134 = listA(3,car((V127)),(V133),cddr((V127)));
794          VMR6(V134)}}}          VMR6(V134)}}}
795            base[0]=base[0];
796            return Cnil;
797  }  }
798  /*      local entry for function CHECK-FORM-TYPE        */  /*      local entry for function CHECK-FORM-TYPE        */
799    
# Line 689  static object LI7(V138,V139,V140) Line 801  static object LI7(V138,V139,V140)
801    
802  object V138;object V139;object V140;  object V138;object V139;object V140;
803  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
804    goto TTL;
805  TTL:;  TTL:;
806          V141= structure_ref(cadr((V139)),VV[43],2);          V141= structure_ref(cadr((V139)),VV[43],2);
807          if(((*(LnkLI67))((V138),/* INLINE-ARGS */V141))!=Cnil){          if(((*(LnkLI67))((V138),/* INLINE-ARGS */V141))!=Cnil){
808          goto T281;}          goto T281;}
809          {object V142 = (VFUN_NARGS=3,(*(LnkLI69))(VV[45],(V140),(V138)));          {object V142 = (VFUN_NARGS=3,(*(LnkLI69))(VV[45],(V140),(V138)));
810          VMR7(V142)}          VMR7(V142)}
811    goto T281;
812  T281:;  T281:;
813          {object V143 = Cnil;          {object V143 = Cnil;
814          VMR7(V143)}          VMR7(V143)}
815            return Cnil;
816  }  }
817  /*      local entry for function DEFAULT-INIT   */  /*      local entry for function DEFAULT-INIT   */
818    
# Line 705  static object LI8(V145) Line 820  static object LI8(V145)
820    
821  object V145;  object V145;
822  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
823    goto TTL;
824  TTL:;  TTL:;
825          {object V146= (V145);          {object V146= (V145);
826          if((V146!= VV[10]))goto T284;          if((V146!= VV[10]))goto T284;
827          (void)((VFUN_NARGS=1,(*(LnkLI69))(VV[46])));          (void)((VFUN_NARGS=1,(*(LnkLI69))(VV[46])));
828          goto T283;          goto T283;
829    goto T284;
830  T284:;  T284:;
831          if((V146!= VV[0]))goto T285;          if((V146!= VV[0]))goto T285;
832          (void)((VFUN_NARGS=1,(*(LnkLI69))(VV[47])));          (void)((VFUN_NARGS=1,(*(LnkLI69))(VV[47])));
833          goto T283;          goto T283;
834    goto T285;
835  T285:;  T285:;
836          if((V146!= VV[3]))goto T286;          if((V146!= VV[3]))goto T286;
837          (void)((VFUN_NARGS=1,(*(LnkLI69))(VV[48])));          (void)((VFUN_NARGS=1,(*(LnkLI69))(VV[48])));
838          goto T283;          goto T283;
839    goto T286;
840  T286:;  T286:;
841          if((V146!= VV[12]))goto T287;          if((V146!= VV[12]))goto T287;
842          (void)((VFUN_NARGS=1,(*(LnkLI69))(VV[49])));          (void)((VFUN_NARGS=1,(*(LnkLI69))(VV[49])));
843          goto T283;          goto T283;
844    goto T287;
845  T287:;  T287:;
846          if((V146!= VV[11]))goto T288;          if((V146!= VV[11]))goto T288;
847          (void)((VFUN_NARGS=1,(*(LnkLI69))(VV[50])));          (void)((VFUN_NARGS=1,(*(LnkLI69))(VV[50])));
848          goto T283;          goto T283;
849    goto T288;
850  T288:;}  T288:;}
851    goto T283;
852  T283:;  T283:;
853          {object V147 = (*(LnkLI70))();          {object V147 = (*(LnkLI70))();
854          VMR8(V147)}          VMR8(V147)}
855            return Cnil;
856  }  }
857  static object  LnkTLI70(){return call_proc0(VV[70],&LnkLI70);} /* C1NIL */  static object  LnkTLI70(){return call_proc0(VV[70],(void **)&LnkLI70);} /* C1NIL */
858  static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[69],&LnkLI69,ap);} /* CMPWARN */  static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[69],(void **)&LnkLI69,ap);} /* CMPWARN */
859  static LnkT68(){ call_or_link(VV[68],&Lnk68);} /* COPY-INFO */  static void LnkT68(){ call_or_link(VV[68],(void **)&Lnk68);} /* COPY-INFO */
860  static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],&LnkLI67,2,ap);} /* TYPE-AND */  static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],(void **)&LnkLI67,2,ap);} /* TYPE-AND */
861  static object  LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],&LnkLI36,1,ap);} /* TYPE-FILTER */  static object  LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],(void **)&LnkLI36,1,ap);} /* TYPE-FILTER */
862  static LnkT60(){ call_or_link(VV[60],&Lnk60);} /* SUBTYPEP */  static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* SUBTYPEP */
863  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,2,ap);} /* SUB-INTERVAL-P */  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,2,ap);} /* SUB-INTERVAL-P */
864  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
865  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,1,ap);} /* NORMALIZE-TYPE */  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,1,ap);} /* NORMALIZE-TYPE */
866    
867  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
868  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