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

Diff of /gcl/lsp/gcl_assert.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_assert.h"
4    void init_gcl_assert(){do_init(VV);}
5    /*      macro definition for CHECK-TYPE */
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(2);
12            vs_top=sup;
13            {object V1=base[0]->c.c_cdr;
14            if(endp(V1))invalid_macro_call();
15            base[2]= (V1->c.c_car);
16            V1=V1->c.c_cdr;
17            if(endp(V1))invalid_macro_call();
18            base[3]= (V1->c.c_car);
19            V1=V1->c.c_cdr;
20            if(endp(V1)){
21            base[4]= Cnil;
22            base[5]= Cnil;
23            } else {
24            base[4]= (V1->c.c_car);
25            base[5]= Ct;
26            V1=V1->c.c_cdr;}
27            if(!endp(V1))invalid_macro_call();}
28            V2= list(2,list(3,VV[2],base[2],list(2,VV[3],base[3])),Cnil);
29            V3= list(2,VV[3],base[2]);
30            if((base[5])==Cnil){
31            goto T4;}
32            V4= base[4];
33            goto T2;
34            goto T4;
35    T4:;
36            V4= list(2,VV[3],base[3]);
37            goto T2;
38    T2:;
39            V5= list(6,VV[4],VV[5],VV[6],/* INLINE-ARGS */V3,base[2],V4);
40            V6= (*(LnkLI53))(base[2]);
41            base[6]= list(6,VV[0],VV[1],/* INLINE-ARGS */V2,/* INLINE-ARGS */V5,/* INLINE-ARGS */V6,VV[7]);
42            vs_top=(vs_base=base+6)+1;
43            return;
44    }
45    /*      macro definition for ASSERT     */
46    
47    static void L2()
48    {register object *base=vs_base;
49            register object *sup=base+VM2; VC2
50            vs_reserve(VM2);
51            check_arg(2);
52            vs_top=sup;
53            {object V7=base[0]->c.c_cdr;
54            if(endp(V7))invalid_macro_call();
55            base[2]= (V7->c.c_car);
56            V7=V7->c.c_cdr;
57            if(endp(V7)){
58            base[3]= Cnil;
59            } else {
60            base[3]= (V7->c.c_car);
61            V7=V7->c.c_cdr;}
62            if(endp(V7)){
63            base[4]= Cnil;
64            } else {
65            base[4]= (V7->c.c_car);
66            V7=V7->c.c_cdr;}
67            base[5]= V7;}
68            V8= list(2,base[2],Cnil);
69            if((base[4])==Cnil){
70            goto T10;}
71            V9= listA(4,VV[4],VV[9],base[4],base[5]);
72            goto T8;
73            goto T10;
74    T10:;
75            V9= list(4,VV[4],VV[10],VV[11],list(2,VV[3],base[2]));
76            goto T8;
77    T8:;
78            {object V11;
79            object V12= base[3];
80            if(endp(V12)){
81            V10= Cnil;
82            goto T12;}
83            base[6]=V11=MMcons(Cnil,Cnil);
84            goto T13;
85    T13:;
86            (V11->c.c_car)= (*(LnkLI53))((V12->c.c_car));
87            V12=MMcdr(V12);
88            if(endp(V12)){
89            V10= base[6];
90            goto T12;}
91            V11=MMcdr(V11)=MMcons(Cnil,Cnil);
92            goto T13;}
93            goto T12;
94    T12:;
95            base[6]= listA(5,VV[0],VV[8],/* INLINE-ARGS */V8,V9,append(V10,VV[12]));
96            vs_top=(vs_base=base+6)+1;
97            return;
98    }
99    /*      local entry for function ASK-FOR-FORM   */
100    
101    static object LI3(V14)
102    
103    object V14;
104    {        VMB3 VMS3 VMV3
105            goto TTL;
106    TTL:;
107            V15= list(4,VV[14],VV[15],VV[16],list(2,VV[3],(V14)));
108            {object V16 = list(4,VV[13],/* INLINE-ARGS */V15,VV[17],list(3,VV[18],(V14),VV[19]));
109            VMR3(V16)}
110            return Cnil;
111    }
112    /*      macro definition for ECASE      */
113    
114    static void L4()
115    {register object *base=vs_base;
116            register object *sup=base+VM4; VC4
117            vs_reserve(VM4);
118            check_arg(2);
119            vs_top=sup;
120            {object V17=base[0]->c.c_cdr;
121            if(endp(V17))invalid_macro_call();
122            base[2]= (V17->c.c_car);
123            V17=V17->c.c_cdr;
124            base[3]= V17;
125            vs_base=vs_top;
126            Lgensym();
127            vs_top=sup;
128            base[4]= vs_base[0];}
129            {register object V18;
130            register object V19;
131            V18= reverse(base[3]);
132            V20= list(2,VV[3],base[2]);
133            {object V22;
134            object V23= base[3];
135            if(endp(V23)){
136            V21= Cnil;
137            goto T18;}
138            base[5]=V22=MMcons(Cnil,Cnil);
139            goto T19;
140    T19:;
141            {object V25= car((V23->c.c_car));
142            if(!(type_of(V25)==t_cons||(V25)==Cnil)){
143            goto T22;}}
144            {object V26;
145            object V27= car((V23->c.c_car));
146            if(endp(V27)){
147            (V22->c.c_cdr)= Cnil;
148            goto T20;}
149            base[6]=V26=MMcons(Cnil,Cnil);
150            goto T24;
151    T24:;
152            (V26->c.c_car)= list(2,VV[3],(V27->c.c_car));
153            V27=MMcdr(V27);
154            if(endp(V27)){
155            (V22->c.c_cdr)= base[6];
156            goto T20;}
157            V26=MMcdr(V26)=MMcons(Cnil,Cnil);
158            goto T24;}
159            goto T22;
160    T22:;
161            V29= list(2,VV[3],car((V23->c.c_car)));
162            (V22->c.c_cdr)= make_cons(/* INLINE-ARGS */V29,Cnil);
163            goto T20;
164    T20:;
165            {object cdr_V22=MMcdr(V22);while(!endp(cdr_V22)) {cdr_V22=MMcdr(cdr_V22);V22=MMcdr(V22);}}
166            V23=MMcdr(V23);
167            if(endp(V23)){
168            base[5]=base[5]->c.c_cdr;
169            V21= base[5];
170            goto T18;}
171            goto T19;}
172            goto T18;
173    T18:;
174            V19= list(3,VV[20],VV[21],listA(5,VV[22],VV[23],/* INLINE-ARGS */V20,base[4],V21));
175            goto T27;
176    T27:;
177            if(!(endp_prop((V18)))){
178            goto T28;}
179            V30= list(2,base[4],base[2]);
180            base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V30,Cnil),(V19));
181            vs_top=(vs_base=base+5)+1;
182            return;
183            goto T28;
184    T28:;
185            if((caar((V18)))==Cnil){
186            goto T32;}
187            {object V32= caar((V18));
188            if(!(type_of(V32)==t_cons||(V32)==Cnil)){
189            goto T38;}}
190            V31= list(3,VV[25],base[4],list(2,VV[3],caar((V18))));
191            goto T36;
192            goto T38;
193    T38:;
194            V31= list(3,VV[26],base[4],list(2,VV[3],caar((V18))));
195            goto T36;
196    T36:;
197            V19= list(4,VV[24],V31,make_cons(VV[13],cdar((V18))),(V19));
198            goto T32;
199    T32:;
200            V18= cdr((V18));
201            goto T27;}
202    }
203    /*      macro definition for CCASE      */
204    
205    static void L5()
206    {register object *base=vs_base;
207            register object *sup=base+VM5; VC5
208            vs_reserve(VM5);
209            check_arg(2);
210            vs_top=sup;
211            {object V33=base[0]->c.c_cdr;
212            if(endp(V33))invalid_macro_call();
213            base[2]= (V33->c.c_car);
214            V33=V33->c.c_cdr;
215            base[3]= V33;
216            vs_base=vs_top;
217            Lgensym();
218            vs_top=sup;
219            base[4]= vs_base[0];}
220            V34= list(2,base[4],base[2]);
221            V35= make_cons(/* INLINE-ARGS */V34,Cnil);
222            {object V37;
223            object V38= base[3];
224            if(endp(V38)){
225            V36= Cnil;
226            goto T44;}
227            base[5]=V37=MMcons(Cnil,Cnil);
228            goto T45;
229    T45:;
230            {register object V39;
231            V39= (V38->c.c_car);
232            {object V41= car((V39));
233            if(!(type_of(V41)==t_cons||(V41)==Cnil)){
234            goto T49;}}
235            V40= list(3,VV[25],base[4],list(2,VV[3],car((V39))));
236            goto T47;
237            goto T49;
238    T49:;
239            V40= list(3,VV[26],base[4],list(2,VV[3],car((V39))));
240            goto T47;
241    T47:;
242            (V37->c.c_car)= list(3,VV[28],V40,list(2,VV[29],make_cons(VV[13],cdr((V39)))));}
243            V38=MMcdr(V38);
244            if(endp(V38)){
245            V36= base[5];
246            goto T44;}
247            V37=MMcdr(V37)=MMcons(Cnil,Cnil);
248            goto T45;}
249            goto T44;
250    T44:;
251            V42= list(2,VV[3],base[2]);
252            {object V44;
253            object V45= base[3];
254            if(endp(V45)){
255            V43= Cnil;
256            goto T51;}
257            base[5]=V44=MMcons(Cnil,Cnil);
258            goto T52;
259    T52:;
260            {object V47= car((V45->c.c_car));
261            if(!(type_of(V47)==t_cons||(V47)==Cnil)){
262            goto T55;}}
263            {object V48;
264            object V49= car((V45->c.c_car));
265            if(endp(V49)){
266            (V44->c.c_cdr)= Cnil;
267            goto T53;}
268            base[6]=V48=MMcons(Cnil,Cnil);
269            goto T57;
270    T57:;
271            (V48->c.c_car)= list(2,VV[3],(V49->c.c_car));
272            V49=MMcdr(V49);
273            if(endp(V49)){
274            (V44->c.c_cdr)= base[6];
275            goto T53;}
276            V48=MMcdr(V48)=MMcons(Cnil,Cnil);
277            goto T57;}
278            goto T55;
279    T55:;
280            V51= list(2,VV[3],car((V45->c.c_car)));
281            (V44->c.c_cdr)= make_cons(/* INLINE-ARGS */V51,Cnil);
282            goto T53;
283    T53:;
284            {object cdr_V44=MMcdr(V44);while(!endp(cdr_V44)) {cdr_V44=MMcdr(cdr_V44);V44=MMcdr(V44);}}
285            V45=MMcdr(V45);
286            if(endp(V45)){
287            base[5]=base[5]->c.c_cdr;
288            V43= base[5];
289            goto T51;}
290            goto T52;}
291            goto T51;
292    T51:;
293            V52= listA(6,VV[4],VV[31],VV[32],/* INLINE-ARGS */V42,base[4],V43);
294            V53= (*(LnkLI53))(base[2]);
295            V54= list(5,VV[20],VV[30],/* INLINE-ARGS */V52,/* INLINE-ARGS */V53,VV[33]);
296            V55= make_cons(/* INLINE-ARGS */V54,Cnil);
297            base[5]= list(2,VV[27],listA(3,VV[20],/* INLINE-ARGS */V35,append(V36,/* INLINE-ARGS */V55)));
298            vs_top=(vs_base=base+5)+1;
299            return;
300    }
301    /*      macro definition for TYPECASE   */
302    
303    static void L6()
304    {register object *base=vs_base;
305            register object *sup=base+VM6; VC6
306            vs_reserve(VM6);
307            check_arg(2);
308            vs_top=sup;
309            {object V56=base[0]->c.c_cdr;
310            if(endp(V56))invalid_macro_call();
311            base[2]= (V56->c.c_car);
312            V56=V56->c.c_cdr;
313            base[3]= V56;}
314            {register object V57;
315            register object V58;
316            register object V59;
317            V57= reverse(base[3]);
318            vs_base=vs_top;
319            Lgensym();
320            vs_top=sup;
321            V59= vs_base[0];
322            V58= Cnil;
323            goto T62;
324    T62:;
325            if(!(endp_prop((V57)))){
326            goto T63;}
327            V60= list(2,(V59),base[2]);
328            base[4]= list(3,VV[20],make_cons(/* INLINE-ARGS */V60,Cnil),(V58));
329            vs_top=(vs_base=base+4)+1;
330            return;
331            goto T63;
332    T63:;
333            if((caar((V57)))==(Ct)){
334            goto T68;}
335            if(!((caar((V57)))==(VV[34]))){
336            goto T69;}
337            goto T68;
338    T68:;
339            V58= make_cons(VV[13],cdar((V57)));
340            goto T67;
341            goto T69;
342    T69:;
343            V61= list(3,VV[2],(V59),list(2,VV[3],caar((V57))));
344            V58= list(4,VV[24],/* INLINE-ARGS */V61,make_cons(VV[13],cdar((V57))),(V58));
345            goto T67;
346    T67:;
347            V57= cdr((V57));
348            goto T62;}
349    }
350    /*      macro definition for ETYPECASE  */
351    
352    static void L7()
353    {register object *base=vs_base;
354            register object *sup=base+VM7; VC7
355            vs_reserve(VM7);
356            check_arg(2);
357            vs_top=sup;
358            {object V62=base[0]->c.c_cdr;
359            if(endp(V62))invalid_macro_call();
360            base[2]= (V62->c.c_car);
361            V62=V62->c.c_cdr;
362            base[3]= V62;
363            vs_base=vs_top;
364            Lgensym();
365            vs_top=sup;
366            base[4]= vs_base[0];}
367            {register object V63;
368            register object V64;
369            V63= reverse(base[3]);
370            V65= list(2,VV[3],base[2]);
371            {object V67;
372            object V68= base[3];
373            if(endp(V68)){
374            V66= Cnil;
375            goto T81;}
376            base[5]=V67=MMcons(Cnil,Cnil);
377            goto T82;
378    T82:;
379            (V67->c.c_car)= car((V68->c.c_car));
380            V68=MMcdr(V68);
381            if(endp(V68)){
382            V66= base[5];
383            goto T81;}
384            V67=MMcdr(V67)=MMcons(Cnil,Cnil);
385            goto T82;}
386            goto T81;
387    T81:;
388            V64= list(2,VV[22],list(4,VV[35],/* INLINE-ARGS */V65,base[4],list(2,VV[3],V66)));
389            goto T85;
390    T85:;
391            if(!(endp_prop((V63)))){
392            goto T86;}
393            V70= list(2,base[4],base[2]);
394            base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V70,Cnil),(V64));
395            vs_top=(vs_base=base+5)+1;
396            return;
397            goto T86;
398    T86:;
399            V71= list(3,VV[2],base[4],list(2,VV[3],caar((V63))));
400            V64= list(4,VV[24],/* INLINE-ARGS */V71,make_cons(VV[13],cdar((V63))),(V64));
401            V63= cdr((V63));
402            goto T85;}
403    }
404    /*      macro definition for CTYPECASE  */
405    
406    static void L8()
407    {register object *base=vs_base;
408            register object *sup=base+VM8; VC8
409            vs_reserve(VM8);
410            check_arg(2);
411            vs_top=sup;
412            {object V72=base[0]->c.c_cdr;
413            if(endp(V72))invalid_macro_call();
414            base[2]= (V72->c.c_car);
415            V72=V72->c.c_cdr;
416            base[3]= V72;
417            vs_base=vs_top;
418            Lgensym();
419            vs_top=sup;
420            base[4]= vs_base[0];}
421            V73= list(2,base[4],base[2]);
422            V74= make_cons(/* INLINE-ARGS */V73,Cnil);
423            {object V76;
424            object V77= base[3];
425            if(endp(V77)){
426            V75= Cnil;
427            goto T96;}
428            base[5]=V76=MMcons(Cnil,Cnil);
429            goto T97;
430    T97:;
431            V79= list(3,VV[2],base[4],list(2,VV[3],car((V77->c.c_car))));
432            (V76->c.c_car)= list(3,VV[28],/* INLINE-ARGS */V79,list(2,VV[29],make_cons(VV[13],cdr((V77->c.c_car)))));
433            V77=MMcdr(V77);
434            if(endp(V77)){
435            V75= base[5];
436            goto T96;}
437            V76=MMcdr(V76)=MMcons(Cnil,Cnil);
438            goto T97;}
439            goto T96;
440    T96:;
441            V80= list(2,VV[3],base[2]);
442            {object V82;
443            object V83= base[3];
444            if(endp(V83)){
445            V81= Cnil;
446            goto T99;}
447            base[5]=V82=MMcons(Cnil,Cnil);
448            goto T100;
449    T100:;
450            (V82->c.c_car)= car((V83->c.c_car));
451            V83=MMcdr(V83);
452            if(endp(V83)){
453            V81= base[5];
454            goto T99;}
455            V82=MMcdr(V82)=MMcons(Cnil,Cnil);
456            goto T100;}
457            goto T99;
458    T99:;
459            V85= list(3,VV[4],VV[36],list(4,VV[35],/* INLINE-ARGS */V80,base[4],list(2,VV[3],V81)));
460            V86= make_cons(/* INLINE-ARGS */V85,Cnil);
461            V87= listA(3,VV[20],/* INLINE-ARGS */V74,append(V75,/* INLINE-ARGS */V86));
462            V88= (*(LnkLI53))(base[2]);
463            base[5]= list(4,VV[27],/* INLINE-ARGS */V87,/* INLINE-ARGS */V88,VV[37]);
464            vs_top=(vs_base=base+5)+1;
465            return;
466    }
467    /*      local entry for function TYPECASE-ERROR-STRING  */
468    
469    static object LI9(V92,V93,V94)
470    
471    object V92;object V93;register object V94;
472    {        VMB9 VMS9 VMV9
473            goto TTL;
474    TTL:;
475            {register object V95;
476            register object V96;
477            register object V97;
478            V95= Cnil;
479            V96= Cnil;
480            V97= Cnil;
481            goto T107;
482    T107:;
483            if(!(endp_prop((V94)))){
484            goto T108;}
485            goto T105;
486            goto T108;
487    T108:;
488            if(!(type_of(car((V94)))==t_symbol)){
489            goto T114;}
490            {register object V98;
491            V98= make_cons(car((V94)),Cnil);
492            V95= make_cons((V98),(V95));}
493            {register object V99;
494            V99= car((V94));
495            V94= cdr((V94));
496            goto T112;}
497            goto T114;
498    T114:;
499            {object V100= caar((V94));
500            if((V100!= VV[54]))goto T122;
501            V94= append(cdar((V94)),cdr((V94)));
502            goto T112;
503            goto T122;
504    T122:;
505            if((V100!= VV[25]))goto T124;
506            {
507            object V101= cdar((V94));
508            if(endp(V101)){
509            goto T125;}
510            goto T126;
511    T126:;
512            {register object V102;
513            V102= (V101->c.c_car);
514            {register object V103;
515            V103= list(2,VV[25],(V102));
516            V95= make_cons((V103),(V95));}}
517            V101=MMcdr(V101);
518            if(endp(V101)){
519            (void)(cdar((V94)));
520            goto T125;}
521            goto T126;}
522            goto T125;
523    T125:;
524            {register object V104;
525            V104= car((V94));
526            V94= cdr((V94));
527            goto T112;}
528            goto T124;
529    T124:;
530            if((V100!= VV[55]))goto T133;
531            {register object V105;
532            V105= cadar((V94));
533            V96= make_cons((V105),(V96));}
534            {register object V106;
535            V106= car((V94));
536            V94= cdr((V94));
537            goto T112;}
538            goto T133;
539    T133:;
540            {register object V107;
541            V107= car((V94));
542            V95= make_cons((V107),(V95));}
543            {register object V108;
544            V108= car((V94));
545            V94= cdr((V94));}}
546            goto T112;
547    T112:;
548            goto T107;
549            goto T105;
550    T105:;
551            goto T150;
552    T150:;
553            if(!(endp_prop((V96)))){
554            goto T151;}
555            goto T148;
556            goto T151;
557    T151:;
558            if(!(type_of(car((V96)))==t_symbol)){
559            goto T157;}
560            {register object V109;
561            V109= make_cons(car((V96)),Cnil);
562            V97= make_cons((V109),(V97));}
563            {register object V110;
564            V110= car((V96));
565            V96= cdr((V96));
566            goto T155;}
567            goto T157;
568    T157:;
569            if(!((caar((V96)))==(VV[38]))){
570            goto T166;}
571            V96= append(cdar((V96)),cdr((V96)));
572            goto T155;
573            goto T166;
574    T166:;
575            {register object V111;
576            V111= car((V96));
577            V97= make_cons((V111),(V97));}
578            {register object V112;
579            V112= car((V96));
580            V96= cdr((V96));}
581            goto T155;
582    T155:;
583            goto T150;
584            goto T148;
585    T148:;
586            base[0]= Cnil;
587            base[1]= VV[39];
588            base[2]= (V92);
589            base[3]= (V93);
590            base[4]= VV[40];
591            {object V113;
592            object V114= (V97);
593            if(endp(V114)){
594            base[5]= Cnil;
595            goto T182;}
596            base[6]=V113=MMcons(Cnil,Cnil);
597            goto T183;
598    T183:;
599            (V113->c.c_cdr)= (*(LnkLI56))((V114->c.c_car));
600            {object cdr_V113=MMcdr(V113);while(!endp(cdr_V113)) {cdr_V113=MMcdr(cdr_V113);V113=MMcdr(V113);}}
601            V114=MMcdr(V114);
602            if(endp(V114)){
603            base[6]=base[6]->c.c_cdr;
604            base[5]= base[6];
605            goto T182;}
606            goto T183;}
607            goto T182;
608    T182:;
609            base[6]= VV[41];
610            V115 = make_fixnum((long)length((V95)));
611            V119= reverse((V95));
612            {object V117;
613            object V118= /* INLINE-ARGS */V119;
614            if(endp(V118)){
615            V116= Cnil;
616            goto T187;}
617            base[8]=V117=MMcons(Cnil,Cnil);
618            goto T188;
619    T188:;
620            (V117->c.c_cdr)= (*(LnkLI56))((V118->c.c_car));
621            {object cdr_V117=MMcdr(V117);while(!endp(cdr_V117)) {cdr_V117=MMcdr(cdr_V117);V117=MMcdr(V117);}}
622            V118=MMcdr(V118);
623            if(endp(V118)){
624            base[8]=base[8]->c.c_cdr;
625            V116= base[8];
626            goto T187;}
627            goto T188;}
628            goto T187;
629    T187:;
630            base[7]= listA(3,(V97),V115,V116);
631            vs_top=(vs_base=base+0)+8;
632            Lformat();
633            vs_top=sup;
634            {object V120 = vs_base[0];
635            VMR9(V120)}}
636            base[0]=base[0];
637            return Cnil;
638    }
639    /*      local entry for function TYPECASE-ERROR-STRINGS */
640    
641    static object LI10(V122)
642    
643    register object V122;
644    {        VMB10 VMS10 VMV10
645            goto TTL;
646    TTL:;
647            if(!((car((V122)))==(VV[25]))){
648            goto T191;}switch((long)length(cdr((V122)))){
649            case 0:
650            goto T194;
651    T194:;
652            {object V123 = VV[42];
653            VMR10(V123)}
654            case 1:
655            goto T195;
656    T195:;
657            {object V124 = list(2,VV[43],make_cons(cadr((V122)),Cnil));
658            VMR10(V124)}
659            case 2:
660            goto T196;
661    T196:;
662            {object V125 = list(2,VV[44],cdr((V122)));
663            VMR10(V125)}
664            default:
665            goto T197;
666    T197:;
667            {object V126 = list(2,VV[45],make_cons(cdr((V122)),Cnil));
668            VMR10(V126)}
669            {object V127 = Cnil;
670            VMR10(V127)}}
671            {object V128 = Cnil;
672            VMR10(V128)}
673            goto T191;
674    T191:;
675            if(!((car((V122)))==(VV[46]))){
676            goto T200;}
677            {object V129 = list(2,VV[47],cdr((V122)));
678            VMR10(V129)}
679            goto T200;
680    T200:;
681            if(endp_prop(cdr((V122)))){
682            goto T202;}
683            if(((VFUN_NARGS=2,(*(LnkLI57))(VV[48],cdr((V122)))))!=Cnil){
684            goto T203;}
685            goto T202;
686    T202:;
687            {object V130;
688            {register object x= car((V122)),V131= VV[49];
689            while(!endp(V131))
690            if(type_of(V131->c.c_car)==t_cons &&eql(x,V131->c.c_car->c.c_car)){
691            V130= (V131->c.c_car);
692            goto T207;
693            }else V131=V131->c.c_cdr;
694            V130= Cnil;}
695            goto T207;
696    T207:;
697            if(((V130))==Cnil){
698            goto T209;}
699            {object V132 = list(2,cadr((V130)),Cnil);
700            VMR10(V132)}
701            goto T209;
702    T209:;
703            V133= (*(LnkLI58))(car((V122)));
704            {object V134 = list(2,VV[50],list(2,/* INLINE-ARGS */V133,car((V122))));
705            VMR10(V134)}}
706            goto T203;
707    T203:;
708            V135= (*(LnkLI58))(car((V122)));
709            {object V136 = list(2,VV[51],list(2,/* INLINE-ARGS */V135,(V122)));
710            VMR10(V136)}
711            return Cnil;
712    }
713    /*      local entry for function BOIN-P */
714    
715    static object LI11(V138)
716    
717    object V138;
718    {        VMB11 VMS11 VMV11
719            goto TTL;
720    TTL:;
721            V140= symbol_name((V138));
722            V141= elt(/* INLINE-ARGS */V140,0);
723            {register object x= /* INLINE-ARGS */V141,V139= VV[52];
724            while(!endp(V139))
725            if(eql(x,V139->c.c_car)){
726            {object V142 = V139;
727            VMR11(V142)}
728            }else V139=V139->c.c_cdr;
729            {object V143 = Cnil;
730            VMR11(V143)}}
731            return Cnil;
732    }
733    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;} /* BOIN-P */
734    static object  LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[57],(void **)(void *)&LnkLI57,first,ap);va_end(ap);return V1;} /* REMOVE */
735    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;} /* TYPECASE-ERROR-STRINGS */
736    static object  LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[53],(void **)(void *)&LnkLI53,1,first,ap);va_end(ap);return V1;} /* ASK-FOR-FORM */
737    
738    #ifdef SYSTEM_SPECIAL_INIT
739    SYSTEM_SPECIAL_INIT
740    #endif
741    

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