/[gcl]/gcl/lsp/gcl_defmacro.c
ViewVC logotype

Diff of /gcl/lsp/gcl_defmacro.c

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

revision 1.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:04 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_defmacro.h"
4    void init_gcl_defmacro(){do_init(VV);}
5    /*      function definition for GET-&ENVIRONMENT        */
6    
7    static void L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_reserve(VM1);
11            {register object V1;
12            check_arg(1);
13            V1=(base[0]);
14            vs_top=sup;
15            goto TTL;
16    TTL:;
17            {object V2;
18            V2= Cnil;
19            {register object V3;
20            if(type_of((V1))==t_cons||((V1))==Cnil){
21            goto T3;}
22            V3= Cnil;
23            goto T2;
24            goto T3;
25    T3:;
26            {register object V4;
27            V4= (V1);
28            goto T6;
29    T6:;
30            if(type_of((V4))==t_cons){
31            goto T7;}
32            V3= Cnil;
33            goto T2;
34            goto T7;
35    T7:;
36            if(!((VV[0])==(car((V4))))){
37            goto T11;}
38            V3= (V4);
39            goto T2;
40            goto T11;
41    T11:;
42            V4= cdr((V4));
43            goto T6;}
44            goto T2;
45    T2:;
46            if(((V3))==Cnil){
47            goto T17;}
48            V2= cadr((V3));
49            base[1]= (V1);
50            base[2]= (V3);
51            vs_top=(vs_base=base+1)+2;
52            Lldiff();
53            vs_top=sup;
54            V5= vs_base[0];
55            V1= append(V5,cddr((V3)));
56            goto T17;
57    T17:;
58            base[1]= (V1);
59            base[2]= (V2);
60            vs_top=(vs_base=base+1)+2;
61            return;}}
62            }
63    }
64    /*      local entry for function DEFMACRO*      */
65    
66    static object LI2(V9,V10,V11)
67    
68    object V9;object V10;register object V11;
69    {        VMB2 VMS2 VMV2
70            bds_check;
71            goto TTL;
72    TTL:;
73            {object V12;
74            object V13;
75            object V14;
76            object V15;
77            object V16;
78            object V17;
79            bds_bind(VV[1],Cnil);
80            bds_bind(VV[2],Cnil);
81            bds_bind(VV[3],Cnil);
82            V12= Cnil;
83            V13= Cnil;
84            V14= Cnil;
85            V15= Cnil;
86            V16= Cnil;
87            V17= Cnil;
88            {object V18;
89            V18= (type_of((V10))==t_cons||((V10))==Cnil?Ct:Cnil);
90            if(((V18))==Cnil){
91            goto T37;}
92            goto T34;
93            goto T37;
94    T37:;
95            if(!(type_of((V10))==t_symbol)){
96            goto T40;}
97            V10= list(2,VV[4],(V10));
98            goto T34;
99            goto T40;
100    T40:;
101            base[3]= VV[5];
102            base[4]= (V10);
103            vs_top=(vs_base=base+3)+2;
104            Lerror();
105            vs_top=sup;}
106            goto T34;
107    T34:;
108            base[3]= (V11);
109            base[4]= Cnil;
110            vs_top=(vs_base=base+3)+2;
111            (void) (*Lnk53)();
112            if(vs_base<vs_top){
113            V12= vs_base[0];
114            vs_base++;
115            }else{
116            V12= Cnil;}
117            if(vs_base<vs_top){
118            V13= vs_base[0];
119            vs_base++;
120            }else{
121            V13= Cnil;}
122            if(vs_base<vs_top){
123            V11= vs_base[0];
124            }else{
125            V11= Cnil;}
126            vs_top=sup;
127            if(!(type_of((V10))==t_cons||((V10))==Cnil)){
128            goto T51;}
129            if(!((car((V10)))==(VV[6]))){
130            goto T51;}
131            V14= cadr((V10));
132            V10= cddr((V10));
133            goto T49;
134            goto T51;
135    T51:;
136            vs_base=vs_top;
137            Lgensym();
138            vs_top=sup;
139            V14= vs_base[0];
140            goto T49;
141    T49:;
142            base[3]= (V10);
143            vs_top=(vs_base=base+3)+1;
144            (void) (*Lnk54)();
145            if(vs_base<vs_top){
146            V10= vs_base[0];
147            vs_base++;
148            }else{
149            V10= Cnil;}
150            if(vs_base<vs_top){
151            V16= vs_base[0];
152            }else{
153            V16= Cnil;}
154            vs_top=sup;
155            V17= (V16);
156            if((V16)!=Cnil){
157            goto T64;}
158            vs_base=vs_top;
159            Lgensym();
160            vs_top=sup;
161            V16= vs_base[0];
162            goto T64;
163    T64:;
164            (VV[1]->s.s_dbind)= list(3,VV[7],(V16),(V14));
165            V15= (*(LnkLI55))((V10),(V14),Ct);
166            {register object V19;
167            register object V20;
168            V19= (VV[2]->s.s_dbind);
169            V20= car((V19));
170            goto T74;
171    T74:;
172            if(!(endp_prop((V19)))){
173            goto T75;}
174            goto T70;
175            goto T75;
176    T75:;
177            {register object V21;
178            V22= list(3,VV[9],car((V20)),VV[10]);
179            V23= list(3,VV[12],car((V20)),VV[13]);
180            V24= make_cons(/* INLINE-ARGS */V23,Cnil);
181            V21= list(3,VV[8],/* INLINE-ARGS */V22,list(4,VV[11],/* INLINE-ARGS */V24,VV[14],list(3,VV[8],list(3,VV[15],VV[16],list(2,VV[17],cdr((V20)))),VV[18])));
182            V11= make_cons((V21),(V11));}
183            V19= cdr((V19));
184            V20= car((V19));
185            goto T74;}
186            goto T70;
187    T70:;
188            {register object V25;
189            register object V26;
190            V25= (VV[3]->s.s_dbind);
191            V26= car((V25));
192            goto T91;
193    T91:;
194            if(!(endp_prop((V25)))){
195            goto T92;}
196            goto T87;
197            goto T92;
198    T92:;
199            {register object V27;
200            V27= list(3,VV[8],list(2,VV[19],(*(LnkLI56))(cdr((V26)),car((V26)))),VV[20]);
201            V11= make_cons((V27),(V11));}
202            V25= cdr((V25));
203            V26= car((V25));
204            goto T91;}
205            goto T87;
206    T87:;
207            if(((V17))!=Cnil){
208            goto T104;}
209            {object V28;
210            V28= list(2,VV[21],list(2,VV[22],(V16)));
211            V11= make_cons((V28),(V11));}
212            goto T104;
213    T104:;
214            V29= reverse((VV[1]->s.s_dbind));
215            {object V30 = list(3,(V12),(V15),listA(4,VV[23],(V9),/* INLINE-ARGS */V29,append((V13),(V11))));
216            bds_unwind1;
217            bds_unwind1;
218            bds_unwind1;
219            VMR2(V30)}}
220            base[0]=base[0];
221            return Cnil;
222    }
223    /*      local entry for function DM-VL  */
224    
225    static object LI3(V34,V35,V36)
226    
227    register object V34;register object V35;object V36;
228    {        VMB3 VMS3 VMV3
229            goto TTL;
230    TTL:;
231            {register object V37;
232            object V38;
233            object V39;
234            object V40;
235            object V41;
236            object V42;
237            object V43;
238            object V44;
239            object V45;
240            register object V46;
241            object V47;
242            if(((V36))==Cnil){
243            goto T111;}
244            V46= small_fixnum(1);
245            goto T109;
246            goto T111;
247    T111:;
248            V46= small_fixnum(0);
249            goto T109;
250    T109:;
251            V37= Cnil;
252            V38= Cnil;
253            V39= Cnil;
254            V40= Cnil;
255            V41= Cnil;
256            V42= Cnil;
257            V43= Cnil;
258            V44= Cnil;
259            V45= Cnil;
260            V47= Cnil;
261            goto T114;
262    T114:;
263            if(type_of((V34))==t_cons){
264            goto T115;}
265            if(((V34))==Cnil){
266            goto T118;}
267            if(((V38))==Cnil){
268            goto T121;}
269            (void)((*(LnkLI57))(VV[4]));
270            goto T121;
271    T121:;
272            {object V48;
273            V48= list(2,(V34),(*(LnkLI56))((V46),(V35)));
274            setq(VV[1],make_cons((V48),symbol_value(VV[1])));}
275            V45= Ct;
276            goto T118;
277    T118:;
278            if(((V42))==Cnil){
279            goto T128;}
280            if(((V43))!=Cnil){
281            goto T128;}
282            {object V49;
283            V49= make_cons((V42),(V44));
284            setq(VV[2],make_cons((V49),symbol_value(VV[2])));}
285            goto T128;
286    T128:;
287            if(((V45))!=Cnil){
288            goto T135;}
289            {object V50;
290            V50= make_cons((V35),(V46));
291            setq(VV[3],make_cons((V50),symbol_value(VV[3])));}
292            goto T135;
293    T135:;
294            {object V51 = (V47);
295            VMR3(V51)}
296            goto T115;
297    T115:;
298            {register object V52;
299            V52= car((V34));
300            if(!(((V52))==(VV[24]))){
301            goto T144;}
302            if(((V37))==Cnil){
303            goto T146;}
304            (void)((*(LnkLI57))(VV[24]));
305            goto T146;
306    T146:;
307            V37= Ct;
308            {object V53;
309            V53= car((V34));
310            V34= cdr((V34));
311            goto T141;}
312            goto T144;
313    T144:;
314            if(((V52))==(VV[4])){
315            goto T154;}
316            if(!(((V52))==(VV[25]))){
317            goto T155;}
318            goto T154;
319    T154:;
320            if(((V38))==Cnil){
321            goto T159;}
322            (void)((*(LnkLI57))((V52)));
323            goto T159;
324    T159:;
325            V54= cadr((V34));
326            V55= (*(LnkLI56))((V46),(V35));
327            (void)((*(LnkLI58))(/* INLINE-ARGS */V54,/* INLINE-ARGS */V55));
328            V38= Ct;
329            V37= Ct;
330            V45= Ct;
331            V34= cddr((V34));
332            if(!(((V52))==(VV[25]))){
333            goto T141;}
334            if(((V36))==Cnil){
335            goto T175;}
336            V47= one_minus((V46));
337            goto T173;
338            goto T175;
339    T175:;
340            V47= (V46);
341            goto T173;
342    T173:;
343            goto T141;
344            goto T155;
345    T155:;
346            if(!(((V52))==(VV[26]))){
347            goto T178;}
348            if(((V39))==Cnil){
349            goto T180;}
350            (void)((*(LnkLI57))(VV[26]));
351            goto T180;
352    T180:;
353            vs_base=vs_top;
354            Lgensym();
355            vs_top=sup;
356            V42= vs_base[0];
357            {object V56;
358            V56= list(2,(V42),(*(LnkLI56))((V46),(V35)));
359            setq(VV[1],make_cons((V56),symbol_value(VV[1])));}
360            V39= Ct;
361            V38= Ct;
362            V37= Ct;
363            V45= Ct;
364            {object V57;
365            V57= car((V34));
366            V34= cdr((V34));
367            goto T141;}
368            goto T178;
369    T178:;
370            if(!(((V52))==(VV[27]))){
371            goto T200;}
372            if(((V39))==Cnil){
373            goto T203;}
374            if(((V40))==Cnil){
375            goto T202;}
376            goto T203;
377    T203:;
378            (void)((*(LnkLI57))(VV[27]));
379            goto T202;
380    T202:;
381            V40= Ct;
382            V43= Ct;
383            {object V58;
384            V58= car((V34));
385            V34= cdr((V34));
386            goto T141;}
387            goto T200;
388    T200:;
389            if(!(((V52))==(VV[7]))){
390            goto T215;}
391            if(((V41))==Cnil){
392            goto T217;}
393            (void)((*(LnkLI57))(VV[7]));
394            goto T217;
395    T217:;
396            V41= Ct;
397            V40= Ct;
398            V39= Ct;
399            V38= Ct;
400            V37= Ct;
401            {object V59;
402            V59= car((V34));
403            V34= cdr((V34));
404            goto T141;}
405            goto T215;
406    T215:;
407            if(((V41))==Cnil){
408            goto T234;}
409            {object V60;
410            object V61;
411            V60= Cnil;
412            V61= Cnil;
413            if(!(type_of((V52))==t_symbol)){
414            goto T239;}
415            V60= (V52);
416            goto T237;
417            goto T239;
418    T239:;
419            V60= car((V52));
420            if(endp_prop(cdr((V52)))){
421            goto T237;}
422            V61= cadr((V52));
423            goto T237;
424    T237:;
425            (void)((*(LnkLI58))((V60),(V61)));}
426            {object V62;
427            V62= car((V34));
428            V34= cdr((V34));
429            goto T141;}
430            goto T234;
431    T234:;
432            if(((V39))==Cnil){
433            goto T251;}
434            {object V63;
435            object V64;
436            register object V65;
437            object V66;
438            object V67;
439            vs_base=vs_top;
440            Lgensym();
441            vs_top=sup;
442            V63= vs_base[0];
443            V64= Cnil;
444            V65= Cnil;
445            V66= Cnil;
446            V67= Cnil;
447            if(!(type_of((V52))==t_symbol)){
448            goto T257;}
449            V64= (V52);
450            base[0]= coerce_to_string((V52));
451            base[1]= VV[28];
452            vs_top=(vs_base=base+0)+2;
453            Lintern();
454            vs_top=sup;
455            V65= vs_base[0];
456            goto T255;
457            goto T257;
458    T257:;
459            if(!(type_of(car((V52)))==t_symbol)){
460            goto T266;}
461            V64= car((V52));
462            base[0]= coerce_to_string(car((V52)));
463            base[1]= VV[28];
464            vs_top=(vs_base=base+0)+2;
465            Lintern();
466            vs_top=sup;
467            V65= vs_base[0];
468            goto T264;
469            goto T266;
470    T266:;
471            V64= cadar((V52));
472            V65= caar((V52));
473            goto T264;
474    T264:;
475            if(endp_prop(cdr((V52)))){
476            goto T255;}
477            V66= cadr((V52));
478            if(endp_prop(cddr((V52)))){
479            goto T255;}
480            V67= caddr((V52));
481            goto T255;
482    T255:;
483            V68= list(4,VV[9],(V42),(V65),VV[29]);
484            (void)((*(LnkLI58))((V63),/* INLINE-ARGS */V68));
485            V69= list(4,VV[30],list(3,VV[31],(V63),VV[32]),(V66),(V63));
486            (void)((*(LnkLI58))((V64),/* INLINE-ARGS */V69));
487            if(((V67))==Cnil){
488            goto T285;}
489            V70= list(2,VV[33],list(3,VV[31],(V63),VV[34]));
490            (void)((*(LnkLI58))((V67),/* INLINE-ARGS */V70));
491            goto T285;
492    T285:;
493            V44= make_cons(V65,(V44));}
494            {object V72;
495            V72= car((V34));
496            V34= cdr((V34));
497            goto T141;}
498            goto T251;
499    T251:;
500            if(((V37))==Cnil){
501            goto T293;}
502            {object V73;
503            object V74;
504            object V75;
505            V73= Cnil;
506            V74= Cnil;
507            V75= Cnil;
508            if(!(type_of((V52))==t_symbol)){
509            goto T298;}
510            V73= (V52);
511            goto T296;
512            goto T298;
513    T298:;
514            V73= car((V52));
515            if(endp_prop(cdr((V52)))){
516            goto T296;}
517            V74= cadr((V52));
518            if(endp_prop(cddr((V52)))){
519            goto T296;}
520            V75= caddr((V52));
521            goto T296;
522    T296:;
523            V76= (*(LnkLI56))((V46),(V35));
524            V77= (*(LnkLI59))((V46),(V35));
525            V78= list(4,VV[30],/* INLINE-ARGS */V76,/* INLINE-ARGS */V77,(V74));
526            (void)((*(LnkLI58))((V73),/* INLINE-ARGS */V78));
527            if(((V75))==Cnil){
528            goto T295;}
529            V79= list(2,VV[33],list(2,VV[35],(*(LnkLI56))((V46),(V35))));
530            (void)((*(LnkLI58))((V75),/* INLINE-ARGS */V79));}
531            goto T295;
532    T295:;
533            V46= number_plus((V46),small_fixnum(1));
534            {object V80;
535            V80= car((V34));
536            V34= cdr((V34));
537            goto T141;}
538            goto T293;
539    T293:;
540            V81= (*(LnkLI56))((V46),(V35));
541            V82= (*(LnkLI59))((V46),(V35));
542            V83= list(4,VV[30],/* INLINE-ARGS */V81,/* INLINE-ARGS */V82,VV[36]);
543            (void)((*(LnkLI58))((V52),/* INLINE-ARGS */V83));
544            V46= number_plus((V46),small_fixnum(1));
545            {object V84;
546            V84= car((V34));
547            V34= cdr((V34));}}
548            goto T141;
549    T141:;
550            goto T114;}
551            base[0]=base[0];
552            return Cnil;
553    }
554    /*      local entry for function DM-V   */
555    
556    static object LI4(V87,V88)
557    
558    register object V87;register object V88;
559    {        VMB4 VMS4 VMV4
560            goto TTL;
561    TTL:;
562            if(!(type_of((V87))==t_symbol)){
563            goto T327;}
564            {object V89;
565            if(((V88))==Cnil){
566            goto T331;}
567            V89= list(2,(V87),(V88));
568            goto T329;
569            goto T331;
570    T331:;
571            V89= (V87);
572            goto T329;
573    T329:;
574            setq(VV[1],make_cons((V89),symbol_value(VV[1])));
575            {object V90 = symbol_value(VV[1]);
576            VMR4(V90)}}
577            goto T327;
578    T327:;
579            {object V91;
580            vs_base=vs_top;
581            Lgensym();
582            vs_top=sup;
583            V91= vs_base[0];
584            {object V92;
585            if(((V88))==Cnil){
586            goto T338;}
587            V92= list(2,(V91),(V88));
588            goto T336;
589            goto T338;
590    T338:;
591            V92= (V91);
592            goto T336;
593    T336:;
594            setq(VV[1],make_cons((V92),symbol_value(VV[1])));}
595            {object V93 = (*(LnkLI55))((V87),(V91),Cnil);
596            VMR4(V93)}}
597            base[0]=base[0];
598            return Cnil;
599    }
600    /*      local entry for function DM-NTH */
601    
602    static object LI5(V96,V97)
603    
604    object V96;register object V97;
605    {        VMB5 VMS5 VMV5
606            goto TTL;
607    TTL:;
608            {object V98;
609            object V99;
610            base[0]= (V96);
611            base[1]= small_fixnum(4);
612            vs_top=(vs_base=base+0)+2;
613            Lfloor();
614            if(vs_base>=vs_top){vs_top=sup;goto T344;}
615            V98= vs_base[0];
616            vs_base++;
617            if(vs_base>=vs_top){vs_top=sup;goto T345;}
618            V99= vs_base[0];
619            vs_top=sup;
620            goto T346;
621            goto T344;
622    T344:;
623            V98= Cnil;
624            goto T345;
625    T345:;
626            V99= Cnil;
627            goto T346;
628    T346:;
629            {register object V100;
630            register object V101;
631            V100= (V98);
632            V101= small_fixnum(0);
633            goto T351;
634    T351:;
635            if(!(number_compare((V101),(V100))>=0)){
636            goto T352;}
637            goto T347;
638            goto T352;
639    T352:;
640            V97= list(2,VV[37],(V97));
641            V101= one_plus((V101));
642            goto T351;}
643            goto T347;
644    T347:;
645            {object V102= (V99);
646            if(!eql(V102,VV[38]))goto T361;
647            {object V103 = list(2,VV[39],(V97));
648            VMR5(V103)}
649            goto T361;
650    T361:;
651            if(!eql(V102,VV[40]))goto T362;
652            {object V104 = list(2,VV[41],(V97));
653            VMR5(V104)}
654            goto T362;
655    T362:;
656            if(!eql(V102,VV[42]))goto T363;
657            {object V105 = list(2,VV[43],(V97));
658            VMR5(V105)}
659            goto T363;
660    T363:;
661            if(!eql(V102,VV[44]))goto T364;
662            {object V106 = list(2,VV[45],(V97));
663            VMR5(V106)}
664            goto T364;
665    T364:;
666            {object V107 = Cnil;
667            VMR5(V107)}}}
668            base[0]=base[0];
669            return Cnil;
670    }
671    /*      local entry for function DM-NTH-CDR     */
672    
673    static object LI6(V110,V111)
674    
675    object V110;register object V111;
676    {        VMB6 VMS6 VMV6
677            goto TTL;
678    TTL:;
679            {object V112;
680            object V113;
681            base[0]= (V110);
682            base[1]= small_fixnum(4);
683            vs_top=(vs_base=base+0)+2;
684            Lfloor();
685            if(vs_base>=vs_top){vs_top=sup;goto T368;}
686            V112= vs_base[0];
687            vs_base++;
688            if(vs_base>=vs_top){vs_top=sup;goto T369;}
689            V113= vs_base[0];
690            vs_top=sup;
691            goto T370;
692            goto T368;
693    T368:;
694            V112= Cnil;
695            goto T369;
696    T369:;
697            V113= Cnil;
698            goto T370;
699    T370:;
700            {register object V114;
701            register object V115;
702            V114= (V112);
703            V115= small_fixnum(0);
704            goto T375;
705    T375:;
706            if(!(number_compare((V115),(V114))>=0)){
707            goto T376;}
708            goto T371;
709            goto T376;
710    T376:;
711            V111= list(2,VV[37],(V111));
712            V115= one_plus((V115));
713            goto T375;}
714            goto T371;
715    T371:;
716            {object V116= (V113);
717            if(!eql(V116,VV[38]))goto T385;
718            {object V117 = (V111);
719            VMR6(V117)}
720            goto T385;
721    T385:;
722            if(!eql(V116,VV[40]))goto T386;
723            {object V118 = list(2,VV[46],(V111));
724            VMR6(V118)}
725            goto T386;
726    T386:;
727            if(!eql(V116,VV[42]))goto T387;
728            {object V119 = list(2,VV[47],(V111));
729            VMR6(V119)}
730            goto T387;
731    T387:;
732            if(!eql(V116,VV[44]))goto T388;
733            {object V120 = list(2,VV[48],(V111));
734            VMR6(V120)}
735            goto T388;
736    T388:;
737            {object V121 = Cnil;
738            VMR6(V121)}}}
739            base[0]=base[0];
740            return Cnil;
741    }
742    /*      local entry for function DM-BAD-KEY     */
743    
744    static object LI7(V123)
745    
746    object V123;
747    {        VMB7 VMS7 VMV7
748            goto TTL;
749    TTL:;
750            base[0]= VV[49];
751            base[1]= (V123);
752            vs_top=(vs_base=base+0)+2;
753            Lerror();
754            vs_top=sup;
755            {object V124 = vs_base[0];
756            VMR7(V124)}
757            base[0]=base[0];
758            return Cnil;
759    }
760    /*      local entry for function DM-TOO-FEW-ARGUMENTS   */
761    
762    static object LI8()
763    
764    {        VMB8 VMS8 VMV8
765            goto TTL;
766    TTL:;
767            base[0]= VV[50];
768            vs_top=(vs_base=base+0)+1;
769            Lerror();
770            vs_top=sup;
771            {object V125 = vs_base[0];
772            VMR8(V125)}
773            base[0]=base[0];
774            return Cnil;
775    }
776    /*      local entry for function DM-TOO-MANY-ARGUMENTS  */
777    
778    static object LI9()
779    
780    {        VMB9 VMS9 VMV9
781            goto TTL;
782    TTL:;
783            base[0]= VV[51];
784            vs_top=(vs_base=base+0)+1;
785            Lerror();
786            vs_top=sup;
787            {object V126 = vs_base[0];
788            VMR9(V126)}
789            base[0]=base[0];
790            return Cnil;
791    }
792    /*      local entry for function DM-KEY-NOT-ALLOWED     */
793    
794    static object LI10(V128)
795    
796    object V128;
797    {        VMB10 VMS10 VMV10
798            goto TTL;
799    TTL:;
800            base[0]= VV[52];
801            base[1]= (V128);
802            vs_top=(vs_base=base+0)+2;
803            Lerror();
804            vs_top=sup;
805            {object V129 = vs_base[0];
806            VMR10(V129)}
807            base[0]=base[0];
808            return Cnil;
809    }
810    /*      function definition for FIND-DOC        */
811    
812    static void L11()
813    {register object *base=vs_base;
814            register object *sup=base+VM11; VC11
815            vs_reserve(VM11);
816            {register object V130;
817            object V131;
818            check_arg(2);
819            V130=(base[0]);
820            V131=(base[1]);
821            vs_top=sup;
822            goto TTL;
823    TTL:;
824            if(!(endp_prop((V130)))){
825            goto T396;}
826            base[2]= Cnil;
827            base[3]= Cnil;
828            base[4]= Cnil;
829            vs_top=(vs_base=base+2)+3;
830            return;
831            goto T396;
832    T396:;
833            {register object V132;
834            base[2]= car((V130));
835            vs_top=(vs_base=base+2)+1;
836            Lmacroexpand();
837            vs_top=sup;
838            V132= vs_base[0];
839            if(!(type_of((V132))==t_string)){
840            goto T404;}
841            if(endp_prop(cdr((V130)))){
842            goto T406;}
843            if(((V131))==Cnil){
844            goto T407;}
845            goto T406;
846    T406:;
847            base[2]= Cnil;
848            base[3]= Cnil;
849            base[4]= make_cons((V132),cdr((V130)));
850            vs_top=(vs_base=base+2)+3;
851            return;
852            goto T407;
853    T407:;
854            {object V133;
855            object V134;
856            object V135;
857            base[2]= cdr((V130));
858            base[3]= Ct;
859            vs_top=(vs_base=base+2)+2;
860            (void) (*Lnk53)();
861            if(vs_base>=vs_top){vs_top=sup;goto T417;}
862            V133= vs_base[0];
863            vs_base++;
864            if(vs_base>=vs_top){vs_top=sup;goto T418;}
865            V134= vs_base[0];
866            vs_base++;
867            if(vs_base>=vs_top){vs_top=sup;goto T419;}
868            V135= vs_base[0];
869            vs_top=sup;
870            goto T420;
871            goto T417;
872    T417:;
873            V133= Cnil;
874            goto T418;
875    T418:;
876            V134= Cnil;
877            goto T419;
878    T419:;
879            V135= Cnil;
880            goto T420;
881    T420:;
882            base[2]= (V132);
883            base[3]= (V134);
884            base[4]= (V135);
885            vs_top=(vs_base=base+2)+3;
886            return;}
887            goto T404;
888    T404:;
889            if(!(type_of((V132))==t_cons)){
890            goto T425;}
891            if(!((car((V132)))==(VV[21]))){
892            goto T425;}
893            {object V136;
894            object V137;
895            object V138;
896            base[2]= cdr((V130));
897            base[3]= (V131);
898            vs_top=(vs_base=base+2)+2;
899            (void) (*Lnk53)();
900            if(vs_base>=vs_top){vs_top=sup;goto T432;}
901            V136= vs_base[0];
902            vs_base++;
903            if(vs_base>=vs_top){vs_top=sup;goto T433;}
904            V137= vs_base[0];
905            vs_base++;
906            if(vs_base>=vs_top){vs_top=sup;goto T434;}
907            V138= vs_base[0];
908            vs_top=sup;
909            goto T435;
910            goto T432;
911    T432:;
912            V136= Cnil;
913            goto T433;
914    T433:;
915            V137= Cnil;
916            goto T434;
917    T434:;
918            V138= Cnil;
919            goto T435;
920    T435:;
921            base[2]= (V136);
922            base[3]= make_cons((V132),(V137));
923            base[4]= (V138);
924            vs_top=(vs_base=base+2)+3;
925            return;}
926            goto T425;
927    T425:;
928            base[2]= Cnil;
929            base[3]= Cnil;
930            base[4]= make_cons((V132),cdr((V130)));
931            vs_top=(vs_base=base+2)+3;
932            return;}
933            }
934    }
935    /*      function definition for FIND-DECLARATIONS       */
936    
937    static void L12()
938    {register object *base=vs_base;
939            register object *sup=base+VM12; VC12
940            vs_reserve(VM12);
941            {register object V139;
942            check_arg(1);
943            V139=(base[0]);
944            vs_top=sup;
945            goto TTL;
946    TTL:;
947            if(!(endp_prop((V139)))){
948            goto T443;}
949            base[1]= Cnil;
950            base[2]= Cnil;
951            vs_top=(vs_base=base+1)+2;
952            return;
953            goto T443;
954    T443:;
955            {register object V140;
956            base[1]= car((V139));
957            vs_top=(vs_base=base+1)+1;
958            Lmacroexpand();
959            vs_top=sup;
960            V140= vs_base[0];
961            if(!(type_of((V140))==t_string)){
962            goto T450;}
963            if(!(endp_prop(cdr((V139))))){
964            goto T453;}
965            base[1]= Cnil;
966            base[2]= make_cons((V140),Cnil);
967            vs_top=(vs_base=base+1)+2;
968            return;
969            goto T453;
970    T453:;
971            {object V141;
972            object V142;
973            base[1]= cdr((V139));
974            vs_top=(vs_base=base+1)+1;
975            (void) (*Lnk60)();
976            if(vs_base>=vs_top){vs_top=sup;goto T459;}
977            V141= vs_base[0];
978            vs_base++;
979            if(vs_base>=vs_top){vs_top=sup;goto T460;}
980            V142= vs_base[0];
981            vs_top=sup;
982            goto T461;
983            goto T459;
984    T459:;
985            V141= Cnil;
986            goto T460;
987    T460:;
988            V142= Cnil;
989            goto T461;
990    T461:;
991            base[1]= make_cons((V140),(V141));
992            base[2]= (V142);
993            vs_top=(vs_base=base+1)+2;
994            return;}
995            goto T450;
996    T450:;
997            if(!(type_of((V140))==t_cons)){
998            goto T465;}
999            if(!((car((V140)))==(VV[21]))){
1000            goto T465;}
1001            {object V143;
1002            object V144;
1003            base[1]= cdr((V139));
1004            vs_top=(vs_base=base+1)+1;
1005            (void) (*Lnk60)();
1006            if(vs_base>=vs_top){vs_top=sup;goto T471;}
1007            V143= vs_base[0];
1008            vs_base++;
1009            if(vs_base>=vs_top){vs_top=sup;goto T472;}
1010            V144= vs_base[0];
1011            vs_top=sup;
1012            goto T473;
1013            goto T471;
1014    T471:;
1015            V143= Cnil;
1016            goto T472;
1017    T472:;
1018            V144= Cnil;
1019            goto T473;
1020    T473:;
1021            base[1]= make_cons((V140),(V143));
1022            base[2]= (V144);
1023            vs_top=(vs_base=base+1)+2;
1024            return;}
1025            goto T465;
1026    T465:;
1027            base[1]= Cnil;
1028            base[2]= make_cons((V140),cdr((V139)));
1029            vs_top=(vs_base=base+1)+2;
1030            return;}
1031            }
1032    }
1033    static void LnkT60(){ call_or_link(VV[60],(void **)(void *)&Lnk60);} /* FIND-DECLARATIONS */
1034    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;} /* DM-NTH */
1035    static object  LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)(void *)&LnkLI58,2,first,ap);va_end(ap);return V1;} /* DM-V */
1036    static object  LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* DM-BAD-KEY */
1037    static object  LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,2,first,ap);va_end(ap);return V1;} /* DM-NTH-CDR */
1038    static object  LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[55],(void **)(void *)&LnkLI55,3,first,ap);va_end(ap);return V1;} /* DM-VL */
1039    static void LnkT54(){ call_or_link(VV[54],(void **)(void *)&Lnk54);} /* GET-&ENVIRONMENT */
1040    static void LnkT53(){ call_or_link(VV[53],(void **)(void *)&Lnk53);} /* FIND-DOC */
1041    
1042    #ifdef SYSTEM_SPECIAL_INIT
1043    SYSTEM_SPECIAL_INIT
1044    #endif
1045    

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