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

Diff of /gcl/lsp/gcl_defstruct.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_defstruct.h"
4    void init_gcl_defstruct(){do_init(VV);}
5    /*      local entry for function MAKE-ACCESS-FUNCTION   */
6    
7    static object LI1(object V12,object V11,object V10,object V9,object V8,object V7,object V6,object V5,object V4,object V3,object V2,object V1,object first,...)
8    {      
9            va_list ap;
10            int narg = VFUN_NARGS; VMB1 VMS1 VMV1
11            {object V13;
12            object V14;
13            object V15;
14            object V16;
15            object V17;
16            object V18;
17            object V19;
18            object V20;
19            object V21;
20            object V22;
21            object V23;
22            object V24;
23            va_start(ap,first);
24            if(narg <12) too_few_arguments();
25            V13= V12;
26            V14= V11;
27            V15= V10;
28            V16= V9;
29            V17= V8;
30            V18= V7;
31            V19= V6;
32            V20= V5;
33            V21= V4;
34            V22= V3;
35            V23= V2;
36            Vcs[11]=MMcons(V1,Cnil);
37            narg = narg - 12;
38            if (narg <= 0) goto T1;
39            else {
40            V24= first;}
41            --narg; goto T2;
42            goto T1;
43    T1:;
44            V24= Cnil;
45            goto T2;
46    T2:;
47            {register object V25;
48            register object V26;
49            object V27;
50            if(((V15))==Cnil){
51            goto T6;}
52            V25= (V20);
53            goto T4;
54            goto T6;
55    T6:;
56            base[1]= coerce_to_string((V14));
57            base[2]= coerce_to_string((V20));
58            vs_top=(vs_base=base+1)+2;
59            (void) (*Lnk108)();
60            vs_top=sup;
61            base[0]= vs_base[0];
62            vs_top=(vs_base=base+0)+1;
63            Lintern();
64            vs_top=sup;
65            V25= vs_base[0];
66            goto T4;
67    T4:;
68            V26= Cnil;
69            V27= Cnil;
70            {object V28= (V16);
71            if((V28!= Cnil))goto T12;
72            V26= symbol_value(VV[0]);
73            goto T11;
74            goto T12;
75    T12:;
76            if((V28!= VV[20]))goto T14;
77            V26= symbol_value(VV[1]);
78            goto T11;
79            goto T14;
80    T14:;
81            if((V28!= VV[19]))goto T16;
82            V26= symbol_value(VV[2]);
83            goto T11;
84            goto T16;
85    T16:;
86            FEerror("The ECASE key value ~s is illegal.",1,V28);
87            goto T11;}
88            goto T11;
89    T11:;
90            V29 = make_fixnum((long)length((V26)));
91            if(!(number_compare(V29,(Vcs[11]->c.c_car))>0)){
92            goto T19;}
93            goto T18;
94            goto T19;
95    T19:;
96            V30= number_plus((Vcs[11]->c.c_car),small_fixnum(10));
97            (void)((VFUN_NARGS=2,(*(LnkLI109))((V26),/* INLINE-ARGS */V30)));
98            goto T18;
99    T18:;
100            if(((V27))!=Cnil){
101            goto T21;}
102            base[0]= (V25);
103            base[1]= VV[3];
104            base[2]= VV[4];
105            base[3]= (V22);
106            vs_top=(vs_base=base+0)+4;
107            (void) (*Lnk110)();
108            vs_top=sup;
109            if((V19)!=Cnil){
110            goto T21;}{object V31;
111            base[0]= (V25);
112            vs_top=(vs_base=base+0)+1;
113            Lfboundp();
114            vs_top=sup;
115            if((vs_base[0])!=Cnil){
116            goto T31;}
117            V31= Cnil;
118            goto T30;
119            goto T31;
120    T31:;
121            V32= aref1((V26),fixint((Vcs[11]->c.c_car)));
122            base[0]= (V25);
123            vs_top=(vs_base=base+0)+1;
124            Lsymbol_function();
125            vs_top=sup;
126            V33= vs_base[0];
127            V31= ((/* INLINE-ARGS */V32)==(V33)?Ct:Cnil);
128            goto T30;
129    T30:;
130            if(V31==Cnil)goto T29;
131            goto T21;
132            goto T29;
133    T29:;}
134            base[0]= (V25);{object V34;
135            V34= aref1((V26),fixint((Vcs[11]->c.c_car)));
136            if(V34==Cnil)goto T38;
137            base[1]= V34;
138            goto T37;
139            goto T38;
140    T38:;}
141            if(!(((V26))==(symbol_value(VV[0])))){
142            goto T42;}
143            V35=
144            make_cclosure_new(LC16,Cnil,Vcs[11],Cdata);
145            goto T40;
146            goto T42;
147    T42:;
148            if(!(((V26))==(symbol_value(VV[1])))){
149            goto T45;}
150            V35=
151            make_cclosure_new(LC17,Cnil,Vcs[11],Cdata);
152            goto T40;
153            goto T45;
154    T45:;
155            if(!(((V26))==(symbol_value(VV[2])))){
156            goto T48;}
157            V35=
158            make_cclosure_new(LC18,Cnil,Vcs[11],Cdata);
159            goto T40;
160            goto T48;
161    T48:;
162            V35= Cnil;
163            goto T40;
164    T40:;
165            base[1]= aset1((V26),fixint((Vcs[11]->c.c_car)),V35);
166            goto T37;
167    T37:;
168            vs_top=(vs_base=base+0)+2;
169            siLfset();
170            vs_top=sup;
171            goto T21;
172    T21:;
173            if(((V23))==Cnil){
174            goto T52;}
175            (void)(remprop((V25),VV[6]));
176            (void)(sputprop((V25),VV[7],Ct));
177            goto T50;
178            goto T52;
179    T52:;
180            (void)(remprop((V25),VV[8]));
181            (void)(remprop((V25),VV[9]));
182            (void)(remprop((V25),VV[10]));
183            {object V36;
184            V36= get((V25),VV[6],Cnil);
185            if(!(type_of((V36))==t_cons)){
186            goto T60;}
187            if(((V18))==Cnil){
188            goto T60;}
189            base[0]= (V18);
190            base[1]= car((V36));
191            vs_top=(vs_base=base+0)+2;
192            (void) (*Lnk111)();
193            vs_top=sup;
194            if((vs_base[0])==Cnil){
195            goto T60;}
196            if(!(eql(cdr((V36)),(Vcs[11]->c.c_car)))){
197            goto T60;}
198            V27= Ct;
199            goto T50;
200            goto T60;
201    T60:;
202            if(((V16))==Cnil){
203            goto T73;}
204            V37= (V16);
205            goto T71;
206            goto T73;
207    T73:;
208            V37= (V13);
209            goto T71;
210    T71:;
211            V38= make_cons(V37,(Vcs[11]->c.c_car));
212            (void)(sputprop((V25),VV[6],/* INLINE-ARGS */V38));}
213            goto T50;
214    T50:;
215            {object V39 = Cnil;
216            VMR1(V39)}}
217            va_end(ap);
218            base[0]=base[0];
219            return Cnil;}
220            }
221    /*      local entry for function MAKE-CONSTRUCTOR       */
222    
223    static object LI2(V45,V46,V47,V48,V49)
224    
225    object V45;object V46;object V47;object V48;object V49;
226    {        VMB2 VMS2 VMV2
227            goto TTL;
228    TTL:;
229            {object V50;
230            register object V51;
231            {object V52;
232            object V53= (V49);
233            if(endp(V53)){
234            V50= Cnil;
235            goto T75;}
236            base[0]=V52=MMcons(Cnil,Cnil);
237            goto T76;
238    T76:;
239            if(((V53->c.c_car))!=Cnil){
240            goto T79;}
241            (V52->c.c_car)= Cnil;
242            goto T77;
243            goto T79;
244    T79:;
245            if((car((V53->c.c_car)))!=Cnil){
246            goto T82;}
247            (V52->c.c_car)= list(2,VV[11],cadr((V53->c.c_car)));
248            goto T77;
249            goto T82;
250    T82:;
251            (V52->c.c_car)= car((V53->c.c_car));
252            goto T77;
253    T77:;
254            V53=MMcdr(V53);
255            if(endp(V53)){
256            V50= base[0];
257            goto T75;}
258            V52=MMcdr(V52)=MMcons(Cnil,Cnil);
259            goto T76;}
260            goto T75;
261    T75:;
262            {object V55;
263            object V56= (V49);
264            if(endp(V56)){
265            V51= Cnil;
266            goto T84;}
267            base[0]=V55=MMcons(Cnil,Cnil);
268            goto T85;
269    T85:;
270            if(((V56->c.c_car))!=Cnil){
271            goto T88;}
272            (V55->c.c_cdr)= Cnil;
273            goto T86;
274            goto T88;
275    T88:;
276            if((car((V56->c.c_car)))!=Cnil){
277            goto T91;}
278            (V55->c.c_cdr)= Cnil;
279            goto T86;
280            goto T91;
281    T91:;
282            if((cadr((V56->c.c_car)))!=Cnil){
283            goto T94;}
284            (V55->c.c_cdr)= make_cons(car((V56->c.c_car)),Cnil);
285            goto T86;
286            goto T94;
287    T94:;
288            V58= list(2,car((V56->c.c_car)),cadr((V56->c.c_car)));
289            (V55->c.c_cdr)= make_cons(/* INLINE-ARGS */V58,Cnil);
290            goto T86;
291    T86:;
292            {object cdr_V55=MMcdr(V55);while(!endp(cdr_V55)) {cdr_V55=MMcdr(cdr_V55);V55=MMcdr(V55);}}
293            V56=MMcdr(V56);
294            if(endp(V56)){
295            base[0]=base[0]->c.c_cdr;
296            V51= base[0];
297            goto T84;}
298            goto T85;}
299            goto T84;
300    T84:;
301            if(!(type_of((V46))==t_cons)){
302            goto T98;}
303            {register object V59;
304            register object V60;
305            register object V61;
306            V59= cadr((V46));
307            V60= Cnil;
308            V61= Cnil;
309            goto T103;
310    T103:;
311            if(!(endp_prop((V59)))){
312            goto T104;}
313            base[0]= make_cons(VV[12],(V60));
314            {object V62;
315            object V63= (V51);
316            if(endp(V63)){
317            base[1]= Cnil;
318            goto T109;}
319            base[2]=V62=MMcons(Cnil,Cnil);
320            goto T110;
321    T110:;
322            if(!(type_of((V63->c.c_car))!=t_cons)){
323            goto T117;}
324            V66= (V63->c.c_car);
325            goto T115;
326            goto T117;
327    T117:;
328            V66= car((V63->c.c_car));
329            goto T115;
330    T115:;
331            {register object x= V66,V65= (V61);
332            while(!endp(V65))
333            if(eql(x,V65->c.c_car)){
334            goto T114;
335            }else V65=V65->c.c_cdr;
336            goto T113;}
337            goto T114;
338    T114:;
339            (V62->c.c_cdr)= Cnil;
340            goto T111;
341            goto T113;
342    T113:;
343            (V62->c.c_cdr)= make_cons((V63->c.c_car),Cnil);
344            goto T111;
345    T111:;
346            {object cdr_V62=MMcdr(V62);while(!endp(cdr_V62)) {cdr_V62=MMcdr(cdr_V62);V62=MMcdr(V62);}}
347            V63=MMcdr(V63);
348            if(endp(V63)){
349            base[2]=base[2]->c.c_cdr;
350            base[1]= base[2];
351            goto T109;}
352            goto T110;}
353            goto T109;
354    T109:;
355            vs_top=(vs_base=base+0)+2;
356            Lreconc();
357            vs_top=sup;
358            V51= vs_base[0];
359            goto T100;
360            goto T104;
361    T104:;
362            {register object x= car((V59)),V67= VV[13];
363            while(!endp(V67))
364            if(eql(x,V67->c.c_car)){
365            goto T122;
366            }else V67=V67->c.c_cdr;
367            goto T120;}
368            goto T122;
369    T122:;
370            if(!((car((V59)))==(VV[14]))){
371            goto T123;}
372            goto T120;
373            goto T123;
374    T123:;
375            V59= make_cons(VV[14],(V59));
376            goto T120;
377    T120:;
378            if(!((car((V59)))==(VV[14]))){
379            goto T128;}
380            V60= make_cons(VV[14],(V60));
381            {register object V69;
382            object V70;
383            object V71;
384            V69= cdr((V59));
385            V70= Cnil;
386            V71= Cnil;
387            goto T135;
388    T135:;
389            if(!(endp_prop((V69)))){
390            goto T136;}
391            base[0]= make_cons(VV[12],(V60));
392            {object V72;
393            object V73= (V51);
394            if(endp(V73)){
395            base[1]= Cnil;
396            goto T142;}
397            base[2]=V72=MMcons(Cnil,Cnil);
398            goto T143;
399    T143:;
400            if(!(type_of((V73->c.c_car))!=t_cons)){
401            goto T150;}
402            V76= (V73->c.c_car);
403            goto T148;
404            goto T150;
405    T150:;
406            V76= car((V73->c.c_car));
407            goto T148;
408    T148:;
409            {register object x= V76,V75= (V61);
410            while(!endp(V75))
411            if(eql(x,V75->c.c_car)){
412            goto T147;
413            }else V75=V75->c.c_cdr;
414            goto T146;}
415            goto T147;
416    T147:;
417            (V72->c.c_cdr)= Cnil;
418            goto T144;
419            goto T146;
420    T146:;
421            (V72->c.c_cdr)= make_cons((V73->c.c_car),Cnil);
422            goto T144;
423    T144:;
424            {object cdr_V72=MMcdr(V72);while(!endp(cdr_V72)) {cdr_V72=MMcdr(cdr_V72);V72=MMcdr(V72);}}
425            V73=MMcdr(V73);
426            if(endp(V73)){
427            base[2]=base[2]->c.c_cdr;
428            base[1]= base[2];
429            goto T142;}
430            goto T143;}
431            goto T142;
432    T142:;
433            vs_top=(vs_base=base+0)+2;
434            Lreconc();
435            vs_top=sup;
436            V51= vs_base[0];
437            goto T132;
438            goto T136;
439    T136:;
440            {register object x= car((V69)),V77= VV[13];
441            while(!endp(V77))
442            if(eql(x,V77->c.c_car)){
443            goto T155;
444            }else V77=V77->c.c_cdr;
445            goto T153;}
446            goto T155;
447    T155:;
448            if(!((car((V69)))==(VV[15]))){
449            goto T156;}
450            V60= make_cons(VV[15],(V60));
451            V69= cdr((V69));
452            if(endp_prop((V69))){
453            goto T164;}
454            if(type_of(car((V69)))==t_symbol){
455            goto T163;}
456            goto T164;
457    T164:;
458            (void)((*(LnkLI112))());
459            goto T163;
460    T163:;
461            V61= make_cons(car((V69)),(V61));
462            V60= make_cons(car((V69)),(V60));
463            V69= cdr((V69));
464            if(!(endp_prop((V69)))){
465            goto T156;}
466            base[0]= make_cons(VV[12],(V60));
467            {object V78;
468            object V79= (V51);
469            if(endp(V79)){
470            base[1]= Cnil;
471            goto T179;}
472            base[2]=V78=MMcons(Cnil,Cnil);
473            goto T180;
474    T180:;
475            if(!(type_of((V79->c.c_car))!=t_cons)){
476            goto T187;}
477            V82= (V79->c.c_car);
478            goto T185;
479            goto T187;
480    T187:;
481            V82= car((V79->c.c_car));
482            goto T185;
483    T185:;
484            {register object x= V82,V81= (V61);
485            while(!endp(V81))
486            if(eql(x,V81->c.c_car)){
487            goto T184;
488            }else V81=V81->c.c_cdr;
489            goto T183;}
490            goto T184;
491    T184:;
492            (V78->c.c_cdr)= Cnil;
493            goto T181;
494            goto T183;
495    T183:;
496            (V78->c.c_cdr)= make_cons((V79->c.c_car),Cnil);
497            goto T181;
498    T181:;
499            {object cdr_V78=MMcdr(V78);while(!endp(cdr_V78)) {cdr_V78=MMcdr(cdr_V78);V78=MMcdr(V78);}}
500            V79=MMcdr(V79);
501            if(endp(V79)){
502            base[2]=base[2]->c.c_cdr;
503            base[1]= base[2];
504            goto T179;}
505            goto T180;}
506            goto T179;
507    T179:;
508            vs_top=(vs_base=base+0)+2;
509            Lreconc();
510            vs_top=sup;
511            V51= vs_base[0];
512            goto T132;
513            goto T156;
514    T156:;
515            if((car((V69)))==(VV[12])){
516            goto T189;}
517            (void)((*(LnkLI112))());
518            goto T189;
519    T189:;
520            V60= make_cons(VV[12],(V60));
521            {register object V83;
522            V83= cdr((V69));
523            goto T197;
524    T197:;
525            if(!(endp_prop((V83)))){
526            goto T198;}
527            goto T194;
528            goto T198;
529    T198:;
530            V60= make_cons(car((V83)),(V60));
531            if(!(type_of(car((V83)))!=t_cons)){
532            goto T206;}
533            if(!(type_of(car((V83)))==t_symbol)){
534            goto T206;}
535            V61= make_cons(car((V83)),(V61));
536            goto T204;
537            goto T206;
538    T206:;
539            if(!(type_of(caar((V83)))==t_symbol)){
540            goto T212;}
541            if(endp_prop(cdar((V83)))){
542            goto T211;}
543            if(!(endp_prop(cddar((V83))))){
544            goto T212;}
545            goto T211;
546    T211:;
547            V61= make_cons(caar((V83)),(V61));
548            goto T204;
549            goto T212;
550    T212:;
551            (void)((*(LnkLI112))());
552            goto T204;
553    T204:;
554            V83= cdr((V83));
555            goto T197;}
556            goto T194;
557    T194:;
558            base[0]= (V60);
559            {object V84;
560            object V85= (V51);
561            if(endp(V85)){
562            base[1]= Cnil;
563            goto T225;}
564            base[2]=V84=MMcons(Cnil,Cnil);
565            goto T226;
566    T226:;
567            if(!(type_of((V85->c.c_car))!=t_cons)){
568            goto T233;}
569            V88= (V85->c.c_car);
570            goto T231;
571            goto T233;
572    T233:;
573            V88= car((V85->c.c_car));
574            goto T231;
575    T231:;
576            {register object x= V88,V87= (V61);
577            while(!endp(V87))
578            if(eql(x,V87->c.c_car)){
579            goto T230;
580            }else V87=V87->c.c_cdr;
581            goto T229;}
582            goto T230;
583    T230:;
584            (V84->c.c_cdr)= Cnil;
585            goto T227;
586            goto T229;
587    T229:;
588            (V84->c.c_cdr)= make_cons((V85->c.c_car),Cnil);
589            goto T227;
590    T227:;
591            {object cdr_V84=MMcdr(V84);while(!endp(cdr_V84)) {cdr_V84=MMcdr(cdr_V84);V84=MMcdr(V84);}}
592            V85=MMcdr(V85);
593            if(endp(V85)){
594            base[2]=base[2]->c.c_cdr;
595            base[1]= base[2];
596            goto T225;}
597            goto T226;}
598            goto T225;
599    T225:;
600            vs_top=(vs_base=base+0)+2;
601            Lreconc();
602            vs_top=sup;
603            V51= vs_base[0];
604            goto T132;
605            goto T153;
606    T153:;
607            if(!(type_of(car((V69)))!=t_cons)){
608            goto T241;}
609            V70= car((V69));
610            goto T239;
611            goto T241;
612    T241:;
613            if(!(endp_prop(cdar((V69))))){
614            goto T246;}
615            V70= caar((V69));
616            goto T239;
617            goto T246;
618    T246:;
619            goto T237;
620            goto T239;
621    T239:;
622            base[0]= (V70);
623            base[1]= (V51);
624            base[2]= VV[16];
625            base[3]= VV[113];
626            vs_top=(vs_base=base+0)+4;
627            Lmember();
628            vs_top=sup;
629            V71= vs_base[0];
630            if(((V71))==Cnil){
631            goto T237;}
632            V60= make_cons(car((V71)),(V60));
633            goto T235;
634            goto T237;
635    T237:;
636            V60= make_cons(car((V69)),(V60));
637            goto T235;
638    T235:;
639            if(!(type_of(car((V69)))!=t_cons)){
640            goto T260;}
641            if(type_of(car((V69)))==t_symbol){
642            goto T262;}
643            (void)((*(LnkLI112))());
644            goto T262;
645    T262:;
646            V61= make_cons(car((V69)),(V61));
647            goto T258;
648            goto T260;
649    T260:;
650            if(type_of(caar((V69)))==t_symbol){
651            goto T267;}
652            (void)((*(LnkLI112))());
653            goto T258;
654            goto T267;
655    T267:;
656            if(endp_prop(cdar((V69)))){
657            goto T269;}
658            if(!(endp_prop(cddar((V69))))){
659            goto T270;}
660            goto T269;
661    T269:;
662            V61= make_cons(caar((V69)),(V61));
663            goto T258;
664            goto T270;
665    T270:;
666            if(type_of(caddar((V69)))==t_symbol){
667            goto T276;}
668            (void)((*(LnkLI112))());
669            goto T258;
670            goto T276;
671    T276:;
672            if(endp_prop(cdddar((V69)))){
673            goto T279;}
674            (void)((*(LnkLI112))());
675            goto T258;
676            goto T279;
677    T279:;
678            V61= make_cons(caar((V69)),(V61));
679            V61= make_cons(caddar((V69)),(V61));
680            goto T258;
681    T258:;
682            V69= cdr((V69));
683            goto T135;}
684            goto T132;
685    T132:;
686            goto T100;
687            goto T128;
688    T128:;
689            if(type_of(car((V59)))==t_symbol){
690            goto T287;}
691            (void)((*(LnkLI112))());
692            goto T287;
693    T287:;
694            V60= make_cons(car((V59)),(V60));
695            V61= make_cons(car((V59)),(V61));
696            V59= cdr((V59));
697            goto T103;}
698            goto T100;
699    T100:;
700            V46= car((V46));
701            goto T96;
702            goto T98;
703    T98:;
704            V51= make_cons(VV[17],(V51));
705            goto T96;
706    T96:;
707            if(((V47))!=Cnil){
708            goto T299;}
709            {object V89 = list(4,VV[3],(V46),(V51),listA(3,VV[18],list(2,VV[11],(V45)),(V50)));
710            VMR2(V89)}
711            goto T299;
712    T299:;
713            if(((V47))==(VV[19])){
714            goto T301;}
715            if(!(type_of((V47))==t_cons)){
716            goto T302;}
717            if(!((car((V47)))==(VV[19]))){
718            goto T302;}
719            goto T301;
720    T301:;
721            {object V90 = list(4,VV[3],(V46),(V51),make_cons(VV[19],(V50)));
722            VMR2(V90)}
723            goto T302;
724    T302:;
725            if(!(((V47))==(VV[20]))){
726            goto T309;}
727            {object V91 = list(4,VV[3],(V46),(V51),make_cons(VV[20],(V50)));
728            VMR2(V91)}
729            goto T309;
730    T309:;
731            {object V92;
732            base[0]= VV[21];
733            base[1]= (V47);
734            vs_top=(vs_base=base+0)+2;
735            Lerror();
736            vs_top=sup;
737            V92= vs_base[0];
738            if(((V92))==Cnil){
739            goto T315;}
740            {object V93 = (V92);
741            VMR2(V93)}
742            goto T315;
743    T315:;
744            {object V94 = Cnil;
745            VMR2(V94)}}}
746            base[0]=base[0];
747            return Cnil;
748    }
749    /*      local entry for function ILLEGAL-BOA    */
750    
751    static object LI3()
752    
753    {        VMB3 VMS3 VMV3
754            goto TTL;
755    TTL:;
756            base[0]= VV[22];
757            vs_top=(vs_base=base+0)+1;
758            Lerror();
759            vs_top=sup;
760            {object V95 = vs_base[0];
761            VMR3(V95)}
762            base[0]=base[0];
763            return Cnil;
764    }
765    /*      local entry for function MAKE-PREDICATE */
766    
767    static object LI4(V101,V102,V103,V104,V105)
768    
769    object V101;object V102;register object V103;object V104;register object V105;
770    {        VMB4 VMS4 VMV4
771            goto TTL;
772    TTL:;
773            {object V106;
774            V106= (((V103))==Cnil?Ct:Cnil);
775            if(((V106))==Cnil){
776            goto T320;}
777            {object V107 = (V106);
778            VMR4(V107)}
779            goto T320;
780    T320:;
781            if(((V103))==(VV[19])){
782            goto T322;}
783            if(!(type_of((V103))==t_cons)){
784            goto T323;}
785            if(!((car((V103)))==(VV[19]))){
786            goto T323;}
787            goto T322;
788    T322:;
789            if(((V104))!=Cnil){
790            goto T329;}
791            base[0]= VV[23];
792            vs_top=(vs_base=base+0)+1;
793            Lerror();
794            vs_top=sup;
795            goto T329;
796    T329:;
797            V108= list(3,VV[27],VV[28],(V105));
798            V109= list(3,VV[30],VV[31],(V105));
799            {object V110 = list(4,VV[3],(V102),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V108,list(3,VV[29],/* INLINE-ARGS */V109,list(2,VV[11],(V101)))));
800            VMR4(V110)}
801            goto T323;
802    T323:;
803            if(!(((V103))==(VV[20]))){
804            goto T334;}
805            if(((V104))!=Cnil){
806            goto T336;}
807            base[0]= VV[32];
808            vs_top=(vs_base=base+0)+1;
809            Lerror();
810            vs_top=sup;
811            goto T336;
812    T336:;
813            if(!(number_compare((V105),small_fixnum(0))==0)){
814            goto T341;}
815            {object V111 = list(4,VV[3],(V102),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V101)))));
816            VMR4(V111)}
817            goto T341;
818    T341:;
819            V112= list(2,list(3,VV[38],(V105),VV[39]),VV[40]);
820            {object V113 = list(4,VV[3],(V102),VV[36],listA(4,VV[37],/* INLINE-ARGS */V112,list(2,VV[41],list(3,VV[25],VV[42],list(3,VV[29],VV[43],list(2,VV[11],(V101))))),VV[44]));
821            VMR4(V113)}
822            goto T334;
823    T334:;
824            {object V114;
825            base[0]= VV[45];
826            vs_top=(vs_base=base+0)+1;
827            Lerror();
828            vs_top=sup;
829            V114= vs_base[0];
830            if(((V114))==Cnil){
831            goto T346;}
832            {object V115 = (V114);
833            VMR4(V115)}
834            goto T346;
835    T346:;
836            {object V116 = Cnil;
837            VMR4(V116)}}}
838            base[0]=base[0];
839            return Cnil;
840    }
841    /*      local entry for function PARSE-SLOT-DESCRIPTION */
842    
843    static object LI5(V119,V120)
844    
845    register object V119;object V120;
846    {        VMB5 VMS5 VMV5
847            goto TTL;
848    TTL:;
849            {object V121;
850            object V122;
851            register object V123;
852            register object V124;
853            V121= Cnil;
854            V122= Cnil;
855            V123= Cnil;
856            V124= Cnil;
857            if(!(type_of((V119))!=t_cons)){
858            goto T350;}
859            V121= (V119);
860            goto T348;
861            goto T350;
862    T350:;
863            if(!(endp_prop(cdr((V119))))){
864            goto T354;}
865            V121= car((V119));
866            goto T348;
867            goto T354;
868    T354:;
869            V121= car((V119));
870            V122= cadr((V119));
871            {register object V125;
872            register object V126;
873            register object V127;
874            V125= cddr((V119));
875            V126= Cnil;
876            V127= Cnil;
877            goto T363;
878    T363:;
879            if(!(endp_prop((V125)))){
880            goto T364;}
881            goto T348;
882            goto T364;
883    T364:;
884            V126= car((V125));
885            if(!(endp_prop(cdr((V125))))){
886            goto T370;}
887            base[0]= VV[46];
888            base[1]= (V125);
889            vs_top=(vs_base=base+0)+2;
890            Lerror();
891            vs_top=sup;
892            goto T370;
893    T370:;
894            V127= cadr((V125));
895            {object V128= (V126);
896            if((V128!= VV[75]))goto T378;
897            V123= (V127);
898            goto T377;
899            goto T378;
900    T378:;
901            if((V128!= VV[114]))goto T380;
902            V124= (V127);
903            goto T377;
904            goto T380;
905    T380:;
906            base[0]= VV[47];
907            base[1]= (V125);
908            vs_top=(vs_base=base+0)+2;
909            Lerror();
910            vs_top=sup;}
911            goto T377;
912    T377:;
913            V125= cddr((V125));
914            goto T363;}
915            goto T348;
916    T348:;
917            {object V129 = list(5,(V121),(V122),(V123),(V124),(V120));
918            VMR5(V129)}}
919            base[0]=base[0];
920            return Cnil;
921    }
922    /*      local entry for function OVERWRITE-SLOT-DESCRIPTIONS    */
923    
924    static object LI6(V132,V133)
925    
926    object V132;register object V133;
927    {        VMB6 VMS6 VMV6
928            goto TTL;
929    TTL:;
930            if(((V133))!=Cnil){
931            goto T388;}
932            {object V134 = Cnil;
933            VMR6(V134)}
934            goto T388;
935    T388:;
936            {register object V135;
937            base[0]= caar((V133));
938            base[1]= (V132);
939            base[2]= VV[16];
940            base[3]= symbol_function(VV[115]);
941            vs_top=(vs_base=base+0)+4;
942            Lmember();
943            vs_top=sup;
944            V135= vs_base[0];
945            if(((V135))==Cnil){
946            goto T396;}
947            if((cadddr(car((V135))))!=Cnil){
948            goto T398;}
949            if((cadddr(car((V133))))==Cnil){
950            goto T398;}
951            base[0]= VV[48];
952            base[1]= (V135);
953            vs_top=(vs_base=base+0)+2;
954            Lerror();
955            vs_top=sup;
956            goto T398;
957    T398:;
958            {object V136;
959            object V137;
960            V136= car((V135));
961            V137= (*(LnkLI116))(caddr(car((V135))));
962            if(type_of(cddr((V136)))!=t_cons)FEwrong_type_argument(Scons,cddr((V136)));
963            (cddr((V136)))->c.c_car = (V137);
964            (void)(cddr((V136)));}{object V139;
965            V139= caddr(car((V135)));
966            if(V139==Cnil)goto T413;
967            V138= V139;
968            goto T412;
969            goto T413;
970    T413:;}
971            V138= Ct;
972            goto T412;
973    T412:;
974            V140= (*(LnkLI117))(V138);{object V142;
975            V142= caddr(car((V133)));
976            if(V142==Cnil)goto T416;
977            V141= V142;
978            goto T415;
979            goto T416;
980    T416:;}
981            V141= Ct;
982            goto T415;
983    T415:;
984            V143= (*(LnkLI117))(V141);
985            if(equal(/* INLINE-ARGS */V140,/* INLINE-ARGS */V143)){
986            goto T409;}
987            base[0]= VV[49];
988            base[1]= car((V135));
989            vs_top=(vs_base=base+0)+2;
990            Lerror();
991            vs_top=sup;
992            goto T409;
993    T409:;
994            V144= list(5,caar((V135)),cadar((V135)),caddar((V135)),cadddr(car((V135))),car(cddddr(car((V133)))));
995            V145= (*(LnkLI118))((V132),cdr((V133)));
996            {object V146 = make_cons(/* INLINE-ARGS */V144,/* INLINE-ARGS */V145);
997            VMR6(V146)}
998            goto T396;
999    T396:;
1000            V147= car((V133));
1001            V148= (*(LnkLI118))((V132),cdr((V133)));
1002            {object V149 = make_cons(/* INLINE-ARGS */V147,/* INLINE-ARGS */V148);
1003            VMR6(V149)}}
1004            base[0]=base[0];
1005            return Cnil;
1006    }
1007    /*      local entry for function MAKE-T-TYPE    */
1008    
1009    static object LI7(V153,V154,V155)
1010    
1011    object V153;object V154;object V155;
1012    {        VMB7 VMS7 VMV7
1013            goto TTL;
1014    TTL:;
1015            {object V156;
1016            V156= Cnil;
1017            {register object V157;
1018            V157= (VFUN_NARGS=5,(*(LnkLI119))((V153),VV[50],VV[51],VV[52],Ct));
1019            if(((V154))==Cnil){
1020            goto T422;}
1021            {object V158;
1022            object V159;
1023            V158= get((V154),VV[53],Cnil);
1024            V159= Cnil;
1025            if((V158)!=Cnil){
1026            goto T426;}
1027            base[0]= VV[54];
1028            base[1]= (V154);
1029            vs_top=(vs_base=base+0)+2;
1030            Lerror();
1031            vs_top=sup;
1032            goto T426;
1033    T426:;
1034            V159= structure_ref((V158),VV[53],2);
1035            {object V160;
1036            register object V161;
1037            V162 = make_fixnum((long)length((V159)));
1038            V160= (number_compare((V153),V162)<=0?((V153)):V162);
1039            V161= small_fixnum(0);
1040            goto T434;
1041    T434:;
1042            if(!(number_compare((V161),(V160))>=0)){
1043            goto T435;}
1044            goto T422;
1045            goto T435;
1046    T435:;
1047            V163= aref1((V159),fixint((V161)));
1048            (void)(aset1((V157),fixint((V161)),/* INLINE-ARGS */V163));
1049            V161= one_plus((V161));
1050            goto T434;}}
1051            goto T422;
1052    T422:;
1053            {register object V164;
1054            register object V165;
1055            V164= (V155);
1056            V165= car((V164));
1057            goto T447;
1058    T447:;
1059            if(!(endp_prop((V164)))){
1060            goto T448;}
1061            goto T443;
1062            goto T448;
1063    T448:;
1064            V156= car(cddddr((V165)));
1065            {register object V166;
1066            V166= caddr((V165));
1067            base[1]= (V166);
1068            vs_top=(vs_base=base+1)+1;
1069            (void) (*Lnk120)();
1070            vs_top=sup;
1071            V167= vs_base[0];
1072            if(!(number_compare(V167,symbol_value(VV[55]))<=0)){
1073            goto T454;}
1074            base[1]= (V166);
1075            vs_top=(vs_base=base+1)+1;
1076            (void) (*Lnk121)();
1077            vs_top=sup;
1078            V168= vs_base[0];
1079            (void)(aset1((V157),fixint((V156)),V168));}
1080            goto T454;
1081    T454:;
1082            V164= cdr((V164));
1083            V165= car((V164));
1084            goto T447;}
1085            goto T443;
1086    T443:;
1087            V169 = make_fixnum((long)length(symbol_value(VV[56])));
1088            if(!(number_compare((V153),V169)<0)){
1089            goto T468;}
1090            {register object V171;
1091            V171= small_fixnum(0);
1092            goto T473;
1093    T473:;
1094            if(!(number_compare((V171),V153)>=0)){
1095            goto T474;}
1096            goto T470;
1097            goto T474;
1098    T474:;
1099            {long V172= fix(aref1((V157),fixint((V171))));
1100            if((/* INLINE-ARGS */V172)==(0)){
1101            goto T478;}}
1102            {object V173 = (V157);
1103            VMR7(V173)}
1104            goto T478;
1105    T478:;
1106            V171= one_plus((V171));
1107            goto T473;}
1108            goto T470;
1109    T470:;
1110            {object V174 = symbol_value(VV[56]);
1111            VMR7(V174)}
1112            goto T468;
1113    T468:;
1114            {object V175 = (V157);
1115            VMR7(V175)}}}
1116            base[0]=base[0];
1117            return Cnil;
1118    }
1119    /*      local entry for function ROUND-UP       */
1120    
1121    static object LI8(V178,V179)
1122    
1123    long V178;long V179;
1124    {        VMB8 VMS8 VMV8
1125            goto TTL;
1126    TTL:;
1127            base[0]= make_fixnum(V178);
1128            base[1]= make_fixnum(V179);
1129            vs_top=(vs_base=base+0)+2;
1130            Lceiling();
1131            vs_top=sup;
1132            V178= fix(vs_base[0]);
1133            {long V180 = (long)(V178)*(V179);
1134            VMR8((object)V180)}
1135            base[0]=base[0];
1136    }
1137    /*      local entry for function GET-SLOT-POS   */
1138    
1139    static object LI9(V184,V185,V186)
1140    
1141    object V184;object V185;object V186;
1142    {        VMB9 VMS9 VMV9
1143            goto TTL;
1144    TTL:;
1145            {register object V187;
1146            object V188;
1147            object V189;
1148            V187= Cnil;
1149            V188= Cnil;
1150            V189= Cnil;
1151            {register object V190;
1152            register object V191;
1153            V190= (V186);
1154            V191= car((V190));
1155            goto T496;
1156    T496:;
1157            if(!(endp_prop((V190)))){
1158            goto T497;}
1159            goto T492;
1160            goto T497;
1161    T497:;
1162            if(((V191))==Cnil){
1163            goto T501;}
1164            if((car((V191)))==Cnil){
1165            goto T501;}
1166            V187= (*(LnkLI116))(caddr((V191)));
1167            if(type_of(cddr(V191))!=t_cons)FEwrong_type_argument(Scons,cddr(V191));
1168            (cddr(V191))->c.c_car = V187;
1169            (void)(cddr(V191));
1170            {register object V194;
1171            V194= cadr((V191));
1172            base[1]= (V194);
1173            base[2]= (V187);
1174            vs_top=(vs_base=base+1)+2;
1175            (void) (*Lnk122)();
1176            vs_top=sup;
1177            if((vs_base[0])!=Cnil){
1178            goto T510;}
1179            if(!(type_of((V194))==t_symbol)){
1180            goto T516;}
1181            base[1]= (V194);
1182            vs_top=(vs_base=base+1)+1;
1183            Lconstantp();
1184            vs_top=sup;
1185            if((vs_base[0])==Cnil){
1186            goto T516;}
1187            base[1]= (V194);
1188            vs_top=(vs_base=base+1)+1;
1189            Lsymbol_value();
1190            vs_top=sup;
1191            V194= vs_base[0];
1192            goto T516;
1193    T516:;
1194            base[1]= (V194);
1195            vs_top=(vs_base=base+1)+1;
1196            Lconstantp();
1197            vs_top=sup;
1198            if((vs_base[0])!=Cnil){
1199            goto T524;}
1200            goto T510;
1201            goto T524;
1202    T524:;
1203            {object V196;
1204            V196= (*(LnkLI123))((V194),(V187));
1205            if(type_of(cdr(V191))!=t_cons)FEwrong_type_argument(Scons,cdr(V191));
1206            (cdr(V191))->c.c_car = (V196);
1207            (void)(cdr(V191));}}
1208            goto T510;
1209    T510:;
1210            {register object x= (V187),V197= VV[58];
1211            while(!endp(V197))
1212            if(x==(V197->c.c_car)){
1213            goto T530;
1214            }else V197=V197->c.c_cdr;
1215            goto T501;}
1216            goto T530;
1217    T530:;
1218            V188= Ct;
1219            goto T501;
1220    T501:;
1221            V190= cdr((V190));
1222            V191= car((V190));
1223            goto T496;}
1224            goto T492;
1225    T492:;
1226            {object V198;
1227            if(((V188))==Cnil){
1228            goto T538;}
1229            V198= Cnil;
1230            goto T537;
1231            goto T538;
1232    T538:;
1233            V199 = make_fixnum((long)length(symbol_value(VV[57])));
1234            if(number_compare((V184),V199)<0){
1235            goto T540;}
1236            V198= Cnil;
1237            goto T537;
1238            goto T540;
1239    T540:;{object V200;
1240            V200= symbol_value(VV[57]);
1241            base[0]= Ct;
1242            vs_top=(vs_base=base+0)+1;
1243            (void) (*Lnk124)();
1244            vs_top=sup;
1245            V201= vs_base[0];
1246            V198= list(3,V200,number_times((V184),V201),Cnil);}
1247            goto T537;
1248    T537:;
1249            if(((V198))==Cnil){
1250            goto T545;}
1251            {object V202 = (V198);
1252            VMR9(V202)}
1253            goto T545;
1254    T545:;
1255            {object V203;
1256            register long V204;
1257            long V205;
1258            long V206;
1259            object V207;
1260            long V208;
1261            V203= (VFUN_NARGS=5,(*(LnkLI119))((V184),VV[50],VV[59],VV[52],Ct));
1262            V204= 0;
1263            V205= 0;
1264            V206= 0;
1265            V208= 0;
1266            V207= Cnil;
1267            {register object V209;
1268            register object V210;
1269            V209= (V186);
1270            V210= car((V209));
1271            goto T556;
1272    T556:;
1273            if(!(endp_prop((V209)))){
1274            goto T557;}
1275            goto T552;
1276            goto T557;
1277    T557:;
1278            V207= caddr((V210));
1279            base[1]= (V207);
1280            vs_top=(vs_base=base+1)+1;
1281            (void) (*Lnk120)();
1282            vs_top=sup;
1283            V206= fix(vs_base[0]);
1284            V211 = make_fixnum(V206);
1285            if(number_compare(V211,symbol_value(VV[55]))<=0){
1286            goto T566;}
1287            V207= Ct;
1288            if(type_of(cddr(V210))!=t_cons)FEwrong_type_argument(Scons,cddr(V210));
1289            (cddr(V210))->c.c_car = Ct;
1290            (void)(cddr(V210));
1291            V206= fix(symbol_value(VV[55]));
1292            V210= nconc((V210),VV[60]);
1293            goto T566;
1294    T566:;
1295            V208= (long)(*(LnkLI125))(V204,V206);
1296            if(!((V204)==(V208))){
1297            goto T579;}
1298            goto T578;
1299            goto T579;
1300    T579:;
1301            V189= Ct;
1302            goto T578;
1303    T578:;
1304            V204= V208;
1305            V214 = make_fixnum(V204);
1306            (void)(aset1((V203),V205,V214));
1307            V215 = make_fixnum(V204);
1308            base[1]= (V207);
1309            vs_top=(vs_base=base+1)+1;
1310            (void) (*Lnk124)();
1311            vs_top=sup;
1312            V216= vs_base[0];
1313            V204= fix(number_plus(V215,V216));
1314            V205= (long)(V205)+(1);
1315            V209= cdr((V209));
1316            V210= car((V209));
1317            goto T556;}
1318            goto T552;
1319    T552:;
1320            base[0]= Ct;
1321            vs_top=(vs_base=base+0)+1;
1322            (void) (*Lnk124)();
1323            vs_top=sup;
1324            V217= vs_base[0];
1325            V218 = make_fixnum((long)(*(LnkLI125))(V204,fix(V217)));
1326            {object V219 = list(3,(V203),V218,(V189));
1327            VMR9(V219)}}}}
1328            base[0]=base[0];
1329            return Cnil;
1330    }
1331    /*      local entry for function DEFINE-STRUCTURE       */
1332    
1333    static object LI10(object V232,object V231,object V230,object V229,object V228,object V227,object V226,object V225,object V224,object V223,object V222,object V221,object V220,object first,...)
1334    {      
1335            va_list ap;
1336            int narg = VFUN_NARGS; VMB10 VMS10 VMV10
1337            {object V233;
1338            object V234;
1339            register object V235;
1340            object V236;
1341            object V237;
1342            object V238;
1343            object V239;
1344            register object V240;
1345            object V241;
1346            object V242;
1347            object V243;
1348            object V244;
1349            object V245;
1350            register object V246;
1351            va_start(ap,first);
1352            if(narg <13) too_few_arguments();
1353            Vcs[0]=MMcons(V232,Cnil);
1354            V233= V231;
1355            V234= V230;
1356            V235= V229;
1357            V236= V228;
1358            V237= V227;
1359            V238= V226;
1360            V239= V225;
1361            V240= V224;
1362            V241= V223;
1363            V242= V222;
1364            V243= V221;
1365            V244= V220;
1366            narg = narg - 13;
1367            if (narg <= 0) goto T598;
1368            else {
1369            V245= first;}
1370            if (--narg <= 0) goto T599;
1371            else {
1372            V246= va_arg(ap,object);}
1373            --narg; goto T600;
1374            goto T598;
1375    T598:;
1376            V245= Cnil;
1377            goto T599;
1378    T599:;
1379            V246= Cnil;
1380            goto T600;
1381    T600:;
1382            {object V247;
1383            object V248;
1384            V247= Cnil;
1385            V248= Cnil;
1386            if(type_of((V235))==t_cons){
1387            goto T606;}
1388            goto T605;
1389            goto T606;
1390    T606:;
1391            if((car((V235)))==(VV[19])){
1392            goto T608;}
1393            goto T605;
1394            goto T608;
1395    T608:;
1396            V235= VV[19];
1397            goto T605;
1398    T605:;
1399            V248= make_fixnum((long)length((V237)));
1400            {register object V249;
1401            register object V250;
1402            V249= (V237);
1403            V250= car((V249));
1404            goto T617;
1405    T617:;
1406            if(!(endp_prop((V249)))){
1407            goto T618;}
1408            goto T613;
1409            goto T618;
1410    T618:;
1411            if((V250)==Cnil){
1412            goto T622;}
1413            if((car((V250)))!=Cnil){
1414            goto T623;}
1415            goto T622;
1416            goto T623;
1417    T623:;
1418            base[1]= (Vcs[0]->c.c_car);
1419            base[2]= (V233);
1420            base[3]= (V234);
1421            base[4]= (V235);
1422            base[5]= (V236);
1423            base[6]= (V240);
1424            base[7]= (V246);
1425            {object V251;
1426            V251= (V250);
1427             vs_top=base+8;
1428             while(!endp(V251))
1429             {vs_push(car(V251));V251=cdr(V251);}
1430            vs_base=base+1;}
1431            (void) (*Lnk126)();
1432            vs_top=sup;
1433            goto T622;
1434    T622:;
1435            V249= cdr((V249));
1436            V250= car((V249));
1437            goto T617;}
1438            goto T613;
1439    T613:;
1440            if(((V238))==Cnil){
1441            goto T638;}
1442            if(((V246))!=Cnil){
1443            goto T638;}
1444            base[0]= (V238);
1445            {object V252= (V235);
1446            if((V252!= Cnil))goto T645;
1447            base[1]= symbol_function(VV[127]);
1448            goto T644;
1449            goto T645;
1450    T645:;
1451            if((V252!= VV[20]))goto T646;
1452            base[1]= symbol_function(VV[128]);
1453            goto T644;
1454            goto T646;
1455    T646:;
1456            if((V252!= VV[19]))goto T647;
1457            base[1]= symbol_function(VV[129]);
1458            goto T644;
1459            goto T647;
1460    T647:;
1461            FEerror("The ECASE key value ~s is illegal.",1,V252);
1462            base[1]= Cnil;
1463            goto T644;}
1464            goto T644;
1465    T644:;
1466            vs_top=(vs_base=base+0)+2;
1467            siLfset();
1468            vs_top=sup;
1469            goto T638;
1470    T638:;
1471            if(((V235))!=Cnil){
1472            goto T650;}
1473            if(!(((Vcs[0]->c.c_car))==(VV[53]))){
1474            goto T650;}
1475            base[1]= Ct;
1476            vs_top=(vs_base=base+1)+1;
1477            (void) (*Lnk124)();
1478            vs_top=sup;
1479            V253= vs_base[0];
1480            V254= number_times((V248),V253);
1481            base[0]= (VFUN_NARGS=5,(*(LnkLI119))(/* INLINE-ARGS */V254,VV[50],VV[61],VV[52],Ct));
1482            base[1]= (*(LnkLI130))((V248),Cnil,(V237));
1483            base[2]= symbol_value(VV[57]);
1484            base[3]= (V237);
1485            base[4]= Ct;
1486            vs_top=(vs_base=base+0)+5;
1487            (void) (*Lnk131)();
1488            vs_top=sup;
1489            V247= vs_base[0];
1490            goto T648;
1491            goto T650;
1492    T650:;
1493            {object V255;
1494            object V256;
1495            object V257;
1496            object V258;
1497            if((V240)==Cnil){
1498            V258= Cnil;
1499            goto T662;}
1500            V258= get((V240),VV[53],Cnil);
1501            goto T662;
1502    T662:;
1503            V255= Cnil;
1504            V256= small_fixnum(0);
1505            V257= Cnil;
1506            if(((V258))==Cnil){
1507            goto T663;}
1508            if((structure_ref((V258),VV[53],11))==Cnil){
1509            goto T666;}
1510            if((structure_ref((V258),VV[53],3))==Cnil){
1511            goto T667;}
1512            {object V259;
1513            V259= get((Vcs[0]->c.c_car),VV[53],Cnil);
1514            if((V259)==Cnil){
1515            goto T672;}
1516            V260= structure_ref((V259),VV[53],4);
1517            if((/* INLINE-ARGS */V260)==((V258))){
1518            goto T666;}}
1519            goto T672;
1520    T672:;
1521            goto T667;
1522    T667:;
1523            (void)((VFUN_NARGS=2,(*(LnkLI132))(VV[62],(V240))));
1524            goto T666;
1525    T666:;
1526            {object V261;
1527            object V263;
1528            V261= (Vcs[0]->c.c_car);
1529            base[1]= (V261);
1530            base[2]= structure_ref(V258,VV[53],3);
1531            vs_top=(vs_base=base+1)+2;
1532            Ladjoin();
1533            vs_top=sup;
1534            V263= vs_base[0];
1535            (void)(structure_set(V258,VV[53],3,(V263)));}
1536            goto T663;
1537    T663:;
1538            if(((V235))!=Cnil){
1539            goto T678;}
1540            V255= (*(LnkLI133))((V248),(V240),(V237));
1541            V256= cadr((V255));
1542            V257= caddr((V255));
1543            V255= car((V255));
1544            goto T678;
1545    T678:;
1546            if(((V235))==Cnil){
1547            goto T690;}
1548            V264= Cnil;
1549            goto T689;
1550            goto T690;
1551    T690:;
1552            V264= (*(LnkLI130))((V248),(V240),(V237));
1553            goto T689;
1554    T689:;
1555            V247= (VFUN_NARGS=32,(*(LnkLI134))(VV[63],(Vcs[0]->c.c_car),VV[64],(V248),VV[65],V264,VV[66],(V255),VV[67],(V256),VV[68],(V257),VV[69],(V239),VV[70],(V258),VV[71],(V241),VV[72],(V237),VV[73],(V242),VV[74],(V243),VV[75],(V235),VV[76],(V236),VV[77],(V245),VV[78],(V233)));}
1556            goto T648;
1557    T648:;
1558            {object V265;
1559            V265= get((Vcs[0]->c.c_car),VV[53],Cnil);
1560            if(!(((Vcs[0]->c.c_car))==(VV[53]))){
1561            goto T696;}
1562            if(((V265))==Cnil){
1563            goto T698;}
1564            (void)((VFUN_NARGS=1,(*(LnkLI132))(VV[79])));
1565            goto T698;
1566    T698:;
1567            if((V265)!=Cnil){
1568            goto T694;}
1569            (void)(sputprop((Vcs[0]->c.c_car),VV[53],(V247)));
1570            goto T694;
1571            goto T696;
1572    T696:;
1573            if(((V265))==Cnil){
1574            goto T702;}
1575            (void)((*(LnkLI135))((V265),(V247),(Vcs[0]->c.c_car)));
1576            goto T694;
1577            goto T702;
1578    T702:;
1579            (void)(sputprop((Vcs[0]->c.c_car),VV[53],(V247)));
1580            goto T694;
1581    T694:;
1582            if(((V245))==Cnil){
1583            goto T704;}
1584            (void)(sputprop((Vcs[0]->c.c_car),VV[80],(V245)));
1585            goto T704;
1586    T704:;
1587            if(((V235))!=Cnil){
1588            goto T692;}
1589            if(((V244))==Cnil){
1590            goto T692;}
1591            base[0]= (V244);
1592            base[1]= VV[3];
1593            base[2]= VV[81];
1594            base[3]= Ct;
1595            vs_top=(vs_base=base+0)+4;
1596            (void) (*Lnk110)();
1597            vs_top=sup;
1598            if((V246)!=Cnil){
1599            goto T716;}
1600            base[0]= (V244);
1601            base[1]=
1602            make_cclosure_new(LC20,Cnil,Vcs[0],Cdata);
1603            vs_top=(vs_base=base+0)+2;
1604            siLfset();
1605            vs_top=sup;
1606            goto T716;
1607    T716:;
1608            (void)(sputprop((V244),VV[82],VV[83]));
1609            (void)(sputprop((V244),VV[84],(Vcs[0]->c.c_car)));}
1610            goto T692;
1611    T692:;
1612            {object V266 = Cnil;
1613            VMR10(V266)}}
1614            va_end(ap);
1615            base[0]=base[0];
1616            return Cnil;}
1617            }
1618    /*      macro definition for DEFSTRUCT  */
1619    
1620    static void L11()
1621    {register object *base=vs_base;
1622            register object *sup=base+VM11; VC11
1623            vs_reserve(VM11);
1624            check_arg(2);
1625            vs_top=sup;
1626            {object V267=base[0]->c.c_cdr;
1627            if(endp(V267))invalid_macro_call();
1628            base[2]= (V267->c.c_car);
1629            V267=V267->c.c_cdr;
1630            base[3]= V267;}
1631            {register object V268;
1632            object V269;
1633            register object V270;
1634            register object V271;
1635            register object V272;
1636            register object V273;
1637            register object V274;
1638            register object V275;
1639            register object V276;
1640            register object V277;
1641            register object V278;
1642            register object V279;
1643            register object V280;
1644            register object V281;
1645            register object V282;
1646            object V283;
1647            object V284;
1648            register object V285;
1649            register object V286;
1650            V268= base[3];
1651            V269= Cnil;
1652            V270= Cnil;
1653            V271= Cnil;
1654            V272= Cnil;
1655            V273= Cnil;
1656            V274= Cnil;
1657            V275= Cnil;
1658            V276= Cnil;
1659            V277= Cnil;
1660            V278= Cnil;
1661            V279= Cnil;
1662            V280= Cnil;
1663            V281= Cnil;
1664            V282= Cnil;
1665            V283= Cnil;
1666            V284= Cnil;
1667            V285= Cnil;
1668            V286= Cnil;
1669            if(!(type_of(base[2])==t_cons)){
1670            goto T720;}
1671            V269= cdr(base[2]);
1672            base[2]= car(base[2]);
1673            goto T720;
1674    T720:;
1675            base[4]= coerce_to_string(base[2]);
1676            base[5]= VV[85];
1677            vs_top=(vs_base=base+4)+2;
1678            (void) (*Lnk108)();
1679            vs_top=sup;
1680            V270= vs_base[0];
1681            base[5]= VV[86];
1682            base[6]= coerce_to_string(base[2]);
1683            vs_top=(vs_base=base+5)+2;
1684            (void) (*Lnk108)();
1685            vs_top=sup;
1686            base[4]= vs_base[0];
1687            vs_top=(vs_base=base+4)+1;
1688            Lintern();
1689            vs_top=sup;
1690            V272= vs_base[0];
1691            base[5]= VV[87];
1692            base[6]= coerce_to_string(base[2]);
1693            vs_top=(vs_base=base+5)+2;
1694            (void) (*Lnk108)();
1695            vs_top=sup;
1696            base[4]= vs_base[0];
1697            vs_top=(vs_base=base+4)+1;
1698            Lintern();
1699            vs_top=sup;
1700            V274= vs_base[0];
1701            base[5]= coerce_to_string(base[2]);
1702            base[6]= VV[88];
1703            vs_top=(vs_base=base+5)+2;
1704            (void) (*Lnk108)();
1705            vs_top=sup;
1706            base[4]= vs_base[0];
1707            vs_top=(vs_base=base+4)+1;
1708            Lintern();
1709            vs_top=sup;
1710            V275= vs_base[0];
1711            {register object V287;
1712            register object V288;
1713            register object V289;
1714            V287= (V269);
1715            V288= Cnil;
1716            V289= Cnil;
1717            goto T747;
1718    T747:;
1719            if(!(endp_prop((V287)))){
1720            goto T748;}
1721            goto T745;
1722            goto T748;
1723    T748:;
1724            if(!(type_of(car((V287)))==t_cons)){
1725            goto T754;}
1726            if(endp_prop(cdar((V287)))){
1727            goto T754;}
1728            V288= caar((V287));
1729            V289= cadar((V287));
1730            {object V290= (V288);
1731            if((V290!= VV[78]))goto T762;
1732            if(((V289))!=Cnil){
1733            goto T764;}
1734            V270= VV[89];
1735            V286= Ct;
1736            goto T752;
1737            goto T764;
1738    T764:;
1739            V270= (V289);
1740            goto T752;
1741            goto T762;
1742    T762:;
1743            if((V290!= VV[136]))goto T770;
1744            if(((V289))!=Cnil){
1745            goto T772;}
1746            V273= Ct;
1747            goto T752;
1748            goto T772;
1749    T772:;
1750            if(!(endp_prop(cddar((V287))))){
1751            goto T776;}
1752            V271= make_cons((V289),(V271));
1753            goto T752;
1754            goto T776;
1755    T776:;
1756            V271= make_cons(cdar((V287)),(V271));
1757            goto T752;
1758            goto T770;
1759    T770:;
1760            if((V290!= VV[137]))goto T780;
1761            V274= (V289);
1762            goto T752;
1763            goto T780;
1764    T780:;
1765            if((V290!= VV[52]))goto T782;
1766            V285= (V289);
1767            goto T752;
1768            goto T782;
1769    T782:;
1770            if((V290!= VV[138]))goto T784;
1771            V275= (V289);
1772            V276= Ct;
1773            goto T752;
1774            goto T784;
1775    T784:;
1776            if((V290!= VV[139]))goto T788;
1777            V277= cdar((V287));
1778            if((get((V289),VV[53],Cnil))!=Cnil){
1779            goto T752;}
1780            base[4]= VV[90];
1781            base[5]= (V289);
1782            vs_top=(vs_base=base+4)+2;
1783            Lerror();
1784            vs_top=sup;
1785            goto T752;
1786            goto T788;
1787    T788:;
1788            if((V290!= VV[71]))goto T795;
1789            if(type_of((V289))==t_cons){
1790            goto T797;}
1791            goto T796;
1792            goto T797;
1793    T797:;
1794            if((car((V289)))==(VV[91])){
1795            goto T799;}
1796            goto T796;
1797            goto T799;
1798    T799:;
1799            V289= cadr((V289));
1800            goto T796;
1801    T796:;
1802            V278= (V289);
1803            goto T752;
1804            goto T795;
1805    T795:;
1806            if((V290!= VV[75]))goto T803;
1807            V279= (V289);
1808            goto T752;
1809            goto T803;
1810    T803:;
1811            if((V290!= VV[140]))goto T805;
1812            V281= (V289);
1813            goto T752;
1814            goto T805;
1815    T805:;
1816            base[4]= VV[92];
1817            base[5]= (V288);
1818            vs_top=(vs_base=base+4)+2;
1819            Lerror();
1820            vs_top=sup;
1821            goto T752;}
1822            goto T754;
1823    T754:;
1824            if(!(type_of(car((V287)))==t_cons)){
1825            goto T811;}
1826            V288= caar((V287));
1827            goto T809;
1828            goto T811;
1829    T811:;
1830            V288= car((V287));
1831            goto T809;
1832    T809:;
1833            {object V291= (V288);
1834            if((V291!= VV[136]))goto T815;
1835            V271= make_cons((V272),(V271));
1836            goto T752;
1837            goto T815;
1838    T815:;
1839            if((V291!= VV[137])
1840            && (V291!= VV[138])
1841            && (V291!= VV[71]))goto T817;
1842            goto T752;
1843            goto T817;
1844    T817:;
1845            if((V291!= VV[78]))goto T818;
1846            V270= VV[93];
1847            V286= Ct;
1848            goto T752;
1849            goto T818;
1850    T818:;
1851            if((V291!= VV[76]))goto T822;
1852            V280= Ct;
1853            goto T752;
1854            goto T822;
1855    T822:;
1856            base[4]= VV[94];
1857            base[5]= (V288);
1858            vs_top=(vs_base=base+4)+2;
1859            Lerror();
1860            vs_top=sup;}
1861            goto T752;
1862    T752:;
1863            V287= cdr((V287));
1864            goto T747;}
1865            goto T745;
1866    T745:;
1867            base[4]= coerce_to_string((V270));
1868            vs_top=(vs_base=base+4)+1;
1869            Lintern();
1870            vs_top=sup;
1871            V270= vs_base[0];
1872            if((V277)==Cnil){
1873            goto T832;}
1874            if(((V278))==Cnil){
1875            goto T833;}
1876            goto T832;
1877            goto T833;
1878    T833:;
1879            V292= get(car((V277)),VV[53],Cnil);
1880            V278= structure_ref(V292,VV[53],6);
1881            goto T832;
1882    T832:;
1883            if(endp_prop((V268))){
1884            goto T837;}
1885            if(!(type_of(car((V268)))==t_string)){
1886            goto T837;}
1887            V284= car((V268));
1888            V268= cdr((V268));
1889            goto T837;
1890    T837:;
1891            if(((V277))==Cnil){
1892            goto T845;}
1893            V293= get(car((V277)),VV[53],Cnil);
1894            V294= structure_ref(V293,VV[53],16);
1895            if(equal((V279),/* INLINE-ARGS */V294)){
1896            goto T845;}
1897            base[4]= VV[95];
1898            base[5]= car((V277));
1899            vs_top=(vs_base=base+4)+2;
1900            Lerror();
1901            vs_top=sup;
1902            goto T845;
1903    T845:;
1904            if(((V277))!=Cnil){
1905            goto T855;}
1906            V282= small_fixnum(0);
1907            goto T853;
1908            goto T855;
1909    T855:;
1910            V295= get(car((V277)),VV[53],Cnil);
1911            V282= structure_ref(V295,VV[53],14);
1912            goto T853;
1913    T853:;
1914            if(((V279))==Cnil){
1915            goto T860;}
1916            if(((V281))==Cnil){
1917            goto T860;}
1918            V282= number_plus((V282),(V281));
1919            goto T860;
1920    T860:;
1921            if(((V279))==Cnil){
1922            goto T866;}
1923            if(((V280))==Cnil){
1924            goto T866;}
1925            V283= (V282);
1926            V282= one_plus((V282));
1927            goto T866;
1928    T866:;
1929            {register object V296;
1930            register object V297;
1931            V296= (V268);
1932            V297= Cnil;
1933            goto T876;
1934    T876:;
1935            if(!(endp_prop((V296)))){
1936            goto T877;}
1937            V268= nreverse((V297));
1938            goto T874;
1939            goto T877;
1940    T877:;
1941            V298= (*(LnkLI141))(car((V296)),(V282));
1942            V297= make_cons(/* INLINE-ARGS */V298,(V297));
1943            V282= one_plus((V282));
1944            V296= cdr((V296));
1945            goto T876;}
1946            goto T874;
1947    T874:;
1948            if(((V279))==Cnil){
1949            goto T889;}
1950            if(((V280))==Cnil){
1951            goto T889;}
1952            V299= list(2,Cnil,base[2]);
1953            V268= make_cons(/* INLINE-ARGS */V299,(V268));
1954            goto T889;
1955    T889:;
1956            if(((V279))==Cnil){
1957            goto T895;}
1958            if(((V281))==Cnil){
1959            goto T895;}
1960            base[4]= (V281);
1961            vs_top=(vs_base=base+4)+1;
1962            Lmake_list();
1963            vs_top=sup;
1964            V300= vs_base[0];
1965            V268= append(V300,(V268));
1966            goto T895;
1967    T895:;
1968            {object V301;
1969            V301= (((V277))==Cnil?Ct:Cnil);
1970            if(((V301))==Cnil){
1971            goto T906;}
1972            goto T903;
1973            goto T906;
1974    T906:;
1975            if(!(endp_prop(cdr((V277))))){
1976            goto T909;}
1977            V302= get(car((V277)),VV[53],Cnil);
1978            V303= structure_ref(V302,VV[53],7);
1979            V268= append(/* INLINE-ARGS */V303,(V268));
1980            goto T903;
1981            goto T909;
1982    T909:;
1983            {object V305;
1984            object V306= cdr((V277));
1985            if(endp(V306)){
1986            V304= Cnil;
1987            goto T914;}
1988            base[4]=V305=MMcons(Cnil,Cnil);
1989            goto T915;
1990    T915:;
1991            (V305->c.c_car)= (*(LnkLI141))((V306->c.c_car),small_fixnum(0));
1992            V306=MMcdr(V306);
1993            if(endp(V306)){
1994            V304= base[4];
1995            goto T914;}
1996            V305=MMcdr(V305)=MMcons(Cnil,Cnil);
1997            goto T915;}
1998            goto T914;
1999    T914:;
2000            V308= get(car((V277)),VV[53],Cnil);
2001            V309= structure_ref(V308,VV[53],7);
2002            V310= (*(LnkLI118))(V304,/* INLINE-ARGS */V309);
2003            V268= append(/* INLINE-ARGS */V310,(V268));}
2004            goto T903;
2005    T903:;
2006            if(((V273))==Cnil){
2007            goto T920;}
2008            if(((V271))==Cnil){
2009            goto T918;}
2010            base[4]= VV[96];
2011            vs_top=(vs_base=base+4)+1;
2012            Lerror();
2013            vs_top=sup;
2014            goto T918;
2015            goto T920;
2016    T920:;
2017            if(((V271))!=Cnil){
2018            goto T918;}
2019            V271= make_cons((V272),Cnil);
2020            goto T918;
2021    T918:;{object V311;
2022            {object V314;
2023            object V315= (V271);
2024            if(endp(V315)){
2025            V313= Cnil;
2026            goto T931;}
2027            base[4]=V314=MMcons(Cnil,Cnil);
2028            goto T932;
2029    T932:;
2030            base[5]= (V315->c.c_car);
2031            vs_top=(vs_base=base+5)+1;
2032            Lsymbolp();
2033            vs_top=sup;
2034            (V314->c.c_car)= vs_base[0];
2035            V315=MMcdr(V315);
2036            if(endp(V315)){
2037            V313= base[4];
2038            goto T931;}
2039            V314=MMcdr(V314)=MMcons(Cnil,Cnil);
2040            goto T932;}
2041            goto T931;
2042    T931:;
2043            {register object x= Ct,V312= V313;
2044            while(!endp(V312))
2045            if(eql(x,V312->c.c_car)){
2046            V311= V312;
2047            goto T930;
2048            }else V312=V312->c.c_cdr;
2049            V311= Cnil;}
2050            goto T930;
2051    T930:;
2052            if(V311==Cnil)goto T929;
2053            goto T928;
2054            goto T929;
2055    T929:;}
2056            {object V316;
2057            base[6]= VV[97];
2058            base[7]= (V272);
2059            vs_top=(vs_base=base+6)+2;
2060            (void) (*Lnk108)();
2061            vs_top=sup;
2062            base[5]= vs_base[0];
2063            vs_top=(vs_base=base+5)+1;
2064            Lintern();
2065            vs_top=sup;
2066            V316= vs_base[0];
2067            V271= make_cons((V316),(V271));}
2068            goto T928;
2069    T928:;
2070            if(((V279))==Cnil){
2071            goto T940;}
2072            if(((V280))!=Cnil){
2073            goto T940;}
2074            if(((V276))==Cnil){
2075            goto T945;}
2076            base[4]= VV[98];
2077            base[5]= (V275);
2078            vs_top=(vs_base=base+4)+2;
2079            Lerror();
2080            vs_top=sup;
2081            goto T945;
2082    T945:;
2083            V275= Cnil;
2084            goto T940;
2085    T940:;
2086            if(((V277))==Cnil){
2087            goto T951;}
2088            V277= car((V277));
2089            goto T951;
2090    T951:;
2091            if(((V278))==Cnil){
2092            goto T955;}
2093            if(((V279))==Cnil){
2094            goto T955;}
2095            base[4]= VV[99];
2096            vs_top=(vs_base=base+4)+1;
2097            Lerror();
2098            vs_top=sup;
2099            goto T955;
2100    T955:;
2101            base[4]= VV[101];
2102            base[5]= list(2,VV[11],base[2]);
2103            base[6]= list(2,VV[11],(V270));
2104            base[7]= list(2,VV[11],(V286));
2105            base[8]= list(2,VV[11],(V279));
2106            base[9]= list(2,VV[11],(V280));
2107            base[10]= list(2,VV[11],(V268));
2108            base[11]= list(2,VV[11],(V274));
2109            base[12]= list(2,VV[11],(V285));
2110            base[13]= list(2,VV[11],(V277));
2111            base[14]= list(2,VV[11],(V278));
2112            base[15]= list(2,VV[11],(V271));
2113            base[16]= list(2,VV[11],(V282));
2114            base[17]= list(2,VV[11],(V275));
2115            base[18]= list(2,VV[11],(V284));
2116            vs_top=(vs_base=base+4)+15;
2117            Llist();
2118            vs_top=sup;
2119            V317= vs_base[0];
2120            {object V319;
2121            object V320= (V271);
2122            if(endp(V320)){
2123            base[4]= Cnil;
2124            goto T978;}
2125            base[5]=V319=MMcons(Cnil,Cnil);
2126            goto T979;
2127    T979:;
2128            (V319->c.c_car)= (*(LnkLI142))(base[2],(V320->c.c_car),(V279),(V280),(V268));
2129            V320=MMcdr(V320);
2130            if(endp(V320)){
2131            base[4]= base[5];
2132            goto T978;}
2133            V319=MMcdr(V319)=MMcons(Cnil,Cnil);
2134            goto T979;}
2135            goto T978;
2136    T978:;
2137            if(((V279))==Cnil){
2138            goto T983;}
2139            if(((V275))==Cnil){
2140            goto T983;}
2141            V322= (*(LnkLI143))(base[2],(V275),(V279),(V280),(V283));
2142            base[5]= make_cons(/* INLINE-ARGS */V322,Cnil);
2143            goto T981;
2144            goto T983;
2145    T983:;
2146            base[5]= Cnil;
2147            goto T981;
2148    T981:;
2149            V323= list(2,VV[11],base[2]);
2150            base[6]= make_cons(/* INLINE-ARGS */V323,Cnil);
2151            vs_top=(vs_base=base+4)+3;
2152            Lappend();
2153            vs_top=sup;
2154            V318= vs_base[0];
2155            base[4]= listA(3,VV[100],V317,V318);
2156            vs_top=(vs_base=base+4)+1;
2157            return;}
2158    }
2159    /*      local entry for function MAKE-S-DATA    */
2160    
2161    static object LI12(object first,...)
2162    {      
2163            va_list ap;
2164            int narg = VFUN_NARGS; VMB12 VMS12 VMV12
2165            {object V324;
2166            object V325;
2167            object V326;
2168            object V327;
2169            object V328;
2170            object V329;
2171            object V330;
2172            object V331;
2173            object V332;
2174            object V333;
2175            object V334;
2176            object V335;
2177            object V336;
2178            object V337;
2179            object V338;
2180            object V339;
2181            object V340;
2182            object V341;
2183            va_start(ap,first);
2184            narg= narg - 0;
2185            {
2186            parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI12key,first,ap);
2187            V324=(Vcs[0]);
2188            V325=(Vcs[1]);
2189            V326=(Vcs[2]);
2190            V327=(Vcs[3]);
2191            V328=(Vcs[4]);
2192            V329=(Vcs[5]);
2193            V330=(Vcs[6]);
2194            V331=(Vcs[7]);
2195            V332=(Vcs[8]);
2196            V333=(Vcs[9]);
2197            V334=(Vcs[10]);
2198            V335=(Vcs[11]);
2199            V336=(Vcs[12]);
2200            V337=(Vcs[13]);
2201            V338=(Vcs[14]);
2202            V339=(Vcs[15]);
2203            V340=(Vcs[16]);
2204            V341=(Vcs[17]);
2205            base[0]= VV[53];
2206            base[1]= (V324);
2207            base[2]= (V325);
2208            base[3]= (V326);
2209            base[4]= (V327);
2210            base[5]= (V328);
2211            base[6]= (V329);
2212            base[7]= (V330);
2213            base[8]= (V331);
2214            base[9]= (V332);
2215            base[10]= (V333);
2216            base[11]= (V334);
2217            base[12]= (V335);
2218            base[13]= (V336);
2219            base[14]= (V337);
2220            base[15]= (V338);
2221            base[16]= (V339);
2222            base[17]= (V340);
2223            base[18]= (V341);
2224            vs_top=(vs_base=base+0)+19;
2225            siLmake_structure();
2226            vs_top=sup;
2227            {object V342 = vs_base[0];
2228            VMR12(V342)}
2229            va_end(ap);
2230            base[0]=base[0];
2231            return Cnil;}
2232            }}
2233    /*      local entry for function CHECK-S-DATA   */
2234    
2235    static object LI13(V346,V347,V348)
2236    
2237    register object V346;register object V347;object V348;
2238    {        VMB13 VMS13 VMV13
2239            goto TTL;
2240    TTL:;
2241            if((structure_ref((V346),VV[53],3))==Cnil){
2242            goto T1007;}
2243            V349= structure_ref((V346),VV[53],3);
2244            (void)(structure_set((V347),VV[53],3,/* INLINE-ARGS */V349));
2245            goto T1007;
2246    T1007:;
2247            if((structure_ref((V346),VV[53],11))==Cnil){
2248            goto T1010;}
2249            (void)(structure_set((V347),VV[53],11,Ct));
2250            goto T1010;
2251    T1010:;
2252            if(equalp((V347),(V346))){
2253            goto T1014;}
2254            (void)((VFUN_NARGS=2,(*(LnkLI132))(VV[102],(V348))));
2255            {object V350 = sputprop((V348),VV[53],(V347));
2256            VMR13(V350)}
2257            goto T1014;
2258    T1014:;
2259            {object V351 = Cnil;
2260            VMR13(V351)}
2261            return Cnil;
2262    }
2263    /*      local entry for function FREEZE-DEFSTRUCT       */
2264    
2265    static object LI14(V353)
2266    
2267    object V353;
2268    {        VMB14 VMS14 VMV14
2269            goto TTL;
2270    TTL:;
2271            {object V354;
2272            if(type_of((V353))==t_symbol){
2273            goto T1018;}
2274            V354= Cnil;
2275            goto T1017;
2276            goto T1018;
2277    T1018:;
2278            V354= get((V353),VV[53],Cnil);
2279            goto T1017;
2280    T1017:;
2281            if(((V354))==Cnil){
2282            goto T1021;}
2283            {object V355 = structure_set((V354),VV[53],11,Ct);
2284            VMR14(V355)}
2285            goto T1021;
2286    T1021:;
2287            {object V356 = Cnil;
2288            VMR14(V356)}}
2289            return Cnil;
2290    }
2291    /*      function definition for SHARP-S-READER  */
2292    
2293    static void L15()
2294    {register object *base=vs_base;
2295            register object *sup=base+VM15; VC15
2296            vs_reserve(VM15);
2297            {object V357;
2298            object V358;
2299            object V359;
2300            check_arg(3);
2301            V357=(base[0]);
2302            V358=(base[1]);
2303            V359=(base[2]);
2304            vs_top=sup;
2305            goto TTL;
2306    TTL:;
2307            if(((V359))==Cnil){
2308            goto T1023;}
2309            if((symbol_value(VV[103]))!=Cnil){
2310            goto T1023;}
2311            base[3]= VV[104];
2312            vs_top=(vs_base=base+3)+1;
2313            Lerror();
2314            vs_top=sup;
2315            goto T1023;
2316    T1023:;
2317            {register object V360;
2318            register object V361;
2319            {object V362;
2320            base[5]= (V357);
2321            base[6]= Ct;
2322            base[7]= Cnil;
2323            base[8]= Ct;
2324            vs_top=(vs_base=base+5)+4;
2325            Lread();
2326            vs_top=sup;
2327            V362= vs_base[0];
2328            if((symbol_value(VV[103]))==Cnil){
2329            goto T1035;}
2330            base[5]= Cnil;
2331            vs_top=(vs_base=base+5)+1;
2332            return;
2333            goto T1035;
2334    T1035:;
2335            V360= (V362);}{object V363;
2336            V363= get(car((V360)),VV[53],Cnil);
2337            if(V363==Cnil)goto T1039;
2338            V361= V363;
2339            goto T1038;
2340            goto T1039;
2341    T1039:;}
2342            base[5]= VV[105];
2343            base[6]= car((V360));
2344            vs_top=(vs_base=base+5)+2;
2345            Lerror();
2346            vs_top=sup;
2347            V361= vs_base[0];
2348            goto T1038;
2349    T1038:;
2350            {register object V364;
2351            V364= cdr((V360));
2352            goto T1045;
2353    T1045:;
2354            if(!(endp_prop((V364)))){
2355            goto T1046;}
2356            {register object V365;
2357            V365= structure_ref((V361),VV[53],13);
2358            goto T1051;
2359    T1051:;
2360            if(!(endp_prop((V365)))){
2361            goto T1052;}
2362            base[5]= VV[106];
2363            base[6]= car((V360));
2364            vs_top=(vs_base=base+5)+2;
2365            Lerror();
2366            return;
2367            goto T1052;
2368    T1052:;
2369            if(!(type_of(car((V365)))==t_symbol)){
2370            goto T1058;}
2371            base[5]= car((V365));
2372            {object V366;
2373            V366= cdr((V360));
2374             vs_top=base+6;
2375             while(!endp(V366))
2376             {vs_push(car(V366));V366=cdr(V366);}
2377            vs_base=base+6;}
2378            super_funcall_no_event(base[5]);
2379            return;
2380            goto T1058;
2381    T1058:;
2382            V365= cdr((V365));
2383            goto T1051;}
2384            goto T1046;
2385    T1046:;
2386            base[5]= coerce_to_string(car((V364)));
2387            base[6]= VV[107];
2388            vs_top=(vs_base=base+5)+2;
2389            Lintern();
2390            vs_top=sup;
2391            V367= vs_base[0];
2392            if(type_of((V364))!=t_cons)FEwrong_type_argument(Scons,(V364));
2393            ((V364))->c.c_car = V367;
2394            V364= cddr((V364));
2395            goto T1045;}}
2396            }
2397    }
2398    /*      local function CLOSURE  */
2399    
2400    static void LC20(base0)
2401    register object *base0;
2402    {       register object *base=vs_base;
2403            register object *sup=base+VM16; VC16
2404            vs_reserve(VM16);
2405            {object V368;
2406            check_arg(1);
2407            V368=(base[0]);
2408            vs_top=sup;
2409            base[1]= (V368);
2410            base[2]= (base0[0]->c.c_car);
2411            vs_top=(vs_base=base+1)+2;
2412            (void) (*Lnk147)();
2413            return;
2414            }
2415    }
2416    /*      local function CLOSURE  */
2417    
2418    static void LC19(base0)
2419    register object *base0;
2420    {       register object *base=vs_base;
2421            register object *sup=base+VM17; VC17
2422            vs_reserve(VM17);
2423            {object V369;
2424            check_arg(1);
2425            V369=(base[0]);
2426            vs_top=sup;
2427            if(!(type_of((V369))==t_cons)){
2428            goto T1077;}
2429            base[1]= car((V369));
2430            vs_top=(vs_base=base+1)+1;
2431            return;
2432            goto T1077;
2433    T1077:;
2434            base[1]= Cnil;
2435            vs_top=(vs_base=base+1)+1;
2436            return;
2437            }
2438    }
2439    /*      local function CLOSURE  */
2440    
2441    static void LC18(base0)
2442    register object *base0;
2443    {       register object *base=vs_base;
2444            register object *sup=base+VM18; VC18
2445            vs_reserve(VM18);
2446            {object V370;
2447            check_arg(1);
2448            V370=(base[0]);
2449            vs_top=sup;
2450            base[1]= aref1((V370),fixint((base0[0]->c.c_car)));
2451            vs_top=(vs_base=base+1)+1;
2452            return;
2453            }
2454    }
2455    /*      local function CLOSURE  */
2456    
2457    static void LC17(base0)
2458    register object *base0;
2459    {       register object *base=vs_base;
2460            register object *sup=base+VM19; VC19
2461            vs_reserve(VM19);
2462            {object V371;
2463            check_arg(1);
2464            V371=(base[0]);
2465            vs_top=sup;
2466            base[1]= (base0[0]->c.c_car);
2467            base[2]= (V371);
2468            vs_top=(vs_base=base+1)+2;
2469            siLlist_nth();
2470            return;
2471            }
2472    }
2473    /*      local function CLOSURE  */
2474    
2475    static void LC16(base0)
2476    register object *base0;
2477    {       register object *base=vs_base;
2478            register object *sup=base+VM20; VC20
2479            vs_reserve(VM20);
2480            {object V372;
2481            check_arg(1);
2482            V372=(base[0]);
2483            vs_top=sup;
2484            if(!(type_of((V372))==t_structure)){
2485            goto T1082;}
2486            goto T1081;
2487            goto T1082;
2488    T1082:;
2489            base[1]= VV[5];
2490            base[2]= (V372);
2491            vs_top=(vs_base=base+1)+2;
2492            Lerror();
2493            vs_top=sup;
2494            goto T1081;
2495    T1081:;
2496            base[1]= (V372);
2497            base[2]= (base0[0]->c.c_car);
2498            vs_top=(vs_base=base+1)+2;
2499            (void) (*Lnk148)();
2500            return;
2501            }
2502    }
2503    static void LnkT148(){ call_or_link(VV[148],(void **)(void *)&Lnk148);} /* STRUCTURE-REF1 */
2504    static void LnkT147(){ call_or_link(VV[147],(void **)(void *)&Lnk147);} /* STRUCTURE-SUBTYPE-P */
2505    static object  LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)(void *)&LnkLI143,5,first,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */
2506    static object  LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,5,first,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */
2507    static object  LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)(void *)&LnkLI141,2,first,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */
2508    static object  LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,3,first,ap);va_end(ap);return V1;} /* CHECK-S-DATA */
2509    static object  LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[134],(void **)(void *)&LnkLI134,first,ap);va_end(ap);return V1;} /* MAKE-S-DATA */
2510    static object  LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[133],(void **)(void *)&LnkLI133,3,first,ap);va_end(ap);return V1;} /* GET-SLOT-POS */
2511    static object  LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[132],(void **)(void *)&LnkLI132,first,ap);va_end(ap);return V1;} /* WARN */
2512    static void LnkT131(){ call_or_link(VV[131],(void **)(void *)&Lnk131);} /* MAKE-S-DATA-STRUCTURE */
2513    static object  LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)(void *)&LnkLI130,3,first,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */
2514    static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* MAKE-ACCESS-FUNCTION */
2515    static object  LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)(void *)&LnkLI125,20738,first,ap);va_end(ap);return V1;} /* ROUND-UP */
2516    static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* SIZE-OF */
2517    static object  LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)(void *)&LnkLI123,2,first,ap);va_end(ap);return V1;} /* COERCE */
2518    static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* TYPEP */
2519    static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* AET-TYPE */
2520    static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* ALIGNMENT */
2521    static object  LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[119],(void **)(void *)&LnkLI119,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
2522    static object  LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[118],(void **)(void *)&LnkLI118,2,first,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */
2523    static object  LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)(void *)&LnkLI117,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
2524    static object  LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)(void *)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
2525    static object  LnkTLI112(){return call_proc0(VV[112],(void **)(void *)&LnkLI112);} /* ILLEGAL-BOA */
2526    static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* SUBTYPEP */
2527    static void LnkT110(){ call_or_link(VV[110],(void **)(void *)&Lnk110);} /* RECORD-FN */
2528    static object  LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[109],(void **)(void *)&LnkLI109,first,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */
2529    static void LnkT108(){ call_or_link(VV[108],(void **)(void *)&Lnk108);} /* STRING-CONCATENATE */
2530    
2531    #ifdef SYSTEM_SPECIAL_INIT
2532    SYSTEM_SPECIAL_INIT
2533    #endif
2534    

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