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

Diff of /gcl/cmpnew/gcl_cmptype.c

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

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

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

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