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

Diff of /gcl/cmpnew/gcl_cmploc.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_cmploc.h"
4    void init_gcl_cmploc(){do_init(VV);}
5    /*      function definition for WT-FIRST-VAR-ARG        */
6    
7    static void L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_reserve(VM1);
11            check_arg(0);
12            vs_top=sup;
13            goto TTL;
14    TTL:;
15            princ_str("first",VV[0]);
16            base[0]= Cnil;
17            vs_top=(vs_base=base+0)+1;
18            return;
19    }
20    /*      local entry for function WT-NEXT-VAR-ARG        */
21    
22    static object LI2()
23    
24    {        VMB2 VMS2 VMV2
25            goto TTL;
26    TTL:;
27            princ_str("va_arg(ap,object)",VV[0]);
28            {object V1 = Cnil;
29            VMR2(V1)}
30            return Cnil;
31    }
32    /*      function definition for SET-LOC */
33    
34    static void L3()
35    {register object *base=vs_base;
36            register object *sup=base+VM3; VC3
37            vs_reserve(VM3);
38            {register object V2;
39            check_arg(1);
40            V2=(base[0]);
41            vs_top=sup;
42            goto TTL;
43    TTL:;
44            {register object V3;
45            V3= Cnil;
46            if(!((symbol_value(VV[1]))==(VV[2]))){
47            goto T5;}
48            base[1]= (*(LnkLI34))((V2));
49            vs_top=(vs_base=base+1)+1;
50            return;
51            goto T5;
52    T5:;
53            if(!((symbol_value(VV[1]))==(VV[3]))){
54            goto T8;}
55            if(!(type_of((V2))==t_cons)){
56            goto T11;}
57            {register object x= car((V2)),V4= VV[4];
58            while(!endp(V4))
59            if(eql(x,V4->c.c_car)){
60            goto T15;
61            }else V4=V4->c.c_cdr;
62            goto T11;}
63            goto T15;
64    T15:;
65            if((cadr((V2)))==Cnil){
66            goto T11;}
67            princ_str("\n   (void)(",VV[0]);
68            base[1]= Ct;
69            base[2]= caddr((V2));
70            base[3]= cadddr((V2));
71            vs_top=(vs_base=base+1)+3;
72            (void) (*Lnk35)();
73            vs_top=sup;
74            princ_str(");",VV[0]);
75            base[1]= Cnil;
76            vs_top=(vs_base=base+1)+1;
77            return;
78            goto T11;
79    T11:;
80            if(!(type_of((V2))==t_cons)){
81            goto T25;}
82            if(!((car((V2)))==(VV[5]))){
83            goto T25;}
84            princ_str("\n   (void)",VV[0]);
85            (void)((*(LnkLI36))((V2)));
86            princ_char(59,VV[0]);
87            base[1]= Cnil;
88            vs_top=(vs_base=base+1)+1;
89            return;
90            goto T25;
91    T25:;
92            base[1]= Cnil;
93            vs_top=(vs_base=base+1)+1;
94            return;
95            goto T8;
96    T8:;
97            if(!((symbol_value(VV[1]))==(VV[6]))){
98            goto T33;}
99            if(((V2))==(VV[7])){
100            goto T36;}
101            base[1]= (*(LnkLI37))((V2));
102            vs_top=(vs_base=base+1)+1;
103            return;
104            goto T36;
105    T36:;
106            base[1]= Cnil;
107            vs_top=(vs_base=base+1)+1;
108            return;
109            goto T33;
110    T33:;
111            if(!((symbol_value(VV[1]))==(VV[8]))){
112            goto T39;}
113            base[1]= (V2);
114            vs_top=(vs_base=base+1)+1;
115            (void) (*Lnk38)();
116            return;
117            goto T39;
118    T39:;
119            if(!((symbol_value(VV[1]))==(VV[9]))){
120            goto T43;}
121            base[1]= (V2);
122            vs_top=(vs_base=base+1)+1;
123            (void) (*Lnk39)();
124            return;
125            goto T43;
126    T43:;
127            if(!((symbol_value(VV[1]))==(VV[10]))){
128            goto T47;}
129            base[1]= (V2);
130            vs_top=(vs_base=base+1)+1;
131            (void) (*Lnk40)();
132            return;
133            goto T47;
134    T47:;
135            if(!((symbol_value(VV[1]))==(VV[11]))){
136            goto T51;}
137            base[1]= (V2);
138            vs_top=(vs_base=base+1)+1;
139            (void) (*Lnk41)();
140            return;
141            goto T51;
142    T51:;
143            if(!(type_of(symbol_value(VV[1]))==t_cons)){
144            goto T54;}
145            if(type_of(car(symbol_value(VV[1])))==t_symbol){
146            goto T55;}
147            goto T54;
148    T54:;
149            base[1]= (*(LnkLI42))();
150            vs_top=(vs_base=base+1)+1;
151            return;
152            goto T55;
153    T55:;
154            V3= get(car(symbol_value(VV[1])),VV[12],Cnil);
155            if(((V3))==Cnil){
156            goto T60;}
157            base[1]= (V3);
158            base[2]= (V2);
159            {object V5;
160            V5= cdr(symbol_value(VV[1]));
161             vs_top=base+3;
162             while(!endp(V5))
163             {vs_push(car(V5));V5=cdr(V5);}
164            vs_base=base+2;}
165            super_funcall_no_event(base[1]);
166            return;
167            goto T60;
168    T60:;
169            V3= get(car(symbol_value(VV[1])),VV[13],Cnil);
170            if(((V3))==Cnil){
171            goto T67;}
172            princ_str("\n   ",VV[0]);
173            base[1]= (V3);
174            {object V6;
175            V6= cdr(symbol_value(VV[1]));
176             vs_top=base+2;
177             while(!endp(V6))
178             {vs_push(car(V6));V6=cdr(V6);}
179            vs_base=base+2;}
180            super_funcall_no_event(base[1]);
181            vs_top=sup;
182            princ_str("= ",VV[0]);
183            (void)((*(LnkLI36))((V2)));
184            princ_char(59,VV[0]);
185            base[1]= Cnil;
186            vs_top=(vs_base=base+1)+1;
187            return;
188            goto T67;
189    T67:;
190            base[1]= (*(LnkLI42))();
191            vs_top=(vs_base=base+1)+1;
192            return;}
193            }
194    }
195    /*      function definition for WT-LOC  */
196    
197    static void L4()
198    {register object *base=vs_base;
199            register object *sup=base+VM4; VC4
200            vs_reserve(VM4);
201            {register object V7;
202            check_arg(1);
203            V7=(base[0]);
204            vs_top=sup;
205            goto TTL;
206    TTL:;
207            if(!(((V7))==(Cnil))){
208            goto T78;}
209            princ_str("Cnil",VV[0]);
210            base[1]= Cnil;
211            vs_top=(vs_base=base+1)+1;
212            return;
213            goto T78;
214    T78:;
215            if(!(((V7))==(Ct))){
216            goto T82;}
217            princ_str("Ct",VV[0]);
218            base[1]= Cnil;
219            vs_top=(vs_base=base+1)+1;
220            return;
221            goto T82;
222    T82:;
223            if(!(((V7))==(VV[7]))){
224            goto T86;}
225            princ_str("vs_base[0]",VV[0]);
226            base[1]= Cnil;
227            vs_top=(vs_base=base+1)+1;
228            return;
229            goto T86;
230    T86:;
231            if(!(type_of((V7))==t_cons)){
232            goto T89;}
233            if(type_of(car((V7)))==t_symbol){
234            goto T90;}
235            goto T89;
236    T89:;
237            base[1]= (*(LnkLI42))();
238            vs_top=(vs_base=base+1)+1;
239            return;
240            goto T90;
241    T90:;
242            {object V8;
243            V8= get(car((V7)),VV[13],Cnil);
244            if(((V8))!=Cnil){
245            goto T95;}
246            (void)((*(LnkLI42))());
247            goto T95;
248    T95:;
249            base[1]= (V8);
250            {object V9;
251            V9= cdr((V7));
252             vs_top=base+2;
253             while(!endp(V9))
254             {vs_push(car(V9));V9=cdr(V9);}
255            vs_base=base+2;}
256            super_funcall_no_event(base[1]);
257            return;}
258            }
259    }
260    /*      local entry for function SET-RETURN     */
261    
262    static object LI5(V11)
263    
264    register object V11;
265    {        VMB5 VMS5 VMV5
266            goto TTL;
267    TTL:;
268            {object V12;
269            V12= (((V11))==(VV[7])?Ct:Cnil);
270            if(((V12))==Cnil){
271            goto T102;}
272            {object V13 = (V12);
273            VMR5(V13)}
274            goto T102;
275    T102:;
276            if(!(type_of((V11))==t_cons)){
277            goto T105;}
278            if(!((car((V11)))==(VV[14]))){
279            goto T105;}
280            if(!(number_compare(caadr((V11)),symbol_value(VV[15]))==0)){
281            goto T105;}
282            princ_str("\n   vs_top=(vs_base=base+",VV[0]);
283            (void)((*(LnkLI36))(cdadr((V11))));
284            princ_str(")+1;",VV[0]);
285            setq(VV[16],Ct);
286            {object V14 = Ct;
287            VMR5(V14)}
288            goto T105;
289    T105:;
290            if(!(type_of((V11))==t_cons)){
291            goto T117;}
292            if(!((car((V11)))==(VV[17]))){
293            goto T117;}
294            V15= structure_ref(cadr((V11)),VV[17],1);
295            if(!((/* INLINE-ARGS */V15)==(VV[18]))){
296            goto T117;}
297            if((structure_ref(cadr((V11)),VV[17],3))!=Cnil){
298            goto T117;}
299            V16= structure_ref(cadr((V11)),VV[17],2);
300            if(!(eql(car(/* INLINE-ARGS */V16),symbol_value(VV[15])))){
301            goto T117;}
302            princ_str("\n   vs_top=(vs_base=base+",VV[0]);
303            V17= structure_ref(cadr((V11)),VV[17],2);
304            (void)((*(LnkLI36))(cdr(/* INLINE-ARGS */V17)));
305            princ_str(")+1;",VV[0]);
306            setq(VV[16],Ct);
307            {object V18 = Ct;
308            VMR5(V18)}
309            goto T117;
310    T117:;
311            {object V19 = (*(LnkLI37))((V11));
312            VMR5(V19)}}
313            return Cnil;
314    }
315    /*      local entry for function SET-TOP        */
316    
317    static object LI6(V21)
318    
319    object V21;
320    {        VMB6 VMS6 VMV6
321            bds_check;
322            goto TTL;
323    TTL:;
324            bds_bind(VV[19],symbol_value(VV[19]));
325            princ_str("\n   ",VV[0]);
326            V22= (*(LnkLI44))();
327            (void)((*(LnkLI43))(/* INLINE-ARGS */V22));
328            princ_str("= ",VV[0]);
329            (void)((*(LnkLI36))((V21)));
330            princ_char(59,VV[0]);
331            princ_str("\n   vs_top=(vs_base=base+",VV[0]);
332            V23= one_minus((VV[19]->s.s_dbind));
333            (void)((*(LnkLI36))(/* INLINE-ARGS */V23));
334            princ_str(")+1;",VV[0]);
335            setq(VV[16],Ct);
336            {object V24 = Ct;
337            bds_unwind1;
338            VMR6(V24)}
339            base[0]=base[0];
340            return Cnil;
341    }
342    /*      local entry for function WT-VS-BASE     */
343    
344    static object LI7(V26)
345    
346    object V26;
347    {        VMB7 VMS7 VMV7
348            goto TTL;
349    TTL:;
350            princ_str("vs_base[",VV[0]);
351            (void)((*(LnkLI36))((V26)));
352            princ_char(93,VV[0]);
353            {object V27 = Cnil;
354            VMR7(V27)}
355            return Cnil;
356    }
357    /*      local entry for function WT-CAR */
358    
359    static object LI8(V29)
360    
361    object V29;
362    {        VMB8 VMS8 VMV8
363            goto TTL;
364    TTL:;
365            princ_str("(V",VV[0]);
366            (void)((*(LnkLI36))((V29)));
367            princ_str("->c.c_car)",VV[0]);
368            {object V30 = Cnil;
369            VMR8(V30)}
370            return Cnil;
371    }
372    /*      local entry for function WT-CDR */
373    
374    static object LI9(V32)
375    
376    object V32;
377    {        VMB9 VMS9 VMV9
378            goto TTL;
379    TTL:;
380            princ_str("(V",VV[0]);
381            (void)((*(LnkLI36))((V32)));
382            princ_str("->c.c_cdr)",VV[0]);
383            {object V33 = Cnil;
384            VMR9(V33)}
385            return Cnil;
386    }
387    /*      local entry for function WT-CADR        */
388    
389    static object LI10(V35)
390    
391    object V35;
392    {        VMB10 VMS10 VMV10
393            goto TTL;
394    TTL:;
395            princ_str("(V",VV[0]);
396            (void)((*(LnkLI36))((V35)));
397            princ_str("->c.c_cdr->c.c_car)",VV[0]);
398            {object V36 = Cnil;
399            VMR10(V36)}
400            return Cnil;
401    }
402    /*      local entry for function WT-CVAR        */
403    
404    static object LI11(object V37,object first,...)
405    {      
406            va_list ap;
407            int narg = VFUN_NARGS; VMB11 VMS11 VMV11
408            {object V38;
409            object V39;
410            va_start(ap,first);
411            if(narg <1) too_few_arguments();
412            V38= V37;
413            narg = narg - 1;
414            if (narg <= 0) goto T155;
415            else {
416            V39= first;}
417            --narg; goto T156;
418            goto T155;
419    T155:;
420            V39= Cnil;
421            goto T156;
422    T156:;
423            if(((V39))==Cnil){
424            goto T158;}
425            princ_str("/* ",VV[0]);
426            V40= symbol_name((V39));
427            (void)((*(LnkLI36))(/* INLINE-ARGS */V40));
428            princ_str(" */",VV[0]);
429            goto T158;
430    T158:;
431            princ_char(86,VV[0]);
432            (void)((*(LnkLI36))((V38)));
433            {object V41 = Cnil;
434            VMR11(V41)}
435            va_end(ap);
436            return Cnil;}
437            }
438    /*      local entry for function WT-VV  */
439    
440    static object LI12(V43)
441    
442    object V43;
443    {        VMB12 VMS12 VMV12
444            goto TTL;
445    TTL:;
446            princ_str("VV[",VV[0]);
447            (void)((*(LnkLI36))((V43)));
448            princ_char(93,VV[0]);
449            {object V44 = Cnil;
450            VMR12(V44)}
451            return Cnil;
452    }
453    /*      function definition for WT-FIXNUM-LOC   */
454    
455    static void L13()
456    {register object *base=vs_base;
457            register object *sup=base+VM13; VC13
458            vs_reserve(VM13);
459            {register object V45;
460            check_arg(1);
461            V45=(base[0]);
462            vs_top=sup;
463            goto TTL;
464    TTL:;
465            if(!(type_of((V45))==t_cons)){
466            goto T170;}
467            if(!((car((V45)))==(VV[17]))){
468            goto T170;}
469            V46= structure_ref(cadr((V45)),VV[17],1);
470            if(!((/* INLINE-ARGS */V46)==(VV[20]))){
471            goto T170;}
472            princ_char(86,VV[0]);
473            V47= structure_ref(cadr((V45)),VV[17],4);
474            (void)((*(LnkLI36))(/* INLINE-ARGS */V47));
475            base[1]= Cnil;
476            vs_top=(vs_base=base+1)+1;
477            return;
478            goto T170;
479    T170:;
480            if(!(type_of((V45))==t_cons)){
481            goto T179;}
482            if(!((car((V45)))==(VV[21]))){
483            goto T179;}
484            princ_str("(long)",VV[0]);
485            base[1]= caddr((V45));
486            base[2]= cadddr((V45));
487            vs_top=(vs_base=base+1)+2;
488            (void) (*Lnk45)();
489            return;
490            goto T179;
491    T179:;
492            if(!(type_of((V45))==t_cons)){
493            goto T188;}
494            if(!((car((V45)))==(VV[22]))){
495            goto T188;}
496            (void)((*(LnkLI36))(caddr((V45))));
497            base[1]= Cnil;
498            vs_top=(vs_base=base+1)+1;
499            return;
500            goto T188;
501    T188:;
502            if(!(type_of((V45))==t_cons)){
503            goto T194;}
504            {register object x= car((V45)),V48= VV[23];
505            while(!endp(V48))
506            if(eql(x,V48->c.c_car)){
507            goto T197;
508            }else V48=V48->c.c_cdr;
509            goto T194;}
510            goto T197;
511    T197:;
512            princ_str("((long)(",VV[0]);
513            base[1]= caddr((V45));
514            base[2]= cadddr((V45));
515            vs_top=(vs_base=base+1)+2;
516            (void) (*Lnk45)();
517            vs_top=sup;
518            princ_str("))",VV[0]);
519            base[1]= Cnil;
520            vs_top=(vs_base=base+1)+1;
521            return;
522            goto T194;
523    T194:;
524            princ_str("fix(",VV[0]);
525            (void)((*(LnkLI36))((V45)));
526            princ_char(41,VV[0]);
527            base[1]= Cnil;
528            vs_top=(vs_base=base+1)+1;
529            return;
530            }
531    }
532    /*      function definition for WT-INTEGER-LOC  */
533    
534    static void L14()
535    {register object *base=vs_base;
536            register object *sup=base+VM14; VC14
537            vs_reserve(VM14);
538            {register object V49;
539            object V50;
540            if(vs_top-vs_base<1) too_few_arguments();
541            if(vs_top-vs_base>2) too_many_arguments();
542            V49=(base[0]);
543            vs_base=vs_base+1;
544            if(vs_base>=vs_top){vs_top=sup;goto T207;}
545            V50=(base[1]);
546            vs_top=sup;
547            goto T208;
548            goto T207;
549    T207:;
550            V50= Cnil;
551            goto T208;
552    T208:;
553            {object V51;
554            object V52;
555            V51= Ct;
556            if(type_of((V49))==t_cons){
557            goto T212;}
558            V52= Cnil;
559            goto T211;
560            goto T212;
561    T212:;
562            V52= car((V49));
563            goto T211;
564    T211:;
565            {object V53= (V52);
566            if((V53!= VV[21]))goto T215;
567            princ_str("stoi(",VV[0]);
568            base[3]= caddr((V49));
569            base[4]= cadddr((V49));
570            vs_top=(vs_base=base+3)+2;
571            (void) (*Lnk45)();
572            vs_top=sup;
573            princ_char(41,VV[0]);
574            goto T214;
575            goto T215;
576    T215:;
577            if((V53!= VV[46]))goto T222;
578            V51= Cnil;
579            base[3]= caddr((V49));
580            base[4]= cadddr((V49));
581            vs_top=(vs_base=base+3)+2;
582            (void) (*Lnk45)();
583            vs_top=sup;
584            goto T214;
585            goto T222;
586    T222:;
587            if((V53!= VV[22]))goto T227;
588            princ_str("stoi(",VV[0]);
589            (void)((*(LnkLI36))(caddr((V49))));
590            princ_char(41,VV[0]);
591            goto T214;
592            goto T227;
593    T227:;
594            if((V53!= VV[17]))goto T231;
595            V55= structure_ref(cadr((V49)),VV[17],1);
596            {object V54= /* INLINE-ARGS */V55;
597            if((V54!= VV[47]))goto T232;
598            V51= Cnil;
599            princ_char(86,VV[0]);
600            V56= structure_ref(cadr((V49)),VV[17],4);
601            (void)((*(LnkLI36))(/* INLINE-ARGS */V56));
602            goto T214;
603            goto T232;
604    T232:;
605            if((V54!= VV[20]))goto T237;
606            princ_str("stoi(V",VV[0]);
607            V57= structure_ref(cadr((V49)),VV[17],4);
608            (void)((*(LnkLI36))(/* INLINE-ARGS */V57));
609            princ_char(41,VV[0]);
610            goto T214;
611            goto T237;
612    T237:;
613            princ_str("otoi(",VV[0]);
614            (void)((*(LnkLI36))((V49)));
615            princ_char(41,VV[0]);
616            goto T214;}
617            goto T231;
618    T231:;
619            princ_str("otoi(",VV[0]);
620            (void)((*(LnkLI36))((V49)));
621            princ_char(41,VV[0]);}
622            goto T214;
623    T214:;
624            if((V51)==Cnil){
625            base[3]= Cnil;
626            vs_top=(vs_base=base+3)+1;
627            return;}
628            if((symbol_value(VV[24]))==Cnil){
629            goto T247;}
630            base[3]= Cnil;
631            vs_top=(vs_base=base+3)+1;
632            return;
633            goto T247;
634    T247:;
635            base[3]= (*(LnkLI48))();
636            vs_top=(vs_base=base+3)+1;
637            return;}
638            }
639    }
640    /*      local entry for function FIXNUM-LOC-P   */
641    
642    static object LI15(V59)
643    
644    register object V59;
645    {        VMB15 VMS15 VMV15
646            goto TTL;
647    TTL:;
648            if(type_of((V59))==t_cons){
649            goto T249;}
650            {object V60 = Cnil;
651            VMR15(V60)}
652            goto T249;
653    T249:;{object V61;
654            if((car((V59)))==(VV[17])){
655            goto T253;}
656            V61= Cnil;
657            goto T252;
658            goto T253;
659    T253:;
660            V62= structure_ref(cadr((V59)),VV[17],1);
661            V61= ((/* INLINE-ARGS */V62)==(VV[20])?Ct:Cnil);
662            goto T252;
663    T252:;
664            if(V61==Cnil)goto T251;
665            {object V63 = V61;
666            VMR15(V63)}
667            goto T251;
668    T251:;}
669            if(!((car((V59)))==(VV[21]))){
670            goto T255;}
671            {object V64 = Ct;
672            VMR15(V64)}
673            goto T255;
674    T255:;
675            {object V65 = ((car((V59)))==(VV[22])?Ct:Cnil);
676            VMR15(V65)}
677            return Cnil;
678    }
679    /*      local entry for function WT-FIXNUM-VALUE        */
680    
681    static object LI16(V68,V69)
682    
683    object V68;object V69;
684    {        VMB16 VMS16 VMV16
685            goto TTL;
686    TTL:;
687            if(((V68))==Cnil){
688            goto T258;}
689            princ_str("VV[",VV[0]);
690            (void)((*(LnkLI36))((V68)));
691            princ_char(93,VV[0]);
692            {object V70 = Cnil;
693            VMR16(V70)}
694            goto T258;
695    T258:;
696            princ_str("small_fixnum(",VV[0]);
697            (void)((*(LnkLI36))((V69)));
698            princ_char(41,VV[0]);
699            {object V71 = Cnil;
700            VMR16(V71)}
701            return Cnil;
702    }
703    /*      function definition for WT-CHARACTER-LOC        */
704    
705    static void L17()
706    {register object *base=vs_base;
707            register object *sup=base+VM17; VC17
708            vs_reserve(VM17);
709            {register object V72;
710            check_arg(1);
711            V72=(base[0]);
712            vs_top=sup;
713            goto TTL;
714    TTL:;
715            if(!(type_of((V72))==t_cons)){
716            goto T267;}
717            if(!((car((V72)))==(VV[17]))){
718            goto T267;}
719            V73= structure_ref(cadr((V72)),VV[17],1);
720            if(!((/* INLINE-ARGS */V73)==(VV[25]))){
721            goto T267;}
722            princ_char(86,VV[0]);
723            V74= structure_ref(cadr((V72)),VV[17],4);
724            (void)((*(LnkLI36))(/* INLINE-ARGS */V74));
725            base[1]= Cnil;
726            vs_top=(vs_base=base+1)+1;
727            return;
728            goto T267;
729    T267:;
730            if(!(type_of((V72))==t_cons)){
731            goto T276;}
732            if(!((car((V72)))==(VV[26]))){
733            goto T276;}
734            base[1]= caddr((V72));
735            base[2]= cadddr((V72));
736            vs_top=(vs_base=base+1)+2;
737            (void) (*Lnk45)();
738            return;
739            goto T276;
740    T276:;
741            if(!(type_of((V72))==t_cons)){
742            goto T283;}
743            if(!((car((V72)))==(VV[27]))){
744            goto T283;}
745            (void)((*(LnkLI36))(caddr((V72))));
746            base[1]= Cnil;
747            vs_top=(vs_base=base+1)+1;
748            return;
749            goto T283;
750    T283:;
751            princ_str("char_code(",VV[0]);
752            (void)((*(LnkLI36))((V72)));
753            princ_char(41,VV[0]);
754            base[1]= Cnil;
755            vs_top=(vs_base=base+1)+1;
756            return;
757            }
758    }
759    /*      local entry for function CHARACTER-LOC-P        */
760    
761    static object LI18(V76)
762    
763    register object V76;
764    {        VMB18 VMS18 VMV18
765            goto TTL;
766    TTL:;
767            if(type_of((V76))==t_cons){
768            goto T291;}
769            {object V77 = Cnil;
770            VMR18(V77)}
771            goto T291;
772    T291:;{object V78;
773            if((car((V76)))==(VV[17])){
774            goto T295;}
775            V78= Cnil;
776            goto T294;
777            goto T295;
778    T295:;
779            V79= structure_ref(cadr((V76)),VV[17],1);
780            V78= ((/* INLINE-ARGS */V79)==(VV[25])?Ct:Cnil);
781            goto T294;
782    T294:;
783            if(V78==Cnil)goto T293;
784            {object V80 = V78;
785            VMR18(V80)}
786            goto T293;
787    T293:;}
788            if(!((car((V76)))==(VV[26]))){
789            goto T297;}
790            {object V81 = Ct;
791            VMR18(V81)}
792            goto T297;
793    T297:;
794            {object V82 = ((car((V76)))==(VV[27])?Ct:Cnil);
795            VMR18(V82)}
796            return Cnil;
797    }
798    /*      local entry for function WT-CHARACTER-VALUE     */
799    
800    static object LI19(V85,V86)
801    
802    object V85;object V86;
803    {        VMB19 VMS19 VMV19
804            goto TTL;
805    TTL:;
806            princ_str("VV[",VV[0]);
807            (void)((*(LnkLI36))((V85)));
808            princ_char(93,VV[0]);
809            {object V87 = Cnil;
810            VMR19(V87)}
811            return Cnil;
812    }
813    /*      function definition for WT-LONG-FLOAT-LOC       */
814    
815    static void L20()
816    {register object *base=vs_base;
817            register object *sup=base+VM20; VC20
818            vs_reserve(VM20);
819            {register object V88;
820            check_arg(1);
821            V88=(base[0]);
822            vs_top=sup;
823            goto TTL;
824    TTL:;
825            if(!(type_of((V88))==t_cons)){
826            goto T303;}
827            if(!((car((V88)))==(VV[17]))){
828            goto T303;}
829            V89= structure_ref(cadr((V88)),VV[17],1);
830            if(!((/* INLINE-ARGS */V89)==(VV[28]))){
831            goto T303;}
832            princ_char(86,VV[0]);
833            V90= structure_ref(cadr((V88)),VV[17],4);
834            (void)((*(LnkLI36))(/* INLINE-ARGS */V90));
835            base[1]= Cnil;
836            vs_top=(vs_base=base+1)+1;
837            return;
838            goto T303;
839    T303:;
840            if(!(type_of((V88))==t_cons)){
841            goto T312;}
842            if(!((car((V88)))==(VV[29]))){
843            goto T312;}
844            base[1]= caddr((V88));
845            base[2]= cadddr((V88));
846            vs_top=(vs_base=base+1)+2;
847            (void) (*Lnk45)();
848            return;
849            goto T312;
850    T312:;
851            if(!(type_of((V88))==t_cons)){
852            goto T319;}
853            if(!((car((V88)))==(VV[30]))){
854            goto T319;}
855            (void)((*(LnkLI36))(caddr((V88))));
856            base[1]= Cnil;
857            vs_top=(vs_base=base+1)+1;
858            return;
859            goto T319;
860    T319:;
861            princ_str("lf(",VV[0]);
862            (void)((*(LnkLI36))((V88)));
863            princ_char(41,VV[0]);
864            base[1]= Cnil;
865            vs_top=(vs_base=base+1)+1;
866            return;
867            }
868    }
869    /*      local entry for function LONG-FLOAT-LOC-P       */
870    
871    static object LI21(V92)
872    
873    register object V92;
874    {        VMB21 VMS21 VMV21
875            goto TTL;
876    TTL:;
877            if(type_of((V92))==t_cons){
878            goto T327;}
879            {object V93 = Cnil;
880            VMR21(V93)}
881            goto T327;
882    T327:;{object V94;
883            if((car((V92)))==(VV[17])){
884            goto T331;}
885            V94= Cnil;
886            goto T330;
887            goto T331;
888    T331:;
889            V95= structure_ref(cadr((V92)),VV[17],1);
890            V94= ((/* INLINE-ARGS */V95)==(VV[28])?Ct:Cnil);
891            goto T330;
892    T330:;
893            if(V94==Cnil)goto T329;
894            {object V96 = V94;
895            VMR21(V96)}
896            goto T329;
897    T329:;}
898            if(!((car((V92)))==(VV[29]))){
899            goto T333;}
900            {object V97 = Ct;
901            VMR21(V97)}
902            goto T333;
903    T333:;
904            {object V98 = ((car((V92)))==(VV[30])?Ct:Cnil);
905            VMR21(V98)}
906            return Cnil;
907    }
908    /*      local entry for function WT-LONG-FLOAT-VALUE    */
909    
910    static object LI22(V101,V102)
911    
912    object V101;object V102;
913    {        VMB22 VMS22 VMV22
914            goto TTL;
915    TTL:;
916            princ_str("VV[",VV[0]);
917            (void)((*(LnkLI36))((V101)));
918            princ_char(93,VV[0]);
919            {object V103 = Cnil;
920            VMR22(V103)}
921            return Cnil;
922    }
923    /*      function definition for WT-SHORT-FLOAT-LOC      */
924    
925    static void L23()
926    {register object *base=vs_base;
927            register object *sup=base+VM23; VC23
928            vs_reserve(VM23);
929            {register object V104;
930            check_arg(1);
931            V104=(base[0]);
932            vs_top=sup;
933            goto TTL;
934    TTL:;
935            if(!(type_of((V104))==t_cons)){
936            goto T339;}
937            if(!((car((V104)))==(VV[17]))){
938            goto T339;}
939            V105= structure_ref(cadr((V104)),VV[17],1);
940            if(!((/* INLINE-ARGS */V105)==(VV[31]))){
941            goto T339;}
942            princ_char(86,VV[0]);
943            V106= structure_ref(cadr((V104)),VV[17],4);
944            (void)((*(LnkLI36))(/* INLINE-ARGS */V106));
945            base[1]= Cnil;
946            vs_top=(vs_base=base+1)+1;
947            return;
948            goto T339;
949    T339:;
950            if(!(type_of((V104))==t_cons)){
951            goto T348;}
952            if(!((car((V104)))==(VV[32]))){
953            goto T348;}
954            base[1]= caddr((V104));
955            base[2]= cadddr((V104));
956            vs_top=(vs_base=base+1)+2;
957            (void) (*Lnk45)();
958            return;
959            goto T348;
960    T348:;
961            if(!(type_of((V104))==t_cons)){
962            goto T355;}
963            if(!((car((V104)))==(VV[33]))){
964            goto T355;}
965            (void)((*(LnkLI36))(caddr((V104))));
966            base[1]= Cnil;
967            vs_top=(vs_base=base+1)+1;
968            return;
969            goto T355;
970    T355:;
971            princ_str("sf(",VV[0]);
972            (void)((*(LnkLI36))((V104)));
973            princ_char(41,VV[0]);
974            base[1]= Cnil;
975            vs_top=(vs_base=base+1)+1;
976            return;
977            }
978    }
979    /*      local entry for function SHORT-FLOAT-LOC-P      */
980    
981    static object LI24(V108)
982    
983    register object V108;
984    {        VMB24 VMS24 VMV24
985            goto TTL;
986    TTL:;
987            if(type_of((V108))==t_cons){
988            goto T363;}
989            {object V109 = Cnil;
990            VMR24(V109)}
991            goto T363;
992    T363:;{object V110;
993            if((car((V108)))==(VV[17])){
994            goto T367;}
995            V110= Cnil;
996            goto T366;
997            goto T367;
998    T367:;
999            V111= structure_ref(cadr((V108)),VV[17],1);
1000            V110= ((/* INLINE-ARGS */V111)==(VV[31])?Ct:Cnil);
1001            goto T366;
1002    T366:;
1003            if(V110==Cnil)goto T365;
1004            {object V112 = V110;
1005            VMR24(V112)}
1006            goto T365;
1007    T365:;}
1008            if(!((car((V108)))==(VV[32]))){
1009            goto T369;}
1010            {object V113 = Ct;
1011            VMR24(V113)}
1012            goto T369;
1013    T369:;
1014            {object V114 = ((car((V108)))==(VV[33])?Ct:Cnil);
1015            VMR24(V114)}
1016            return Cnil;
1017    }
1018    /*      local entry for function WT-SHORT-FLOAT-VALUE   */
1019    
1020    static object LI25(V117,V118)
1021    
1022    object V117;object V118;
1023    {        VMB25 VMS25 VMV25
1024            goto TTL;
1025    TTL:;
1026            princ_str("VV[",VV[0]);
1027            (void)((*(LnkLI36))((V117)));
1028            princ_char(93,VV[0]);
1029            {object V119 = Cnil;
1030            VMR25(V119)}
1031            return Cnil;
1032    }
1033    static object  LnkTLI48(){return call_proc0(VV[48],(void **)(void *)&LnkLI48);} /* WFS-ERROR */
1034    static void LnkT45(){ call_or_link(VV[45],(void **)(void *)&Lnk45);} /* WT-INLINE-LOC */
1035    static object  LnkTLI44(){return call_proc0(VV[44],(void **)(void *)&LnkLI44);} /* VS-PUSH */
1036    static object  LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[43],(void **)(void *)&LnkLI43,1,first,ap);va_end(ap);return V1;} /* WT-VS */
1037    static object  LnkTLI42(){return call_proc0(VV[42],(void **)(void *)&LnkLI42);} /* BABOON */
1038    static void LnkT41(){ call_or_link(VV[41],(void **)(void *)&Lnk41);} /* SET-RETURN-SHORT-FLOAT */
1039    static void LnkT40(){ call_or_link(VV[40],(void **)(void *)&Lnk40);} /* SET-RETURN-LONG-FLOAT */
1040    static void LnkT39(){ call_or_link(VV[39],(void **)(void *)&Lnk39);} /* SET-RETURN-CHARACTER */
1041    static void LnkT38(){ call_or_link(VV[38],(void **)(void *)&Lnk38);} /* SET-RETURN-FIXNUM */
1042    static object  LnkTLI37(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[37],(void **)(void *)&LnkLI37,1,first,ap);va_end(ap);return V1;} /* SET-TOP */
1043    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;} /* WT1 */
1044    static void LnkT35(){ call_or_link(VV[35],(void **)(void *)&Lnk35);} /* WT-INLINE */
1045    static object  LnkTLI34(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[34],(void **)(void *)&LnkLI34,1,first,ap);va_end(ap);return V1;} /* SET-RETURN */
1046    
1047    #ifdef SYSTEM_SPECIAL_INIT
1048    SYSTEM_SPECIAL_INIT
1049    #endif
1050    

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