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

Diff of /gcl/lsp/defstruct.c

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

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

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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