/[gcl]/gcl/pcl/pcl_boot.c
ViewVC logotype

Diff of /gcl/pcl/pcl_boot.c

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

revision 1.4 by camm, Tue Sep 23 21:48:34 2003 UTC revision 1.5 by camm, Fri Oct 3 16:03:16 2003 UTC
# Line 18  TTL:; Line 18  TTL:;
18          (void) (*Lnk346)();          (void) (*Lnk346)();
19          vs_top=sup;          vs_top=sup;
20          V6= vs_base[0];          V6= vs_base[0];
21          {object V7 = (*(LnkLI345))(V6,V3);          V7 = V3;
22          VMR1(V7)}          {object V8 = (*(LnkLI345))(V6,V7);
23            VMR1(V8)}
24          base[0]=base[0];          base[0]=base[0];
25          return Cnil;          return Cnil;
26  }  }
# Line 31  static void L3() Line 32  static void L3()
32          vs_check;          vs_check;
33          check_arg(2);          check_arg(2);
34          vs_top=sup;          vs_top=sup;
35          {object V8=base[0]->c.c_cdr;          {object V9=base[0]->c.c_cdr;
36          if(endp(V8))invalid_macro_call();          if(endp(V9))invalid_macro_call();
37          base[2]= (V8->c.c_car);          base[2]= (V9->c.c_car);
38          V8=V8->c.c_cdr;          V9=V9->c.c_cdr;
39          if(endp(V8))invalid_macro_call();          if(endp(V9))invalid_macro_call();
40          base[3]= (V8->c.c_car);          base[3]= (V9->c.c_car);
41          V8=V8->c.c_cdr;          V9=V9->c.c_cdr;
42          base[4]= V8;}          base[4]= V9;}
43          base[5]= (*(LnkLI347))(base[2],base[3],base[4]);          base[5]= (*(LnkLI347))(base[2],base[3],base[4]);
44          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
45          return;          return;
46  }  }
47  /*      local entry for function EXPAND-DEFGENERIC      */  /*      local entry for function EXPAND-DEFGENERIC      */
48    
49  static object LI4(V12,V13,V14)  static object LI4(V13,V14,V15)
50    
51  object V12;object V13;object V14;  object V13;object V14;object V15;
52  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
53          goto TTL;          goto TTL;
54  TTL:;  TTL:;
55          if(!(type_of((V12))==t_cons||((V12))==Cnil)){          if(!(type_of((V13))==t_cons||((V13))==Cnil)){
56          goto T4;}          goto T4;}
57          (void)((*(LnkLI348))(CMPcadr((V12))));          (void)((*(LnkLI348))(CMPcadr((V13))));
58          goto T4;          goto T4;
59  T4:;  T4:;
         {register object V15;  
         V15= Cnil;  
60          {register object V16;          {register object V16;
61          register object V17;          V16= Cnil;
62          V16= (V14);          {register object V17;
63          V17= CMPcar((V16));          register object V18;
64            V17= (V15);
65            V18= CMPcar((V17));
66          goto T12;          goto T12;
67  T12:;  T12:;
68          if(!(((V16))==Cnil)){          if(!(((V17))==Cnil)){
69          goto T13;}          goto T13;}
70          goto T8;          goto T8;
71          goto T13;          goto T13;
72  T13:;  T13:;
73          {object V18= CMPcar((V17));          {object V19= CMPcar((V18));
74          if((V18!= VV[0]))goto T18;          if((V19!= VV[0]))goto T18;
75          base[1]= (V15);          base[1]= (V16);
76          base[2]= VV[0];          base[2]= VV[0];
77          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
78          Lgetf();          Lgetf();
# Line 85  T13:; Line 86  T13:;
86          goto T17;          goto T17;
87          goto T20;          goto T20;
88  T20:;  T20:;
89          {register object V20;          {register object V21;
90          V20= list(2,VV[1],CMPcdr((V17)));          V21= list(2,VV[1],CMPcdr((V18)));
91          {object V21;          {object V22;
92          base[2]= (V15);          base[2]= (V16);
93          base[3]= (V20);          base[3]= (V21);
94          base[4]= VV[0];          base[4]= VV[0];
95          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
96          siLput_f();          siLput_f();
97          vs_top=sup;          vs_top=sup;
98          V21= vs_base[0];          V22= vs_base[0];
99          V15= (V21);          V16= (V22);
100          goto T17;}}          goto T17;}}
101          goto T18;          goto T18;
102  T18:;  T18:;
103          if((V18!= VV[46]))goto T32;          if((V19!= VV[46]))goto T32;
104          {register object V23;          {register object V24;
105          V24= CMPcdr((V17));          V25= CMPcdr((V18));
106          base[2]= (V15);          base[2]= (V16);
107          base[3]= VV[2];          base[3]= VV[2];
108          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
109          Lgetf();          Lgetf();
110          vs_top=sup;          vs_top=sup;
111          V25= vs_base[0];          V26= vs_base[0];
112          V23= append(/* INLINE-ARGS */V24,V25);          V24= append(/* INLINE-ARGS */V25,V26);
113          {object V26;          {object V27;
114          base[2]= (V15);          base[2]= (V16);
115          base[3]= (V23);          base[3]= (V24);
116          base[4]= VV[2];          base[4]= VV[2];
117          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
118          siLput_f();          siLput_f();
119          vs_top=sup;          vs_top=sup;
120          V26= vs_base[0];          V27= vs_base[0];
121          V15= (V26);          V16= (V27);
122          goto T17;}}          goto T17;}}
123          goto T32;          goto T32;
124  T32:;  T32:;
125          if((V18!= VV[3]))goto T43;          if((V19!= VV[3]))goto T43;
126          base[1]= (V15);          base[1]= (V16);
127          base[2]= VV[3];          base[2]= VV[3];
128          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
129          Lgetf();          Lgetf();
# Line 136  T32:; Line 137  T32:;
137          goto T17;          goto T17;
138          goto T45;          goto T45;
139  T45:;  T45:;
140          {register object V28;          {register object V29;
141          V28= list(2,VV[1],CMPcadr((V17)));          V29= list(2,VV[1],CMPcadr((V18)));
142          {object V29;          {object V30;
143          base[2]= (V15);          base[2]= (V16);
144          base[3]= (V28);          base[3]= (V29);
145          base[4]= VV[3];          base[4]= VV[3];
146          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
147          siLput_f();          siLput_f();
148          vs_top=sup;          vs_top=sup;
149          V29= vs_base[0];          V30= vs_base[0];
150          V15= (V29);          V16= (V30);
151          goto T17;}}          goto T17;}}
152          goto T43;          goto T43;
153  T43:;  T43:;
154          if((V18!= VV[4]))goto T57;          if((V19!= VV[4]))goto T57;
155          base[1]= (V15);          base[1]= (V16);
156          base[2]= VV[4];          base[2]= VV[4];
157          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
158          Lgetf();          Lgetf();
# Line 165  T43:; Line 166  T43:;
166          goto T17;          goto T17;
167          goto T59;          goto T59;
168  T59:;  T59:;
169          {register object V31;          {register object V32;
170          V31= list(2,VV[1],CMPcdr((V17)));          V32= list(2,VV[1],CMPcdr((V18)));
171          {object V32;          {object V33;
172          base[2]= (V15);          base[2]= (V16);
173          base[3]= (V31);          base[3]= (V32);
174          base[4]= VV[4];          base[4]= VV[4];
175          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
176          siLput_f();          siLput_f();
177          vs_top=sup;          vs_top=sup;
178          V32= vs_base[0];          V33= vs_base[0];
179          V15= (V32);          V16= (V33);
180          goto T17;}}          goto T17;}}
181          goto T57;          goto T57;
182  T57:;  T57:;
183          if((V18!= VV[5]))goto T71;          if((V19!= VV[5]))goto T71;
184          base[1]= (V15);          base[1]= (V16);
185          base[2]= VV[5];          base[2]= VV[5];
186          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
187          Lgetf();          Lgetf();
# Line 194  T57:; Line 195  T57:;
195          goto T17;          goto T17;
196          goto T73;          goto T73;
197  T73:;  T73:;
198          {register object V34;          {register object V35;
199          V34= list(2,VV[1],CMPcadr((V17)));          V35= list(2,VV[1],CMPcadr((V18)));
200          {object V35;          {object V36;
201          base[2]= (V15);          base[2]= (V16);
202          base[3]= (V34);          base[3]= (V35);
203          base[4]= VV[5];          base[4]= VV[5];
204          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
205          siLput_f();          siLput_f();
206          vs_top=sup;          vs_top=sup;
207          V35= vs_base[0];          V36= vs_base[0];
208          V15= (V35);          V16= (V36);
209          goto T17;}}          goto T17;}}
210          goto T71;          goto T71;
211  T71:;  T71:;
212          if((V18!= VV[6]))goto T85;          if((V19!= VV[6]))goto T85;
213          base[1]= (V15);          base[1]= (V16);
214          base[2]= VV[6];          base[2]= VV[6];
215          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
216          Lgetf();          Lgetf();
# Line 223  T71:; Line 224  T71:;
224          goto T17;          goto T17;
225          goto T87;          goto T87;
226  T87:;  T87:;
227          {register object V37;          {register object V38;
228          V37= list(2,VV[1],CMPcadr((V17)));          V38= list(2,VV[1],CMPcadr((V18)));
229          {object V38;          {object V39;
230          base[2]= (V15);          base[2]= (V16);
231          base[3]= (V37);          base[3]= (V38);
232          base[4]= VV[6];          base[4]= VV[6];
233          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
234          siLput_f();          siLput_f();
235          vs_top=sup;          vs_top=sup;
236          V38= vs_base[0];          V39= vs_base[0];
237          V15= (V38);          V16= (V39);
238          goto T17;}}          goto T17;}}
239          goto T85;          goto T85;
240  T85:;  T85:;
241          if((V18!= VV[210]))goto T99;          if((V19!= VV[210]))goto T99;
242          {object V39;          {object V40;
243          V39= listA(3,VV[7],(V12),CMPcdr((V17)));          V40= listA(3,VV[7],(V13),CMPcdr((V18)));
244          (VV[8]->s.s_dbind)= make_cons((V39),(VV[8]->s.s_dbind));          (VV[8]->s.s_dbind)= make_cons((V40),(VV[8]->s.s_dbind));
245          goto T17;}          goto T17;}
246          goto T99;          goto T99;
247  T99:;  T99:;
248          FEerror("The ECASE key value ~s is illegal.",1,V18);          FEerror("The ECASE key value ~s is illegal.",1,V19);
249          goto T17;}          goto T17;}
250          goto T17;          goto T17;
251  T17:;  T17:;
252          V16= CMPcdr((V16));          V17= CMPcdr((V17));
253          V17= CMPcar((V16));          V18= CMPcar((V17));
254          goto T12;}          goto T12;}
255          goto T8;          goto T8;
256  T8:;  T8:;
257          {object V40;          {object V41;
258          base[0]= (V15);          base[0]= (V16);
259          base[1]= VV[2];          base[1]= VV[2];
260          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
261          Lgetf();          Lgetf();
262          vs_top=sup;          vs_top=sup;
263          V40= vs_base[0];          V41= vs_base[0];
264          if(((V40))==Cnil){          if(((V41))==Cnil){
265          goto T7;}          goto T7;}
         {object V42;  
         V42= list(2,VV[1],(V40));  
266          {object V43;          {object V43;
267          base[1]= (V15);          V43= list(2,VV[1],(V41));
268          base[2]= (V42);          {object V44;
269            base[1]= (V16);
270            base[2]= (V43);
271          base[3]= VV[2];          base[3]= VV[2];
272          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
273          siLput_f();          siLput_f();
274          vs_top=sup;          vs_top=sup;
275          V43= vs_base[0];          V44= vs_base[0];
276          V15= (V43);}}}          V16= (V44);}}}
277          goto T7;          goto T7;
278  T7:;  T7:;
279          V44= list(2,VV[1],(V12));          V45= list(2,VV[1],(V13));
280          V45= list(3,VV[11],/* INLINE-ARGS */V44,list(2,VV[1],(V13)));          V46= list(3,VV[11],/* INLINE-ARGS */V45,list(2,VV[1],(V14)));
281          V46= list(2,VV[12],(V12));{object V47;          V47= list(2,VV[12],(V13));{object V48;
282          V47= (VV[13]->s.s_dbind);          V48= (VV[13]->s.s_dbind);
283          V48= list(2,VV[1],(V12));          V49= list(2,VV[1],(V13));
284          V49= listA(4,VV[14],/* INLINE-ARGS */V48,list(2,VV[1],(V13)),(V15));          V50= listA(4,VV[14],/* INLINE-ARGS */V49,list(2,VV[1],(V14)),(V16));
285          {object V50 = list(3,VV[10],/* INLINE-ARGS */V45,(*(LnkLI349))(/* INLINE-ARGS */V46,V47,/* INLINE-ARGS */V49));          {object V51 = list(3,VV[10],/* INLINE-ARGS */V46,(*(LnkLI349))(/* INLINE-ARGS */V47,V48,/* INLINE-ARGS */V50));
286          VMR3(V50)}}}          VMR3(V51)}}}
287          base[0]=base[0];          base[0]=base[0];
288          return Cnil;          return Cnil;
289  }  }
# Line 292  static void L6() Line 293  static void L6()
293  {register object *base=vs_base;  {register object *base=vs_base;
294          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
295          vs_check;          vs_check;
296          {register object V51;          {register object V52;
         object V52;  
297          object V53;          object V53;
298            object V54;
299          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
300          V51=(base[0]);          V52=(base[0]);
301          V52=(base[1]);          V53=(base[1]);
302          vs_base=vs_base+2;          vs_base=vs_base+2;
303          vs_top[0]=Cnil;          vs_top[0]=Cnil;
304          {object *p=vs_top;          {object *p=vs_top;
305           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
306          V53=(base[2]);          V54=(base[2]);
307          vs_top=sup;          vs_top=sup;
308          if(!(type_of((V51))==t_cons||((V51))==Cnil)){          if(!(type_of((V52))==t_cons||((V52))==Cnil)){
309          goto T119;}          goto T119;}
310          (void)((*(LnkLI348))(CMPcadr((V51))));          (void)((*(LnkLI348))(CMPcadr((V52))));
311          goto T119;          goto T119;
312  T119:;  T119:;
313          base[3]= (V51);          base[3]= (V52);
314          base[4]= VV[15];          base[4]= VV[15];
315          base[5]= (V52);          base[5]= (V53);
316          base[6]= VV[16];          base[6]= VV[16];
317          V55= list(2,VV[12],(V51));          V56= list(2,VV[12],(V52));
318          vs_base=vs_top;          vs_base=vs_top;
319          (void) (*Lnk350)();          (void) (*Lnk350)();
320          vs_top=sup;          vs_top=sup;
321          V56= vs_base[0];          V57= vs_base[0];
322          base[7]= list(2,/* INLINE-ARGS */V55,V56);          base[7]= list(2,/* INLINE-ARGS */V56,V57);
323          {object V54;          {object V55;
324          V54= (V53);          V55= (V54);
325           vs_top=base+8;           vs_top=base+8;
326           while(V54!=Cnil)           while(V55!=Cnil)
327           {vs_push((V54)->c.c_car);V54=(V54)->c.c_cdr;}           {vs_push((V55)->c.c_car);V55=(V55)->c.c_cdr;}
328          vs_base=base+3;}          vs_base=base+3;}
329          (void) (*Lnk351)();          (void) (*Lnk351)();
330          return;          return;
# Line 337  static void L7() Line 338  static void L7()
338          vs_check;          vs_check;
339          check_arg(2);          check_arg(2);
340          vs_top=sup;          vs_top=sup;
341          {object V57=base[0]->c.c_cdr;          {object V58=base[0]->c.c_cdr;
342          base[2]= V57;}          base[2]= V58;}
343          {object V58;          {object V59;
         object V59;  
344          object V60;          object V60;
345          object V61;          object V61;
346            object V62;
347          base[3]= base[2];          base[3]= base[2];
348          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
349          (void) (*Lnk352)();          (void) (*Lnk352)();
350          if(vs_base>=vs_top){vs_top=sup;goto T131;}          if(vs_base>=vs_top){vs_top=sup;goto T131;}
351          V58= vs_base[0];          V59= vs_base[0];
352          vs_base++;          vs_base++;
353          if(vs_base>=vs_top){vs_top=sup;goto T132;}          if(vs_base>=vs_top){vs_top=sup;goto T132;}
354          V59= vs_base[0];          V60= vs_base[0];
355          vs_base++;          vs_base++;
356          if(vs_base>=vs_top){vs_top=sup;goto T133;}          if(vs_base>=vs_top){vs_top=sup;goto T133;}
357          V60= vs_base[0];          V61= vs_base[0];
358          vs_base++;          vs_base++;
359          if(vs_base>=vs_top){vs_top=sup;goto T134;}          if(vs_base>=vs_top){vs_top=sup;goto T134;}
360          V61= vs_base[0];          V62= vs_base[0];
361          vs_top=sup;          vs_top=sup;
362          goto T135;          goto T135;
363          goto T131;          goto T131;
364  T131:;  T131:;
365          V58= Cnil;          V59= Cnil;
366          goto T132;          goto T132;
367  T132:;  T132:;
368          V59= Cnil;          V60= Cnil;
369          goto T133;          goto T133;
370  T133:;  T133:;
371          V60= Cnil;          V61= Cnil;
372          goto T134;          goto T134;
373  T134:;  T134:;
374          V61= Cnil;          V62= Cnil;
375          goto T135;          goto T135;
376  T135:;  T135:;
377          {object V62;          {object V63;
378          object V63;          object V64;
379          base[3]= (V58);          base[3]= (V59);
380          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
381          (void) (*Lnk353)();          (void) (*Lnk353)();
382          if(vs_base>=vs_top){vs_top=sup;goto T138;}          if(vs_base>=vs_top){vs_top=sup;goto T138;}
383          V62= vs_base[0];          V63= vs_base[0];
384          vs_base++;          vs_base++;
385          if(vs_base>=vs_top){vs_top=sup;goto T139;}          if(vs_base>=vs_top){vs_top=sup;goto T139;}
386          V63= vs_base[0];          V64= vs_base[0];
387          vs_top=sup;          vs_top=sup;
388          goto T140;          goto T140;
389          goto T138;          goto T138;
390  T138:;  T138:;
391          V62= Cnil;          V63= Cnil;
392          goto T139;          goto T139;
393  T139:;  T139:;
394          V63= Cnil;          V64= Cnil;
395          goto T140;          goto T140;
396  T140:;  T140:;
397          base[3]= (*(LnkLI354))((V58),(V62),(V63),(V59),(V60),(V61),base[1]);          base[3]= (*(LnkLI354))((V59),(V63),(V64),(V60),(V61),(V62),base[1]);
398          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
399          return;}}          return;}}
400  }  }
# Line 403  static void L8() Line 404  static void L8()
404  {register object *base=vs_base;  {register object *base=vs_base;
405          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
406          vs_check;          vs_check;
407          {object V64;          {object V65;
408          check_arg(1);          check_arg(1);
409          V64=(base[0]);          V65=(base[0]);
410          vs_top=sup;          vs_top=sup;
411          goto TTL;          goto TTL;
412  TTL:;  TTL:;
# Line 417  TTL:; Line 418  TTL:;
418          return;          return;
419          goto T142;          goto T142;
420  T142:;  T142:;
421          {register object V65;          {register object V66;
422          if(((*(LnkLI355))((V64)))!=Cnil){          if(((*(LnkLI355))((V65)))!=Cnil){
423          goto T147;}          goto T147;}
424          V65= Cnil;          V66= Cnil;
425          goto T146;          goto T146;
426          goto T147;          goto T147;
427  T147:;  T147:;
428          V65= (*(LnkLI356))((V64));          V66= (*(LnkLI356))((V65));
429          goto T146;          goto T146;
430  T146:;  T146:;
431          if(((V65))==Cnil){          if(((V66))==Cnil){
432          goto T149;}          goto T149;}
433          base[1]= (V65);          base[1]= (V66);
434          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
435          (void) (*Lnk357)(Lclptr357);          (void) (*Lnk357)(Lclptr357);
436          vs_top=sup;          vs_top=sup;
# Line 451  T149:; Line 452  T149:;
452          return;          return;
453          goto T150;          goto T150;
454  T150:;  T150:;
455          base[1]= (V65);{object V66;          base[1]= (V66);{object V67;
456          base[4]= (V65);          base[4]= (V66);
457          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
458          (void) (*Lnk358)(Lclptr358);          (void) (*Lnk358)(Lclptr358);
459          vs_top=sup;          vs_top=sup;
460          V66= vs_base[0];          V67= vs_base[0];
461          if(V66==Cnil)goto T162;          if(V67==Cnil)goto T162;
462          base[3]= V66;          base[3]= V67;
463          goto T161;          goto T161;
464          goto T162;          goto T162;
465  T162:;}  T162:;}
# Line 479  static void L9() Line 480  static void L9()
480  {register object *base=vs_base;  {register object *base=vs_base;
481          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
482          vs_check;          vs_check;
483          {object V67;          {object V68;
484          check_arg(1);          check_arg(1);
485          V67=(base[0]);          V68=(base[0]);
486          vs_top=sup;          vs_top=sup;
487          goto TTL;          goto TTL;
488  TTL:;  TTL:;
489          {object V68;          {object V69;
490          if(((*(LnkLI355))((V67)))!=Cnil){          if(((*(LnkLI355))((V68)))!=Cnil){
491          goto T166;}          goto T166;}
492          V68= Cnil;          V69= Cnil;
493          goto T165;          goto T165;
494          goto T166;          goto T166;
495  T166:;  T166:;
496          V68= (*(LnkLI356))((V67));          V69= (*(LnkLI356))((V68));
497          goto T165;          goto T165;
498  T165:;  T165:;
499          if(!(((((VV[17]->s.s_dbind))==(VV[18])?Ct:Cnil))==Cnil)){          if(!(((((VV[17]->s.s_dbind))==(VV[18])?Ct:Cnil))==Cnil)){
# Line 502  T165:; Line 503  T165:;
503          return;          return;
504          goto T169;          goto T169;
505  T169:;  T169:;
506          if(((V68))==Cnil){          if(((V69))==Cnil){
507          goto T171;}          goto T171;}
508          base[1]= (V68);          base[1]= (V69);
509          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
510          (void) (*Lnk357)(Lclptr357);          (void) (*Lnk357)(Lclptr357);
511          vs_top=sup;          vs_top=sup;
# Line 517  T171:; Line 518  T171:;
518          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
519          return;          return;
520          goto T172;          goto T172;
521  T172:;{object V69;  T172:;{object V70;
522          base[2]= (V68);          base[2]= (V69);
523          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
524          (void) (*Lnk358)(Lclptr358);          (void) (*Lnk358)(Lclptr358);
525          vs_top=sup;          vs_top=sup;
526          V69= vs_base[0];          V70= vs_base[0];
527          if(V69==Cnil)goto T179;          if(V70==Cnil)goto T179;
528          base[1]= V69;          base[1]= V70;
529          goto T178;          goto T178;
530          goto T179;          goto T179;
531  T179:;}  T179:;}
# Line 538  T178:; Line 539  T178:;
539  }  }
540  /*      local entry for function EXPAND-DEFMETHOD       */  /*      local entry for function EXPAND-DEFMETHOD       */
541    
542  static object LI10(V77,V78,V79,V80,V81,V82,V83)  static object LI10(V78,V79,V80,V81,V82,V83,V84)
543    
544  register object V77;object V78;register object V79;object V80;object V81;object V82;object V83;  register object V78;object V79;register object V80;object V81;object V82;object V83;object V84;
545  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
546          bds_check;          bds_check;
547          goto TTL;          goto TTL;
548  TTL:;  TTL:;
549          if(!(type_of((V77))==t_cons||((V77))==Cnil)){          if(!(type_of((V78))==t_cons||((V78))==Cnil)){
550          goto T182;}          goto T182;}
551          (void)((*(LnkLI348))(CMPcadr((V77))));          (void)((*(LnkLI348))(CMPcadr((V78))));
552          goto T182;          goto T182;
553  T182:;  T182:;
554          bds_bind(VV[21],Cnil);          bds_bind(VV[21],Cnil);
# Line 555  T182:; Line 556  T182:;
556          bds_bind(VV[23],Cnil);          bds_bind(VV[23],Cnil);
557          bds_bind(VV[24],Cnil);          bds_bind(VV[24],Cnil);
558          bds_bind(VV[25],Cnil);          bds_bind(VV[25],Cnil);
559          {object V84;          {object V85;
         object V85;  
560          object V86;          object V86;
561          base[5]= (V77);          object V87;
562          base[6]= (V80);          base[5]= (V78);
563          base[7]= (V81);          base[6]= (V81);
564          base[8]= (V82);          base[7]= (V82);
565          base[9]= (V83);          base[8]= (V83);
566            base[9]= (V84);
567          vs_top=(vs_base=base+5)+5;          vs_top=(vs_base=base+5)+5;
568          (void) (*Lnk359)();          (void) (*Lnk359)();
569          if(vs_base>=vs_top){vs_top=sup;goto T191;}          if(vs_base>=vs_top){vs_top=sup;goto T191;}
570          V84= vs_base[0];          V85= vs_base[0];
571          vs_base++;          vs_base++;
572          if(vs_base>=vs_top){vs_top=sup;goto T192;}          if(vs_base>=vs_top){vs_top=sup;goto T192;}
573          V85= vs_base[0];          V86= vs_base[0];
574          vs_base++;          vs_base++;
575          if(vs_base>=vs_top){vs_top=sup;goto T193;}          if(vs_base>=vs_top){vs_top=sup;goto T193;}
576          V86= vs_base[0];          V87= vs_base[0];
577          vs_top=sup;          vs_top=sup;
578          goto T194;          goto T194;
579          goto T191;          goto T191;
580  T191:;  T191:;
581          V84= Cnil;          V85= Cnil;
582          goto T192;          goto T192;
583  T192:;  T192:;
584          V85= Cnil;          V86= Cnil;
585          goto T193;          goto T193;
586  T193:;  T193:;
587          V86= Cnil;          V87= Cnil;
588          goto T194;          goto T194;
589  T194:;  T194:;
590          {object V87;          {object V88;
591          object V88;          object V89;
592          base[5]= (V78);          base[5]= (V79);
593          base[6]= (V79);          base[6]= (V80);
594          base[7]= (V84);          base[7]= (V85);
595          base[8]= (V83);          base[8]= (V84);
596          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
597          (void) (*Lnk360)(Lclptr360);          (void) (*Lnk360)(Lclptr360);
598          if(vs_base>=vs_top){vs_top=sup;goto T200;}          if(vs_base>=vs_top){vs_top=sup;goto T200;}
599          V87= vs_base[0];          V88= vs_base[0];
600          vs_base++;          vs_base++;
601          if(vs_base>=vs_top){vs_top=sup;goto T201;}          if(vs_base>=vs_top){vs_top=sup;goto T201;}
602          V88= vs_base[0];          V89= vs_base[0];
603          vs_top=sup;          vs_top=sup;
604          goto T202;          goto T202;
605          goto T200;          goto T200;
606  T200:;  T200:;
607          V87= Cnil;          V88= Cnil;
608          goto T201;          goto T201;
609  T201:;  T201:;
610          V88= Cnil;          V89= Cnil;
611          goto T202;          goto T202;
612  T202:;  T202:;
613          {object V89;          {object V90;
614          base[5]= (V78);          base[5]= (V79);
615          base[6]= (V79);          base[6]= (V80);
616          base[7]= (V87);          base[7]= (V88);
617          base[8]= (V88);          base[8]= (V89);
618          base[9]= (V83);          base[9]= (V84);
619          vs_top=(vs_base=base+5)+5;          vs_top=(vs_base=base+5)+5;
620          (void) (*Lnk361)(Lclptr361);          (void) (*Lnk361)(Lclptr361);
621          vs_top=sup;          vs_top=sup;
622          V89= vs_base[0];          V90= vs_base[0];
623          V90= list(2,VV[1],(V77));          V91= list(2,VV[1],(V78));
624          V91= list(3,VV[11],/* INLINE-ARGS */V90,list(2,VV[1],(V81)));          V92= list(3,VV[11],/* INLINE-ARGS */V91,list(2,VV[1],(V82)));
625          if(((VV[21]->s.s_dbind))==Cnil){          if(((VV[21]->s.s_dbind))==Cnil){
626          goto T212;}          goto T212;}
627          V93= list(2,VV[26],list(2,VV[1],(VV[21]->s.s_dbind)));          V94= list(2,VV[26],list(2,VV[1],(VV[21]->s.s_dbind)));
628          base[5]= make_cons(/* INLINE-ARGS */V93,Cnil);          base[5]= make_cons(/* INLINE-ARGS */V94,Cnil);
629          goto T210;          goto T210;
630          goto T212;          goto T212;
631  T212:;  T212:;
# Line 639  T210:; Line 640  T210:;
640          goto T216;}          goto T216;}
641          goto T215;          goto T215;
642  T215:;  T215:;
643          V94= list(2,VV[1],(VV[23]->s.s_dbind));          V95= list(2,VV[1],(VV[23]->s.s_dbind));
644          V95= list(2,VV[1],(VV[24]->s.s_dbind));          V96= list(2,VV[1],(VV[24]->s.s_dbind));
645          V96= list(4,VV[27],/* INLINE-ARGS */V94,/* INLINE-ARGS */V95,list(2,VV[1],(VV[25]->s.s_dbind)));          V97= list(4,VV[27],/* INLINE-ARGS */V95,/* INLINE-ARGS */V96,list(2,VV[1],(VV[25]->s.s_dbind)));
646          base[6]= make_cons(/* INLINE-ARGS */V96,Cnil);          base[6]= make_cons(/* INLINE-ARGS */V97,Cnil);
647          goto T214;          goto T214;
648          goto T216;          goto T216;
649  T216:;  T216:;
650          base[6]= Cnil;          base[6]= Cnil;
651          goto T214;          goto T214;
652  T214:;  T214:;
653          if(((V79))==Cnil){          V98 = (V78);
654            V99 = (V81);
655            V100 = (V87);
656            V101 = (V86);
657            if(((V80))==Cnil){
658          goto T225;}          goto T225;}
659          base[8]= (*(LnkLI363))((V79));          base[8]= (*(LnkLI363))((V80));
660          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
661          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk364)(Lclptr364);
662          vs_top=sup;          vs_top=sup;
663          V97= vs_base[0];          V102= vs_base[0];
664          goto T223;          goto T223;
665          goto T225;          goto T225;
666  T225:;  T225:;
667          V97= VV[20];          V102= VV[20];
668          goto T223;          goto T223;
669  T223:;  T223:;
670          base[9]= (V88);          V103 = (V90);
671            base[9]= (V89);
672          base[10]= VV[28];          base[10]= VV[28];
673          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
674          Lgetf();          Lgetf();
# Line 672  T223:; Line 678  T223:;
678          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
679          Lgetf();          Lgetf();
680          vs_top=sup;          vs_top=sup;
681          V98= vs_base[0];          V104= vs_base[0];
682          V99= (VFUN_NARGS=7,(*(LnkLI362))((V77),(V80),(V86),(V85),V97,(V89),V98));          V105= (VFUN_NARGS=7,(*(LnkLI362))(V98,V99,V100,V101,V102,V103,V104));
683          base[7]= make_cons(/* INLINE-ARGS */V99,Cnil);          base[7]= make_cons(/* INLINE-ARGS */V105,Cnil);
684          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
685          Lappend();          Lappend();
686          vs_top=sup;          vs_top=sup;
687          V92= vs_base[0];          V93= vs_base[0];
688          {object V100 = listA(3,VV[10],/* INLINE-ARGS */V91,V92);          {object V106 = listA(3,VV[10],/* INLINE-ARGS */V92,V93);
689          bds_unwind1;          bds_unwind1;
690          bds_unwind1;          bds_unwind1;
691          bds_unwind1;          bds_unwind1;
692          bds_unwind1;          bds_unwind1;
693          bds_unwind1;          bds_unwind1;
694          VMR8(V100)}}}}          VMR8(V106)}}}}
695          base[0]=base[0];          base[0]=base[0];
696          return Cnil;          return Cnil;
697  }  }
698  /*      local entry for function INTERNED-SYMBOL-P      */  /*      local entry for function INTERNED-SYMBOL-P      */
699    
700  static object LI11(V102)  static object LI11(V108)
701    
702  object V102;  object V108;
703  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
704          goto TTL;          goto TTL;
705  TTL:;  TTL:;
706          if(type_of((V102))==t_symbol){          if(type_of((V108))==t_symbol){
707          goto T233;}          goto T233;}
708          {object V103 = Cnil;          {object V109 = Cnil;
709          VMR9(V103)}          VMR9(V109)}
710          goto T233;          goto T233;
711  T233:;  T233:;
712          base[0]= (V102);          base[0]= (V108);
713          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
714          Lsymbol_package();          Lsymbol_package();
715          vs_top=sup;          vs_top=sup;
716          {object V104 = vs_base[0];          {object V110 = vs_base[0];
717          VMR9(V104)}          VMR9(V110)}
718          base[0]=base[0];          base[0]=base[0];
719          return Cnil;          return Cnil;
720  }  }
721  /*      local entry for function MAKE-DEFMETHOD-FORM    */  /*      local entry for function MAKE-DEFMETHOD-FORM    */
722    
723  static object LI12(object V110,object V109,object V108,object V107,object V106,object V105,object first,...)  static object LI12(object V116,object V115,object V114,object V113,object V112,object V111,object first,...)
724  {        {      
725          va_list ap;          va_list ap;
726          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
727          bds_check;          bds_check;
728          {register object V111;          {register object V117;
729          register object V112;          register object V118;
730          register object V113;          register object V119;
731          object V114;          object V120;
732          object V115;          object V121;
733          register object V116;          register object V122;
734          object V117;          object V123;
735          va_start(ap,first);          va_start(ap,first);
736          if(narg <6) too_few_arguments();          if(narg <6) too_few_arguments();
737          V111= V110;          V117= V116;
738          V112= V109;          V118= V115;
739          V113= V108;          V119= V114;
740          V114= V107;          V120= V113;
741          V115= V106;          V121= V112;
742          V116= V105;          V122= V111;
743          narg = narg - 6;          narg = narg - 6;
744          if (narg <= 0) goto T236;          if (narg <= 0) goto T236;
745          else {          else {
746          V117= first;}          V123= first;}
747          --narg; goto T237;          --narg; goto T237;
748          goto T236;          goto T236;
749  T236:;  T236:;
750          V117= Cnil;          V123= Cnil;
751          goto T237;          goto T237;
752  T237:;  T237:;
753          {object V118;          {object V124;
754          register object V119;          register object V125;
755          V118= Cnil;          V124= Cnil;
756          V119= Cnil;          V125= Cnil;
757          if(!(type_of((V111))==t_cons)){          if(!(type_of((V117))==t_cons)){
758          goto T245;}          goto T245;}
759          if((CMPcar((V111)))==(VV[30])){          if((CMPcar((V117)))==(VV[30])){
760          goto T247;}          goto T247;}
761          V120= Cnil;          V126= Cnil;
762          goto T243;          goto T243;
763          goto T247;          goto T247;
764  T247:;  T247:;
765          V120= CMPcadr((V111));          V126= CMPcadr((V117));
766          goto T243;          goto T243;
767          goto T245;          goto T245;
768  T245:;  T245:;
769          V120= (V111);          V126= (V117);
770          goto T243;          goto T243;
771  T243:;  T243:;
772          if(((*(LnkLI365))(V120))==Cnil){          if(((*(LnkLI365))(V126))==Cnil){
773          goto T240;}          goto T240;}
774          base[0]= (VV[365]->s.s_gfdef);          base[0]= (VV[365]->s.s_gfdef);
775          base[1]= (V112);          base[1]= (V118);
776          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
777          (void) (*Lnk366)();          (void) (*Lnk366)();
778          vs_top=sup;          vs_top=sup;
779          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
780          goto T240;}          goto T240;}
781          base[0]= VV[367];          base[0]= VV[367];
782          base[1]= (V113);          base[1]= (V119);
783          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
784          (void) (*Lnk366)();          (void) (*Lnk366)();
785          vs_top=sup;          vs_top=sup;
786          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
787          goto T240;}          goto T240;}
788          if(!(type_of((V116))==t_cons)){          if(!(type_of((V122))==t_cons)){
789          goto T240;}          goto T240;}
790          if(!((CMPcar((V116)))==(VV[32]))){          if(!((CMPcar((V122)))==(VV[32]))){
791          goto T240;}          goto T240;}
792          {register object x= CMPcadr((V116)),V121= VV[33];          {register object x= CMPcadr((V122)),V127= VV[33];
793          while(V121!=Cnil)          while(V127!=Cnil)
794          if(x==(V121->c.c_car)){          if(x==(V127->c.c_car)){
795          goto T262;          goto T262;
796          }else V121=V121->c.c_cdr;          }else V127=V127->c.c_cdr;
797          goto T240;}          goto T240;}
798          goto T262;          goto T262;
799  T262:;  T262:;
800          V118= CMPcaddr((V116));          V124= CMPcaddr((V122));
801          if(!(type_of((V118))==t_cons)){          V128 = (V124);
802            if(!(type_of(V128)==t_cons)){
803          goto T240;}          goto T240;}
804          if(!((CMPcar((V118)))==(VV[34]))){          if(!((CMPcar((V124)))==(VV[34]))){
805          goto T240;}          goto T240;}
806          V119= CMPcadr((V118));          V125= CMPcadr((V124));
807          if(!(type_of((V119))==t_cons)){          V129 = (V125);
808            if(!(type_of(V129)==t_cons)){
809          goto T240;}          goto T240;}
810          if(!((CMPcar((V119)))==(VV[35]))){          if(!((CMPcar((V125)))==(VV[35]))){
811          goto T240;}          goto T240;}
812          {object V122;          {object V130;
813          object V123;          object V131;
814          object V124;          object V132;
815          {object V125;          {object V133;
816          object V126= (V113);          object V134= (V119);
817          if(V126==Cnil){          if(V134==Cnil){
818          V122= Cnil;          V130= Cnil;
819          goto T272;}          goto T272;}
820          base[3]=V125=MMcons(Cnil,Cnil);          base[3]=V133=MMcons(Cnil,Cnil);
821          goto T273;          goto T273;
822  T273:;  T273:;
823          {register object V127;          {register object V135;
824          V127= (V126->c.c_car);          V135= (V134->c.c_car);
825          if(!(type_of((V127))==t_cons)){          if(!(type_of((V135))==t_cons)){
826          goto T276;}          goto T276;}
827          V128= CMPcar((V127));          V136= CMPcar((V135));
828          base[4]= CMPcadr((V127));          base[4]= CMPcadr((V135));
829          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
830          Leval();          Leval();
831          vs_top=sup;          vs_top=sup;
832          V129= vs_base[0];          V137= vs_base[0];
833          (V125->c.c_car)= list(2,/* INLINE-ARGS */V128,V129);          (V133->c.c_car)= list(2,/* INLINE-ARGS */V136,V137);
834          goto T274;          goto T274;
835          goto T276;          goto T276;
836  T276:;  T276:;
837          (V125->c.c_car)= (V127);}          (V133->c.c_car)= (V135);}
838          goto T274;          goto T274;
839  T274:;  T274:;
840          if((V126=MMcdr(V126))==Cnil){          if((V134=MMcdr(V134))==Cnil){
841          V122= base[3];          V130= base[3];
842          goto T272;}          goto T272;}
843          V125=MMcdr(V125)=MMcons(Cnil,Cnil);          V133=MMcdr(V133)=MMcons(Cnil,Cnil);
844          goto T273;}          goto T273;}
845          goto T272;          goto T272;
846  T272:;  T272:;
847          if(!((CMPcadr((V116)))==(VV[36]))){          if(!((CMPcadr((V122)))==(VV[36]))){
848          goto T283;}          goto T283;}
849          V130= VV[37];          V138= VV[37];
850          goto T281;          goto T281;
851          goto T283;          goto T283;
852  T283:;  T283:;
853          V130= VV[38];          V138= VV[38];
854          goto T281;          goto T281;
855  T281:;  T281:;
856          V131= make_cons((V122),Cnil);          V139 = (V117);
857          V123= listA(3,V130,(V111),append((V112),/* INLINE-ARGS */V131));          V140= make_cons((V130),Cnil);
858            V131= listA(3,V138,V139,append((V118),/* INLINE-ARGS */V140));
859          bds_bind(VV[39],Cnil);          bds_bind(VV[39],Cnil);
860          base[5]= Cnil;          base[5]= Cnil;
861          base[6]= VV[40];          base[6]= VV[40];
862          base[7]= (V123);          base[7]= (V131);
863          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
864          Lformat();          Lformat();
865          vs_top=sup;          vs_top=sup;
# Line 859  T281:; Line 868  T281:;
868          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
869          Lintern();          Lintern();
870          vs_top=sup;          vs_top=sup;
871          V124= vs_base[0];{object V132;          V132= vs_base[0];{object V141;
872          V132= (VV[42]->s.s_dbind);          V141= (VV[42]->s.s_dbind);
873          V133= listA(4,VV[43],(V124),CMPcadr((V119)),CMPcddr((V119)));          V142= listA(4,VV[43],(V132),CMPcadr((V125)),CMPcddr((V125)));
874          V134= list(2,VV[1],(V122));          V143= list(2,VV[1],(V130));
875          V135= CMPcadr((V116));          V144= CMPcadr((V122));
876          V136= listA(4,VV[32],/* INLINE-ARGS */V135,list(2,VV[34],(V124)),CMPcdddr((V116)));          V145= listA(4,VV[32],/* INLINE-ARGS */V144,list(2,VV[34],(V132)),CMPcdddr((V122)));
877          {object V137 = list(4,VV[41],V132,/* INLINE-ARGS */V133,(VFUN_NARGS=7,(*(LnkLI368))((V111),(V112),/* INLINE-ARGS */V134,(V114),(V115),/* INLINE-ARGS */V136,(V117))));          {object V146 = list(4,VV[41],V141,/* INLINE-ARGS */V142,(VFUN_NARGS=7,(*(LnkLI368))((V117),(V118),/* INLINE-ARGS */V143,(V120),(V121),/* INLINE-ARGS */V145,(V123))));
878          VMR10(V137)}}}          VMR10(V146)}}}
879          goto T240;          goto T240;
880  T240:;  T240:;
881          V138= make_cons((V113),Cnil);          V147= make_cons((V119),Cnil);
882          V139= listA(3,VV[7],(V111),append((V112),/* INLINE-ARGS */V138));{object V140;          V148= listA(3,VV[7],(V117),append((V118),/* INLINE-ARGS */V147));{object V149;
883          V140= (VV[42]->s.s_dbind);          V149= (VV[42]->s.s_dbind);
884          {object V142;          {object V151;
885          object V143= (V113);          object V152= (V119);
886          if(V143==Cnil){          if(V152==Cnil){
887          V141= Cnil;          V150= Cnil;
888          goto T290;}          goto T290;}
889          base[0]=V142=MMcons(Cnil,Cnil);          base[0]=V151=MMcons(Cnil,Cnil);
890          goto T291;          goto T291;
891  T291:;  T291:;
892          {register object V144;          {register object V153;
893          V144= (V143->c.c_car);          V153= (V152->c.c_car);
894          if(!(type_of((V144))==t_cons)){          if(!(type_of((V153))==t_cons)){
895          goto T294;}          goto T294;}
896          (V142->c.c_car)= list(3,VV[44],list(2,VV[1],CMPcar((V144))),CMPcadr((V144)));          (V151->c.c_car)= list(3,VV[44],list(2,VV[1],CMPcar((V153))),CMPcadr((V153)));
897          goto T292;          goto T292;
898          goto T294;          goto T294;
899  T294:;  T294:;
900          (V142->c.c_car)= list(2,VV[1],(V144));}          (V151->c.c_car)= list(2,VV[1],(V153));}
901          goto T292;          goto T292;
902  T292:;  T292:;
903          if((V143=MMcdr(V143))==Cnil){          if((V152=MMcdr(V152))==Cnil){
904          V141= base[0];          V150= base[0];
905          goto T290;}          goto T290;}
906          V142=MMcdr(V142)=MMcons(Cnil,Cnil);          V151=MMcdr(V151)=MMcons(Cnil,Cnil);
907          goto T291;}          goto T291;}
908          goto T290;          goto T290;
909  T290:;  T290:;
910          V145= make_cons(VV[44],V141);          V154= make_cons(VV[44],V150);
911          V146= (VFUN_NARGS=7,(*(LnkLI368))((V111),(V112),/* INLINE-ARGS */V145,(V114),(V115),(V116),(V117)));          V155= (VFUN_NARGS=7,(*(LnkLI368))((V117),(V118),/* INLINE-ARGS */V154,(V120),(V121),(V122),(V123)));
912          {object V147 = (*(LnkLI349))(/* INLINE-ARGS */V139,V140,/* INLINE-ARGS */V146);          {object V156 = (*(LnkLI349))(/* INLINE-ARGS */V148,V149,/* INLINE-ARGS */V155);
913          VMR10(V147)}}}          VMR10(V156)}}}
914          va_end(ap);          va_end(ap);
915          base[0]=base[0];          base[0]=base[0];
916          return Cnil;}          return Cnil;}
917          }          }
918  /*      local entry for function MAKE-DEFMETHOD-FORM-INTERNAL   */  /*      local entry for function MAKE-DEFMETHOD-FORM-INTERNAL   */
919    
920  static object LI13(object V153,object V152,object V151,object V150,object V149,object V148,object first,...)  static object LI13(object V162,object V161,object V160,object V159,object V158,object V157,object first,...)
921  {        {      
922          va_list ap;          va_list ap;
923          int narg = VFUN_NARGS; VMB11 VMS11 VMV11          int narg = VFUN_NARGS; VMB11 VMS11 VMV11
924          {object V154;          {object V163;
925          object V155;          object V164;
926          object V156;          object V165;
927          object V157;          object V166;
928          object V158;          object V167;
929          object V159;          object V168;
930          object V160;          object V169;
931          va_start(ap,first);          va_start(ap,first);
932          if(narg <6) too_few_arguments();          if(narg <6) too_few_arguments();
933          V154= V153;          V163= V162;
934          V155= V152;          V164= V161;
935          V156= V151;          V165= V160;
936          V157= V150;          V166= V159;
937          V158= V149;          V167= V158;
938          V159= V148;          V168= V157;
939          narg = narg - 6;          narg = narg - 6;
940          if (narg <= 0) goto T296;          if (narg <= 0) goto T296;
941          else {          else {
942          V160= first;}          V169= first;}
943          --narg; goto T297;          --narg; goto T297;
944          goto T296;          goto T296;
945  T296:;  T296:;
946          V160= Cnil;          V169= Cnil;
947          goto T297;          goto T297;
948  T297:;  T297:;
949          V161= list(2,VV[1],(V158));          V170= list(2,VV[1],(V167));
950          V162= list(2,VV[1],(V154));          V171= list(2,VV[1],(V163));
951          V163= list(2,VV[1],(V155));          V172= list(2,VV[1],(V164));
952          V164= list(2,VV[1],(V157));          V173= list(2,VV[1],(V166));
953          {object V165 = list(8,VV[45],/* INLINE-ARGS */V161,/* INLINE-ARGS */V162,/* INLINE-ARGS */V163,(V156),/* INLINE-ARGS */V164,(V159),list(2,VV[1],(V160)));          {object V174 = list(8,VV[45],/* INLINE-ARGS */V170,/* INLINE-ARGS */V171,/* INLINE-ARGS */V172,(V165),/* INLINE-ARGS */V173,(V168),list(2,VV[1],(V169)));
954          VMR11(V165)}          VMR11(V174)}
955          va_end(ap);          va_end(ap);
956          return Cnil;}          return Cnil;}
957          }          }
# Line 954  static void L14() Line 963  static void L14()
963          vs_check;          vs_check;
964          check_arg(2);          check_arg(2);
965          vs_top=sup;          vs_top=sup;
966          {object V166=base[0]->c.c_cdr;          {object V175=base[0]->c.c_cdr;
967          if(endp(V166))invalid_macro_call();          if(endp(V175))invalid_macro_call();
968          base[2]= (V166->c.c_car);          base[2]= (V175->c.c_car);
969          V166=V166->c.c_cdr;          V175=V175->c.c_cdr;
970          if(!endp(V166))invalid_macro_call();}          if(!endp(V175))invalid_macro_call();}
971          base[3]= base[2];          base[3]= base[2];
972          base[4]= base[1];          base[4]= base[1];
973          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 971  static void L15() Line 980  static void L15()
980  {register object *base=vs_base;  {register object *base=vs_base;
981          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
982          vs_check;          vs_check;
983          {object V167;          {object V176;
984          object V168;          object V177;
985          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
986          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
987          V167=(base[0]);          V176=(base[0]);
988          vs_base=vs_base+1;          vs_base=vs_base+1;
989          if(vs_base>=vs_top){vs_top=sup;goto T301;}          if(vs_base>=vs_top){vs_top=sup;goto T301;}
990          V168=(base[1]);          V177=(base[1]);
991          vs_top=sup;          vs_top=sup;
992          goto T302;          goto T302;
993          goto T301;          goto T301;
994  T301:;  T301:;
995          V168= Cnil;          V177= Cnil;
996          goto T302;          goto T302;
997  T302:;  T302:;
998          {object V169;          {object V178;
999          object V170;          object V179;
1000          base[2]= Cnil;          base[2]= Cnil;
1001          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1002          (void) (*Lnk353)();          (void) (*Lnk353)();
1003          if(vs_base>=vs_top){vs_top=sup;goto T306;}          if(vs_base>=vs_top){vs_top=sup;goto T306;}
1004          V169= vs_base[0];          V178= vs_base[0];
1005          vs_base++;          vs_base++;
1006          if(vs_base>=vs_top){vs_top=sup;goto T307;}          if(vs_base>=vs_top){vs_top=sup;goto T307;}
1007          V170= vs_base[0];          V179= vs_base[0];
1008          vs_top=sup;          vs_top=sup;
1009          goto T308;          goto T308;
1010          goto T306;          goto T306;
1011  T306:;  T306:;
1012          V169= Cnil;          V178= Cnil;
1013          goto T307;          goto T307;
1014  T307:;  T307:;
1015          V170= Cnil;          V179= Cnil;
1016          goto T308;          goto T308;
1017  T308:;  T308:;
1018          {object V171;          {object V180;
1019          object V172;          object V181;
1020          base[2]= (V169);          base[2]= (V178);
1021          base[3]= (V170);          base[3]= (V179);
1022          base[4]= (V167);          base[4]= (V176);
1023          base[5]= (V168);          base[5]= (V177);
1024          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1025          (void) (*Lnk360)(Lclptr360);          (void) (*Lnk360)(Lclptr360);
1026          if(vs_base>=vs_top){vs_top=sup;goto T314;}          if(vs_base>=vs_top){vs_top=sup;goto T314;}
1027          V171= vs_base[0];          V180= vs_base[0];
1028          vs_base++;          vs_base++;
1029          if(vs_base>=vs_top){vs_top=sup;goto T315;}          if(vs_base>=vs_top){vs_top=sup;goto T315;}
1030          V172= vs_base[0];          V181= vs_base[0];
1031          vs_top=sup;          vs_top=sup;
1032          goto T316;          goto T316;
1033          goto T314;          goto T314;
1034  T314:;  T314:;
1035          V171= Cnil;          V180= Cnil;
1036          goto T315;          goto T315;
1037  T315:;  T315:;
1038          V172= Cnil;          V181= Cnil;
1039          goto T316;          goto T316;
1040  T316:;  T316:;
1041          base[2]= (V169);          base[2]= (V178);
1042          base[3]= (V170);          base[3]= (V179);
1043          base[4]= (V171);          base[4]= (V180);
1044          base[5]= (V172);          base[5]= (V181);
1045          base[6]= (V168);          base[6]= (V177);
1046          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
1047          (void) (*Lnk361)(Lclptr361);          (void) (*Lnk361)(Lclptr361);
1048          return;}}          return;}}
# Line 1045  static void L16() Line 1054  static void L16()
1054  {register object *base=vs_base;  {register object *base=vs_base;
1055          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
1056          vs_check;          vs_check;
1057          {object V173;          {object V182;
1058          object V174;          object V183;
1059          object V175;          object V184;
1060          object V176;          object V185;
1061          object V177;          object V186;
1062          check_arg(5);          check_arg(5);
1063          V173=(base[0]);          V182=(base[0]);
1064          V174=(base[1]);          V183=(base[1]);
1065          V175=(base[2]);          V184=(base[2]);
1066          V176=(base[3]);          V185=(base[3]);
1067          V177=(base[4]);          V186=(base[4]);
1068          vs_top=sup;          vs_top=sup;
1069          goto TTL;          goto TTL;
1070  TTL:;  TTL:;
1071          {object V178;          {object V187;
1072          object V179;          object V188;
1073          object V180;          object V189;
1074          base[5]= (V175);          base[5]= (V184);
1075          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1076          (void) (*Lnk370)();          (void) (*Lnk370)();
1077          if(vs_base>=vs_top){vs_top=sup;goto T324;}          if(vs_base>=vs_top){vs_top=sup;goto T324;}
1078          V178= vs_base[0];          V187= vs_base[0];
1079          vs_base++;          vs_base++;
1080          if(vs_base>=vs_top){vs_top=sup;goto T325;}          if(vs_base>=vs_top){vs_top=sup;goto T325;}
1081          V179= vs_base[0];          V188= vs_base[0];
1082          vs_base++;          vs_base++;
1083          if(vs_base>=vs_top){vs_top=sup;goto T326;}          if(vs_base>=vs_top){vs_top=sup;goto T326;}
1084          V180= vs_base[0];          V189= vs_base[0];
1085          vs_top=sup;          vs_top=sup;
1086          goto T327;          goto T327;
1087          goto T324;          goto T324;
1088  T324:;  T324:;
1089          V178= Cnil;          V187= Cnil;
1090          goto T325;          goto T325;
1091  T325:;  T325:;
1092          V179= Cnil;          V188= Cnil;
1093          goto T326;          goto T326;
1094  T326:;  T326:;
1095          V180= Cnil;          V189= Cnil;
1096          goto T327;          goto T327;
1097  T327:;  T327:;
1098          {object V181;          {object V190;
1099          object V182;          object V191;
1100          object V183;          object V192;
1101          base[5]= (V176);          base[5]= (V185);
1102          base[6]= (V177);          base[6]= (V186);
1103          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1104          (void) (*Lnk371)();          (void) (*Lnk371)();
1105          if(vs_base>=vs_top){vs_top=sup;goto T331;}          if(vs_base>=vs_top){vs_top=sup;goto T331;}
1106          V181= vs_base[0];          V190= vs_base[0];
1107          vs_base++;          vs_base++;
1108          if(vs_base>=vs_top){vs_top=sup;goto T332;}          if(vs_base>=vs_top){vs_top=sup;goto T332;}
1109          V182= vs_base[0];          V191= vs_base[0];
1110          vs_base++;          vs_base++;
1111          if(vs_base>=vs_top){vs_top=sup;goto T333;}          if(vs_base>=vs_top){vs_top=sup;goto T333;}
1112          V183= vs_base[0];          V192= vs_base[0];
1113          vs_top=sup;          vs_top=sup;
1114          goto T334;          goto T334;
1115          goto T331;          goto T331;
1116  T331:;  T331:;
1117          V181= Cnil;          V190= Cnil;
1118          goto T332;          goto T332;
1119  T332:;  T332:;
1120          V182= Cnil;          V191= Cnil;
1121          goto T333;          goto T333;
1122  T333:;  T333:;
1123          V183= Cnil;          V192= Cnil;
1124          goto T334;          goto T334;
1125  T334:;  T334:;
1126          if(((V181))==Cnil){          if(((V190))==Cnil){
1127          goto T338;}          goto T338;}
1128          V184= make_cons((V181),Cnil);          V193= make_cons((V190),Cnil);
1129          goto T336;          goto T336;
1130          goto T338;          goto T338;
1131  T338:;  T338:;
1132          V184= Cnil;          V193= Cnil;
1133          goto T336;          goto T336;
1134  T336:;  T336:;
1135          V185= list(2,VV[46],list(2,VV[47],list(3,(V173),(V174),(V180))));          V194= list(2,VV[46],list(2,VV[47],list(3,(V182),(V183),(V189))));
1136          V186= list(2,VV[46],make_cons(VV[48],(V175)));          V195= list(2,VV[46],make_cons(VV[48],(V184)));
1137          V187= listA(3,/* INLINE-ARGS */V185,/* INLINE-ARGS */V186,append((V182),(V183)));          V196= listA(3,/* INLINE-ARGS */V194,/* INLINE-ARGS */V195,append((V191),(V192)));
1138          base[5]= listA(3,VV[35],(V179),append(V184,/* INLINE-ARGS */V187));          base[5]= listA(3,VV[35],(V188),append(V193,/* INLINE-ARGS */V196));
1139          base[6]= (V179);          base[6]= (V188);
1140          base[7]= (V180);          base[7]= (V189);
1141          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1142          return;}}          return;}}
1143          }          }
1144  }  }
1145  /*      local entry for function REAL-MAKE-METHOD-INITARGS-FORM */  /*      local entry for function REAL-MAKE-METHOD-INITARGS-FORM */
1146    
1147  static object LI17(V193,V194,V195,V196,V197)  static object LI17(V202,V203,V204,V205,V206)
1148    
1149  object V193;object V194;register object V195;object V196;object V197;  object V202;object V203;register object V204;object V205;object V206;
1150  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1151          goto TTL;          goto TTL;
1152  TTL:;  TTL:;
1153          if(!(type_of((V195))==t_cons)){          if(!(type_of((V204))==t_cons)){
1154          goto T343;}          goto T343;}
1155          if((CMPcar((V195)))==(VV[35])){          if((CMPcar((V204)))==(VV[35])){
1156          goto T342;}          goto T342;}
1157          goto T343;          goto T343;
1158  T343:;  T343:;
1159          base[0]= VV[49];          base[0]= VV[49];
1160          base[1]= (V195);          base[1]= (V204);
1161          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1162          Lerror();          Lerror();
1163          vs_top=sup;          vs_top=sup;
1164          goto T342;          goto T342;
1165  T342:;  T342:;
1166          {object V198 = (*(LnkLI372))((V195),(V196),(V197));          {object V207 = (*(LnkLI372))((V204),(V205),(V206));
1167          VMR15(V198)}          VMR15(V207)}
1168          base[0]=base[0];          base[0]=base[0];
1169          return Cnil;          return Cnil;
1170  }  }
# Line 1165  static void L18() Line 1174  static void L18()
1174  {register object *base=vs_base;  {register object *base=vs_base;
1175          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
1176          vs_check;          vs_check;
1177          {object V199;          {object V208;
1178          object V200;          object V209;
1179          object V201;          object V210;
1180          object V202;          object V211;
1181          check_arg(4);          check_arg(4);
1182          V199=(base[0]);          V208=(base[0]);
1183          V200=(base[1]);          V209=(base[1]);
1184          V201=(base[2]);          V210=(base[2]);
1185          V202=(base[3]);          V211=(base[3]);
1186          vs_top=sup;          vs_top=sup;
1187          goto TTL;          goto TTL;
1188  TTL:;  TTL:;
1189          base[4]= (V201);          base[4]= (V210);
1190          base[5]= (V202);          base[5]= (V211);
1191          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1192          (void) (*Lnk373)();          (void) (*Lnk373)();
1193          return;          return;
# Line 1190  static void L19() Line 1199  static void L19()
1199  {register object *base=vs_base;  {register object *base=vs_base;
1200          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
1201          vs_check;          vs_check;
1202          {register object V203;          {register object V212;
1203          object V204;          object V213;
1204          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
1205          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
1206          V203=(base[0]);          V212=(base[0]);
1207          vs_base=vs_base+1;          vs_base=vs_base+1;
1208          if(vs_base>=vs_top){vs_top=sup;goto T351;}          if(vs_base>=vs_top){vs_top=sup;goto T351;}
1209          V204=(base[1]);          V213=(base[1]);
1210          vs_top=sup;          vs_top=sup;
1211          goto T352;          goto T352;
1212          goto T351;          goto T351;
1213  T351:;  T351:;
1214          V204= Cnil;          V213= Cnil;
1215          goto T352;          goto T352;
1216  T352:;  T352:;
1217          if(!(type_of((V203))==t_cons)){          if(!(type_of((V212))==t_cons)){
1218          goto T355;}          goto T355;}
1219          if((CMPcar((V203)))==(VV[35])){          if((CMPcar((V212)))==(VV[35])){
1220          goto T354;}          goto T354;}
1221          goto T355;          goto T355;
1222  T355:;  T355:;
1223          base[2]= VV[50];          base[2]= VV[50];
1224          base[3]= (V203);          base[3]= (V212);
1225          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1226          Lerror();          Lerror();
1227          vs_top=sup;          vs_top=sup;
1228          goto T354;          goto T354;
1229  T354:;  T354:;
1230          {object V205;          {object V214;
1231          object V206;          object V215;
1232          object V207;          object V216;
1233          base[2]= CMPcddr((V203));          base[2]= CMPcddr((V212));
1234          base[3]= (V204);          base[3]= (V213);
1235          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1236          (void) (*Lnk371)();          (void) (*Lnk371)();
1237          if(vs_base>=vs_top){vs_top=sup;goto T364;}          if(vs_base>=vs_top){vs_top=sup;goto T364;}
1238          V205= vs_base[0];          V214= vs_base[0];
1239          vs_base++;          vs_base++;
1240          if(vs_base>=vs_top){vs_top=sup;goto T365;}          if(vs_base>=vs_top){vs_top=sup;goto T365;}
1241          V206= vs_base[0];          V215= vs_base[0];
1242          vs_base++;          vs_base++;
1243          if(vs_base>=vs_top){vs_top=sup;goto T366;}          if(vs_base>=vs_top){vs_top=sup;goto T366;}
1244          V207= vs_base[0];          V216= vs_base[0];
1245          vs_top=sup;          vs_top=sup;
1246          goto T367;          goto T367;
1247          goto T364;          goto T364;
1248  T364:;  T364:;
1249          V205= Cnil;          V214= Cnil;
1250          goto T365;          goto T365;
1251  T365:;  T365:;
1252          V206= Cnil;          V215= Cnil;
1253          goto T366;          goto T366;
1254  T366:;  T366:;
1255          V207= Cnil;          V216= Cnil;
1256          goto T367;          goto T367;
1257  T367:;  T367:;
1258          {object V208;          {object V217;
1259          object V209;          object V218;
1260          object V210;          object V219;
1261          object V211;          object V220;
1262          object V212;          object V221;
1263          V208= (VFUN_NARGS=2,(*(LnkLI374))(VV[47],(V206)));          V217= (VFUN_NARGS=2,(*(LnkLI374))(VV[47],(V215)));
1264          V209= (VFUN_NARGS=2,(*(LnkLI374))(VV[48],(V206)));          V218= (VFUN_NARGS=2,(*(LnkLI374))(VV[48],(V215)));
1265          if(!(type_of((V208))==t_cons)){          if(!(type_of((V217))==t_cons)){
1266          goto T372;}          goto T372;}
1267          V210= CMPcar((V208));          V219= CMPcar((V217));
1268          goto T370;          goto T370;
1269          goto T372;          goto T372;
1270  T372:;  T372:;
1271          V210= Cnil;          V219= Cnil;
1272          goto T370;          goto T370;
1273  T370:;  T370:;
1274          if(((V210))==Cnil){          if(((V219))==Cnil){
1275          goto T376;}          goto T376;}
1276          V211= CMPcar((V210));          V220= CMPcar((V219));
1277          goto T374;          goto T374;
1278          goto T376;          goto T376;
1279  T376:;  T376:;
1280          V211= Cnil;          V220= Cnil;
1281          goto T374;          goto T374;
1282  T374:;  T374:;
1283          if((V209)!=Cnil){          if((V218)!=Cnil){
1284          V212= (V209);          V221= (V218);
1285          goto T378;}          goto T378;}
1286          V212= CMPcadr((V203));          V221= CMPcadr((V212));
1287          goto T378;          goto T378;
1288  T378:;  T378:;
1289          {object V213;          {object V222;
1290          register object V214;          register object V223;
1291          object V215;          object V224;
1292          base[7]= (V212);          base[7]= (V221);
1293          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1294          (void) (*Lnk370)();          (void) (*Lnk370)();
1295          if(vs_base>=vs_top){vs_top=sup;goto T381;}          if(vs_base>=vs_top){vs_top=sup;goto T381;}
1296          V213= vs_base[0];          V222= vs_base[0];
1297          vs_base++;          vs_base++;
1298          if(vs_base>=vs_top){vs_top=sup;goto T382;}          if(vs_base>=vs_top){vs_top=sup;goto T382;}
1299          V214= vs_base[0];          V223= vs_base[0];
1300          vs_base++;          vs_base++;
1301          if(vs_base>=vs_top){vs_top=sup;goto T383;}          if(vs_base>=vs_top){vs_top=sup;goto T383;}
1302          V215= vs_base[0];          V224= vs_base[0];
1303          vs_top=sup;          vs_top=sup;
1304          goto T384;          goto T384;
1305          goto T381;          goto T381;
1306  T381:;  T381:;
1307          V213= Cnil;          V222= Cnil;
1308          goto T382;          goto T382;
1309  T382:;  T382:;
1310          V214= Cnil;          V223= Cnil;
1311          goto T383;          goto T383;
1312  T383:;  T383:;
1313          V215= Cnil;          V224= Cnil;
1314          goto T384;          goto T384;
1315  T384:;  T384:;
1316          {object V216;          {object V225;
1317          object V217;          object V226;
1318          object V218;          object V227;
1319          object V219;          object V228;
1320          object V220;          object V229;
1321          object V221;          object V230;
1322          object V222;          object V231;
1323          register object V223;          register object V232;
1324          register object V224;          register object V233;
1325          object V225;          object V234;
1326          {object V226;          {object V235;
1327          object V227= (V213);          object V236= (V222);
1328          object V228= (V215);          object V237= (V224);
1329          if(V227==Cnil||V228==Cnil){          if(V236==Cnil||V237==Cnil){
1330          V216= Cnil;          V225= Cnil;
1331          goto T385;}          goto T385;}
1332          base[17]=V226=MMcons(Cnil,Cnil);          base[17]=V235=MMcons(Cnil,Cnil);
1333          goto T386;          goto T386;
1334  T386:;  T386:;
1335          (V226->c.c_car)= (V227->c.c_car);          (V235->c.c_car)= (V236->c.c_car);
1336          if((V227=MMcdr(V227))==Cnil||(V228=MMcdr(V228))==Cnil){          if((V236=MMcdr(V236))==Cnil||(V237=MMcdr(V237))==Cnil){
1337          V216= base[17];          V225= base[17];
1338          goto T385;}          goto T385;}
1339          V226=MMcdr(V226)=MMcons(Cnil,Cnil);          V235=MMcdr(V235)=MMcons(Cnil,Cnil);
1340          goto T386;}          goto T386;}
1341          goto T385;          goto T385;
1342  T385:;  T385:;
1343          {object V231;          {object V240;
1344          object V232= (V216);          object V241= (V225);
1345          if(V232==Cnil){          if(V241==Cnil){
1346          V217= Cnil;          V226= Cnil;
1347          goto T388;}          goto T388;}
1348          base[17]=V231=MMcons(Cnil,Cnil);          base[17]=V240=MMcons(Cnil,Cnil);
1349          goto T389;          goto T389;
1350  T389:;  T389:;
1351          (V231->c.c_car)= make_cons((V232->c.c_car),Cnil);          (V240->c.c_car)= make_cons((V241->c.c_car),Cnil);
1352          if((V232=MMcdr(V232))==Cnil){          if((V241=MMcdr(V241))==Cnil){
1353          V217= base[17];          V226= base[17];
1354          goto T388;}          goto T388;}
1355          V231=MMcdr(V231)=MMcons(Cnil,Cnil);          V240=MMcdr(V240)=MMcons(Cnil,Cnil);
1356          goto T389;}          goto T389;}
1357          goto T388;          goto T388;
1358  T388:;  T388:;
1359          V218= make_cons(Cnil,Cnil);          V227= make_cons(Cnil,Cnil);
1360          V219= (*(LnkLI375))((V212),(V216),(V206),(V210),(V215));          V228= (*(LnkLI375))((V221),(V225),(V215),(V219),(V224));
1361          base[17]= Cnil;          base[17]= Cnil;
1362          {object V234;          {object V243;
1363          object V235= (V213);          object V244= (V222);
1364          object V236= (V215);          object V245= (V224);
1365          if(V235==Cnil||V236==Cnil){          if(V244==Cnil||V245==Cnil){
1366          base[18]= Cnil;          base[18]= Cnil;
1367          goto T396;}          goto T396;}
1368          base[19]=V234=MMcons(Cnil,Cnil);          base[19]=V243=MMcons(Cnil,Cnil);
1369          goto T397;          goto T397;
1370  T397:;  T397:;
1371          if(type_of((V236->c.c_car))==t_symbol){          if(type_of((V245->c.c_car))==t_symbol){
1372          goto T399;}          goto T399;}
1373          (V234->c.c_car)= Cnil;          (V243->c.c_car)= Cnil;
1374          goto T398;          goto T398;
1375          goto T399;          goto T399;
1376  T399:;  T399:;
1377          if(((((V236->c.c_car))==(Ct)?Ct:Cnil))==Cnil){          if(((((V245->c.c_car))==(Ct)?Ct:Cnil))==Cnil){
1378          goto T401;}          goto T401;}
1379          (V234->c.c_car)= Cnil;          (V243->c.c_car)= Cnil;
1380          goto T398;          goto T398;
1381          goto T401;          goto T401;
1382  T401:;  T401:;
1383          (V234->c.c_car)= list(3,VV[51],(V235->c.c_car),(V236->c.c_car));          (V243->c.c_car)= list(3,VV[51],(V244->c.c_car),(V245->c.c_car));
1384          goto T398;          goto T398;
1385  T398:;  T398:;
1386          if((V235=MMcdr(V235))==Cnil||(V236=MMcdr(V236))==Cnil){          if((V244=MMcdr(V244))==Cnil||(V245=MMcdr(V245))==Cnil){
1387          base[18]= base[19];          base[18]= base[19];
1388          goto T396;}          goto T396;}
1389          V234=MMcdr(V234)=MMcons(Cnil,Cnil);          V243=MMcdr(V243)=MMcons(Cnil,Cnil);
1390          goto T397;}          goto T397;}
1391          goto T396;          goto T396;
1392  T396:;  T396:;
1393          vs_top=(vs_base=base+17)+2;          vs_top=(vs_base=base+17)+2;
1394          (void) (*Lnk376)();          (void) (*Lnk376)();
1395          vs_top=sup;          vs_top=sup;
1396          V233= vs_base[0];          V242= vs_base[0];
1397          V220= make_cons(VV[46],V233);          V229= make_cons(VV[46],V242);
1398          V239= make_cons(VV[10],(V219));          V248= make_cons(VV[10],(V228));
1399          if(!(type_of((V211))==t_cons||((V211))==Cnil)){          if(!(type_of((V220))==t_cons||((V220))==Cnil)){
1400          goto T406;}          goto T406;}
1401          V240= CMPcadr((V211));          V249= CMPcadr((V220));
1402          goto T404;          goto T404;
1403          goto T406;          goto T406;
1404  T406:;  T406:;
1405          V240= (V211);          V249= (V220);
1406          goto T404;          goto T404;
1407  T404:;  T404:;
1408          V241= list(2,/* INLINE-ARGS */V239,listA(3,VV[52],V240,(V207)));          V250 = (V216);
1409          V221= listA(4,VV[35],(V214),(V220),append((V206),/* INLINE-ARGS */V241));          V251= list(2,/* INLINE-ARGS */V248,listA(3,VV[52],V249,V250));
1410          if((CMPcdr((V207)))==Cnil){          V230= listA(4,VV[35],(V223),(V229),append((V215),/* INLINE-ARGS */V251));
1411            if((CMPcdr((V216)))==Cnil){
1412          goto T409;}          goto T409;}
1413          V222= Cnil;          V231= Cnil;
1414          goto T408;          goto T408;
1415          goto T409;          goto T409;
1416  T409:;  T409:;
1417          base[17]= CMPcar((V207));          base[17]= CMPcar((V216));
1418          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+17)+1;
1419          Lconstantp();          Lconstantp();
1420          vs_top=sup;          vs_top=sup;
1421          V222= vs_base[0];          V231= vs_base[0];
1422          goto T408;          goto T408;
1423  T408:;  T408:;
1424          if((V222)==Cnil){          if((V231)==Cnil){
1425          V223= Cnil;          V232= Cnil;
1426          goto T412;}          goto T412;}
1427          base[17]= CMPcar((V207));          base[17]= CMPcar((V216));
1428          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+17)+1;
1429          Leval();          Leval();
1430          vs_top=sup;          vs_top=sup;
1431          V223= vs_base[0];          V232= vs_base[0];
1432          goto T412;          goto T412;
1433  T412:;  T412:;
1434          if(((V222))==Cnil){          if(((V231))==Cnil){
1435          goto T416;}          goto T416;}
1436          base[17]= (V223);          base[17]= (V232);
1437          base[18]= VV[53];          base[18]= VV[53];
1438          vs_top=(vs_base=base+17)+2;          vs_top=(vs_base=base+17)+2;
1439          (void) (*Lnk122)();          (void) (*Lnk122)();
1440          vs_top=sup;          vs_top=sup;
1441          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1442          goto T415;}          goto T415;}
1443          if(!(type_of((V223))==t_symbol)){          if(!(type_of((V232))==t_symbol)){
1444          goto T416;}          goto T416;}
1445          base[17]= (V223);          base[17]= (V232);
1446          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+17)+1;
1447          Lsymbol_package();          Lsymbol_package();
1448          vs_top=sup;          vs_top=sup;
# Line 1440  T412:; Line 1450  T412:;
1450          goto T416;}          goto T416;}
1451          goto T415;          goto T415;
1452  T415:;  T415:;
1453          V224= list(2,VV[54],(V223));          V233= list(2,VV[54],(V232));
1454          goto T414;          goto T414;
1455          goto T416;          goto T416;
1456  T416:;  T416:;
1457          V224= Cnil;          V233= Cnil;
1458          goto T414;          goto T414;
1459  T414:;  T414:;
1460          {register object V242;          {register object V252;
1461          register object V243;          register object V253;
1462          V242= (V214);          V252= (V223);
1463          V243= CMPcar((V242));          V253= CMPcar((V252));
1464          goto T431;          goto T431;
1465  T431:;  T431:;
1466          if(!(((V242))==Cnil)){          if(!(((V252))==Cnil)){
1467          goto T432;}          goto T432;}
1468          V225= Cnil;          V234= Cnil;
1469          goto T427;          goto T427;
1470          goto T432;          goto T432;
1471  T432:;  T432:;
1472          {register object x= (V243),V244= VV[55];          {register object x= (V253),V254= VV[55];
1473          while(V244!=Cnil)          while(V254!=Cnil)
1474          if(x==(V244->c.c_car)){          if(x==(V254->c.c_car)){
1475          goto T439;          goto T439;
1476          }else V244=V244->c.c_cdr;          }else V254=V254->c.c_cdr;
1477          goto T438;}          goto T438;}
1478          goto T439;          goto T439;
1479  T439:;  T439:;
1480          V225= Ct;          V234= Ct;
1481          goto T427;          goto T427;
1482          goto T438;          goto T438;
1483  T438:;  T438:;
1484          if(!(((V243))==(VV[56]))){          if(!(((V253))==(VV[56]))){
1485          goto T436;}          goto T436;}
1486          V225= Cnil;          V234= Cnil;
1487          goto T427;          goto T427;
1488          goto T436;          goto T436;
1489  T436:;  T436:;
1490          V242= CMPcdr((V242));          V252= CMPcdr((V252));
1491          V243= CMPcar((V242));          V253= CMPcar((V252));
1492          goto T431;}          goto T431;}
1493          goto T427;          goto T427;
1494  T427:;  T427:;
1495          {object V245;          {object V255;
1496          object V246;          object V256;
1497          object V247;          object V257;
1498          object V248;          object V258;
1499          base[17]= (V221);          base[17]= (V230);
1500          base[18]= (V216);          base[18]= (V225);
1501          base[19]= (V204);          base[19]= (V213);
1502          base[20]= (V217);          base[20]= (V226);
1503          base[21]= (V218);          base[21]= (V227);
1504          vs_top=(vs_base=base+17)+5;          vs_top=(vs_base=base+17)+5;
1505          (void) (*Lnk377)();          (void) (*Lnk377)();
1506          if(vs_base>=vs_top){vs_top=sup;goto T453;}          if(vs_base>=vs_top){vs_top=sup;goto T453;}
1507          V245= vs_base[0];          V255= vs_base[0];
1508          vs_base++;          vs_base++;
1509          if(vs_base>=vs_top){vs_top=sup;goto T454;}          if(vs_base>=vs_top){vs_top=sup;goto T454;}
1510          V246= vs_base[0];          V256= vs_base[0];
1511          vs_base++;          vs_base++;
1512          if(vs_base>=vs_top){vs_top=sup;goto T455;}          if(vs_base>=vs_top){vs_top=sup;goto T455;}
1513          V247= vs_base[0];          V257= vs_base[0];
1514          vs_base++;          vs_base++;
1515          if(vs_base>=vs_top){vs_top=sup;goto T456;}          if(vs_base>=vs_top){vs_top=sup;goto T456;}
1516          V248= vs_base[0];          V258= vs_base[0];
1517          vs_top=sup;          vs_top=sup;
1518          goto T457;          goto T457;
1519          goto T453;          goto T453;
1520  T453:;  T453:;
1521          V245= Cnil;          V255= Cnil;
1522          goto T454;          goto T454;
1523  T454:;  T454:;
1524          V246= Cnil;          V256= Cnil;
1525          goto T455;          goto T455;
1526  T455:;  T455:;
1527          V247= Cnil;          V257= Cnil;
1528          goto T456;          goto T456;
1529  T456:;  T456:;
1530          V248= Cnil;          V258= Cnil;
1531          goto T457;          goto T457;
1532  T457:;  T457:;
1533          {object V249;          {object V259;
1534          object V250;          object V260;
1535          object V251;          object V261;
1536          base[17]= CMPcddr((V245));          base[17]= CMPcddr((V255));
1537          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+17)+1;
1538          (void) (*Lnk371)();          (void) (*Lnk371)();
1539          if(vs_base>=vs_top){vs_top=sup;goto T460;}          if(vs_base>=vs_top){vs_top=sup;goto T460;}
1540          V249= vs_base[0];          V259= vs_base[0];
1541          vs_base++;          vs_base++;
1542          if(vs_base>=vs_top){vs_top=sup;goto T461;}          if(vs_base>=vs_top){vs_top=sup;goto T461;}
1543          V250= vs_base[0];          V260= vs_base[0];
1544          vs_base++;          vs_base++;
1545          if(vs_base>=vs_top){vs_top=sup;goto T462;}          if(vs_base>=vs_top){vs_top=sup;goto T462;}
1546          V251= vs_base[0];          V261= vs_base[0];
1547          vs_top=sup;          vs_top=sup;
1548          goto T463;          goto T463;
1549          goto T460;          goto T460;
1550  T460:;  T460:;
1551          V249= Cnil;          V259= Cnil;
1552          goto T461;          goto T461;
1553  T461:;  T461:;
1554          V250= Cnil;          V260= Cnil;
1555          goto T462;          goto T462;
1556  T462:;  T462:;
1557          V251= Cnil;          V261= Cnil;
1558          goto T463;          goto T463;
1559  T463:;  T463:;
1560          if(((V248))!=Cnil){          if(((V258))!=Cnil){
1561          goto T465;}          goto T465;}
1562          if(((V246))==Cnil){          if(((V256))==Cnil){
1563          goto T464;}          goto T464;}
1564          goto T465;          goto T465;
1565  T465:;  T465:;
1566          V224= listA(3,VV[57],Ct,(V224));          V233= listA(3,VV[57],Ct,(V233));
1567          goto T464;          goto T464;
1568  T464:;  T464:;
1569          base[17]= (VV[378]->s.s_gfdef);          base[17]= (VV[378]->s.s_gfdef);
1570          base[18]= (V217);          base[18]= (V226);
1571          vs_top=(vs_base=base+17)+2;          vs_top=(vs_base=base+17)+2;
1572          (void) (*Lnk379)();          (void) (*Lnk379)();
1573          vs_top=sup;          vs_top=sup;
1574          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1575          goto T470;}          goto T470;}
1576          {object V252;          {object V262;
1577          object V253;          object V263;
1578          base[17]= (V217);          base[17]= (V226);
1579          base[18]= (V218);          base[18]= (V227);
1580          vs_top=(vs_base=base+17)+2;          vs_top=(vs_base=base+17)+2;
1581          (void) (*Lnk380)();          (void) (*Lnk380)();
1582          if(vs_base>=vs_top){vs_top=sup;goto T478;}          if(vs_base>=vs_top){vs_top=sup;goto T478;}
1583          V252= vs_base[0];          V262= vs_base[0];
1584          vs_base++;          vs_base++;
1585          if(vs_base>=vs_top){vs_top=sup;goto T479;}          if(vs_base>=vs_top){vs_top=sup;goto T479;}
1586          V253= vs_base[0];          V263= vs_base[0];
1587          vs_top=sup;          vs_top=sup;
1588          goto T480;          goto T480;
1589          goto T478;          goto T478;
1590  T478:;  T478:;
1591          V252= Cnil;          V262= Cnil;
1592          goto T479;          goto T479;
1593  T479:;  T479:;
1594          V253= Cnil;          V263= Cnil;
1595          goto T480;          goto T480;
1596  T480:;  T480:;
1597          {object V254;          {object V264;
1598          base[17]= VV[58];          base[17]= VV[58];
1599          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+17)+1;
1600          Lmake_symbol();          Lmake_symbol();
1601          vs_top=sup;          vs_top=sup;
1602          V254= vs_base[0];          V264= vs_base[0];
1603          if(((V252))==Cnil){          if(((V262))==Cnil){
1604          goto T487;}          goto T487;}
1605          base[17]= list(2,VV[59],(V252));          base[17]= list(2,VV[59],(V262));
1606          goto T485;          goto T485;
1607          goto T487;          goto T487;
1608  T487:;  T487:;
1609          base[17]= Cnil;          base[17]= Cnil;
1610          goto T485;          goto T485;
1611  T485:;  T485:;
1612          if(((V253))==Cnil){          if(((V263))==Cnil){
1613          goto T491;}          goto T491;}
1614          base[18]= list(2,VV[60],(V253));          base[18]= list(2,VV[60],(V263));
1615          goto T489;          goto T489;
1616          goto T491;          goto T491;
1617  T491:;  T491:;
1618          base[18]= Cnil;          base[18]= Cnil;
1619          goto T489;          goto T489;
1620  T489:;  T489:;
1621          base[19]= listA(3,VV[29],(V254),(V224));          base[19]= listA(3,VV[29],(V264),(V233));
1622          vs_top=(vs_base=base+17)+3;          vs_top=(vs_base=base+17)+3;
1623          Lappend();          Lappend();
1624          vs_top=sup;          vs_top=sup;
1625          V224= vs_base[0];          V233= vs_base[0];
1626          V255= listA(3,VV[61],list(3,(V216),(V252),(V254)),(V251));          V265= listA(3,VV[61],list(3,(V225),(V262),(V264)),(V261));
1627          V251= make_cons(/* INLINE-ARGS */V255,Cnil);}}          V261= make_cons(/* INLINE-ARGS */V265,Cnil);}}
1628          goto T470;          goto T470;
1629  T470:;  T470:;
1630          {register object x= VV[62],V256= (V214);          {register object x= VV[62],V266= (V223);
1631          while(V256!=Cnil)          while(V266!=Cnil)
1632          if(x==(V256->c.c_car)){          if(x==(V266->c.c_car)){
1633          goto T498;          goto T498;
1634          }else V256=V256->c.c_cdr;          }else V266=V266->c.c_cdr;
1635          goto T495;}          goto T495;}
1636          goto T498;          goto T498;
1637  T498:;  T498:;
1638          {register object x= VV[63],V257= (V214);          {register object x= VV[63],V267= (V223);
1639          while(V257!=Cnil)          while(V267!=Cnil)
1640          if(x==(V257->c.c_car)){          if(x==(V267->c.c_car)){
1641          goto T495;          goto T495;
1642          }else V257=V257->c.c_cdr;}          }else V267=V267->c.c_cdr;}
1643          {object V258;          {object V268;
1644          {register object x= VV[56],V259= (V214);          {register object x= VV[56],V269= (V223);
1645          while(V259!=Cnil)          while(V269!=Cnil)
1646          if(x==(V259->c.c_car)){          if(x==(V269->c.c_car)){
1647          V258= V259;          V268= V269;
1648          goto T500;          goto T500;
1649          }else V259=V259->c.c_cdr;          }else V269=V269->c.c_cdr;
1650          V258= Cnil;}          V268= Cnil;}
1651          goto T500;          goto T500;
1652  T500:;  T500:;
1653          base[18]= (V214);          base[18]= (V223);
1654          base[19]= (V258);          base[19]= (V268);
1655          vs_top=(vs_base=base+18)+2;          vs_top=(vs_base=base+18)+2;
1656          Lldiff();          Lldiff();
1657          vs_top=sup;          vs_top=sup;
1658          base[17]= vs_base[0];          base[17]= vs_base[0];
1659          base[18]= make_cons(VV[63],Cnil);          base[18]= make_cons(VV[63],Cnil);
1660          base[19]= (V258);          base[19]= (V268);
1661          vs_top=(vs_base=base+17)+3;          vs_top=(vs_base=base+17)+3;
1662          Lnconc();          Lnconc();
1663          vs_top=sup;          vs_top=sup;
1664          V214= vs_base[0];}          V223= vs_base[0];}
1665          goto T495;          goto T495;
1666  T495:;  T495:;
1667          base[18]= (V214);          base[18]= (V223);
1668          base[19]= VV[66];          base[19]= VV[66];
1669          base[20]= VV[67];          base[20]= VV[67];
1670          base[21]= VV[68];          base[21]= VV[68];
1671          base[22]= (V246);          base[22]= (V256);
1672          base[23]= VV[69];          base[23]= VV[69];
1673          base[24]= (V248);          base[24]= (V258);
1674          base[25]= VV[70];          base[25]= VV[70];
1675          base[26]= (V247);          base[26]= (V257);
1676          base[27]= VV[71];          base[27]= VV[71];
1677          base[28]= (V225);          base[28]= (V234);
1678          vs_top=(vs_base=base+18)+11;          vs_top=(vs_base=base+18)+11;
1679          Llist();          Llist();
1680          vs_top=sup;          vs_top=sup;
1681          V260= vs_base[0];          V270= vs_base[0];
1682          base[17]= list(3,VV[35],VV[64],listA(3,VV[65],V260,append((V250),(V251))));          base[17]= list(3,VV[35],VV[64],listA(3,VV[65],V270,append((V260),(V261))));
1683          if(((V224))==Cnil){          if(((V233))==Cnil){
1684          goto T523;}          goto T523;}
1685          V261= list(2,VV[28],(V224));          V271= list(2,VV[28],(V233));
1686          goto T521;          goto T521;
1687          goto T523;          goto T523;
1688  T523:;  T523:;
1689          V261= Cnil;          V271= Cnil;
1690          goto T521;          goto T521;
1691  T521:;  T521:;
1692          if(((V205))==Cnil){          if(((V214))==Cnil){
1693          goto T527;}          goto T527;}
1694          V262= list(2,VV[3],(V205));          V272= list(2,VV[3],(V214));
1695          goto T525;          goto T525;
1696          goto T527;          goto T527;
1697  T527:;  T527:;
1698          V262= Cnil;          V272= Cnil;
1699          goto T525;          goto T525;
1700  T525:;  T525:;
1701          base[18]= append(V261,V262);          base[18]= append(V271,V272);
1702          vs_top=(vs_base=base+17)+2;          vs_top=(vs_base=base+17)+2;
1703          return;}}}}}}          return;}}}}}}
1704          }          }
# Line 1701  static void L20() Line 1711  static void L20()
1711          vs_check;          vs_check;
1712          check_arg(2);          check_arg(2);
1713          vs_top=sup;          vs_top=sup;
1714          {object V263=base[0]->c.c_cdr;          {object V273=base[0]->c.c_cdr;
1715          if(endp(V263))invalid_macro_call();          if(endp(V273))invalid_macro_call();
1716          {object V264= (V263->c.c_car);          {object V274= (V273->c.c_car);
1717          if(endp(V264))invalid_macro_call();          if(endp(V274))invalid_macro_call();
1718          base[2]= (V264->c.c_car);          base[2]= (V274->c.c_car);
1719          V264=V264->c.c_cdr;          V274=V274->c.c_cdr;
1720          if(endp(V264))invalid_macro_call();          if(endp(V274))invalid_macro_call();
1721          base[3]= (V264->c.c_car);          base[3]= (V274->c.c_car);
1722          V264=V264->c.c_cdr;          V274=V274->c.c_cdr;
1723          if(endp(V264))invalid_macro_call();          if(endp(V274))invalid_macro_call();
1724          base[4]= (V264->c.c_car);          base[4]= (V274->c.c_car);
1725          V264=V264->c.c_cdr;          V274=V274->c.c_cdr;
1726          base[5]= V264;}          base[5]= V274;}
1727          V263=V263->c.c_cdr;          V273=V273->c.c_cdr;
1728          base[6]= V263;}          base[6]= V273;}
1729          V265= list(2,base[3],base[4]);          V275= list(2,base[3],base[4]);
1730          base[7]= list(4,VV[10],base[3],base[4],list(3,VV[72],/* INLINE-ARGS */V265,list(3,VV[73],base[5],listA(3,VV[74],list(2,base[2],base[3]),base[6]))));          base[7]= list(4,VV[10],base[3],base[4],list(3,VV[72],/* INLINE-ARGS */V275,list(3,VV[73],base[5],listA(3,VV[74],list(2,base[2],base[3]),base[6]))));
1731          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1732          return;          return;
1733  }  }
# Line 1729  static void L21() Line 1739  static void L21()
1739          vs_check;          vs_check;
1740          check_arg(2);          check_arg(2);
1741          vs_top=sup;          vs_top=sup;
1742          {object V266=base[0]->c.c_cdr;          {object V276=base[0]->c.c_cdr;
1743          if(endp(V266))invalid_macro_call();          if(endp(V276))invalid_macro_call();
1744          {object V267= (V266->c.c_car);          {object V277= (V276->c.c_car);
1745          if(endp(V267))invalid_macro_call();          if(endp(V277))invalid_macro_call();
1746          base[2]= (V267->c.c_car);          base[2]= (V277->c.c_car);
1747          V267=V267->c.c_cdr;          V277=V277->c.c_cdr;
1748          if(endp(V267))invalid_macro_call();          if(endp(V277))invalid_macro_call();
1749          base[3]= (V267->c.c_car);          base[3]= (V277->c.c_car);
1750          V267=V267->c.c_cdr;          V277=V277->c.c_cdr;
1751          if(endp(V267))invalid_macro_call();          if(endp(V277))invalid_macro_call();
1752          base[4]= (V267->c.c_car);          base[4]= (V277->c.c_car);
1753          V267=V267->c.c_cdr;          V277=V277->c.c_cdr;
1754          if(endp(V267))invalid_macro_call();          if(endp(V277))invalid_macro_call();
1755          base[5]= (V267->c.c_car);          base[5]= (V277->c.c_car);
1756          V267=V267->c.c_cdr;          V277=V277->c.c_cdr;
1757          base[6]= V267;}          base[6]= V277;}
1758          V266=V266->c.c_cdr;          V276=V276->c.c_cdr;
1759          base[7]= V266;}          base[7]= V276;}
1760          V268= list(3,base[4],base[5],base[3]);          V278= list(3,base[4],base[5],base[3]);
1761          V269 = CMPmake_fixnum((long)length(base[4]));          V279 = CMPmake_fixnum((long)length(base[4]));
1762          base[8]= list(3,VV[75],/* INLINE-ARGS */V268,list(3,VV[73],base[6],listA(3,VV[74],list(2,nthcdr(fix(V269),base[2]),base[5]),base[7])));          base[8]= list(3,VV[75],/* INLINE-ARGS */V278,list(3,VV[73],base[6],listA(3,VV[74],list(2,nthcdr(fix(V279),base[2]),base[5]),base[7])));
1763          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1764          return;          return;
1765  }  }
# Line 1761  static void L22() Line 1771  static void L22()
1771          vs_check;          vs_check;
1772          check_arg(2);          check_arg(2);
1773          vs_top=sup;          vs_top=sup;
1774          {object V270=base[0]->c.c_cdr;          {object V280=base[0]->c.c_cdr;
1775          if(endp(V270))invalid_macro_call();          if(endp(V280))invalid_macro_call();
1776          {object V271= (V270->c.c_car);          {object V281= (V280->c.c_car);
1777          if(endp(V271))invalid_macro_call();          if(endp(V281))invalid_macro_call();
1778          base[2]= (V271->c.c_car);          base[2]= (V281->c.c_car);
1779          V271=V271->c.c_cdr;          V281=V281->c.c_cdr;
1780          if(endp(V271))invalid_macro_call();          if(endp(V281))invalid_macro_call();
1781          base[3]= (V271->c.c_car);          base[3]= (V281->c.c_car);
1782          V271=V271->c.c_cdr;          V281=V281->c.c_cdr;
1783          if(!endp(V271))invalid_macro_call();}          if(!endp(V281))invalid_macro_call();}
1784          V270=V270->c.c_cdr;          V280=V280->c.c_cdr;
1785          base[4]= V270;}          base[4]= V280;}
1786          V272= list(3,VV[44],VV[80],list(3,VV[44],VV[81],list(2,VV[1],base[3])));          V282= list(3,VV[44],VV[80],list(3,VV[44],VV[81],list(2,VV[1],base[3])));
1787          V273= list(2,VV[1],base[3]);          V283= list(2,VV[1],base[3]);
1788          V274= list(3,VV[44],/* INLINE-ARGS */V272,list(3,VV[44],/* INLINE-ARGS */V273,list(3,VV[44],VV[82],list(2,VV[1],base[3]))));          V284= list(3,VV[44],/* INLINE-ARGS */V282,list(3,VV[44],/* INLINE-ARGS */V283,list(3,VV[44],VV[82],list(2,VV[1],base[3]))));
1789          V275= list(3,VV[77],VV[78],list(6,VV[32],VV[79],/* INLINE-ARGS */V274,VV[83],list(2,VV[1],base[3]),VV[84]));          V285= list(3,VV[77],VV[78],list(6,VV[32],VV[79],/* INLINE-ARGS */V284,VV[83],list(2,VV[1],base[3]),VV[84]));
1790          V276= list(4,VV[44],VV[91],VV[92],list(2,VV[1],base[2]));          V286= list(4,VV[44],VV[91],VV[92],list(2,VV[1],base[2]));
1791          base[5]= listA(3,VV[76],list(3,/* INLINE-ARGS */V275,list(3,VV[85],VV[86],list(5,VV[44],VV[87],VV[88],list(5,VV[44],VV[89],VV[90],/* INLINE-ARGS */V276,list(2,VV[1],base[3])),VV[93])),VV[94]),base[4]);          base[5]= listA(3,VV[76],list(3,/* INLINE-ARGS */V285,list(3,VV[85],VV[86],list(5,VV[44],VV[87],VV[88],list(5,VV[44],VV[89],VV[90],/* INLINE-ARGS */V286,list(2,VV[1],base[3])),VV[93])),VV[94]),base[4]);
1792          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1793          return;          return;
1794  }  }
# Line 1788  static object LI23(object first,...) Line 1798  static object LI23(object first,...)
1798  {        {      
1799          va_list ap;          va_list ap;
1800          int narg = VFUN_NARGS; VMB21 VMS21 VMV21          int narg = VFUN_NARGS; VMB21 VMS21 VMV21
1801          {object V277;          {object V287;
1802          object V278;          object V288;
1803          va_start(ap,first);          va_start(ap,first);
1804          narg= narg - 0;          narg= narg - 0;
1805          {          {
1806          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI23key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI23key,first,ap);
1807          if(Vcs[0]==0){          if(Vcs[0]==0){
1808          V277= (VV[382]->s.s_gfdef);          V287= (VV[382]->s.s_gfdef);
1809          }else{          }else{
1810          V277=(Vcs[0]);}          V287=(Vcs[0]);}
1811          V278=(Vcs[1]);          V288=(Vcs[1]);
1812          base[0]= VV[95];          base[0]= VV[95];
1813          base[1]= (V277);          base[1]= (V287);
1814          base[2]= (V278);          base[2]= (V288);
1815          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1816          siLmake_structure();          siLmake_structure();
1817          vs_top=sup;          vs_top=sup;
1818          {object V279 = vs_base[0];          {object V289 = vs_base[0];
1819          VMR21(V279)}          VMR21(V289)}
1820          va_end(ap);          va_end(ap);
1821          base[0]=base[0];          base[0]=base[0];
1822          return Cnil;}          return Cnil;}
# Line 1819  static void L24() Line 1829  static void L24()
1829          vs_check;          vs_check;
1830          check_arg(2);          check_arg(2);
1831          vs_top=sup;          vs_top=sup;
1832          {object V280=base[0]->c.c_cdr;          {object V290=base[0]->c.c_cdr;
1833          if(endp(V280))invalid_macro_call();          if(endp(V290))invalid_macro_call();
1834          base[2]= (V280->c.c_car);          base[2]= (V290->c.c_car);
1835          V280=V280->c.c_cdr;          V290=V290->c.c_cdr;
1836          if(endp(V280))invalid_macro_call();          if(endp(V290))invalid_macro_call();
1837          base[3]= (V280->c.c_car);          base[3]= (V290->c.c_car);
1838          V280=V280->c.c_cdr;          V290=V290->c.c_cdr;
1839          if(endp(V280))invalid_macro_call();          if(endp(V290))invalid_macro_call();
1840          base[4]= (V280->c.c_car);          base[4]= (V290->c.c_car);
1841          V280=V280->c.c_cdr;          V290=V290->c.c_cdr;
1842          if(!endp(V280))invalid_macro_call();}          if(!endp(V290))invalid_macro_call();}
1843          V281= list(2,VV[97],base[2]);          V291= list(2,VV[97],base[2]);
1844          V282= list(2,VV[98],base[3]);          V292= list(2,VV[98],base[3]);
1845          base[5]= listA(3,VV[96],list(3,/* INLINE-ARGS */V281,/* INLINE-ARGS */V282,list(2,VV[99],base[4])),VV[100]);          base[5]= listA(3,VV[96],list(3,/* INLINE-ARGS */V291,/* INLINE-ARGS */V292,list(2,VV[99],base[4])),VV[100]);
1846          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1847          return;          return;
1848  }  }
# Line 1844  static void L25() Line 1854  static void L25()
1854          vs_check;          vs_check;
1855          check_arg(2);          check_arg(2);
1856          vs_top=sup;          vs_top=sup;
1857          {object V283=base[0]->c.c_cdr;          {object V293=base[0]->c.c_cdr;
1858          if(endp(V283))invalid_macro_call();          if(endp(V293))invalid_macro_call();
1859          base[2]= (V283->c.c_car);          base[2]= (V293->c.c_car);
1860          V283=V283->c.c_cdr;          V293=V293->c.c_cdr;
1861          if(endp(V283))invalid_macro_call();          if(endp(V293))invalid_macro_call();
1862          base[3]= (V283->c.c_car);          base[3]= (V293->c.c_car);
1863          V283=V283->c.c_cdr;          V293=V293->c.c_cdr;
1864          base[4]= V283;}          base[4]= V293;}
1865          V284= list(2,VV[102],base[2]);          V294= list(2,VV[102],base[2]);
1866          if((base[3])==Cnil){          if((base[3])==Cnil){
1867          goto T535;}          goto T535;}
1868          V285= make_cons(VV[32],base[4]);          V295= make_cons(VV[32],base[4]);
1869          goto T533;          goto T533;
1870          goto T535;          goto T535;
1871  T535:;  T535:;
1872          V285= make_cons(VV[44],base[4]);          V295= make_cons(VV[44],base[4]);
1873          goto T533;          goto T533;
1874  T533:;  T533:;
1875          base[5]= list(4,VV[101],/* INLINE-ARGS */V284,V285,list(2,VV[103],base[2]));          base[5]= list(4,VV[101],/* INLINE-ARGS */V294,V295,list(2,VV[103],base[2]));
1876          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1877          return;          return;
1878  }  }
# Line 1872  static object LI26(object first,...) Line 1882  static object LI26(object first,...)
1882  {        {      
1883          va_list ap;          va_list ap;
1884          int narg = VFUN_NARGS; VMB24 VMS24 VMV24          int narg = VFUN_NARGS; VMB24 VMS24 VMV24
1885          {object V286;          {object V296;
1886          object V287;          object V297;
1887          object V288;          object V298;
1888          object V289;          object V299;
1889          va_start(ap,first);          va_start(ap,first);
1890          narg= narg - 0;          narg= narg - 0;
1891          {          {
1892          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap);
1893          if(Vcs[0]==0){          if(Vcs[0]==0){
1894          V286= (VV[382]->s.s_gfdef);          V296= (VV[382]->s.s_gfdef);
1895          }else{          }else{
1896          V286=(Vcs[0]);}          V296=(Vcs[0]);}
1897          V287=(Vcs[1]);          V297=(Vcs[1]);
1898          V288=(Vcs[2]);          V298=(Vcs[2]);
1899          V289=(Vcs[3]);          V299=(Vcs[3]);
1900          base[0]= VV[104];          base[0]= VV[104];
1901          base[1]= (V286);          base[1]= (V296);
1902          base[2]= (V287);          base[2]= (V297);
1903          base[3]= (V288);          base[3]= (V298);
1904          base[4]= (V289);          base[4]= (V299);
1905          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
1906          siLmake_structure();          siLmake_structure();
1907          vs_top=sup;          vs_top=sup;
1908          {object V290 = vs_base[0];          {object V300 = vs_base[0];
1909          VMR24(V290)}          VMR24(V300)}
1910          va_end(ap);          va_end(ap);
1911          base[0]=base[0];          base[0]=base[0];
1912          return Cnil;}          return Cnil;}
# Line 1909  static void L27() Line 1919  static void L27()
1919          vs_check;          vs_check;
1920          check_arg(2);          check_arg(2);
1921          vs_top=sup;          vs_top=sup;
1922          {object V291=base[0]->c.c_cdr;          {object V301=base[0]->c.c_cdr;
1923          if(endp(V291))invalid_macro_call();          if(endp(V301))invalid_macro_call();
1924          base[2]= (V291->c.c_car);          base[2]= (V301->c.c_car);
1925          V291=V291->c.c_cdr;          V301=V301->c.c_cdr;
1926          base[3]= V291;}          base[3]= V301;}
1927          V292= list(2,VV[106],base[2]);          V302= list(2,VV[106],base[2]);
1928          V293= list(2,VV[107],base[2]);          V303= list(2,VV[107],base[2]);
1929          base[4]= listA(5,VV[105],/* INLINE-ARGS */V292,/* INLINE-ARGS */V293,list(2,VV[108],base[2]),base[3]);          base[4]= listA(5,VV[105],/* INLINE-ARGS */V302,/* INLINE-ARGS */V303,list(2,VV[108],base[2]),base[3]);
1930          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1931          return;          return;
1932  }  }
# Line 1926  static object LI28(object first,...) Line 1936  static object LI28(object first,...)
1936  {        {      
1937          va_list ap;          va_list ap;
1938          int narg = VFUN_NARGS; VMB26 VMS26 VMV26          int narg = VFUN_NARGS; VMB26 VMS26 VMV26
1939          {object V294;          {object V304;
1940          va_start(ap,first);          va_start(ap,first);
1941          narg= narg - 0;          narg= narg - 0;
1942          {          {
1943          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI28key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI28key,first,ap);
1944          V294=(Vcs[0]);          V304=(Vcs[0]);
1945          base[0]= VV[109];          base[0]= VV[109];
1946          base[1]= (V294);          base[1]= (V304);
1947          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1948          siLmake_structure();          siLmake_structure();
1949          vs_top=sup;          vs_top=sup;
1950          {object V295 = vs_base[0];          {object V305 = vs_base[0];
1951          VMR26(V295)}          VMR26(V305)}
1952          va_end(ap);          va_end(ap);
1953          base[0]=base[0];          base[0]=base[0];
1954          return Cnil;}          return Cnil;}
# Line 1953  static object LI29() Line 1963  static object LI29()
1963  TTL:;  TTL:;
1964          if(((VV[110]->s.s_dbind))==Cnil){          if(((VV[110]->s.s_dbind))==Cnil){
1965          goto T546;}          goto T546;}
1966          {register object V296;          {register object V306;
1967          V296= (VV[111]->s.s_dbind);          V306= (VV[111]->s.s_dbind);
1968          bds_bind(VV[112],Cnil);          bds_bind(VV[112],Cnil);
1969          base[1]= Ct;          base[1]= Ct;
1970          base[2]= VV[113];          base[2]= VV[113];
1971          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1972          Lformat();          Lformat();
1973          vs_top=sup;          vs_top=sup;
1974          {register long V297;          {register long V307;
1975          register long V298;          register long V308;
1976          V297= fix((VV[114]->s.s_dbind));          V307= fix((VV[114]->s.s_dbind));
1977          V298= 0;          V308= 0;
1978          goto T554;          goto T554;
1979  T554:;  T554:;
1980          if(!((V298)>=(V297))){          if(!((V308)>=(V307))){
1981          goto T555;}          goto T555;}
1982          {object V299 = Cnil;          {object V309 = Cnil;
1983          bds_unwind1;          bds_unwind1;
1984          VMR27(V299)}          VMR27(V309)}
1985          goto T555;          goto T555;
1986  T555:;  T555:;
1987          {register object V300;          {register object V310;
1988          V300= aref1((VV[110]->s.s_dbind),fix((V296)));          V310= aref1((VV[110]->s.s_dbind),fix((V306)));
1989          if(((V300))==Cnil){          if(((V310))==Cnil){
1990          goto T558;}          goto T558;}
1991          (void)(print((V300),Cnil));}          (void)(print((V310),Cnil));}
1992          goto T558;          goto T558;
1993  T558:;  T558:;
1994          V296= number_plus((V296),small_fixnum(1));          V306= number_plus((V306),small_fixnum(1));
1995          if(!(number_compare((V296),(VV[114]->s.s_dbind))==0)){          if(!(number_compare((V306),(VV[114]->s.s_dbind))==0)){
1996          goto T564;}          goto T564;}
1997          V296= small_fixnum(0);          V306= small_fixnum(0);
1998          goto T564;          goto T564;
1999  T564:;  T564:;
2000          V298= (long)(V298)+1;          V308= (long)(V308)+1;
2001          goto T554;}}          goto T554;}}
2002          goto T546;          goto T546;
2003  T546:;  T546:;
2004          {object V301 = Cnil;          {object V311 = Cnil;
2005          VMR27(V301)}          VMR27(V311)}
2006          base[0]=base[0];          base[0]=base[0];
2007          return Cnil;          return Cnil;
2008  }  }
2009  /*      local entry for function TRACE-EMF-CALL-INTERNAL        */  /*      local entry for function TRACE-EMF-CALL-INTERNAL        */
2010    
2011  static object LI30(V305,V306,V307)  static object LI30(V315,V316,V317)
2012    
2013  object V305;object V306;object V307;  object V315;object V316;object V317;
2014  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
2015          goto TTL;          goto TTL;
2016  TTL:;  TTL:;
# Line 2012  TTL:; Line 2022  TTL:;
2022          vs_top=sup;          vs_top=sup;
2023          (VV[110]->s.s_dbind)= vs_base[0];          (VV[110]->s.s_dbind)= vs_base[0];
2024          goto T571;          goto T571;
2025  T571:;{object V308;  T571:;{object V318;
2026          V308= (VV[110]->s.s_dbind);{object V309;          V318= (VV[110]->s.s_dbind);{object V319;
2027          V309= (VV[111]->s.s_dbind);          V319= (VV[111]->s.s_dbind);
2028          V310= listA(3,(V305),(V306),(V307));          V320= listA(3,(V315),(V316),(V317));
2029          (void)(aset1(V308,fix(V309),/* INLINE-ARGS */V310));}}          (void)(aset1(V318,fix(V319),/* INLINE-ARGS */V320));}}
2030          (VV[111]->s.s_dbind)= number_plus((VV[111]->s.s_dbind),small_fixnum(1));          (VV[111]->s.s_dbind)= number_plus((VV[111]->s.s_dbind),small_fixnum(1));
2031          if(!(number_compare((VV[111]->s.s_dbind),(VV[114]->s.s_dbind))==0)){          if(!(number_compare((VV[111]->s.s_dbind),(VV[114]->s.s_dbind))==0)){
2032          goto T580;}          goto T580;}
2033          (VV[111]->s.s_dbind)= small_fixnum(0);          (VV[111]->s.s_dbind)= small_fixnum(0);
2034          {object V311 = small_fixnum(0);          {object V321 = small_fixnum(0);
2035          VMR28(V311)}          VMR28(V321)}
2036          goto T580;          goto T580;
2037  T580:;  T580:;
2038          {object V312 = Cnil;          {object V322 = Cnil;
2039          VMR28(V312)}          VMR28(V322)}
2040          base[0]=base[0];          base[0]=base[0];
2041          return Cnil;          return Cnil;
2042  }  }
# Line 2038  static void L31() Line 2048  static void L31()
2048          vs_check;          vs_check;
2049          check_arg(2);          check_arg(2);
2050          vs_top=sup;          vs_top=sup;
2051          {object V313=base[0]->c.c_cdr;          {object V323=base[0]->c.c_cdr;
2052          if(endp(V313))invalid_macro_call();          if(endp(V323))invalid_macro_call();
2053          base[2]= (V313->c.c_car);          base[2]= (V323->c.c_car);
2054          V313=V313->c.c_cdr;          V323=V323->c.c_cdr;
2055          if(endp(V313))invalid_macro_call();          if(endp(V323))invalid_macro_call();
2056          base[3]= (V313->c.c_car);          base[3]= (V323->c.c_car);
2057          V313=V313->c.c_cdr;          V323=V323->c.c_cdr;
2058          if(endp(V313))invalid_macro_call();          if(endp(V323))invalid_macro_call();
2059          base[4]= (V313->c.c_car);          base[4]= (V323->c.c_car);
2060          V313=V313->c.c_cdr;          V323=V323->c.c_cdr;
2061          if(!endp(V313))invalid_macro_call();}          if(!endp(V323))invalid_macro_call();}
2062          if(((VV[115]->s.s_dbind))==Cnil){          if(((VV[115]->s.s_dbind))==Cnil){
2063          goto T584;}          goto T584;}
2064          base[5]= list(3,VV[116],VV[112],list(4,VV[117],base[2],base[3],base[4]));          base[5]= list(3,VV[116],VV[112],list(4,VV[117],base[2],base[3],base[4]));
# Line 2068  static void L32() Line 2078  static void L32()
2078          vs_check;          vs_check;
2079          check_arg(2);          check_arg(2);
2080          vs_top=sup;          vs_top=sup;
2081          {object V314=base[0]->c.c_cdr;          {object V324=base[0]->c.c_cdr;
2082          if(endp(V314))invalid_macro_call();          if(endp(V324))invalid_macro_call();
2083          base[2]= (V314->c.c_car);          base[2]= (V324->c.c_car);
2084          V314=V314->c.c_cdr;          V324=V324->c.c_cdr;
2085          if(endp(V314))invalid_macro_call();          if(endp(V324))invalid_macro_call();
2086          base[3]= (V314->c.c_car);          base[3]= (V324->c.c_car);
2087          V314=V314->c.c_cdr;          V324=V324->c.c_cdr;
2088          base[4]= V314;}          base[4]= V324;}
2089          V315= list(4,VV[118],base[2],base[3],make_cons(VV[44],base[4]));          V325= list(4,VV[118],base[2],base[3],make_cons(VV[44],base[4]));
2090          base[5]= list(3,VV[10],/* INLINE-ARGS */V315,listA(3,VV[119],base[2],base[4]));          base[5]= list(3,VV[10],/* INLINE-ARGS */V325,listA(3,VV[119],base[2],base[4]));
2091          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2092          return;          return;
2093  }  }
# Line 2089  static void L33() Line 2099  static void L33()
2099          vs_check;          vs_check;
2100          check_arg(2);          check_arg(2);
2101          vs_top=sup;          vs_top=sup;
2102          {object V316=base[0]->c.c_cdr;          {object V326=base[0]->c.c_cdr;
2103          if(endp(V316))invalid_macro_call();          if(endp(V326))invalid_macro_call();
2104          base[2]= (V316->c.c_car);          base[2]= (V326->c.c_car);
2105          V316=V316->c.c_cdr;          V326=V326->c.c_cdr;
2106          if(endp(V316))invalid_macro_call();          if(endp(V326))invalid_macro_call();
2107          base[3]= (V316->c.c_car);          base[3]= (V326->c.c_car);
2108          V316=V316->c.c_cdr;          V326=V326->c.c_cdr;
2109          base[4]= V316;}          base[4]= V326;}
2110          base[5]= base[3];          base[5]= base[3];
2111          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2112          Lconstantp();          Lconstantp();
# Line 2114  T586:; Line 2124  T586:;
2124          Leval();          Leval();
2125          vs_top=sup;          vs_top=sup;
2126          base[3]= vs_base[0];          base[3]= vs_base[0];
2127          V317= list(4,VV[118],base[2],base[3],make_cons(VV[44],base[4]));          V327= list(4,VV[118],base[2],base[3],make_cons(VV[44],base[4]));
2128          V318= list(3,VV[122],base[2],VV[123]);          V328= list(3,VV[122],base[2],VV[123]);
2129          V319= list(2,/* INLINE-ARGS */V318,listA(3,VV[119],base[2],base[4]));          V329= list(2,/* INLINE-ARGS */V328,listA(3,VV[119],base[2],base[4]));
2130          if((base[3])!=Cnil){          if((base[3])!=Cnil){
2131          goto T597;}          goto T597;}
2132          if(!((1)==((long)length(base[4])))){          if(!((1)==((long)length(base[4])))){
2133          goto T597;}          goto T597;}
2134          V321= list(3,VV[122],base[2],VV[124]);          V331= list(3,VV[122],base[2],VV[124]);
2135          V322= list(2,VV[126],list(2,VV[127],CMPcar(base[4])));          V332= list(2,VV[126],list(2,VV[127],CMPcar(base[4])));
2136          V323= list(2,/* INLINE-ARGS */V322,list(2,VV[128],list(3,VV[116],VV[126],list(3,VV[129],VV[126],base[2]))));          V333= list(2,/* INLINE-ARGS */V332,list(2,VV[128],list(3,VV[116],VV[126],list(3,VV[129],VV[126],base[2]))));
2137          V324= list(3,VV[131],VV[128],list(2,VV[1],(VV[132]->s.s_dbind)));          V334= list(3,VV[131],VV[128],list(2,VV[1],(VV[132]->s.s_dbind)));
2138          V325= list(2,/* INLINE-ARGS */V321,list(3,VV[125],/* INLINE-ARGS */V323,list(4,VV[130],/* INLINE-ARGS */V324,list(3,VV[133],CMPcar(base[4]),base[2]),VV[128])));          V335= list(2,/* INLINE-ARGS */V331,list(3,VV[125],/* INLINE-ARGS */V333,list(4,VV[130],/* INLINE-ARGS */V334,list(3,VV[133],CMPcar(base[4]),base[2]),VV[128])));
2139          base[5]= make_cons(/* INLINE-ARGS */V325,Cnil);          base[5]= make_cons(/* INLINE-ARGS */V335,Cnil);
2140          goto T595;          goto T595;
2141          goto T597;          goto T597;
2142  T597:;  T597:;
# Line 2137  T595:; Line 2147  T595:;
2147          goto T603;}          goto T603;}
2148          if(!((2)==((long)length(base[4])))){          if(!((2)==((long)length(base[4])))){
2149          goto T603;}          goto T603;}
2150          V326= list(3,VV[122],base[2],VV[134]);          V336= list(3,VV[122],base[2],VV[134]);
2151          V327= list(2,VV[135],CMPcar(base[4]));          V337= list(2,VV[135],CMPcar(base[4]));
2152          V328= list(2,/* INLINE-ARGS */V327,list(2,VV[126],list(2,VV[127],CMPcar(base[4]))));          V338= list(2,/* INLINE-ARGS */V337,list(2,VV[126],list(2,VV[127],CMPcar(base[4]))));
2153          V329= list(2,/* INLINE-ARGS */V326,list(3,VV[96],/* INLINE-ARGS */V328,list(3,VV[116],VV[126],list(3,VV[30],list(3,VV[129],VV[126],base[2]),VV[135]))));          V339= list(2,/* INLINE-ARGS */V336,list(3,VV[96],/* INLINE-ARGS */V338,list(3,VV[116],VV[126],list(3,VV[30],list(3,VV[129],VV[126],base[2]),VV[135]))));
2154          base[6]= make_cons(/* INLINE-ARGS */V329,Cnil);          base[6]= make_cons(/* INLINE-ARGS */V339,Cnil);
2155          goto T601;          goto T601;
2156          goto T603;          goto T603;
2157  T603:;  T603:;
2158          base[6]= Cnil;          base[6]= Cnil;
2159          goto T601;          goto T601;
2160  T601:;  T601:;
2161          V330= list(2,VV[95],listA(4,VV[137],base[2],base[3],base[4]));          V340= list(2,VV[95],listA(4,VV[137],base[2],base[3],base[4]));
2162          if((base[3])==Cnil){          if((base[3])==Cnil){
2163          goto T610;}          goto T610;}
2164          V331= listA(3,VV[138],list(3,VV[139],VV[34],base[2]),base[4]);          V341= listA(3,VV[138],list(3,VV[139],VV[34],base[2]),base[4]);
2165          goto T608;          goto T608;
2166          goto T610;          goto T610;
2167  T610:;  T610:;
2168          V331= listA(3,VV[140],list(3,VV[139],VV[34],base[2]),base[4]);          V341= listA(3,VV[140],list(3,VV[139],VV[34],base[2]),base[4]);
2169          goto T608;          goto T608;
2170  T608:;  T608:;
2171          V332= list(2,Ct,list(4,VV[136],base[2],/* INLINE-ARGS */V330,list(2,VV[34],V331)));          V342= list(2,Ct,list(4,VV[136],base[2],/* INLINE-ARGS */V340,list(2,VV[34],V341)));
2172          base[7]= make_cons(/* INLINE-ARGS */V332,Cnil);          base[7]= make_cons(/* INLINE-ARGS */V342,Cnil);
2173          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
2174          Lappend();          Lappend();
2175          vs_top=sup;          vs_top=sup;
2176          V320= vs_base[0];          V330= vs_base[0];
2177          base[5]= list(3,VV[10],/* INLINE-ARGS */V317,listA(3,VV[121],/* INLINE-ARGS */V319,V320));          base[5]= list(3,VV[10],/* INLINE-ARGS */V327,listA(3,VV[121],/* INLINE-ARGS */V329,V330));
2178          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2179          return;          return;
2180  }  }
# Line 2174  static void L34() Line 2184  static void L34()
2184  {register object *base=vs_base;  {register object *base=vs_base;
2185          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
2186          vs_check;          vs_check;
2187          {register object V333;          {register object V343;
2188          register object V334;          register object V344;
2189          check_arg(2);          check_arg(2);
2190          V333=(base[0]);          V343=(base[0]);
2191          V334=(base[1]);          V344=(base[1]);
2192          vs_top=sup;          vs_top=sup;
2193          goto TTL;          goto TTL;
2194  TTL:;  TTL:;
2195          {register object V335;          {register object V345;
2196          V335= (V333);          V345= (V343);
2197          base[2]= (V335);          base[2]= (V345);
2198          base[3]= VV[104];          base[3]= VV[104];
2199          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2200          (void) (*Lnk389)();          (void) (*Lnk389)();
2201          vs_top=sup;          vs_top=sup;
2202          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2203          goto T614;}          goto T614;}
2204          {object V336;          {object V346;
2205          object V337;          object V347;
2206          register object V338;          register object V348;
2207          V336= STREF(object,(V333),12);          V346= STREF(object,(V343),12);
2208          V337= CMPcdr((V336));          V347= CMPcdr((V346));
2209          V338= CMPcar((V336));          V348= CMPcar((V346));
2210          if(((V337))==Cnil){          if(((V347))==Cnil){
2211          goto T622;}          goto T622;}
2212          {object V339;          {object V349;
2213          object V340;          object V350;
2214          V339= nthcdr(fix((V338)),(V334));          V349= nthcdr(fix((V348)),(V344));
2215          base[7]= (V334);          base[7]= (V344);
2216          base[8]= (V339);          base[8]= (V349);
2217          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
2218          Lldiff();          Lldiff();
2219          vs_top=sup;          vs_top=sup;
2220          V340= vs_base[0];          V350= vs_base[0];
2221          base[7]= STREF(object,(V333),0);          base[7]= STREF(object,(V343),0);
2222          base[8]= STREF(object,(V333),4);          base[8]= STREF(object,(V343),4);
2223          base[9]= STREF(object,(V333),8);          base[9]= STREF(object,(V343),8);
2224          {object V341;          {object V351;
2225          V342= make_cons((V339),Cnil);          V352= make_cons((V349),Cnil);
2226          V341= nconc((V340),/* INLINE-ARGS */V342);          V351= nconc((V350),/* INLINE-ARGS */V352);
2227           vs_top=base+10;           vs_top=base+10;
2228           while(V341!=Cnil)           while(V351!=Cnil)
2229           {vs_push((V341)->c.c_car);V341=(V341)->c.c_cdr;}           {vs_push((V351)->c.c_car);V351=(V351)->c.c_cdr;}
2230          vs_base=base+8;}          vs_base=base+8;}
2231          {object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2232                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2225  TTL:; Line 2235  TTL:;
2235          return;}          return;}
2236          goto T622;          goto T622;
2237  T622:;  T622:;
2238          if(((V334))!=Cnil){          if(((V344))!=Cnil){
2239          goto T633;}          goto T633;}
2240          if(!(eql((V338),small_fixnum(0)))){          if(!(eql((V348),small_fixnum(0)))){
2241          goto T636;}          goto T636;}
2242          base[5]= STREF(object,(V333),0);          base[5]= STREF(object,(V343),0);
2243          base[6]= STREF(object,(V333),4);          base[6]= STREF(object,(V343),4);
2244          base[7]= STREF(object,(V333),8);          base[7]= STREF(object,(V343),8);
2245          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
2246          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2247                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2246  T636:; Line 2256  T636:;
2256          return;          return;
2257          goto T633;          goto T633;
2258  T633:;  T633:;
2259          if((CMPcdr((V334)))!=Cnil){          if((CMPcdr((V344)))!=Cnil){
2260          goto T643;}          goto T643;}
2261          if(!(eql((V338),small_fixnum(1)))){          if(!(eql((V348),small_fixnum(1)))){
2262          goto T646;}          goto T646;}
2263          base[5]= STREF(object,(V333),0);          base[5]= STREF(object,(V343),0);
2264          base[6]= STREF(object,(V333),4);          base[6]= STREF(object,(V343),4);
2265          base[7]= STREF(object,(V333),8);          base[7]= STREF(object,(V343),8);
2266          base[8]= CMPcar((V334));          base[8]= CMPcar((V344));
2267          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
2268          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2269                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2268  T646:; Line 2278  T646:;
2278          return;          return;
2279          goto T643;          goto T643;
2280  T643:;  T643:;
2281          if((CMPcddr((V334)))!=Cnil){          if((CMPcddr((V344)))!=Cnil){
2282          goto T654;}          goto T654;}
2283          if(!(eql((V338),small_fixnum(2)))){          if(!(eql((V348),small_fixnum(2)))){
2284          goto T657;}          goto T657;}
2285          base[5]= STREF(object,(V333),0);          base[5]= STREF(object,(V343),0);
2286          base[6]= STREF(object,(V333),4);          base[6]= STREF(object,(V343),4);
2287          base[7]= STREF(object,(V333),8);          base[7]= STREF(object,(V343),8);
2288          base[8]= CMPcar((V334));          base[8]= CMPcar((V344));
2289          base[9]= CMPcadr((V334));          base[9]= CMPcadr((V344));
2290          vs_top=(vs_base=base+6)+4;          vs_top=(vs_base=base+6)+4;
2291          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2292                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2291  T657:; Line 2301  T657:;
2301          return;          return;
2302          goto T654;          goto T654;
2303  T654:;  T654:;
2304          base[5]= STREF(object,(V333),0);          base[5]= STREF(object,(V343),0);
2305          base[6]= STREF(object,(V333),4);          base[6]= STREF(object,(V343),4);
2306          base[7]= STREF(object,(V333),8);          base[7]= STREF(object,(V343),8);
2307          {object V343;          {object V353;
2308          V343= (V334);          V353= (V344);
2309           vs_top=base+8;           vs_top=base+8;
2310           while(V343!=Cnil)           while(V353!=Cnil)
2311           {vs_push((V343)->c.c_car);V343=(V343)->c.c_cdr;}           {vs_push((V353)->c.c_car);V353=(V353)->c.c_cdr;}
2312          vs_base=base+6;}          vs_base=base+6;}
2313          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2314                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2307  T654:; Line 2317  T654:;
2317          return;}          return;}
2318          goto T614;          goto T614;
2319  T614:;  T614:;
2320          base[2]= (V335);          base[2]= (V345);
2321          base[3]= VV[95];          base[3]= VV[95];
2322          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2323          (void) (*Lnk389)();          (void) (*Lnk389)();
2324          vs_top=sup;          vs_top=sup;
2325          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2326          goto T670;}          goto T670;}
2327          base[2]= STREF(object,(V333),0);          base[2]= STREF(object,(V343),0);
2328          base[3]= (V334);          base[3]= (V344);
2329          {object V344;          {object V354;
2330          V344= STREF(object,(V333),4);          V354= STREF(object,(V343),4);
2331           vs_top=base+4;           vs_top=base+4;
2332           while(V344!=Cnil)           while(V354!=Cnil)
2333           {vs_push((V344)->c.c_car);V344=(V344)->c.c_cdr;}           {vs_push((V354)->c.c_car);V354=(V354)->c.c_cdr;}
2334          vs_base=base+3;}          vs_base=base+3;}
2335          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2336                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2329  T614:; Line 2339  T614:;
2339          return;          return;
2340          goto T670;          goto T670;
2341  T670:;  T670:;
2342          if(!(type_of((V335))==t_fixnum)){          if(!(type_of((V345))==t_fixnum)){
2343          goto T678;}          goto T678;}
2344          if(((V334))!=Cnil){          if(((V344))!=Cnil){
2345          goto T681;}          goto T681;}
2346          base[2]= VV[144];          base[2]= VV[144];
2347          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 2339  T670:; Line 2349  T670:;
2349          return;          return;
2350          goto T681;          goto T681;
2351  T681:;  T681:;
2352          if((CMPcdr((V334)))!=Cnil){          if((CMPcdr((V344)))!=Cnil){
2353          goto T685;}          goto T685;}
2354          {object V345;          {object V355;
2355          {object V347;          {object V357;
2356          V347= CMPcar((V334));          V357= CMPcar((V344));
2357          if(type_of((V347))==t_structure){          if(type_of((V357))==t_structure){
2358          goto T693;}          goto T693;}
2359          goto T690;          goto T690;
2360          goto T693;          goto T693;
2361  T693:;  T693:;
2362          if(!((((V347))->str.str_def)==(VV[145]))){          if(!((((V357))->str.str_def)==(VV[145]))){
2363          goto T690;}}          goto T690;}}
2364          V346= STREF(object,CMPcar((V334)),4);          V356= STREF(object,CMPcar((V344)),4);
2365          goto T688;          goto T688;
2366          goto T690;          goto T690;
2367  T690:;{object V348;  T690:;{object V358;
2368          V348= (VV[147]->s.s_dbind);          V358= (VV[147]->s.s_dbind);
2369          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2370          base[3]= CMPcar((V334));          base[3]= CMPcar((V344));
2371          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2372          (void) (*Lnk390)();          (void) (*Lnk390)();
2373          vs_top=sup;          vs_top=sup;
2374          V349= vs_base[0];          V359= vs_base[0];
2375          if(!((V348)==(CMPcar(V349)))){          if(!((V358)==(CMPcar(V359)))){
2376          goto T696;}}          goto T696;}}
2377          V346= CMPcar((CMPcar((V334)))->cc.cc_turbo[12]);          V356= CMPcar((CMPcar((V344)))->cc.cc_turbo[12]);
2378          goto T688;          goto T688;
2379          goto T696;          goto T696;
2380  T696:;  T696:;
# Line 2372  T696:; Line 2382  T696:;
2382          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2383          Lerror();          Lerror();
2384          vs_top=sup;          vs_top=sup;
2385          V346= vs_base[0];          V356= vs_base[0];
2386          goto T688;          goto T688;
2387  T688:;  T688:;
2388          V345= (V346)->v.v_self[fix((V333))];          V360 = fix((V343));
2389          if(!(((V345))==((VV[132]->s.s_dbind)))){          V355= (V356)->v.v_self[V360];
2390            if(!(((V355))==((VV[132]->s.s_dbind)))){
2391          goto T703;}          goto T703;}
2392          base[2]= CMPcar((V334));          base[2]= CMPcar((V344));
2393          base[3]= (V333);          base[3]= (V343);
2394          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2395          (void) (*Lnk133)();          (void) (*Lnk133)();
2396          return;          return;
2397          goto T703;          goto T703;
2398  T703:;  T703:;
2399          base[2]= (V345);          base[2]= (V355);
2400          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2401          return;}          return;}
2402          goto T685;          goto T685;
2403  T685:;  T685:;
2404          if((CMPcddr((V334)))!=Cnil){          if((CMPcddr((V344)))!=Cnil){
2405          goto T708;}          goto T708;}
2406          {object V351;          {object V362;
2407          V351= CMPcadr((V334));          V362= CMPcadr((V344));
2408          if(type_of((V351))==t_structure){          if(type_of((V362))==t_structure){
2409          goto T715;}          goto T715;}
2410          goto T712;          goto T712;
2411          goto T715;          goto T715;
2412  T715:;  T715:;
2413          if(!((((V351))->str.str_def)==(VV[149]))){          if(!((((V362))->str.str_def)==(VV[149]))){
2414          goto T712;}}          goto T712;}}
2415          V350= STREF(object,CMPcadr((V334)),4);          V361= STREF(object,CMPcadr((V344)),4);
2416          goto T710;          goto T710;
2417          goto T712;          goto T712;
2418  T712:;{object V352;  T712:;{object V363;
2419          V352= (VV[147]->s.s_dbind);          V363= (VV[147]->s.s_dbind);
2420          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2421          base[3]= CMPcadr((V334));          base[3]= CMPcadr((V344));
2422          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2423          (void) (*Lnk390)();          (void) (*Lnk390)();
2424          vs_top=sup;          vs_top=sup;
2425          V353= vs_base[0];          V364= vs_base[0];
2426          if(!((V352)==(CMPcar(V353)))){          if(!((V363)==(CMPcar(V364)))){
2427          goto T718;}}          goto T718;}}
2428          V350= CMPcar((CMPcadr((V334)))->cc.cc_turbo[12]);          V361= CMPcar((CMPcadr((V344)))->cc.cc_turbo[12]);
2429          goto T710;          goto T710;
2430          goto T718;          goto T718;
2431  T718:;  T718:;
# Line 2422  T718:; Line 2433  T718:;
2433          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2434          Lerror();          Lerror();
2435          vs_top=sup;          vs_top=sup;
2436          V350= vs_base[0];          V361= vs_base[0];
2437          goto T710;          goto T710;
2438  T710:;  T710:;
2439          base[2]= (V350)->v.v_self[fix((V333))]= (CMPcar((V334)));          V365 = fix((V343));
2440            base[2]= (V361)->v.v_self[V365]= (CMPcar((V344)));
2441          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2442          return;          return;
2443          goto T708;          goto T708;
# Line 2436  T708:; Line 2448  T708:;
2448          return;          return;
2449          goto T678;          goto T678;
2450  T678:;  T678:;
2451          base[2]= (V335);          base[2]= (V345);
2452          base[3]= VV[109];          base[3]= VV[109];
2453          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2454          (void) (*Lnk389)();          (void) (*Lnk389)();
2455          vs_top=sup;          vs_top=sup;
2456          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2457          goto T726;}          goto T726;}
2458          if(((V334))==Cnil){          if(((V344))==Cnil){
2459          goto T730;}          goto T730;}
2460          if((CMPcdr((V334)))==Cnil){          if((CMPcdr((V344)))==Cnil){
2461          goto T731;}          goto T731;}
2462          goto T730;          goto T730;
2463  T730:;  T730:;
# Line 2455  T730:; Line 2467  T730:;
2467          return;          return;
2468          goto T731;          goto T731;
2469  T731:;  T731:;
2470          {object V355;          {object V367;
2471          V355= CMPcar((V334));          V367= CMPcar((V344));
2472          if(type_of((V355))==t_structure){          if(type_of((V367))==t_structure){
2473          goto T741;}          goto T741;}
2474          goto T738;          goto T738;
2475          goto T741;          goto T741;
2476  T741:;  T741:;
2477          if(!((((V355))->str.str_def)==(VV[152]))){          if(!((((V367))->str.str_def)==(VV[152]))){
2478          goto T738;}}          goto T738;}}
2479          V354= STREF(object,CMPcar((V334)),4);          V366= STREF(object,CMPcar((V344)),4);
2480          goto T736;          goto T736;
2481          goto T738;          goto T738;
2482  T738:;{object V356;  T738:;{object V368;
2483          V356= (VV[147]->s.s_dbind);          V368= (VV[147]->s.s_dbind);
2484          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2485          base[3]= CMPcar((V334));          base[3]= CMPcar((V344));
2486          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2487          (void) (*Lnk390)();          (void) (*Lnk390)();
2488          vs_top=sup;          vs_top=sup;
2489          V357= vs_base[0];          V369= vs_base[0];
2490          if(!((V356)==(CMPcar(V357)))){          if(!((V368)==(CMPcar(V369)))){
2491          goto T744;}}          goto T744;}}
2492          V354= CMPcar((CMPcar((V334)))->cc.cc_turbo[12]);          V366= CMPcar((CMPcar((V344)))->cc.cc_turbo[12]);
2493          goto T736;          goto T736;
2494          goto T744;          goto T744;
2495  T744:;  T744:;
# Line 2485  T744:; Line 2497  T744:;
2497          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2498          Lerror();          Lerror();
2499          vs_top=sup;          vs_top=sup;
2500          V354= vs_base[0];          V366= vs_base[0];
2501          goto T736;          goto T736;
2502  T736:;  T736:;
2503          base[2]= (((((V354)->v.v_self[(long)STREF(fixnum,(V333),0)])==((VV[132]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil);          base[2]= (((((V366)->v.v_self[(long)STREF(fixnum,(V343),0)])==((VV[132]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil);
2504          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2505          return;          return;
2506          goto T726;          goto T726;
2507  T726:;  T726:;
2508          base[2]= (V335);          base[2]= (V345);
2509          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2510          Lfunctionp();          Lfunctionp();
2511          vs_top=sup;          vs_top=sup;
2512          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2513          goto T751;}          goto T751;}
2514          base[2]= (V333);          base[2]= (V343);
2515          {object V358;          {object V370;
2516          V358= (V334);          V370= (V344);
2517           vs_top=base+3;           vs_top=base+3;
2518           while(V358!=Cnil)           while(V370!=Cnil)
2519           {vs_push((V358)->c.c_car);V358=(V358)->c.c_cdr;}           {vs_push((V370)->c.c_car);V370=(V370)->c.c_cdr;}
2520          vs_base=base+3;}          vs_base=base+3;}
2521          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2522                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2514  T726:; Line 2526  T726:;
2526          goto T751;          goto T751;
2527  T751:;  T751:;
2528          base[3]= VV[153];          base[3]= VV[153];
2529          base[4]= (V335);          base[4]= (V345);
2530          base[5]= VV[154];          base[5]= VV[154];
2531          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2532          (void) (*Lnk392)();          (void) (*Lnk392)();
# Line 2527  T751:; Line 2539  T751:;
2539  }  }
2540  /*      local entry for function GF-MAKE-FUNCTION-FROM-EMF      */  /*      local entry for function GF-MAKE-FUNCTION-FROM-EMF      */
2541    
2542  static object LI36(V361,V362)  static object LI36(V373,V374)
2543    
2544  object V361;object V362;  object V373;object V374;
2545  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
2546          goto TTL;          goto TTL;
2547  TTL:;  TTL:;
2548          base[0]=MMcons((V362),Cnil);          base[0]=MMcons((V374),Cnil);
2549          {register object V363;          {register object V375;
2550          V363= (base[0]->c.c_car);          V375= (base[0]->c.c_car);
2551          base[1]= (V363);          base[1]= (V375);
2552          base[2]= VV[104];          base[2]= VV[104];
2553          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2554          (void) (*Lnk389)();          (void) (*Lnk389)();
2555          vs_top=sup;          vs_top=sup;
2556          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2557          goto T761;}          goto T761;}
2558          {object V364;          {object V376;
2559          base[4]= (V361);          base[4]= (V373);
2560          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2561          (void) (*Lnk393)(Lclptr393);          (void) (*Lnk393)(Lclptr393);
2562          vs_top=sup;          vs_top=sup;
2563          V364= vs_base[0];          V376= vs_base[0];
2564          base[2]= CMPmake_fixnum((long)(*(LnkLI394))((V364)));          base[2]= CMPmake_fixnum((long)(*(LnkLI394))((V376)));
2565          base[2]=MMcons(base[2],base[0]);          base[2]=MMcons(base[2],base[0]);
2566          base[3]= (*(LnkLI395))((V364));          base[3]= (*(LnkLI395))((V376));
2567          base[3]=MMcons(base[3],base[2]);          base[3]=MMcons(base[3],base[2]);
2568          {object V365 =          {object V377 =
2569          make_cclosure_new(LC130,Cnil,base[3],Cdata);          make_cclosure_new(LC130,Cnil,base[3],Cdata);
2570          VMR33(V365)}}          VMR33(V377)}}
2571          goto T761;          goto T761;
2572  T761:;  T761:;
2573          base[1]= (V363);          base[1]= (V375);
2574          base[2]= VV[95];          base[2]= VV[95];
2575          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2576          (void) (*Lnk389)();          (void) (*Lnk389)();
2577          vs_top=sup;          vs_top=sup;
2578          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2579          goto T770;}          goto T770;}
2580          {object V366 =          {object V378 =
2581          make_cclosure_new(LC131,Cnil,base[0],Cdata);          make_cclosure_new(LC131,Cnil,base[0],Cdata);
2582          VMR33(V366)}          VMR33(V378)}
2583          goto T770;          goto T770;
2584  T770:;  T770:;
2585          base[1]= (V363);          base[1]= (V375);
2586          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2587          Lfunctionp();          Lfunctionp();
2588          vs_top=sup;          vs_top=sup;
2589          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2590          goto T775;}          goto T775;}
2591          {object V367 = (base[0]->c.c_car);          {object V379 = (base[0]->c.c_car);
2592          VMR33(V367)}          VMR33(V379)}
2593          goto T775;          goto T775;
2594  T775:;  T775:;
2595          base[2]= VV[153];          base[2]= VV[153];
2596          base[3]= (V363);          base[3]= (V375);
2597          base[4]= VV[156];          base[4]= VV[156];
2598          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2599          (void) (*Lnk392)();          (void) (*Lnk392)();
# Line 2590  T775:; Line 2602  T775:;
2602          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2603          Lerror();          Lerror();
2604          vs_top=sup;          vs_top=sup;
2605          {object V368 = vs_base[0];          {object V380 = vs_base[0];
2606          VMR33(V368)}}          VMR33(V380)}}
2607          base[0]=base[0];          base[0]=base[0];
2608          return Cnil;          return Cnil;
2609  }  }
# Line 2603  static void L37() Line 2615  static void L37()
2615          vs_check;          vs_check;
2616          check_arg(2);          check_arg(2);
2617          vs_top=sup;          vs_top=sup;
2618          {object V369=base[0]->c.c_cdr;          {object V381=base[0]->c.c_cdr;
2619          if(endp(V369))invalid_macro_call();          if(endp(V381))invalid_macro_call();
2620          {object V370= (V369->c.c_car);          {object V382= (V381->c.c_car);
2621          if(endp(V370))invalid_macro_call();          if(endp(V382))invalid_macro_call();
2622          base[2]= (V370->c.c_car);          base[2]= (V382->c.c_car);
2623          V370=V370->c.c_cdr;          V382=V382->c.c_cdr;
2624          if(endp(V370))invalid_macro_call();          if(endp(V382))invalid_macro_call();
2625          base[3]= (V370->c.c_car);          base[3]= (V382->c.c_car);
2626          V370=V370->c.c_cdr;          V382=V382->c.c_cdr;
2627          if(endp(V370))invalid_macro_call();          if(endp(V382))invalid_macro_call();
2628          base[4]= (V370->c.c_car);          base[4]= (V382->c.c_car);
2629          V370=V370->c.c_cdr;          V382=V382->c.c_cdr;
2630          if(!endp(V370))invalid_macro_call();}          if(!endp(V382))invalid_macro_call();}
2631          V369=V369->c.c_cdr;          V381=V381->c.c_cdr;
2632          base[5]= V369;}          base[5]= V381;}
2633          V371= list(2,VV[1],base[4]);          V383= list(2,VV[1],base[4]);
2634          V372= listA(3,VV[160],list(2,VV[161],list(2,VV[1],base[3])),VV[162]);          V384= listA(3,VV[160],list(2,VV[161],list(2,VV[1],base[3])),VV[162]);
2635          V373= listA(4,VV[32],VV[163],list(2,VV[1],base[4]),VV[164]);          V385= listA(4,VV[32],VV[163],list(2,VV[1],base[4]),VV[164]);
2636          V374= list(2,VV[1],base[4]);          V386= list(2,VV[1],base[4]);
2637          V375= list(2,VV[1],((((base[3])==Cnil?Ct:Cnil))==Cnil?Ct:Cnil));          V387= list(2,VV[1],((((base[3])==Cnil?Ct:Cnil))==Cnil?Ct:Cnil));
2638          V376= list(2,VV[1],base[2]);          V388= list(2,VV[1],base[2]);
2639          if((base[3])==Cnil){          if((base[3])==Cnil){
2640          goto T784;}          goto T784;}
2641          V377= make_cons(base[3],Cnil);          V389= make_cons(base[3],Cnil);
2642          goto T782;          goto T782;
2643          goto T784;          goto T784;
2644  T784:;  T784:;
2645          V377= Cnil;          V389= Cnil;
2646          goto T782;          goto T782;
2647  T782:;  T782:;
2648          V378= list(2,VV[165],list(5,VV[32],VV[166],/* INLINE-ARGS */V374,/* INLINE-ARGS */V375,list(3,VV[167],/* INLINE-ARGS */V376,list(2,VV[1],V377))));          V390= list(2,VV[165],list(5,VV[32],VV[166],/* INLINE-ARGS */V386,/* INLINE-ARGS */V387,list(3,VV[167],/* INLINE-ARGS */V388,list(2,VV[1],V389))));
2649          V379= make_cons(/* INLINE-ARGS */V378,Cnil);          V391= make_cons(/* INLINE-ARGS */V390,Cnil);
2650          V380= list(2,VV[1],base[2]);          V392= list(2,VV[1],base[2]);
2651          if((base[3])==Cnil){          if((base[3])==Cnil){
2652          goto T788;}          goto T788;}
2653          V381= list(2,VV[170],base[3]);          V393= list(2,VV[170],base[3]);
2654          goto T786;          goto T786;
2655          goto T788;          goto T788;
2656  T788:;  T788:;
2657          V381= Cnil;          V393= Cnil;
2658          goto T786;          goto T786;
2659  T786:;  T786:;
2660          V382= list(3,VV[85],VV[158],list(5,VV[44],VV[159],/* INLINE-ARGS */V371,list(4,VV[130],/* INLINE-ARGS */V372,/* INLINE-ARGS */V373,list(3,VV[96],/* INLINE-ARGS */V379,list(5,VV[44],VV[168],VV[92],list(4,VV[44],VV[169],list(3,VV[44],list(3,VV[167],/* INLINE-ARGS */V380,list(2,VV[1],V381)),VV[92]),VV[165]),VV[165]))),VV[171]));          V394= list(3,VV[85],VV[158],list(5,VV[44],VV[159],/* INLINE-ARGS */V383,list(4,VV[130],/* INLINE-ARGS */V384,/* INLINE-ARGS */V385,list(3,VV[96],/* INLINE-ARGS */V391,list(5,VV[44],VV[168],VV[92],list(4,VV[44],VV[169],list(3,VV[44],list(3,VV[167],/* INLINE-ARGS */V392,list(2,VV[1],V393)),VV[92]),VV[165]),VV[165]))),VV[171]));
2661          base[6]= listA(3,VV[76],list(3,VV[157],/* INLINE-ARGS */V382,list(3,VV[172],Cnil,list(3,VV[44],VV[173],list(3,VV[44],VV[174],list(2,VV[1],base[4]))))),base[5]);          base[6]= listA(3,VV[76],list(3,VV[157],/* INLINE-ARGS */V394,list(3,VV[172],Cnil,list(3,VV[44],VV[173],list(3,VV[44],VV[174],list(2,VV[1],base[4]))))),base[5]);
2662          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
2663          return;          return;
2664  }  }
# Line 2658  static void L38() Line 2670  static void L38()
2670          vs_check;          vs_check;
2671          check_arg(2);          check_arg(2);
2672          vs_top=sup;          vs_top=sup;
2673          {object V383=base[0]->c.c_cdr;          {object V395=base[0]->c.c_cdr;
2674          if(endp(V383))invalid_macro_call();          if(endp(V395))invalid_macro_call();
2675          {object V384= (V383->c.c_car);          {object V396= (V395->c.c_car);
2676          {object V385=getf(V384,VV[68],OBJNULL);          {object V397=getf(V396,VV[68],OBJNULL);
2677          if(V385==OBJNULL){          if(V397==OBJNULL){
2678          base[2]= Cnil;} else {          base[2]= Cnil;} else {
2679          base[2]= V385;          base[2]= V397;
2680          }}          }}
2681          {object V386=getf(V384,VV[69],OBJNULL);          {object V398=getf(V396,VV[69],OBJNULL);
2682          if(V386==OBJNULL){          if(V398==OBJNULL){
2683          base[3]= Cnil;} else {          base[3]= Cnil;} else {
2684          base[3]= V386;          base[3]= V398;
2685          }}          }}
2686          {object V387=getf(V384,VV[70],OBJNULL);          {object V399=getf(V396,VV[70],OBJNULL);
2687          if(V387==OBJNULL){          if(V399==OBJNULL){
2688          base[4]= Cnil;} else {          base[4]= Cnil;} else {
2689          base[4]= V387;          base[4]= V399;
2690          }}          }}
2691          {object V388=getf(V384,VV[71],OBJNULL);          {object V400=getf(V396,VV[71],OBJNULL);
2692          if(V388==OBJNULL){          if(V400==OBJNULL){
2693          base[5]= Cnil;} else {          base[5]= Cnil;} else {
2694          base[5]= V388;          base[5]= V400;
2695          }}          }}
2696          check_other_key(V384,4,VV[68],VV[69],VV[70],VV[71]);}          check_other_key(V396,4,VV[68],VV[69],VV[70],VV[71]);}
2697          V383=V383->c.c_cdr;          V395=V395->c.c_cdr;
2698          base[6]= V383;}          base[6]= V395;}
2699          if((base[2])!=Cnil){          if((base[2])!=Cnil){
2700          goto T795;}          goto T795;}
2701          if((base[3])!=Cnil){          if((base[3])!=Cnil){
# Line 2707  T795:; Line 2719  T795:;
2719          goto T804;          goto T804;
2720  T804:;  T804:;
2721          if(base[2]==Cnil){          if(base[2]==Cnil){
2722          V389= Cnil;          V401= Cnil;
2723          goto T808;}          goto T808;}
2724          V389= VV[177];          V401= VV[177];
2725          goto T808;          goto T808;
2726  T808:;  T808:;
2727          if(base[3]==Cnil){          if(base[3]==Cnil){
2728          V390= Cnil;          V402= Cnil;
2729          goto T809;}          goto T809;}
2730          V390= VV[178];          V402= VV[178];
2731          goto T809;          goto T809;
2732  T809:;  T809:;
2733          base[7]= list(2,VV[77],listA(3,VV[176],append(V389,V390),base[6]));          base[7]= list(2,VV[77],listA(3,VV[176],append(V401,V402),base[6]));
2734          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2735          return;          return;
2736  }  }
# Line 2730  static void L39() Line 2742  static void L39()
2742          vs_check;          vs_check;
2743          check_arg(2);          check_arg(2);
2744          vs_top=sup;          vs_top=sup;
2745          {object V391=base[0]->c.c_cdr;          {object V403=base[0]->c.c_cdr;
2746          if(endp(V391))invalid_macro_call();          if(endp(V403))invalid_macro_call();
2747          {object V392= (V391->c.c_car);          {object V404= (V403->c.c_car);
2748          if(endp(V392))invalid_macro_call();          if(endp(V404))invalid_macro_call();
2749          base[2]= (V392->c.c_car);          base[2]= (V404->c.c_car);
2750          V392=V392->c.c_cdr;          V404=V404->c.c_cdr;
2751          if(endp(V392))invalid_macro_call();          if(endp(V404))invalid_macro_call();
2752          base[3]= (V392->c.c_car);          base[3]= (V404->c.c_car);
2753          V392=V392->c.c_cdr;          V404=V404->c.c_cdr;
2754          if(!endp(V392))invalid_macro_call();}          if(!endp(V404))invalid_macro_call();}
2755          V391=V391->c.c_cdr;          V403=V403->c.c_cdr;
2756          base[4]= V391;}          base[4]= V403;}
2757          base[5]= VV[179];          base[5]= VV[179];
2758          base[6]= VV[180];          base[6]= VV[180];
2759          base[7]= VV[181];          base[7]= VV[181];
2760          {object V393;          {object V405;
2761          {object V394;          {object V406;
2762          object V395= base[2];          object V407= base[2];
2763          if(V395==Cnil){          if(V407==Cnil){
2764          V393= Cnil;          V405= Cnil;
2765          goto T810;}          goto T810;}
2766          base[8]=V394=MMcons(Cnil,Cnil);          base[8]=V406=MMcons(Cnil,Cnil);
2767          goto T811;          goto T811;
2768  T811:;  T811:;
2769          base[9]= (V395->c.c_car);          base[9]= (V407->c.c_car);
2770          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2771          L40(base);          L40(base);
2772          vs_top=sup;          vs_top=sup;
2773          (V394->c.c_cdr)= vs_base[0];          (V406->c.c_cdr)= vs_base[0];
2774          while(MMcdr(V394)!=Cnil)V394=MMcdr(V394);          while(MMcdr(V406)!=Cnil)V406=MMcdr(V406);
2775          if((V395=MMcdr(V395))==Cnil){          if((V407=MMcdr(V407))==Cnil){
2776          base[8]=base[8]->c.c_cdr;          base[8]=base[8]->c.c_cdr;
2777          V393= base[8];          V405= base[8];
2778          goto T810;}          goto T810;}
2779          goto T811;}          goto T811;}
2780          goto T810;          goto T810;
2781  T810:;  T810:;
2782          V396= list(2,base[5],base[3]);          V408= list(2,base[5],base[3]);
2783          V397= make_cons(/* INLINE-ARGS */V396,(V393));          V409= make_cons(/* INLINE-ARGS */V408,(V405));
2784          if(((V393))!=Cnil){          if(((V405))!=Cnil){
2785          goto T816;}          goto T816;}
2786          V399= list(2,VV[46],list(2,VV[182],base[5]));          V411= list(2,VV[46],list(2,VV[182],base[5]));
2787          V398= make_cons(/* INLINE-ARGS */V399,Cnil);          V410= make_cons(/* INLINE-ARGS */V411,Cnil);
2788          goto T814;          goto T814;
2789          goto T816;          goto T816;
2790  T816:;  T816:;
2791          V398= Cnil;          V410= Cnil;
2792          goto T814;          goto T814;
2793  T814:;  T814:;
2794          base[8]= listA(3,VV[125],/* INLINE-ARGS */V397,append(V398,base[4]));          V412 = base[4];
2795            base[8]= listA(3,VV[125],/* INLINE-ARGS */V409,append(V410,V412));
2796          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2797          return;}          return;}
2798  }  }
2799  /*      local entry for function GET-KEY-ARG    */  /*      local entry for function GET-KEY-ARG    */
2800    
2801  static object LI41(V402,V403)  static object LI41(V415,V416)
2802    
2803  register object V402;register object V403;  register object V415;register object V416;
2804  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
2805          goto TTL;          goto TTL;
2806  TTL:;  TTL:;
2807          goto T819;          goto T819;
2808  T819:;  T819:;
2809          if(!(type_of((V403))!=t_cons)){          if(!(type_of((V416))!=t_cons)){
2810          goto T821;}          goto T821;}
2811          {object V404 = Cnil;          {object V417 = Cnil;
2812          VMR37(V404)}          VMR37(V417)}
2813          goto T821;          goto T821;
2814  T821:;  T821:;
2815          if(!((CMPcar((V403)))==((V402)))){          if(!((CMPcar((V416)))==((V415)))){
2816          goto T824;}          goto T824;}
2817          {object V405 = CMPcadr((V403));          {object V418 = CMPcadr((V416));
2818          VMR37(V405)}          VMR37(V418)}
2819          goto T824;          goto T824;
2820  T824:;  T824:;
2821          V403= CMPcddr((V403));          V416= CMPcddr((V416));
2822          goto T819;          goto T819;
2823          return Cnil;          return Cnil;
2824  }  }
2825  /*      local entry for function GET-KEY-ARG1   */  /*      local entry for function GET-KEY-ARG1   */
2826    
2827  static object LI42(V408,V409)  static object LI42(V421,V422)
2828    
2829  register object V408;register object V409;  register object V421;register object V422;
2830  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
2831          goto TTL;          goto TTL;
2832  TTL:;  TTL:;
2833          goto T830;          goto T830;
2834  T830:;  T830:;
2835          if(!(type_of((V409))!=t_cons)){          if(!(type_of((V422))!=t_cons)){
2836          goto T832;}          goto T832;}
2837          {object V410 = Cnil;          {object V423 = Cnil;
2838          VMR38(V410)}          VMR38(V423)}
2839          goto T832;          goto T832;
2840  T832:;  T832:;
2841          if(!((CMPcar((V409)))==((V408)))){          if(!((CMPcar((V422)))==((V421)))){
2842          goto T835;}          goto T835;}
2843          {object V411 = CMPcdr((V409));          {object V424 = CMPcdr((V422));
2844          VMR38(V411)}          VMR38(V424)}
2845          goto T835;          goto T835;
2846  T835:;  T835:;
2847          V409= CMPcddr((V409));          V422= CMPcddr((V422));
2848          goto T830;          goto T830;
2849          return Cnil;          return Cnil;
2850  }  }
# Line 2841  static void L43() Line 2854  static void L43()
2854  {register object *base=vs_base;  {register object *base=vs_base;
2855          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
2856          vs_check;          vs_check;
2857          {object V412;          {object V425;
2858          object V413;          object V426;
2859          check_arg(5);          check_arg(5);
2860          V412=(base[0]);          V425=(base[0]);
2861          base[1]=MMcons(base[1],Cnil);          base[1]=MMcons(base[1],Cnil);
2862          V413=(base[2]);          V426=(base[2]);
2863          base[3]=MMcons(base[3],base[1]);          base[3]=MMcons(base[3],base[1]);
2864          base[4]=MMcons(base[4],base[3]);          base[4]=MMcons(base[4],base[3]);
2865          vs_top=sup;          vs_top=sup;
# Line 2855  static void L43() Line 2868  static void L43()
2868          base[7]=MMcons(Cnil,base[6]);          base[7]=MMcons(Cnil,base[6]);
2869          base[8]=make_cclosure_new(LC44,Cnil,base[7],Cdata);          base[8]=make_cclosure_new(LC44,Cnil,base[7],Cdata);
2870          base[8]=MMcons(base[8],base[7]);          base[8]=MMcons(base[8],base[7]);
2871          {object V414;          {object V427;
2872          base[9]= (V412);          base[9]= (V425);
2873          base[10]= (V413);          base[10]= (V426);
2874          base[11]= (base[8]->c.c_car);          base[11]= (base[8]->c.c_car);
2875          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
2876          (void) (*Lnk396)();          (void) (*Lnk396)();
2877          vs_top=sup;          vs_top=sup;
2878          V414= vs_base[0];          V427= vs_base[0];
2879          base[9]= (V414);          base[9]= (V427);
2880          base[10]= (base[5]->c.c_car);          base[10]= (base[5]->c.c_car);
2881          base[11]= (base[6]->c.c_car);          base[11]= (base[6]->c.c_car);
2882          base[12]= (base[7]->c.c_car);          base[12]= (base[7]->c.c_car);
# Line 2877  static void L45() Line 2890  static void L45()
2890  {register object *base=vs_base;  {register object *base=vs_base;
2891          register object *sup=base+VM40; VC40          register object *sup=base+VM40; VC40
2892          vs_check;          vs_check;
2893          {register object V415;          {register object V428;
2894          check_arg(1);          check_arg(1);
2895          V415=(base[0]);          V428=(base[0]);
2896          vs_top=sup;          vs_top=sup;
2897          goto TTL;          goto TTL;
2898  TTL:;  TTL:;
2899          if(!(type_of((V415))==t_symbol)){          if(!(type_of((V428))==t_symbol)){
2900          goto T850;}          goto T850;}
2901          goto T848;          goto T848;
2902          goto T850;          goto T850;
2903  T850:;  T850:;
2904          if(type_of((V415))==t_cons){          if(type_of((V428))==t_cons){
2905          goto T852;}          goto T852;}
2906          goto T849;          goto T849;
2907          goto T852;          goto T852;
2908  T852:;  T852:;
2909          if((CMPcar((V415)))==(VV[30])){          if((CMPcar((V428)))==(VV[30])){
2910          goto T854;}          goto T854;}
2911          goto T849;          goto T849;
2912          goto T854;          goto T854;
2913  T854:;  T854:;
2914          if(type_of(CMPcdr((V415)))==t_cons){          if(type_of(CMPcdr((V428)))==t_cons){
2915          goto T856;}          goto T856;}
2916          goto T849;          goto T849;
2917          goto T856;          goto T856;
2918  T856:;  T856:;
2919          if(type_of(CMPcadr((V415)))==t_symbol){          if(type_of(CMPcadr((V428)))==t_symbol){
2920          goto T858;}          goto T858;}
2921          goto T849;          goto T849;
2922          goto T858;          goto T858;
2923  T858:;  T858:;
2924          if((CMPcddr((V415)))==Cnil){          if((CMPcddr((V428)))==Cnil){
2925          goto T848;}          goto T848;}
2926          goto T849;          goto T849;
2927  T849:;  T849:;
# Line 2917  T849:; Line 2930  T849:;
2930          return;          return;
2931          goto T848;          goto T848;
2932  T848:;  T848:;
2933          if(((*(LnkLI355))((V415)))!=Cnil){          if(((*(LnkLI355))((V428)))!=Cnil){
2934          goto T860;}          goto T860;}
2935          base[1]= Cnil;          base[1]= Cnil;
2936          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2926  T848:; Line 2939  T848:;
2939  T860:;  T860:;
2940          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
2941          goto T863;}          goto T863;}
2942          base[1]= (*(LnkLI356))((V415));          base[1]= (*(LnkLI356))((V428));
2943          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2944          (void) (*Lnk397)(Lclptr397);          (void) (*Lnk397)(Lclptr397);
2945          return;          return;
2946          goto T863;          goto T863;
2947  T863:;{object V416;  T863:;{object V429;
2948          V416= (VV[147]->s.s_dbind);          V429= (VV[147]->s.s_dbind);
2949          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
2950          base[2]= (*(LnkLI356))((V415));          base[2]= (*(LnkLI356))((V428));
2951          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2952          (void) (*Lnk390)();          (void) (*Lnk390)();
2953          vs_top=sup;          vs_top=sup;
2954          V417= vs_base[0];          V430= vs_base[0];
2955          base[1]= ((V416)==(CMPcar(V417))?Ct:Cnil);          base[1]= ((V429)==(CMPcar(V430))?Ct:Cnil);
2956          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2957          return;}          return;}
2958          }          }
2959  }  }
2960  /*      local entry for function MAKE-PARAMETER-REFERENCES      */  /*      local entry for function MAKE-PARAMETER-REFERENCES      */
2961    
2962  static object LI48(V423,V424,V425,V426,V427)  static object LI48(V436,V437,V438,V439,V440)
2963    
2964  object V423;object V424;object V425;object V426;object V427;  object V436;object V437;object V438;object V439;object V440;
2965  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2966          goto TTL;          goto TTL;
2967  TTL:;  TTL:;
2968          base[0]= (V425);          base[0]= (V438);
2969          {object V428;          {object V441;
2970          register object V429;          register object V442;
2971          V428= Cnil;          V441= Cnil;
2972          V429= Cnil;          V442= Cnil;
2973          {register object V430;          {register object V443;
2974          register object V431;          register object V444;
2975          register object V432;          register object V445;
2976          object V433;          object V446;
2977          V430= (V423);          V443= (V436);
2978          V431= Cnil;          V444= Cnil;
2979          V432= (V424);          V445= (V437);
2980          V433= Cnil;          V446= Cnil;
2981          goto T877;          goto T877;
2982  T877:;  T877:;
2983          {object V434;          {object V447;
2984          if(!(((V430))==Cnil)){          if(!(((V443))==Cnil)){
2985          goto T883;}          goto T883;}
2986          goto T871;          goto T871;
2987          goto T883;          goto T883;
2988  T883:;  T883:;
2989          V434= CMPcar((V430));          V447= CMPcar((V443));
2990          V430= CMPcdr((V430));          V443= CMPcdr((V443));
2991          V431= (V434);}          V444= (V447);}
2992          {object V435;          {object V448;
2993          if(!(((V432))==Cnil)){          if(!(((V445))==Cnil)){
2994          goto T891;}          goto T891;}
2995          goto T871;          goto T871;
2996          goto T891;          goto T891;
2997  T891:;  T891:;
2998          V435= CMPcar((V432));          V448= CMPcar((V445));
2999          V432= CMPcdr((V432));          V445= CMPcdr((V445));
3000          V433= (V435);}          V446= (V448);}
3001          {object V436;          {object V449;
3002          V436= (((type_of((V431))==t_cons||((V431))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          V449= (((type_of((V444))==t_cons||((V444))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
3003          if(((V436))==Cnil){          if(((V449))==Cnil){
3004          goto T898;}          goto T898;}
3005          goto T878;          goto T878;
3006          goto T898;          goto T898;
3007  T898:;  T898:;
3008          base[1]= CMPcar((V431));          base[1]= CMPcar((V444));
3009          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3010          L49(base);          L49(base);
3011          vs_top=sup;          vs_top=sup;
3012          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3013          goto T901;}          goto T901;}
3014          base[1]= VV[201];          base[1]= VV[201];
3015          base[2]= (V426);          base[2]= (V439);
3016          base[3]= (V427);          base[3]= (V440);
3017          base[4]= CMPcar((V431));          base[4]= CMPcar((V444));
3018          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
3019          (void) (*Lnk398)();          (void) (*Lnk398)();
3020          vs_top=sup;          vs_top=sup;
3021          goto T878;          goto T878;
3022          goto T901;          goto T901;
3023  T901:;  T901:;
3024          {object V437;          {object V450;
3025          V437= CMPcar((V431));          V450= CMPcar((V444));
3026          if(((V428))!=Cnil){          if(((V441))!=Cnil){
3027          goto T910;}          goto T910;}
3028          V429= make_cons((V437),Cnil);          V442= make_cons((V450),Cnil);
3029          V428= (V429);          V441= (V442);
3030          goto T878;          goto T878;
3031          goto T910;          goto T910;
3032  T910:;  T910:;
3033          V439= make_cons((V437),Cnil);          V452= make_cons((V450),Cnil);
3034          ((V429))->c.c_cdr = /* INLINE-ARGS */V439;          ((V442))->c.c_cdr = /* INLINE-ARGS */V452;
3035          V438= (V429);          V451= (V442);
3036          V429= CMPcdr(V438);}}          V442= CMPcdr(V451);}}
3037          goto T878;          goto T878;
3038  T878:;  T878:;
3039          goto T877;}          goto T877;}
3040          goto T871;          goto T871;
3041  T871:;  T871:;
3042          {object V440 = (V428);          {object V453 = (V441);
3043          VMR41(V440)}}          VMR41(V453)}}
3044          base[0]=base[0];          base[0]=base[0];
3045          return Cnil;          return Cnil;
3046  }  }
3047  /*      local entry for function METHOD-FUNCTION-PLIST  */  /*      local entry for function METHOD-FUNCTION-PLIST  */
3048    
3049  static object LI50(V442)  static object LI50(V455)
3050    
3051  register object V442;  register object V455;
3052  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
3053          goto TTL;          goto TTL;
3054  TTL:;  TTL:;
3055          if(((V442))==((VV[202]->s.s_dbind))){          if(((V455))==((VV[202]->s.s_dbind))){
3056          goto T917;}          goto T917;}
3057          {object V443;          {object V456;
3058          object V444;          object V457;
3059          V443= (VV[203]->s.s_dbind);          V456= (VV[203]->s.s_dbind);
3060          V444= (VV[202]->s.s_dbind);          V457= (VV[202]->s.s_dbind);
3061          (VV[202]->s.s_dbind)= (V443);          (VV[202]->s.s_dbind)= (V456);
3062          (VV[203]->s.s_dbind)= (V444);}          (VV[203]->s.s_dbind)= (V457);}
3063          {object V445;          {object V458;
3064          object V446;          object V459;
3065          V445= (VV[204]->s.s_dbind);          V458= (VV[204]->s.s_dbind);
3066          V446= (VV[205]->s.s_dbind);          V459= (VV[205]->s.s_dbind);
3067          (VV[205]->s.s_dbind)= (V445);          (VV[205]->s.s_dbind)= (V458);
3068          (VV[204]->s.s_dbind)= (V446);}          (VV[204]->s.s_dbind)= (V459);}
3069          {object V447;          {object V460;
3070          object V448;          object V461;
3071          V447= (VV[206]->s.s_dbind);          V460= (VV[206]->s.s_dbind);
3072          V448= (VV[207]->s.s_dbind);          V461= (VV[207]->s.s_dbind);
3073          (VV[207]->s.s_dbind)= (V447);          (VV[207]->s.s_dbind)= (V460);
3074          (VV[206]->s.s_dbind)= (V448);}          (VV[206]->s.s_dbind)= (V461);}
3075          goto T917;          goto T917;
3076  T917:;  T917:;
3077          if(((V442))==((VV[202]->s.s_dbind))){          if(((V455))==((VV[202]->s.s_dbind))){
3078          goto T940;}          goto T940;}
3079          if(((VV[207]->s.s_dbind))==Cnil){          if(((VV[207]->s.s_dbind))==Cnil){
3080          goto T940;}          goto T940;}
3081          {object V449;          {object V462;
3082          object V450;          object V463;
3083          object V451;          object V464;
3084          V449= (VV[202]->s.s_dbind);          V462= (VV[202]->s.s_dbind);
3085          V450= (VV[208]->s.s_dbind);          V463= (VV[208]->s.s_dbind);
3086          V451= (VV[205]->s.s_dbind);          V464= (VV[205]->s.s_dbind);
3087          base[0]= (V449);          base[0]= (V462);
3088          base[1]= (V450);          base[1]= (V463);
3089          base[2]= (V451);          base[2]= (V464);
3090          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3091          siLhash_set();          siLhash_set();
3092          vs_top=sup;}          vs_top=sup;}
3093          goto T940;          goto T940;
3094  T940:;  T940:;
3095          if(((V442))==((VV[202]->s.s_dbind))){          if(((V455))==((VV[202]->s.s_dbind))){
3096          goto T951;}          goto T951;}
3097          (VV[202]->s.s_dbind)= (V442);          (VV[202]->s.s_dbind)= (V455);
3098          (VV[207]->s.s_dbind)= Cnil;          (VV[207]->s.s_dbind)= Cnil;
3099          base[0]= (V442);          base[0]= (V455);
3100          base[1]= (VV[208]->s.s_dbind);          base[1]= (VV[208]->s.s_dbind);
3101          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3102          Lgethash();          Lgethash();
# Line 3091  T940:; Line 3104  T940:;
3104          (VV[205]->s.s_dbind)= vs_base[0];          (VV[205]->s.s_dbind)= vs_base[0];
3105          goto T951;          goto T951;
3106  T951:;  T951:;
3107          {object V452 = (VV[205]->s.s_dbind);          {object V465 = (VV[205]->s.s_dbind);
3108          VMR42(V452)}          VMR42(V465)}
3109          base[0]=base[0];          base[0]=base[0];
3110          return Cnil;          return Cnil;
3111  }  }
3112  /*      local entry for function SETF PCL METHOD-FUNCTION-PLIST */  /*      local entry for function SETF PCL METHOD-FUNCTION-PLIST */
3113    
3114  static object LI51(V455,V456)  static object LI51(V468,V469)
3115    
3116  object V455;object V456;  object V468;object V469;
3117  {        VMB43 VMS43 VMV43  {        VMB43 VMS43 VMV43
3118          goto TTL;          goto TTL;
3119  TTL:;  TTL:;
3120          if(((V456))==((VV[202]->s.s_dbind))){          if(((V469))==((VV[202]->s.s_dbind))){
3121          goto T961;}          goto T961;}
3122          {object V457;          {object V470;
3123          object V458;          object V471;
3124          V457= (VV[203]->s.s_dbind);          V470= (VV[203]->s.s_dbind);
3125          V458= (VV[202]->s.s_dbind);          V471= (VV[202]->s.s_dbind);
3126          (VV[202]->s.s_dbind)= (V457);          (VV[202]->s.s_dbind)= (V470);
3127          (VV[203]->s.s_dbind)= (V458);}          (VV[203]->s.s_dbind)= (V471);}
3128          {object V459;          {object V472;
3129          object V460;          object V473;
3130          V459= (VV[206]->s.s_dbind);          V472= (VV[206]->s.s_dbind);
3131          V460= (VV[207]->s.s_dbind);          V473= (VV[207]->s.s_dbind);
3132          (VV[207]->s.s_dbind)= (V459);          (VV[207]->s.s_dbind)= (V472);
3133          (VV[206]->s.s_dbind)= (V460);}          (VV[206]->s.s_dbind)= (V473);}
3134          {object V461;          {object V474;
3135          object V462;          object V475;
3136          V461= (VV[204]->s.s_dbind);          V474= (VV[204]->s.s_dbind);
3137          V462= (VV[205]->s.s_dbind);          V475= (VV[205]->s.s_dbind);
3138          (VV[205]->s.s_dbind)= (V461);          (VV[205]->s.s_dbind)= (V474);
3139          (VV[204]->s.s_dbind)= (V462);}          (VV[204]->s.s_dbind)= (V475);}
3140          goto T961;          goto T961;
3141  T961:;  T961:;
3142          if(((V456))==((VV[202]->s.s_dbind))){          if(((V469))==((VV[202]->s.s_dbind))){
3143          goto T984;}          goto T984;}
3144          if(((VV[207]->s.s_dbind))==Cnil){          if(((VV[207]->s.s_dbind))==Cnil){
3145          goto T984;}          goto T984;}
3146          {object V463;          {object V476;
3147          object V464;          object V477;
3148          object V465;          object V478;
3149          V463= (VV[202]->s.s_dbind);          V476= (VV[202]->s.s_dbind);
3150          V464= (VV[208]->s.s_dbind);          V477= (VV[208]->s.s_dbind);
3151          V465= (VV[205]->s.s_dbind);          V478= (VV[205]->s.s_dbind);
3152          base[0]= (V463);          base[0]= (V476);
3153          base[1]= (V464);          base[1]= (V477);
3154          base[2]= (V465);          base[2]= (V478);
3155          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3156          siLhash_set();          siLhash_set();
3157          vs_top=sup;}          vs_top=sup;}
3158          goto T984;          goto T984;
3159  T984:;  T984:;
3160          (VV[202]->s.s_dbind)= (V456);          (VV[202]->s.s_dbind)= (V469);
3161          (VV[207]->s.s_dbind)= Ct;          (VV[207]->s.s_dbind)= Ct;
3162          (VV[205]->s.s_dbind)= (V455);          (VV[205]->s.s_dbind)= (V468);
3163          {object V466 = (VV[205]->s.s_dbind);          {object V479 = (VV[205]->s.s_dbind);
3164          VMR43(V466)}          VMR43(V479)}
3165          base[0]=base[0];          base[0]=base[0];
3166          return Cnil;          return Cnil;
3167  }  }
3168  /*      local entry for function METHOD-FUNCTION-GET    */  /*      local entry for function METHOD-FUNCTION-GET    */
3169    
3170  static object LI52(object V468,object V467,object first,...)  static object LI52(object V481,object V480,object first,...)
3171  {        {      
3172          va_list ap;          va_list ap;
3173          int narg = VFUN_NARGS; VMB44 VMS44 VMV44          int narg = VFUN_NARGS; VMB44 VMS44 VMV44
3174          {object V469;          {object V482;
3175          object V470;          object V483;
3176          object V471;          object V484;
3177          va_start(ap,first);          va_start(ap,first);
3178          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
3179          V469= V468;          V482= V481;
3180          V470= V467;          V483= V480;
3181          narg = narg - 2;          narg = narg - 2;
3182          if (narg <= 0) goto T1000;          if (narg <= 0) goto T1000;
3183          else {          else {
3184          V471= first;}          V484= first;}
3185          --narg; goto T1001;          --narg; goto T1001;
3186          goto T1000;          goto T1000;
3187  T1000:;  T1000:;
3188          V471= Cnil;          V484= Cnil;
3189          goto T1001;          goto T1001;
3190  T1001:;  T1001:;
3191          base[0]= (*(LnkLI399))((V469));          base[0]= (*(LnkLI399))((V482));
3192          base[1]= (V470);          base[1]= (V483);
3193          base[2]= (V471);          base[2]= (V484);
3194          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3195          Lgetf();          Lgetf();
3196          vs_top=sup;          vs_top=sup;
3197          {object V472 = vs_base[0];          {object V485 = vs_base[0];
3198          VMR44(V472)}          VMR44(V485)}
3199          va_end(ap);          va_end(ap);
3200          base[0]=base[0];          base[0]=base[0];
3201          return Cnil;}          return Cnil;}
3202          }          }
3203  /*      local entry for function SETF PCL METHOD-FUNCTION-GET   */  /*      local entry for function SETF PCL METHOD-FUNCTION-GET   */
3204    
3205  static object LI53(V476,V477,V478)  static object LI53(V489,V490,V491)
3206    
3207  object V476;object V477;object V478;  object V489;object V490;object V491;
3208  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
3209          goto TTL;          goto TTL;
3210  TTL:;  TTL:;
3211          {object V482;          {object V495;
3212          base[0]= (*(LnkLI399))(V477);          base[0]= (*(LnkLI399))(V490);
3213          base[1]= V476;          base[1]= V489;
3214          base[2]= V478;          base[2]= V491;
3215          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3216          siLput_f();          siLput_f();
3217          vs_top=sup;          vs_top=sup;
3218          V482= vs_base[0];          V495= vs_base[0];
3219          (void)((*(LnkLI400))((V482),V477));          (void)((*(LnkLI400))((V495),V490));
3220          {object V484 = V476;          {object V497 = V489;
3221          VMR45(V484)}}          VMR45(V497)}}
3222          base[0]=base[0];          base[0]=base[0];
3223          return Cnil;          return Cnil;
3224  }  }
3225  /*      local entry for function METHOD-FUNCTION-PV-TABLE       */  /*      local entry for function METHOD-FUNCTION-PV-TABLE       */
3226    
3227  static object LI54(V486)  static object LI54(V499)
3228    
3229  object V486;  object V499;
3230  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
3231          goto TTL;          goto TTL;
3232  TTL:;  TTL:;
3233          {object V487 = (VFUN_NARGS=2,(*(LnkLI211))((V486),VV[209]));          {object V500 = (VFUN_NARGS=2,(*(LnkLI211))((V499),VV[209]));
3234          VMR46(V487)}          VMR46(V500)}
3235          return Cnil;          return Cnil;
3236  }  }
3237  /*      local entry for function METHOD-FUNCTION-METHOD */  /*      local entry for function METHOD-FUNCTION-METHOD */
3238    
3239  static object LI55(V489)  static object LI55(V502)
3240    
3241  object V489;  object V502;
3242  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
3243          goto TTL;          goto TTL;
3244  TTL:;  TTL:;
3245          {object V490 = (VFUN_NARGS=2,(*(LnkLI211))((V489),VV[210]));          {object V503 = (VFUN_NARGS=2,(*(LnkLI211))((V502),VV[210]));
3246          VMR47(V490)}          VMR47(V503)}
3247          return Cnil;          return Cnil;
3248  }  }
3249  /*      local entry for function METHOD-FUNCTION-NEEDS-NEXT-METHODS-P   */  /*      local entry for function METHOD-FUNCTION-NEEDS-NEXT-METHODS-P   */
3250    
3251  static object LI56(V492)  static object LI56(V505)
3252    
3253  object V492;  object V505;
3254  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
3255          goto TTL;          goto TTL;
3256  TTL:;  TTL:;
3257          {object V493 = (VFUN_NARGS=3,(*(LnkLI211))((V492),VV[57],Ct));          {object V506 = (VFUN_NARGS=3,(*(LnkLI211))((V505),VV[57],Ct));
3258          VMR48(V493)}          VMR48(V506)}
3259          return Cnil;          return Cnil;
3260  }  }
3261  /*      macro definition for METHOD-FUNCTION-CLOSURE-GENERATOR  */  /*      macro definition for METHOD-FUNCTION-CLOSURE-GENERATOR  */
# Line 3253  static void L57() Line 3266  static void L57()
3266          vs_check;          vs_check;
3267          check_arg(2);          check_arg(2);
3268          vs_top=sup;          vs_top=sup;
3269          {object V494=base[0]->c.c_cdr;          {object V507=base[0]->c.c_cdr;
3270          if(endp(V494))invalid_macro_call();          if(endp(V507))invalid_macro_call();
3271          base[2]= (V494->c.c_car);          base[2]= (V507->c.c_car);
3272          V494=V494->c.c_cdr;          V507=V507->c.c_cdr;
3273          if(!endp(V494))invalid_macro_call();}          if(!endp(V507))invalid_macro_call();}
3274          base[3]= list(3,VV[211],base[2],VV[212]);          base[3]= list(3,VV[211],base[2],VV[212]);
3275          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3276          return;          return;
3277  }  }
3278  /*      local entry for function LOAD-DEFMETHOD */  /*      local entry for function LOAD-DEFMETHOD */
3279    
3280  static object LI58(object V500,object V499,object V498,object V497,object V496,object V495,object first,...)  static object LI58(object V513,object V512,object V511,object V510,object V509,object V508,object first,...)
3281  {        {      
3282          va_list ap;          va_list ap;
3283          int narg = VFUN_NARGS; VMB50 VMS50 VMV50          int narg = VFUN_NARGS; VMB50 VMS50 VMV50
3284          {object V501;          {object V514;
3285          register object V502;          register object V515;
3286          object V503;          object V516;
3287          object V504;          object V517;
3288          object V505;          object V518;
3289          register object V506;          register object V519;
3290          object V507;          object V520;
3291          va_start(ap,first);          va_start(ap,first);
3292          if(narg <6) too_few_arguments();          if(narg <6) too_few_arguments();
3293          V501= V500;          V514= V513;
3294          V502= V499;          V515= V512;
3295          V503= V498;          V516= V511;
3296          V504= V497;          V517= V510;
3297          V505= V496;          V518= V509;
3298          V506= V495;          V519= V508;
3299          narg = narg - 6;          narg = narg - 6;
3300          if (narg <= 0) goto T1011;          if (narg <= 0) goto T1011;
3301          else {          else {
3302          V507= first;}          V520= first;}
3303          --narg; goto T1012;          --narg; goto T1012;
3304          goto T1011;          goto T1011;
3305  T1011:;  T1011:;
3306          V507= Cnil;          V520= Cnil;
3307          goto T1012;          goto T1012;
3308  T1012:;  T1012:;
3309          if(!(type_of((V502))==t_cons||((V502))==Cnil)){          if(!(type_of((V515))==t_cons||((V515))==Cnil)){
3310          goto T1014;}          goto T1014;}
3311          (void)((*(LnkLI348))(CMPcadr((V502))));          (void)((*(LnkLI348))(CMPcadr((V515))));
3312          goto T1014;          goto T1014;
3313  T1014:;  T1014:;
3314          base[0]= (V506);          base[0]= (V519);
3315          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3316          Lcopy_tree();          Lcopy_tree();
3317          vs_top=sup;          vs_top=sup;
3318          V506= vs_base[0];          V519= vs_base[0];
3319          {object V508;{object V509;          {object V521;{object V522;
3320          base[0]= (V506);          base[0]= (V519);
3321          base[1]= VV[213];          base[1]= VV[213];
3322          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3323          Lgetf();          Lgetf();
3324          vs_top=sup;          vs_top=sup;
3325          V509= vs_base[0];          V522= vs_base[0];
3326          if(V509==Cnil)goto T1021;          if(V522==Cnil)goto T1021;
3327          V508= V509;          V521= V522;
3328          goto T1020;          goto T1020;
3329          goto T1021;          goto T1021;
3330  T1021:;}  T1021:;}
3331          V508= (*(LnkLI401))((V502),(V503),(V504));          V521= (*(LnkLI401))((V515),(V516),(V517));
3332          goto T1020;          goto T1020;
3333  T1020:;  T1020:;
3334          {object V512;          {object V525;
3335          base[0]= (V506);          base[0]= (V519);
3336          base[1]= V508;          base[1]= V521;
3337          base[2]= VV[213];          base[2]= VV[213];
3338          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3339          siLput_f();          siLput_f();
3340          vs_top=sup;          vs_top=sup;
3341          V512= vs_base[0];          V525= vs_base[0];
3342          V506= (V512);}          V519= (V525);}
3343          (void)((VFUN_NARGS=2,(*(LnkLI402))(VV[37],(V508))));          (void)((VFUN_NARGS=2,(*(LnkLI402))(VV[37],(V521))));
3344          {object V513 = (*(LnkLI403))((V501),(V502),(V503),(V504),(V505),(V506),(V507));          {object V526 = (*(LnkLI403))((V514),(V515),(V516),(V517),(V518),(V519),(V520));
3345          VMR50(V513)}}          VMR50(V526)}}
3346          va_end(ap);          va_end(ap);
3347          base[0]=base[0];          base[0]=base[0];
3348          return Cnil;}          return Cnil;}
3349          }          }
3350  /*      local entry for function LOAD-DEFMETHOD-INTERNAL        */  /*      local entry for function LOAD-DEFMETHOD-INTERNAL        */
3351    
3352  static object LI59(V521,V522,V523,V524,V525,V526,V527)  static object LI59(V534,V535,V536,V537,V538,V539,V540)
3353    
3354  object V521;register object V522;object V523;object V524;object V525;register object V526;object V527;  object V534;register object V535;object V536;object V537;object V538;register object V539;object V540;
3355  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
3356          goto TTL;          goto TTL;
3357  TTL:;  TTL:;
3358          if(!(type_of((V522))==t_cons||((V522))==Cnil)){          if(!(type_of((V535))==t_cons||((V535))==Cnil)){
3359          goto T1033;}          goto T1033;}
3360          (void)((*(LnkLI348))(CMPcadr((V522))));          (void)((*(LnkLI348))(CMPcadr((V535))));
3361          goto T1033;          goto T1033;
3362  T1033:;  T1033:;
3363          if(((V527))==Cnil){          if(((V540))==Cnil){
3364          goto T1036;}          goto T1036;}
3365          {object V531;          {object V544;
3366          base[1]= (V526);          base[1]= (V539);
3367          base[2]= VV[28];          base[2]= VV[28];
3368          base[3]= Cnil;          base[3]= Cnil;
3369          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
3370          Lgetf();          Lgetf();
3371          vs_top=sup;          vs_top=sup;
3372          base[0]= vs_base[0];          base[0]= vs_base[0];
3373          base[1]= V527;          base[1]= V540;
3374          base[2]= VV[29];          base[2]= VV[29];
3375          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3376          siLput_f();          siLput_f();
3377          vs_top=sup;          vs_top=sup;
3378          V531= vs_base[0];          V544= vs_base[0];
3379          {object V532;          {object V545;
3380          base[0]= (V526);          base[0]= (V539);
3381          base[1]= (V531);          base[1]= (V544);
3382          base[2]= VV[28];          base[2]= VV[28];
3383          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3384          siLput_f();          siLput_f();
3385          vs_top=sup;          vs_top=sup;
3386          V532= vs_base[0];          V545= vs_base[0];
3387          V526= (V532);}}          V539= (V545);}}
3388          goto T1036;          goto T1036;
3389  T1036:;  T1036:;
3390          {object V533;          {object V546;
3391          base[0]=VV[404]->s.s_gfdef;          base[0]=VV[404]->s.s_gfdef;
3392          base[1]= (V522);          base[1]= (V535);
3393          base[2]= (V523);          base[2]= (V536);
3394          base[3]= (V524);          base[3]= (V537);
3395          base[4]= (V525);          base[4]= (V538);
3396          base[5]= VV[16];          base[5]= VV[16];
3397          V535= make_cons((V524),Cnil);          V548= make_cons((V537),Cnil);
3398          V536= listA(3,VV[7],(V522),append((V523),/* INLINE-ARGS */V535));          V549= listA(3,VV[7],(V535),append((V536),/* INLINE-ARGS */V548));
3399          vs_base=vs_top;          vs_base=vs_top;
3400          (void) (*Lnk350)();          (void) (*Lnk350)();
3401          vs_top=sup;          vs_top=sup;
3402          V537= vs_base[0];          V550= vs_base[0];
3403          base[6]= list(2,/* INLINE-ARGS */V536,V537);          base[6]= list(2,/* INLINE-ARGS */V549,V550);
3404          {object V534;          {object V547;
3405          V534= (V526);          V547= (V539);
3406           vs_top=base+7;           vs_top=base+7;
3407           while(V534!=Cnil)           while(V547!=Cnil)
3408           {vs_push((V534)->c.c_car);V534=(V534)->c.c_cdr;}           {vs_push((V547)->c.c_car);V547=(V547)->c.c_cdr;}
3409          vs_base=base+1;}          vs_base=base+1;}
3410          funcall(base[0]);          funcall(base[0]);
3411          vs_top=sup;          vs_top=sup;
3412          V533= vs_base[0];          V546= vs_base[0];
3413          if(((V521))==(VV[20])){          if(((V534))==(VV[20])){
3414          goto T1062;}          goto T1062;}
3415          V538= (VFUN_NARGS=2,(*(LnkLI290))((V521),Cnil));          V551= (VFUN_NARGS=2,(*(LnkLI290))((V534),Cnil));
3416          V539= (*(LnkLI363))((V533));          V552= (*(LnkLI363))((V546));
3417          if((/* INLINE-ARGS */V538)==(/* INLINE-ARGS */V539)){          if((/* INLINE-ARGS */V551)==(/* INLINE-ARGS */V552)){
3418          goto T1062;}          goto T1062;}
3419          base[0]= (VV[214]->s.s_dbind);          base[0]= (VV[214]->s.s_dbind);
3420          base[1]= VV[215];          base[1]= VV[215];
3421          base[2]= (V523);          base[2]= (V536);
3422          base[3]= (V524);          base[3]= (V537);
3423          base[4]= (V522);          base[4]= (V535);
3424          base[5]= (V521);          base[5]= (V534);
3425          base[7]= (*(LnkLI363))((V533));          base[7]= (*(LnkLI363))((V546));
3426          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3427          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk364)(Lclptr364);
3428          vs_top=sup;          vs_top=sup;
# Line 3419  T1036:; Line 3432  T1036:;
3432          vs_top=sup;          vs_top=sup;
3433          goto T1062;          goto T1062;
3434  T1062:;  T1062:;
3435          {object V540 = (V533);          {object V553 = (V546);
3436          VMR51(V540)}}          VMR51(V553)}}
3437          base[0]=base[0];          base[0]=base[0];
3438          return Cnil;          return Cnil;
3439  }  }
3440  /*      local entry for function MAKE-METHOD-SPEC       */  /*      local entry for function MAKE-METHOD-SPEC       */
3441    
3442  static object LI60(V544,V545,V546)  static object LI60(V557,V558,V559)
3443    
3444  object V544;object V545;object V546;  object V557;object V558;object V559;
3445  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
3446          goto TTL;          goto TTL;
3447  TTL:;  TTL:;
3448          V547= make_cons((V546),Cnil);          V560= make_cons((V559),Cnil);
3449          {object V548 = listA(3,VV[37],(V544),append((V545),/* INLINE-ARGS */V547));          {object V561 = listA(3,VV[37],(V557),append((V558),/* INLINE-ARGS */V560));
3450          VMR52(V548)}          VMR52(V561)}
3451          return Cnil;          return Cnil;
3452  }  }
3453  /*      local entry for function INITIALIZE-METHOD-FUNCTION     */  /*      local entry for function INITIALIZE-METHOD-FUNCTION     */
3454    
3455  static object LI61(object V549,object first,...)  static object LI61(object V562,object first,...)
3456  {        {      
3457          va_list ap;          va_list ap;
3458          int narg = VFUN_NARGS; VMB53 VMS53 VMV53          int narg = VFUN_NARGS; VMB53 VMS53 VMV53
3459          {register object V550;          {register object V563;
3460          object V551;          object V564;
3461          object V552;          object V565;
3462          va_start(ap,first);          va_start(ap,first);
3463          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
3464          V550= V549;          V563= V562;
3465          narg = narg - 1;          narg = narg - 1;
3466          if (narg <= 0) goto T1075;          if (narg <= 0) goto T1075;
3467          else {          else {
3468          V551= first;}          V564= first;}
3469          if (--narg <= 0) goto T1076;          if (--narg <= 0) goto T1076;
3470          else {          else {
3471          V552= va_arg(ap,object);}          V565= va_arg(ap,object);}
3472          --narg; goto T1077;          --narg; goto T1077;
3473          goto T1075;          goto T1075;
3474  T1075:;  T1075:;
3475          V551= Cnil;          V564= Cnil;
3476          goto T1076;          goto T1076;
3477  T1076:;  T1076:;
3478          V552= Cnil;          V565= Cnil;
3479          goto T1077;          goto T1077;
3480  T1077:;  T1077:;
3481          {register object V553;          {register object V566;
3482          register object V554;          register object V567;
3483          object V555;          object V568;
3484          register object V556;          register object V569;
3485          base[5]= (V550);          base[5]= (V563);
3486          base[6]= VV[36];          base[6]= VV[36];
3487          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3488          Lgetf();          Lgetf();
3489          vs_top=sup;          vs_top=sup;
3490          base[0]= vs_base[0];          base[0]= vs_base[0];
3491          base[5]= (V550);          base[5]= (V563);
3492          base[6]= VV[213];          base[6]= VV[213];
3493          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3494          Lgetf();          Lgetf();
3495          vs_top=sup;          vs_top=sup;
3496          V553= vs_base[0];          V566= vs_base[0];
3497          base[5]= (V550);          base[5]= (V563);
3498          base[6]= VV[28];          base[6]= VV[28];
3499          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3500          Lgetf();          Lgetf();
3501          vs_top=sup;          vs_top=sup;
3502          V554= vs_base[0];          V567= vs_base[0];
3503          base[5]= (V554);          base[5]= (V567);
3504          base[6]= VV[29];          base[6]= VV[29];
3505          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3506          Lgetf();          Lgetf();
3507          vs_top=sup;          vs_top=sup;
3508          V555= vs_base[0];          V568= vs_base[0];
3509          V556= Cnil;          V569= Cnil;
3510          base[5]= (V550);          base[5]= (V563);
3511          base[6]= VV[216];          base[6]= VV[216];
3512          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3513          Lgetf();          Lgetf();
3514          vs_top=sup;          vs_top=sup;
3515          base[4]= vs_base[0];          base[4]= vs_base[0];
3516          if(((V553))==Cnil){          if(((V566))==Cnil){
3517          goto T1096;}          goto T1096;}
3518          if((base[0])==Cnil){          if((base[0])==Cnil){
3519          goto T1099;}          goto T1099;}
3520          base[5]= base[0];          base[5]= base[0];
3521          base[6]= (V553);          base[6]= (V566);
3522          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3523          (void) (*Lnk346)();          (void) (*Lnk346)();
3524          vs_top=sup;          vs_top=sup;
# Line 3514  T1077:; Line 3527  T1077:;
3527  T1099:;  T1099:;
3528          if((base[4])==Cnil){          if((base[4])==Cnil){
3529          goto T1096;}          goto T1096;}
3530          {object V557;{object V559;          {object V570;{object V572;
3531          {object V560 =(CMPcar((V553)))->s.s_plist;          {object V573 =(CMPcar((V566)))->s.s_plist;
3532           object ind= VV[217];           object ind= VV[217];
3533          while(V560!=Cnil){          while(V573!=Cnil){
3534          if(V560->c.c_car==ind){          if(V573->c.c_car==ind){
3535          V559= (V560->c.c_cdr->c.c_car);          V572= (V573->c.c_cdr->c.c_car);
3536          goto T1110;          goto T1110;
3537          }else V560=V560->c.c_cdr->c.c_cdr;}          }else V573=V573->c.c_cdr->c.c_cdr;}
3538          V559= Cnil;}          V572= Cnil;}
3539          goto T1110;          goto T1110;
3540  T1110:;  T1110:;
3541          if(V559==Cnil)goto T1109;          if(V572==Cnil)goto T1109;
3542          V558= V559;          V571= V572;
3543          goto T1108;          goto T1108;
3544          goto T1109;          goto T1109;
3545  T1109:;}  T1109:;}
3546          V561= CMPcar((V553));          V574= CMPcar((V566));
3547          base[6]= Cnil;          base[6]= Cnil;
3548          base[7]= VV[218];          base[7]= VV[218];
3549          base[8]= CMPcar((V553));          base[8]= CMPcar((V566));
3550          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
3551          Lformat();          Lformat();
3552          vs_top=sup;          vs_top=sup;
# Line 3542  T1109:;} Line 3555  T1109:;}
3555          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3556          Lintern();          Lintern();
3557          vs_top=sup;          vs_top=sup;
3558          V562= vs_base[0];          V575= vs_base[0];
3559          V558= sputprop(/* INLINE-ARGS */V561,VV[217],V562);          V571= sputprop(/* INLINE-ARGS */V574,VV[217],V575);
3560          goto T1108;          goto T1108;
3561  T1108:;  T1108:;
3562          V557= make_cons(V558,CMPcdr((V553)));          V570= make_cons(V571,CMPcdr((V566)));
3563          base[5]= base[4];          base[5]= base[4];
3564          base[6]= (V557);          base[6]= (V570);
3565          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3566          (void) (*Lnk346)();          (void) (*Lnk346)();
3567          vs_top=sup;          vs_top=sup;
3568          if((base[0])!=Cnil){          if((base[0])!=Cnil){
3569          goto T1096;}          goto T1096;}
3570          base[5]= VV[220];          base[5]= VV[220];
3571          base[6]= (V557);          base[6]= (V570);
3572          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3573          L62(base);          L62(base);
3574          vs_top=sup;}          vs_top=sup;}
3575          goto T1096;          goto T1096;
3576  T1096:;  T1096:;
3577          if(((V554))==Cnil){          if(((V567))==Cnil){
3578          goto T1125;}          goto T1125;}
3579          {object V563;          {object V576;
3580          object V564;          object V577;
3581          base[5]= (V554);          base[5]= (V567);
3582          base[6]= VV[59];          base[6]= VV[59];
3583          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3584          Lgetf();          Lgetf();
3585          vs_top=sup;          vs_top=sup;
3586          V563= vs_base[0];          V576= vs_base[0];
3587          base[5]= (V554);          base[5]= (V567);
3588          base[6]= VV[60];          base[6]= VV[60];
3589          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3590          Lgetf();          Lgetf();
3591          vs_top=sup;          vs_top=sup;
3592          V564= vs_base[0];          V577= vs_base[0];
3593          if(((V563))!=Cnil){          if(((V576))!=Cnil){
3594          goto T1134;}          goto T1134;}
3595          if(((V564))==Cnil){          if(((V577))==Cnil){
3596          goto T1127;}          goto T1127;}
3597          goto T1134;          goto T1134;
3598  T1134:;  T1134:;
3599          V556= (VFUN_NARGS=4,(*(LnkLI405))(VV[59],(V563),VV[60],(V564)));          V569= (VFUN_NARGS=4,(*(LnkLI405))(VV[59],(V576),VV[60],(V577)));
3600          if(((V556))==Cnil){          if(((V569))==Cnil){
3601          goto T1140;}          goto T1140;}
3602          base[5]= (V555);          base[5]= (V568);
3603          base[6]= (V556);          base[6]= (V569);
3604          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3605          Lset();          Lset();
3606          vs_top=sup;          vs_top=sup;
3607          goto T1140;          goto T1140;
3608  T1140:;  T1140:;
3609          base[5]= VV[209];          base[5]= VV[209];
3610          base[6]= (V556);          base[6]= (V569);
3611          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3612          L62(base);          L62(base);
3613          vs_top=sup;}          vs_top=sup;}
# Line 3602  T1140:; Line 3615  T1140:;
3615  T1127:;  T1127:;
3616          goto T1149;          goto T1149;
3617  T1149:;  T1149:;
3618          if(((V554))!=Cnil){          if(((V567))!=Cnil){
3619          goto T1151;}          goto T1151;}
3620          goto T1147;          goto T1147;
3621          goto T1151;          goto T1151;
3622  T1151:;  T1151:;
3623          {register object V565;          {register object V578;
3624          V565= CMPcar((V554));          V578= CMPcar((V567));
3625          V554= CMPcdr((V554));          V567= CMPcdr((V567));
3626          base[5]= (V565);}          base[5]= (V578);}
3627          {register object V566;          {register object V579;
3628          V566= CMPcar((V554));          V579= CMPcar((V567));
3629          V554= CMPcdr((V554));          V567= CMPcdr((V567));
3630          base[6]= (V566);}          base[6]= (V579);}
3631          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3632          L62(base);          L62(base);
3633          vs_top=sup;          vs_top=sup;
3634          goto T1149;          goto T1149;
3635          goto T1147;          goto T1147;
3636  T1147:;  T1147:;
3637          if(((V552))==Cnil){          if(((V565))==Cnil){
3638          goto T1163;}          goto T1163;}
3639          base[5]= VV[210];          base[5]= VV[210];
3640          base[6]= (V552);          base[6]= (V565);
3641          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
3642          L62(base);          L62(base);
3643          vs_top=sup;          vs_top=sup;
3644          goto T1163;          goto T1163;
3645  T1163:;  T1163:;
3646          if(((V551))==Cnil){          if(((V564))==Cnil){
3647          goto T1169;}          goto T1169;}
3648          if(base[0]!=Cnil){          if(base[0]!=Cnil){
3649          {object V567 = base[0];          {object V580 = base[0];
3650          VMR53(V567)}}          VMR53(V580)}}
3651          {object V568 = (*(LnkLI406))(base[4]);          {object V581 = (*(LnkLI406))(base[4]);
3652          VMR53(V568)}          VMR53(V581)}
3653          goto T1169;          goto T1169;
3654  T1169:;  T1169:;
3655          {object V569 = Cnil;          {object V582 = Cnil;
3656          VMR53(V569)}          VMR53(V582)}
3657          goto T1125;          goto T1125;
3658  T1125:;  T1125:;
3659          {object V570 = Cnil;          {object V583 = Cnil;
3660          VMR53(V570)}}          VMR53(V583)}}
3661          va_end(ap);          va_end(ap);
3662          base[0]=base[0];          base[0]=base[0];
3663          return Cnil;}          return Cnil;}
# Line 3655  static void L63() Line 3668  static void L63()
3668  {register object *base=vs_base;  {register object *base=vs_base;
3669          register object *sup=base+VM54; VC54          register object *sup=base+VM54; VC54
3670          vs_check;          vs_check;
3671          {object V571;          {object V584;
3672          check_arg(1);          check_arg(1);
3673          V571=(base[0]);          V584=(base[0]);
3674          vs_top=sup;          vs_top=sup;
3675          goto TTL;          goto TTL;
3676  TTL:;  TTL:;
3677          {register object V572;          {register object V585;
3678          register object V573;          register object V586;
3679          object V574;          object V587;
3680          object V575;          object V588;
3681          object V576;          object V589;
3682          register object V577;          register object V590;
3683          register object V578;          register object V591;
3684          register object V579;          register object V592;
3685          V572= small_fixnum(0);          V585= small_fixnum(0);
3686          V573= small_fixnum(0);          V586= small_fixnum(0);
3687          V574= Cnil;          V587= Cnil;
3688          V575= Cnil;          V588= Cnil;
3689          V576= Cnil;          V589= Cnil;
3690          V577= Cnil;          V590= Cnil;
3691          V578= Cnil;          V591= Cnil;
3692          V579= VV[181];          V592= VV[181];
3693          {register object V580;          {register object V593;
3694          register object V581;          register object V594;
3695          V580= (V571);          V593= (V584);
3696          V581= CMPcar((V580));          V594= CMPcar((V593));
3697          goto T1175;          goto T1175;
3698  T1175:;  T1175:;
3699          if(!(((V580))==Cnil)){          if(!(((V593))==Cnil)){
3700          goto T1176;}          goto T1176;}
3701          goto T1171;          goto T1171;
3702          goto T1176;          goto T1176;
3703  T1176:;  T1176:;
3704          {register object x= (V581),V582= VV[183];          {register object x= (V594),V595= VV[183];
3705          while(V582!=Cnil)          while(V595!=Cnil)
3706          if(x==(V582->c.c_car)){          if(x==(V595->c.c_car)){
3707          goto T1183;          goto T1183;
3708          }else V582=V582->c.c_cdr;          }else V595=V595->c.c_cdr;
3709          goto T1182;}          goto T1182;}
3710          goto T1183;          goto T1183;
3711  T1183:;  T1183:;
3712          {object V583= (V581);          {object V596= (V594);
3713          if((V583!= VV[407]))goto T1184;          if((V596!= VV[407]))goto T1184;
3714          V579= VV[184];          V592= VV[184];
3715          goto T1180;          goto T1180;
3716          goto T1184;          goto T1184;
3717  T1184:;  T1184:;
3718          if((V583!= VV[62]))goto T1186;          if((V596!= VV[62]))goto T1186;
3719          V574= Ct;          V587= Ct;
3720          V579= VV[185];          V592= VV[185];
3721          goto T1180;          goto T1180;
3722          goto T1186;          goto T1186;
3723  T1186:;  T1186:;
3724          if((V583!= VV[63]))goto T1190;          if((V596!= VV[63]))goto T1190;
3725          V576= Ct;          V589= Ct;
3726          goto T1180;          goto T1180;
3727          goto T1190;          goto T1190;
3728  T1190:;  T1190:;
3729          if((V583!= VV[170]))goto T1192;          if((V596!= VV[170]))goto T1192;
3730          V575= Ct;          V588= Ct;
3731          V579= VV[186];          V592= VV[186];
3732          goto T1180;          goto T1180;
3733          goto T1192;          goto T1192;
3734  T1192:;  T1192:;
3735          if((V583!= VV[56]))goto T1196;          if((V596!= VV[56]))goto T1196;
3736          goto T1171;          goto T1171;
3737          goto T1196;          goto T1196;
3738  T1196:;  T1196:;
3739          base[2]= VV[221];          base[2]= VV[221];
3740          base[3]= (V581);          base[3]= (V594);
3741          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3742          Lerror();          Lerror();
3743          vs_top=sup;          vs_top=sup;
3744          goto T1180;}          goto T1180;}
3745          goto T1182;          goto T1182;
3746  T1182:;  T1182:;
3747          {object V584= (V579);          {object V597= (V592);
3748          if((V584!= VV[181]))goto T1199;          if((V597!= VV[181]))goto T1199;
3749          V572= number_plus((V572),small_fixnum(1));          V585= number_plus((V585),small_fixnum(1));
3750          goto T1180;          goto T1180;
3751          goto T1199;          goto T1199;
3752  T1199:;  T1199:;
3753          if((V584!= VV[184]))goto T1201;          if((V597!= VV[184]))goto T1201;
3754          V573= number_plus((V573),small_fixnum(1));          V586= number_plus((V586),small_fixnum(1));
3755          goto T1180;          goto T1180;
3756          goto T1201;          goto T1201;
3757  T1201:;  T1201:;
3758          if((V584!= VV[185]))goto T1203;          if((V597!= VV[185]))goto T1203;
3759          {object V585;          {object V598;
3760          base[3]= (V581);          base[3]= (V594);
3761          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3762          L64(base);          L64(base);
3763          vs_top=sup;          vs_top=sup;
3764          V585= vs_base[0];          V598= vs_base[0];
3765          V577= make_cons((V585),(V577));}          V590= make_cons((V598),(V590));}
3766          V578= make_cons(V581,(V578));          V591= make_cons(V594,(V591));
3767          goto T1180;          goto T1180;
3768          goto T1203;          goto T1203;
3769  T1203:;  T1203:;
3770          if((V584!= VV[186]))goto T1209;          if((V597!= VV[186]))goto T1209;
3771          goto T1180;          goto T1180;
3772          goto T1209;          goto T1209;
3773  T1209:;  T1209:;
3774          FEerror("The ECASE key value ~s is illegal.",1,V584);          FEerror("The ECASE key value ~s is illegal.",1,V597);
3775          goto T1180;}          goto T1180;}
3776          goto T1180;          goto T1180;
3777  T1180:;  T1180:;
3778          V580= CMPcdr((V580));          V593= CMPcdr((V593));
3779          V581= CMPcar((V580));          V594= CMPcar((V593));
3780          goto T1175;}          goto T1175;}
3781          goto T1171;          goto T1171;
3782  T1171:;  T1171:;
3783          base[1]= (V572);          base[1]= (V585);
3784          base[2]= (V573);          base[2]= (V586);
3785          base[3]= (V574);          base[3]= (V587);
3786          base[4]= (V575);          base[4]= (V588);
3787          base[5]= (V576);          base[5]= (V589);
3788          base[6]= reverse((V577));          base[6]= reverse((V590));
3789          base[7]= reverse((V578));          base[7]= reverse((V591));
3790          vs_top=(vs_base=base+1)+7;          vs_top=(vs_base=base+1)+7;
3791          return;}          return;}
3792          }          }
3793  }  }
3794  /*      local entry for function KEYWORD-SPEC-NAME      */  /*      local entry for function KEYWORD-SPEC-NAME      */
3795    
3796  static object LI65(V588)  static object LI65(V601)
3797    
3798  object V588;  object V601;
3799  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
3800          goto TTL;          goto TTL;
3801  TTL:;  TTL:;
3802          {object V589;          {object V602;
3803          if(!(type_of((V588))!=t_cons)){          if(!(type_of((V601))!=t_cons)){
3804          goto T1224;}          goto T1224;}
3805          V589= (V588);          V602= (V601);
3806          goto T1222;          goto T1222;
3807          goto T1224;          goto T1224;
3808  T1224:;  T1224:;
3809          V589= CMPcar((V588));          V602= CMPcar((V601));
3810          goto T1222;          goto T1222;
3811  T1222:;  T1222:;
3812          if(!(type_of((V589))!=t_cons)){          if(!(type_of((V602))!=t_cons)){
3813          goto T1227;}          goto T1227;}
3814          base[0]= symbol_name((V589));          base[0]= symbol_name((V602));
3815          base[2]= VV[222];          base[2]= VV[222];
3816          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3817          Lfind_package();          Lfind_package();
# Line 3807  T1222:; Line 3820  T1222:;
3820          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3821          Lintern();          Lintern();
3822          vs_top=sup;          vs_top=sup;
3823          {object V590 = vs_base[0];          {object V603 = vs_base[0];
3824          VMR55(V590)}          VMR55(V603)}
3825          goto T1227;          goto T1227;
3826  T1227:;  T1227:;
3827          {object V591 = CMPcar((V589));          {object V604 = CMPcar((V602));
3828          VMR55(V591)}}          VMR55(V604)}}
3829          base[0]=base[0];          base[0]=base[0];
3830          return Cnil;          return Cnil;
3831  }  }
3832  /*      local entry for function FTYPE-DECLARATION-FROM-LAMBDA-LIST     */  /*      local entry for function FTYPE-DECLARATION-FROM-LAMBDA-LIST     */
3833    
3834  static object LI66(V593)  static object LI66(V606)
3835    
3836  object V593;  object V606;
3837  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
3838          goto TTL;          goto TTL;
3839  TTL:;  TTL:;
3840          {object V594;          {object V607;
3841          object V595;          object V608;
3842          object V596;          object V609;
3843          object V597;          object V610;
3844          object V598;          object V611;
3845          object V599;          object V612;
3846          object V600;          object V613;
3847          base[0]= (V593);          base[0]= (V606);
3848          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3849          (void) (*Lnk408)();          (void) (*Lnk408)();
3850          if(vs_base>=vs_top){vs_top=sup;goto T1234;}          if(vs_base>=vs_top){vs_top=sup;goto T1234;}
3851          V594= vs_base[0];          V607= vs_base[0];
3852          vs_base++;          vs_base++;
3853          if(vs_base>=vs_top){vs_top=sup;goto T1235;}          if(vs_base>=vs_top){vs_top=sup;goto T1235;}
3854          V595= vs_base[0];          V608= vs_base[0];
3855          vs_base++;          vs_base++;
3856          if(vs_base>=vs_top){vs_top=sup;goto T1236;}          if(vs_base>=vs_top){vs_top=sup;goto T1236;}
3857          V596= vs_base[0];          V609= vs_base[0];
3858          vs_base++;          vs_base++;
3859          if(vs_base>=vs_top){vs_top=sup;goto T1237;}          if(vs_base>=vs_top){vs_top=sup;goto T1237;}
3860          V597= vs_base[0];          V610= vs_base[0];
3861          vs_base++;          vs_base++;
3862          if(vs_base>=vs_top){vs_top=sup;goto T1238;}          if(vs_base>=vs_top){vs_top=sup;goto T1238;}
3863          V598= vs_base[0];          V611= vs_base[0];
3864          vs_base++;          vs_base++;
3865          if(vs_base>=vs_top){vs_top=sup;goto T1239;}          if(vs_base>=vs_top){vs_top=sup;goto T1239;}
3866          V599= vs_base[0];          V612= vs_base[0];
3867          vs_base++;          vs_base++;
3868          if(vs_base>=vs_top){vs_top=sup;goto T1240;}          if(vs_base>=vs_top){vs_top=sup;goto T1240;}
3869          V600= vs_base[0];          V613= vs_base[0];
3870          vs_top=sup;          vs_top=sup;
3871          goto T1241;          goto T1241;
3872          goto T1234;          goto T1234;
3873  T1234:;  T1234:;
3874          V594= Cnil;          V607= Cnil;
3875          goto T1235;          goto T1235;
3876  T1235:;  T1235:;
3877          V595= Cnil;          V608= Cnil;
3878          goto T1236;          goto T1236;
3879  T1236:;  T1236:;
3880          V596= Cnil;          V609= Cnil;
3881          goto T1237;          goto T1237;
3882  T1237:;  T1237:;
3883          V597= Cnil;          V610= Cnil;
3884          goto T1238;          goto T1238;
3885  T1238:;  T1238:;
3886          V598= Cnil;          V611= Cnil;
3887          goto T1239;          goto T1239;
3888  T1239:;  T1239:;
3889          V599= Cnil;          V612= Cnil;
3890          goto T1240;          goto T1240;
3891  T1240:;  T1240:;
3892          V600= Cnil;          V613= Cnil;
3893          goto T1241;          goto T1241;
3894  T1241:;  T1241:;
3895          {object V601;          {object V614;
3896          {object V602;          {object V615;
3897          object V603= (V599);          object V616= (V612);
3898          if(V603==Cnil){          if(V616==Cnil){
3899          V601= Cnil;          V614= Cnil;
3900          goto T1242;}          goto T1242;}
3901          base[1]=V602=MMcons(Cnil,Cnil);          base[1]=V615=MMcons(Cnil,Cnil);
3902          goto T1243;          goto T1243;
3903  T1243:;  T1243:;
3904          (V602->c.c_car)= (*(LnkLI409))((V603->c.c_car));          (V615->c.c_car)= (*(LnkLI409))((V616->c.c_car));
3905          if((V603=MMcdr(V603))==Cnil){          if((V616=MMcdr(V616))==Cnil){
3906          V601= base[1];          V614= base[1];
3907          goto T1242;}          goto T1242;}
3908          V602=MMcdr(V602)=MMcons(Cnil,Cnil);          V615=MMcdr(V615)=MMcons(Cnil,Cnil);
3909          goto T1243;}          goto T1243;}
3910          goto T1242;          goto T1242;
3911  T1242:;  T1242:;
3912          base[2]= (V594);          base[2]= (V607);
3913          base[3]= VV[223];          base[3]= VV[223];
3914          base[4]= Ct;          base[4]= Ct;
3915          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
3916          Lmake_list();          Lmake_list();
3917          vs_top=sup;          vs_top=sup;
3918          base[1]= vs_base[0];          base[1]= vs_base[0];
3919          if(!(number_compare(small_fixnum(0),(V595))<0)){          if(!(number_compare(small_fixnum(0),(V608))<0)){
3920          goto T1252;}          goto T1252;}
3921          base[3]= (V595);          base[3]= (V608);
3922          base[4]= VV[223];          base[4]= VV[223];
3923          base[5]= Ct;          base[5]= Ct;
3924          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3925          Lmake_list();          Lmake_list();
3926          vs_top=sup;          vs_top=sup;
3927          V605= vs_base[0];          V618= vs_base[0];
3928          base[2]= append(VV[224],V605);          base[2]= append(VV[224],V618);
3929          goto T1250;          goto T1250;
3930          goto T1252;          goto T1252;
3931  T1252:;  T1252:;
3932          base[2]= Cnil;          base[2]= Cnil;
3933          goto T1250;          goto T1250;
3934  T1250:;  T1250:;
3935          if(((V597))==Cnil){          if(((V610))==Cnil){
3936          goto T1260;}          goto T1260;}
3937          base[3]= VV[225];          base[3]= VV[225];
3938          goto T1258;          goto T1258;
# Line 3928  T1260:; Line 3941  T1260:;
3941          base[3]= Cnil;          base[3]= Cnil;
3942          goto T1258;          goto T1258;
3943  T1258:;  T1258:;
3944          if(((V596))==Cnil){          if(((V609))==Cnil){
3945          goto T1264;}          goto T1264;}
3946          base[5]= VV[226];          base[5]= VV[226];
3947          {object V606;          {object V619;
3948          object V607= (V601);          object V620= (V614);
3949          if(V607==Cnil){          if(V620==Cnil){
3950          base[6]= Cnil;          base[6]= Cnil;
3951          goto T1267;}          goto T1267;}
3952          base[7]=V606=MMcons(Cnil,Cnil);          base[7]=V619=MMcons(Cnil,Cnil);
3953          goto T1268;          goto T1268;
3954  T1268:;  T1268:;
3955          (V606->c.c_car)= list(2,(V607->c.c_car),Ct);          (V619->c.c_car)= list(2,(V620->c.c_car),Ct);
3956          if((V607=MMcdr(V607))==Cnil){          if((V620=MMcdr(V620))==Cnil){
3957          base[6]= base[7];          base[6]= base[7];
3958          goto T1267;}          goto T1267;}
3959          V606=MMcdr(V606)=MMcons(Cnil,Cnil);          V619=MMcdr(V619)=MMcons(Cnil,Cnil);
3960          goto T1268;}          goto T1268;}
3961          goto T1267;          goto T1267;
3962  T1267:;  T1267:;
3963          if(((V598))==Cnil){          if(((V611))==Cnil){
3964          goto T1272;}          goto T1272;}
3965          base[7]= VV[227];          base[7]= VV[227];
3966          goto T1270;          goto T1270;
# Line 3969  T1262:; Line 3982  T1262:;
3982          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
3983          Lappend();          Lappend();
3984          vs_top=sup;          vs_top=sup;
3985          V604= vs_base[0];          V617= vs_base[0];
3986          {object V609 = list(3,VV[34],V604,VV[228]);          {object V622 = list(3,VV[34],V617,VV[228]);
3987          VMR56(V609)}}}          VMR56(V622)}}}
3988          base[0]=base[0];          base[0]=base[0];
3989          return Cnil;          return Cnil;
3990  }  }
3991  /*      local entry for function PROCLAIM-DEFGENERIC    */  /*      local entry for function PROCLAIM-DEFGENERIC    */
3992    
3993  static object LI67(V612,V613)  static object LI67(V625,V626)
3994    
3995  register object V612;object V613;  register object V625;object V626;
3996  {        VMB57 VMS57 VMV57  {        VMB57 VMS57 VMV57
3997          goto TTL;          goto TTL;
3998  TTL:;  TTL:;
3999          if(!(type_of((V612))==t_cons)){          if(!(type_of((V625))==t_cons)){
4000          goto T1274;}          goto T1274;}
4001          V612= (*(LnkLI410))(CMPcadr((V612)));          V625= (*(LnkLI410))(CMPcadr((V625)));
4002          goto T1274;          goto T1274;
4003  T1274:;  T1274:;
4004          {object V614 = sputprop((V612),VV[229],Ct);          {object V627 = sputprop((V625),VV[229],Ct);
4005          VMR57(V614)}          VMR57(V627)}
4006          return Cnil;          return Cnil;
4007  }  }
4008  /*      function definition for ENSURE-GENERIC-FUNCTION */  /*      function definition for ENSURE-GENERIC-FUNCTION */
# Line 3998  static void L68() Line 4011  static void L68()
4011  {register object *base=vs_base;  {register object *base=vs_base;
4012          register object *sup=base+VM58; VC58          register object *sup=base+VM58; VC58
4013          vs_check;          vs_check;
4014          {register object V615;          {register object V628;
4015          object V616;          object V629;
4016          object V617;          object V630;
4017          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
4018          parse_key(vs_base+1,TRUE,TRUE,1,VV[295]);          parse_key(vs_base+1,TRUE,TRUE,1,VV[295]);
4019          V615=(base[0]);          V628=(base[0]);
4020          vs_top=sup;          vs_top=sup;
4021          V616=(base[1]);          V629=(base[1]);
4022          V617=(base[2]);          V630=(base[2]);
4023          {object V618;          {object V631;
4024          if(((*(LnkLI355))((V615)))!=Cnil){          if(((*(LnkLI355))((V628)))!=Cnil){
4025          goto T1279;}          goto T1279;}
4026          V618= Cnil;          V631= Cnil;
4027          goto T1278;          goto T1278;
4028          goto T1279;          goto T1279;
4029  T1279:;  T1279:;
4030          V618= (*(LnkLI356))((V615));          V631= (*(LnkLI356))((V628));
4031          goto T1278;          goto T1278;
4032  T1278:;  T1278:;
4033          if(((V618))==Cnil){          if(((V631))==Cnil){
4034          goto T1282;}          goto T1282;}
4035          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
4036          goto T1282;}          goto T1282;}
4037          base[4]= (V618);          base[4]= (V631);
4038          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4039          (void) (*Lnk357)(Lclptr357);          (void) (*Lnk357)(Lclptr357);
4040          vs_top=sup;          vs_top=sup;
4041          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4042          goto T1282;}          goto T1282;}
4043          base[4]= (*(LnkLI411))((V615));          base[4]= (*(LnkLI411))((V628));
4044          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4045          return;          return;
4046          goto T1282;          goto T1282;
4047  T1282:;  T1282:;
4048          base[4]=VV[412]->s.s_gfdef;          base[4]=VV[412]->s.s_gfdef;
4049          base[5]= (V618);          base[5]= (V631);
4050          base[6]= (V615);          base[6]= (V628);
4051          {object V619;          {object V632;
4052          V619= (V616);          V632= (V629);
4053           vs_top=base+7;           vs_top=base+7;
4054           while(V619!=Cnil)           while(V632!=Cnil)
4055           {vs_push((V619)->c.c_car);V619=(V619)->c.c_cdr;}           {vs_push((V632)->c.c_car);V632=(V632)->c.c_cdr;}
4056          vs_base=base+5;}          vs_base=base+5;}
4057          funcall(base[4]);          funcall(base[4]);
4058          return;}          return;}
# Line 4047  T1282:; Line 4060  T1282:;
4060  }  }
4061  /*      local entry for function GENERIC-CLOBBERS-FUNCTION      */  /*      local entry for function GENERIC-CLOBBERS-FUNCTION      */
4062    
4063  static object LI69(V621)  static object LI69(V634)
4064    
4065  object V621;  object V634;
4066  {        VMB59 VMS59 VMV59  {        VMB59 VMS59 VMV59
4067          goto TTL;          goto TTL;
4068  TTL:;  TTL:;
4069          base[0]= VV[230];          base[0]= VV[230];
4070          base[1]= (V621);          base[1]= (V634);
4071          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4072          Lerror();          Lerror();
4073          vs_top=sup;          vs_top=sup;
4074          {object V622 = vs_base[0];          {object V635 = vs_base[0];
4075          VMR59(V622)}          VMR59(V635)}
4076          base[0]=base[0];          base[0]=base[0];
4077          return Cnil;          return Cnil;
4078  }  }
4079  /*      local entry for function EARLY-GF-P     */  /*      local entry for function EARLY-GF-P     */
4080    
4081  static object LI70(V624)  static object LI70(V637)
4082    
4083  register object V624;  register object V637;
4084  {        VMB60 VMS60 VMV60  {        VMB60 VMS60 VMV60
4085          goto TTL;          goto TTL;
4086  TTL:;{object V625;  TTL:;{object V638;
4087          V625= (VV[147]->s.s_dbind);          V638= (VV[147]->s.s_dbind);
4088          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
4089          base[1]= (V624);          base[1]= (V637);
4090          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4091          (void) (*Lnk390)();          (void) (*Lnk390)();
4092          vs_top=sup;          vs_top=sup;
4093          V626= vs_base[0];          V639= vs_base[0];
4094          if((V625)==(CMPcar(V626))){          if((V638)==(CMPcar(V639))){
4095          goto T1294;}}          goto T1294;}}
4096          {object V627 = Cnil;          {object V640 = Cnil;
4097          VMR60(V627)}          VMR60(V640)}
4098          goto T1294;          goto T1294;
4099  T1294:;  T1294:;
4100          if(type_of(V624)==t_structure){          if(type_of(V637)==t_structure){
4101          goto T1303;}          goto T1303;}
4102          goto T1301;          goto T1301;
4103          goto T1303;          goto T1303;
4104  T1303:;  T1303:;
4105          if(!(((V624)->str.str_def)==(VV[231]))){          if(!(((V637)->str.str_def)==(VV[231]))){
4106          goto T1301;}          goto T1301;}
4107          V628= STREF(object,(V624),4);          V641= STREF(object,(V637),4);
4108          goto T1299;          goto T1299;
4109          goto T1301;          goto T1301;
4110  T1301:;{object V630;  T1301:;{object V643;
4111          V630= (VV[147]->s.s_dbind);          V643= (VV[147]->s.s_dbind);
4112          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
4113          base[1]= (V624);          base[1]= (V637);
4114          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4115          (void) (*Lnk390)();          (void) (*Lnk390)();
4116          vs_top=sup;          vs_top=sup;
4117          V631= vs_base[0];          V644= vs_base[0];
4118          if(!((V630)==(CMPcar(V631)))){          if(!((V643)==(CMPcar(V644)))){
4119          goto T1306;}}          goto T1306;}}
4120          V628= CMPcar(((V624))->cc.cc_turbo[12]);          V641= CMPcar(((V637))->cc.cc_turbo[12]);
4121          goto T1299;          goto T1299;
4122          goto T1306;          goto T1306;
4123  T1306:;  T1306:;
# Line 4112  T1306:; Line 4125  T1306:;
4125          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4126          Lerror();          Lerror();
4127          vs_top=sup;          vs_top=sup;
4128          V628= vs_base[0];          V641= vs_base[0];
4129          goto T1299;          goto T1299;
4130  T1299:;  T1299:;
4131          {object V632 = (((V628)->v.v_self[fix((VV[232]->s.s_dbind))])==((VV[132]->s.s_dbind))?Ct:Cnil);          V645 = (VV[232]->s.s_dbind);
4132          VMR60(V632)}          {object V646 = (((V641)->v.v_self[fix(V645)])==((VV[132]->s.s_dbind))?Ct:Cnil);
4133            VMR60(V646)}
4134          base[0]=base[0];          base[0]=base[0];
4135          return Cnil;          return Cnil;
4136  }  }
# Line 4128  static void L71() Line 4142  static void L71()
4142          vs_check;          vs_check;
4143          check_arg(2);          check_arg(2);
4144          vs_top=sup;          vs_top=sup;
4145          {object V633=base[0]->c.c_cdr;          {object V647=base[0]->c.c_cdr;
4146          if(endp(V633))invalid_macro_call();          if(endp(V647))invalid_macro_call();
4147          base[2]= (V633->c.c_car);          base[2]= (V647->c.c_car);
4148          V633=V633->c.c_cdr;          V647=V647->c.c_cdr;
4149          if(!endp(V633))invalid_macro_call();}          if(!endp(V647))invalid_macro_call();}
4150          base[3]= list(3,VV[233],list(2,VV[234],base[2]),VV[235]);          base[3]= list(3,VV[233],list(2,VV[234],base[2]),VV[235]);
4151          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4152          return;          return;
# Line 4145  static void L72() Line 4159  static void L72()
4159          vs_check;          vs_check;
4160          check_arg(2);          check_arg(2);
4161          vs_top=sup;          vs_top=sup;
4162          {object V634=base[0]->c.c_cdr;          {object V648=base[0]->c.c_cdr;
4163          if(endp(V634))invalid_macro_call();          if(endp(V648))invalid_macro_call();
4164          base[2]= (V634->c.c_car);          base[2]= (V648->c.c_car);
4165          V634=V634->c.c_cdr;          V648=V648->c.c_cdr;
4166          if(!endp(V634))invalid_macro_call();}          if(!endp(V648))invalid_macro_call();}
4167          base[3]= list(3,VV[233],list(2,VV[234],base[2]),VV[236]);          base[3]= list(3,VV[233],list(2,VV[234],base[2]),VV[236]);
4168          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4169          return;          return;
# Line 4160  static object LI73(object first,...) Line 4174  static object LI73(object first,...)
4174  {        {      
4175          va_list ap;          va_list ap;
4176          int narg = VFUN_NARGS; VMB63 VMS63 VMV63          int narg = VFUN_NARGS; VMB63 VMS63 VMV63
4177          {object V635;          {object V649;
4178          object V636;          object V650;
4179          object V637;          object V651;
4180          object V638;          object V652;
4181          object V639;          object V653;
4182          object V640;          object V654;
4183          object V641;          object V655;
4184          object V642;          object V656;
4185          object V643;          object V657;
4186          object V644;          object V658;
4187          object V645;          object V659;
4188          va_start(ap,first);          va_start(ap,first);
4189          narg= narg - 0;          narg= narg - 0;
4190          {          {
4191          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI73key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI73key,first,ap);
4192          V635=(Vcs[0]);          V649=(Vcs[0]);
4193          V636=(Vcs[1]);          V650=(Vcs[1]);
4194          V637=(Vcs[2]);          V651=(Vcs[2]);
4195          V638=(Vcs[3]);          V652=(Vcs[3]);
4196          V639=(Vcs[4]);          V653=(Vcs[4]);
4197          V640=(Vcs[5]);          V654=(Vcs[5]);
4198          V641=(Vcs[6]);          V655=(Vcs[6]);
4199          V642=(Vcs[7]);          V656=(Vcs[7]);
4200          V643=(Vcs[8]);          V657=(Vcs[8]);
4201          if(Vcs[9]==0){          if(Vcs[9]==0){
4202          V644= Ct;          V658= Ct;
4203          }else{          }else{
4204          V644=(Vcs[9]);}          V658=(Vcs[9]);}
4205          V645=(Vcs[10]);          V659=(Vcs[10]);
4206          base[0]= VV[238];          base[0]= VV[238];
4207          base[1]= (V635);          base[1]= (V649);
4208          base[2]= (V636);          base[2]= (V650);
4209          base[3]= (V637);          base[3]= (V651);
4210          base[4]= (V638);          base[4]= (V652);
4211          base[5]= (V639);          base[5]= (V653);
4212          base[6]= (V640);          base[6]= (V654);
4213          base[7]= (V641);          base[7]= (V655);
4214          base[8]= (V642);          base[8]= (V656);
4215          base[9]= (V643);          base[9]= (V657);
4216          base[10]= (V644);          base[10]= (V658);
4217          base[11]= (V645);          base[11]= (V659);
4218          vs_top=(vs_base=base+0)+12;          vs_top=(vs_base=base+0)+12;
4219          siLmake_structure();          siLmake_structure();
4220          vs_top=sup;          vs_top=sup;
4221          {object V646 = vs_base[0];          {object V660 = vs_base[0];
4222          VMR63(V646)}          VMR63(V660)}
4223          va_end(ap);          va_end(ap);
4224          base[0]=base[0];          base[0]=base[0];
4225          return Cnil;}          return Cnil;}
# Line 4232  TTL:; Line 4246  TTL:;
4246          vs_top=(vs_base=base+0)+12;          vs_top=(vs_base=base+0)+12;
4247          siLmake_structure();          siLmake_structure();
4248          vs_top=sup;          vs_top=sup;
4249          {object V658 = vs_base[0];          {object V672 = vs_base[0];
4250          VMR64(V658)}          VMR64(V672)}
4251          base[0]=base[0];          base[0]=base[0];
4252          return Cnil;          return Cnil;
4253  }  }
4254  /*      local entry for function ARG-INFO-VALID-P       */  /*      local entry for function ARG-INFO-VALID-P       */
4255    
4256  static object LI75(V660)  static object LI75(V674)
4257    
4258  object V660;  object V674;
4259  {        VMB65 VMS65 VMV65  {        VMB65 VMS65 VMV65
4260          goto TTL;          goto TTL;
4261  TTL:;  TTL:;
4262          {object V661 = ((((STREF(object,(V660),12))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          {object V675 = ((((STREF(object,(V674),12))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
4263          VMR65(V661)}          VMR65(V675)}
4264          return Cnil;          return Cnil;
4265  }  }
4266  /*      local entry for function ARG-INFO-APPLYP        */  /*      local entry for function ARG-INFO-APPLYP        */
4267    
4268  static object LI76(V663)  static object LI76(V677)
4269    
4270  object V663;  object V677;
4271  {        VMB66 VMS66 VMV66  {        VMB66 VMS66 VMV66
4272          goto TTL;          goto TTL;
4273  TTL:;  TTL:;
4274          if(!((fix(STREF(object,(V663),12)))>0)){          if(!((fix(STREF(object,(V677),12)))>0)){
4275          goto T1337;}          goto T1337;}
4276          {object V664 = Ct;          {object V678 = Ct;
4277          VMR66(V664)}          VMR66(V678)}
4278          goto T1337;          goto T1337;
4279  T1337:;  T1337:;
4280          {object V665 = STREF(object,(V663),16);          {object V679 = STREF(object,(V677),16);
4281          VMR66(V665)}          VMR66(V679)}
4282          return Cnil;          return Cnil;
4283  }  }
4284  /*      local entry for function ARG-INFO-NUMBER-REQUIRED       */  /*      local entry for function ARG-INFO-NUMBER-REQUIRED       */
4285    
4286  static object LI77(V667)  static object LI77(V681)
4287    
4288  object V667;  object V681;
4289  {        VMB67 VMS67 VMV67  {        VMB67 VMS67 VMV67
4290          goto TTL;          goto TTL;
4291  TTL:;  TTL:;
4292          {long V668 = (long)length(STREF(object,(V667),8));          {long V682 = (long)length(STREF(object,(V681),8));
4293          VMR67((object)V668)}          VMR67((object)V682)}
4294  }  }
4295  /*      local entry for function ARG-INFO-NKEYS */  /*      local entry for function ARG-INFO-NKEYS */
4296    
4297  static object LI78(V670)  static object LI78(V684)
4298    
4299  object V670;  object V684;
4300  {        VMB68 VMS68 VMV68  {        VMB68 VMS68 VMV68
4301          goto TTL;          goto TTL;
4302  TTL:;  TTL:;
4303          base[0]= VV[424];          base[0]= VV[424];
4304          base[1]= STREF(object,(V670),8);          base[1]= STREF(object,(V684),8);
4305          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4306          (void) (*Lnk425)();          (void) (*Lnk425)();
4307          vs_top=sup;          vs_top=sup;
4308          {object V671 = vs_base[0];          {object V685 = vs_base[0];
4309          VMR68(V671)}          VMR68(V685)}
4310          base[0]=base[0];          base[0]=base[0];
4311          return Cnil;          return Cnil;
4312  }  }
# Line 4304  static void L79() Line 4318  static void L79()
4318          vs_check;          vs_check;
4319          check_arg(2);          check_arg(2);
4320          vs_top=sup;          vs_top=sup;
4321          {object V672=base[0]->c.c_cdr;          {object V686=base[0]->c.c_cdr;
4322          if(endp(V672))invalid_macro_call();          if(endp(V686))invalid_macro_call();
4323          base[2]= (V672->c.c_car);          base[2]= (V686->c.c_car);
4324          V672=V672->c.c_cdr;          V686=V686->c.c_cdr;
4325          if(endp(V672))invalid_macro_call();          if(endp(V686))invalid_macro_call();
4326          base[3]= (V672->c.c_car);          base[3]= (V686->c.c_car);
4327          V672=V672->c.c_cdr;          V686=V686->c.c_cdr;
4328          if(!endp(V672))invalid_macro_call();}          if(!endp(V686))invalid_macro_call();}
4329          {object V673;          {object V687;
4330          base[4]= VV[239];          base[4]= VV[239];
4331          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4332          Lgensym();          Lgensym();
4333          vs_top=sup;          vs_top=sup;
4334          V673= vs_base[0];          V687= vs_base[0];
4335          V674= list(2,(V673),base[3]);          V688= list(2,(V687),base[3]);
4336          V675= make_cons(/* INLINE-ARGS */V674,Cnil);          V689= make_cons(/* INLINE-ARGS */V688,Cnil);
4337          V676= list(3,VV[241],base[2],(V673));          V690= list(3,VV[241],base[2],(V687));
4338          base[4]= list(3,VV[96],/* INLINE-ARGS */V675,list(3,VV[240],/* INLINE-ARGS */V676,list(3,VV[30],base[2],(V673))));          base[4]= list(3,VV[96],/* INLINE-ARGS */V689,list(3,VV[240],/* INLINE-ARGS */V690,list(3,VV[30],base[2],(V687))));
4339          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4340          return;}          return;}
4341  }  }
4342  /*      local entry for function SET-ARG-INFO   */  /*      local entry for function SET-ARG-INFO   */
4343    
4344  static object LI80(object V677,object first,...)  static object LI80(object V691,object first,...)
4345  {        {      
4346          va_list ap;          va_list ap;
4347          int narg = VFUN_NARGS; VMB70 VMS70 VMV70          int narg = VFUN_NARGS; VMB70 VMS70 VMV70
4348          {register object V678;          {register object V692;
4349          object V679;          object V693;
4350          register object V680;          register object V694;
4351          register object V681;          register object V695;
4352          object V682;          object V696;
4353          va_start(ap,first);          va_start(ap,first);
4354          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
4355          V678= V677;          V692= V691;
4356          narg= narg - 1;          narg= narg - 1;
4357          {          {
4358          parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI80key,first,ap);          parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI80key,first,ap);
4359          V679=(Vcs[1]);          V693=(Vcs[1]);
4360          if(Vcs[2]==0){          if(Vcs[2]==0){
4361          V680= Cnil;          V694= Cnil;
4362          V681= Cnil;          V695= Cnil;
4363          }else{          }else{
4364          V680=(Vcs[2]);          V694=(Vcs[2]);
4365          V681= Ct;}          V695= Ct;}
4366          V682=(Vcs[3]);          V696=(Vcs[3]);
4367          {register object V683;          {register object V697;
4368          object V684;          object V698;
4369          object V685;          object V699;
4370          object V686;          object V700;
4371          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
4372          goto T1346;}          goto T1346;}
4373          base[4]= (V678);          base[4]= (V692);
4374          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4375          (void) (*Lnk393)(Lclptr393);          (void) (*Lnk393)(Lclptr393);
4376          vs_top=sup;          vs_top=sup;
4377          V683= vs_base[0];          V697= vs_base[0];
4378          goto T1344;          goto T1344;
4379          goto T1346;          goto T1346;
4380  T1346:;  T1346:;
4381          if(type_of(V678)==t_structure){          if(type_of(V692)==t_structure){
4382          goto T1353;}          goto T1353;}
4383          goto T1351;          goto T1351;
4384          goto T1353;          goto T1353;
4385  T1353:;  T1353:;
4386          if(!(((V678)->str.str_def)==(VV[242]))){          if(!(((V692)->str.str_def)==(VV[242]))){
4387          goto T1351;}          goto T1351;}
4388          V687= STREF(object,(V678),4);          V701= STREF(object,(V692),4);
4389          goto T1349;          goto T1349;
4390          goto T1351;          goto T1351;
4391  T1351:;{object V689;  T1351:;{object V703;
4392          V689= (VV[147]->s.s_dbind);          V703= (VV[147]->s.s_dbind);
4393          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
4394          base[5]= (V678);          base[5]= (V692);
4395          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4396          (void) (*Lnk390)();          (void) (*Lnk390)();
4397          vs_top=sup;          vs_top=sup;
4398          V690= vs_base[0];          V704= vs_base[0];
4399          if(!((V689)==(CMPcar(V690)))){          if(!((V703)==(CMPcar(V704)))){
4400          goto T1356;}}          goto T1356;}}
4401          V687= CMPcar(((V678))->cc.cc_turbo[12]);          V701= CMPcar(((V692))->cc.cc_turbo[12]);
4402          goto T1349;          goto T1349;
4403          goto T1356;          goto T1356;
4404  T1356:;  T1356:;
# Line 4392  T1356:; Line 4406  T1356:;
4406          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4407          Lerror();          Lerror();
4408          vs_top=sup;          vs_top=sup;
4409          V687= vs_base[0];          V701= vs_base[0];
4410          goto T1349;          goto T1349;
4411  T1349:;  T1349:;
4412          V683= (V687)->v.v_self[fix((VV[236]->s.s_dbind))];          V705 = (VV[236]->s.s_dbind);
4413            V697= (V701)->v.v_self[fix(V705)];
4414          goto T1344;          goto T1344;
4415  T1344:;  T1344:;
4416          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
4417          goto T1364;}          goto T1364;}
4418          base[4]= (V678);          base[4]= (V692);
4419          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4420          (void) (*Lnk426)(Lclptr426);          (void) (*Lnk426)(Lclptr426);
4421          vs_top=sup;          vs_top=sup;
4422          V684= vs_base[0];          V698= vs_base[0];
4423          goto T1362;          goto T1362;
4424          goto T1364;          goto T1364;
4425  T1364:;  T1364:;
4426          if(type_of(V678)==t_structure){          if(type_of(V692)==t_structure){
4427          goto T1371;}          goto T1371;}
4428          goto T1369;          goto T1369;
4429          goto T1371;          goto T1371;
4430  T1371:;  T1371:;
4431          if(!(((V678)->str.str_def)==(VV[243]))){          if(!(((V692)->str.str_def)==(VV[243]))){
4432          goto T1369;}          goto T1369;}
4433          V691= STREF(object,(V678),4);          V706= STREF(object,(V692),4);
4434          goto T1367;          goto T1367;
4435          goto T1369;          goto T1369;
4436  T1369:;{object V693;  T1369:;{object V708;
4437          V693= (VV[147]->s.s_dbind);          V708= (VV[147]->s.s_dbind);
4438          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
4439          base[5]= (V678);          base[5]= (V692);
4440          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4441          (void) (*Lnk390)();          (void) (*Lnk390)();
4442          vs_top=sup;          vs_top=sup;
4443          V694= vs_base[0];          V709= vs_base[0];
4444          if(!((V693)==(CMPcar(V694)))){          if(!((V708)==(CMPcar(V709)))){
4445          goto T1374;}}          goto T1374;}}
4446          V691= CMPcar(((V678))->cc.cc_turbo[12]);          V706= CMPcar(((V692))->cc.cc_turbo[12]);
4447          goto T1367;          goto T1367;
4448          goto T1374;          goto T1374;
4449  T1374:;  T1374:;
# Line 4436  T1374:; Line 4451  T1374:;
4451          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4452          Lerror();          Lerror();
4453          vs_top=sup;          vs_top=sup;
4454          V691= vs_base[0];          V706= vs_base[0];
4455          goto T1367;          goto T1367;
4456  T1367:;  T1367:;
4457          V684= (V691)->v.v_self[fix((VV[235]->s.s_dbind))];          V710 = (VV[235]->s.s_dbind);
4458            V698= (V706)->v.v_self[fix(V710)];
4459          goto T1362;          goto T1362;
4460  T1362:;  T1362:;
4461          {object V695= STREF(object,(V683),12);          {object V711= STREF(object,(V697),12);
4462          V685= (type_of(V695)==t_fixnum||type_of(V695)==t_bignum?Ct:Cnil);}          V699= (type_of(V711)==t_fixnum||type_of(V711)==t_bignum?Ct:Cnil);}
4463          if((V679)==Cnil){          if((V693)==Cnil){
4464          V686= Cnil;          V700= Cnil;
4465          goto T1381;}          goto T1381;}
4466          V686= ((CMPcdr((V684)))==Cnil?Ct:Cnil);          V700= ((CMPcdr((V698)))==Cnil?Ct:Cnil);
4467          goto T1381;          goto T1381;
4468  T1381:;  T1381:;
4469          if(((V681))!=Cnil){          if(((V695))!=Cnil){
4470          goto T1382;}          goto T1382;}
4471          if(((V684))==Cnil){          if(((V698))==Cnil){
4472          goto T1382;}          goto T1382;}
4473          V680= (*(LnkLI427))((V678));          V694= (*(LnkLI427))((V692));
4474          goto T1382;          goto T1382;
4475  T1382:;  T1382:;
4476          if(((V681))!=Cnil){          if(((V695))!=Cnil){
4477          goto T1389;}          goto T1389;}
4478          if(((V686))==Cnil){          if(((V700))==Cnil){
4479          goto T1388;}          goto T1388;}
4480          if(!((STREF(object,(V683),0))==(VV[237]))){          if(!((STREF(object,(V697),0))==(VV[237]))){
4481          goto T1388;}          goto T1388;}
4482          goto T1389;          goto T1389;
4483  T1389:;  T1389:;
4484          {object V696;          {object V712;
4485          object V697;          object V713;
4486          object V698;          object V714;
4487          object V699;          object V715;
4488          object V700;          object V716;
4489          object V701;          object V717;
4490          base[4]= (V680);          base[4]= (V694);
4491          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4492          (void) (*Lnk408)();          (void) (*Lnk408)();
4493          if(vs_base>=vs_top){vs_top=sup;goto T1397;}          if(vs_base>=vs_top){vs_top=sup;goto T1397;}
4494          V696= vs_base[0];          V712= vs_base[0];
4495          vs_base++;          vs_base++;
4496          if(vs_base>=vs_top){vs_top=sup;goto T1398;}          if(vs_base>=vs_top){vs_top=sup;goto T1398;}
4497          V697= vs_base[0];          V713= vs_base[0];
4498          vs_base++;          vs_base++;
4499          if(vs_base>=vs_top){vs_top=sup;goto T1399;}          if(vs_base>=vs_top){vs_top=sup;goto T1399;}
4500          V698= vs_base[0];          V714= vs_base[0];
4501          vs_base++;          vs_base++;
4502          if(vs_base>=vs_top){vs_top=sup;goto T1400;}          if(vs_base>=vs_top){vs_top=sup;goto T1400;}
4503          V699= vs_base[0];          V715= vs_base[0];
4504          vs_base++;          vs_base++;
4505          if(vs_base>=vs_top){vs_top=sup;goto T1401;}          if(vs_base>=vs_top){vs_top=sup;goto T1401;}
4506          V700= vs_base[0];          V716= vs_base[0];
4507          vs_base++;          vs_base++;
4508          if(vs_base>=vs_top){vs_top=sup;goto T1402;}          if(vs_base>=vs_top){vs_top=sup;goto T1402;}
4509          V701= vs_base[0];          V717= vs_base[0];
4510          vs_top=sup;          vs_top=sup;
4511          goto T1403;          goto T1403;
4512          goto T1397;          goto T1397;
4513  T1397:;  T1397:;
4514          V696= Cnil;          V712= Cnil;
4515          goto T1398;          goto T1398;
4516  T1398:;  T1398:;
4517          V697= Cnil;          V713= Cnil;
4518          goto T1399;          goto T1399;
4519  T1399:;  T1399:;
4520          V698= Cnil;          V714= Cnil;
4521          goto T1400;          goto T1400;
4522  T1400:;  T1400:;
4523          V699= Cnil;          V715= Cnil;
4524          goto T1401;          goto T1401;
4525  T1401:;  T1401:;
4526          V700= Cnil;          V716= Cnil;
4527          goto T1402;          goto T1402;
4528  T1402:;  T1402:;
4529          V701= Cnil;          V717= Cnil;
4530          goto T1403;          goto T1403;
4531  T1403:;  T1403:;
4532          if(((V684))==Cnil){          if(((V698))==Cnil){
4533          goto T1404;}          goto T1404;}
4534          if(((V686))!=Cnil){          if(((V700))!=Cnil){
4535          goto T1404;}          goto T1404;}
4536          {object V702;          {object V718;
4537          object V703;          object V719;
4538          object V704;          object V720;
4539          V702= CMPmake_fixnum((long)(*(LnkLI394))((V683)));          V718= CMPmake_fixnum((long)(*(LnkLI394))((V697)));
4540          V703= STREF(object,(V683),12);          V719= STREF(object,(V697),12);
4541          V704= STREF(object,(V683),16);          V720= STREF(object,(V697),16);
4542          if(!(number_compare((V696),(V702))==0)){          if(!(number_compare((V712),(V718))==0)){
4543          goto T1412;}          goto T1412;}
4544          if(!(number_compare((V697),(V703))==0)){          if(!(number_compare((V713),(V719))==0)){
4545          goto T1412;}          goto T1412;}
4546          if((V698)!=Cnil){          if((V714)!=Cnil){
4547          V705= (V698);          V721= (V714);
4548          goto T1418;}          goto T1418;}
4549          V705= (V699);          V721= (V715);
4550          goto T1418;          goto T1418;
4551  T1418:;  T1418:;
4552          if((V705)==((V704))){          V722 = (V720);
4553            if((V721)==(V722)){
4554          goto T1404;}          goto T1404;}
4555          goto T1412;          goto T1412;
4556  T1412:;  T1412:;
4557          base[4]= VV[244];          base[4]= VV[244];
4558          base[5]= (V680);          base[5]= (V694);
4559          base[6]= (V678);          base[6]= (V692);
4560          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4561          Lerror();          Lerror();
4562          vs_top=sup;}          vs_top=sup;}
4563          goto T1404;          goto T1404;
4564  T1404:;  T1404:;
4565          if(((V681))==Cnil){          if(((V695))==Cnil){
4566          goto T1422;}          goto T1422;}
4567          if(equal(STREF(object,(V683),0),V680)){          if(equal(STREF(object,(V697),0),V694)){
4568          goto T1422;}          goto T1422;}
4569          V707= Ct;          V724 = (V697);
4570          STSET(object,(V683),0, V680);          V725 = V694;
4571          (void)(V680);          V726= Ct;
4572            STSET(object,V724,0, V725);
4573            (void)(V725);
4574          goto T1422;          goto T1422;
4575  T1422:;  T1422:;
4576          if(((V681))!=Cnil){          if(((V695))!=Cnil){
4577          goto T1428;}          goto T1428;}
4578          if(((V682))!=Cnil){          if(((V696))!=Cnil){
4579          goto T1428;}          goto T1428;}
4580          if((STREF(object,(V683),4))!=Cnil){          if((STREF(object,(V697),4))!=Cnil){
4581          goto T1427;}          goto T1427;}
4582          goto T1428;          goto T1428;
4583  T1428:;  T1428:;
4584          {object V708;          {object V727;
4585          V708= (*(LnkLI428))((V680),(V696),(V682));          V727= (*(LnkLI428))((V694),(V712),(V696));
4586          if(equal(STREF(object,(V683),4),(V708))){          if(equal(STREF(object,(V697),4),(V727))){
4587          goto T1427;}          goto T1427;}
4588          V709= Ct;          V728 = (V697);
4589          STSET(object,(V683),4, (V708));          V729 = (V727);
4590          (void)((V708));}          V730= Ct;
4591            STSET(object,V728,4, V729);
4592            (void)(V729);}
4593          goto T1427;          goto T1427;
4594  T1427:;  T1427:;
4595          {object V710;          {object V731;
4596          base[4]= (V696);          base[4]= (V712);
4597          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4598          Lmake_list();          Lmake_list();
4599          vs_top=sup;          vs_top=sup;
4600          V710= vs_base[0];          V731= vs_base[0];
4601          if(equal(STREF(object,(V683),8),(V710))){          if(equal(STREF(object,(V697),8),(V731))){
4602          goto T1437;}          goto T1437;}
4603          V711= Ct;          V732 = (V697);
4604          STSET(object,(V683),8, (V710));          V733 = (V731);
4605          (void)((V710));}          V734= Ct;
4606            STSET(object,V732,8, V733);
4607            (void)(V733);}
4608          goto T1437;          goto T1437;
4609  T1437:;  T1437:;
4610          if(equal(STREF(object,(V683),12),V697)){          if(equal(STREF(object,(V697),12),V713)){
4611          goto T1442;}          goto T1442;}
4612          V713= Ct;          V736 = (V697);
4613          STSET(object,(V683),12, V697);          V737 = V713;
4614          (void)(V697);          V738= Ct;
4615            STSET(object,V736,12, V737);
4616            (void)(V737);
4617          goto T1442;          goto T1442;
4618  T1442:;  T1442:;
4619          {object V714;          {object V739;
4620          if((V698)!=Cnil){          if((V714)!=Cnil){
4621          V715= (V698);          V740= (V714);
4622          goto T1447;}          goto T1447;}
4623          V715= (V699);          V740= (V715);
4624          goto T1447;          goto T1447;
4625  T1447:;  T1447:;
4626          V714= ((((V715)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);          V739= ((((V740)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
4627          if(equal(STREF(object,(V683),16),(V714))){          if(equal(STREF(object,(V697),16),(V739))){
4628          goto T1445;}          goto T1445;}
4629          V716= Ct;          V741 = (V697);
4630          STSET(object,(V683),16, (V714));          V742 = (V739);
4631          (void)((V714));}          V743= Ct;
4632            STSET(object,V741,16, V742);
4633            (void)(V742);}
4634          goto T1445;          goto T1445;
4635  T1445:;  T1445:;
4636          {object V717;          {object V744;
4637          if(((V681))==Cnil){          if(((V695))==Cnil){
4638          goto T1452;}          goto T1452;}
4639          if(((V700))==Cnil){          if(((V716))==Cnil){
4640          goto T1455;}          goto T1455;}
4641          V717= Ct;          V744= Ct;
4642          goto T1450;          goto T1450;
4643          goto T1455;          goto T1455;
4644  T1455:;  T1455:;
4645          V717= (V701);          V744= (V717);
4646          goto T1450;          goto T1450;
4647          goto T1452;          goto T1452;
4648  T1452:;  T1452:;
4649          V717= STREF(object,(V683),16);          V744= STREF(object,(V697),16);
4650          goto T1450;          goto T1450;
4651  T1450:;  T1450:;
4652          if(equal(STREF(object,(V683),20),(V717))){          if(equal(STREF(object,(V697),20),(V744))){
4653          goto T1388;}          goto T1388;}
4654          V718= Ct;          V745 = (V697);
4655          STSET(object,(V683),20, (V717));          V746 = (V744);
4656          (void)((V717));}}          V747= Ct;
4657            STSET(object,V745,20, V746);
4658            (void)(V746);}}
4659          goto T1388;          goto T1388;
4660  T1388:;  T1388:;
4661          if(((V679))==Cnil){          if(((V693))==Cnil){
4662          goto T1459;}          goto T1459;}
4663          base[4]= (V678);          base[4]= (V692);
4664          base[5]= (V683);          base[5]= (V697);
4665          base[6]= (V679);          base[6]= (V693);
4666          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4667          (void) (*Lnk429)();          (void) (*Lnk429)();
4668          vs_top=sup;          vs_top=sup;
4669          goto T1459;          goto T1459;
4670  T1459:;  T1459:;
4671          (void)((*(LnkLI430))((V678),(V683),(V679),(V684),(V685),(V686)));          (void)((*(LnkLI430))((V692),(V697),(V693),(V698),(V699),(V700)));
4672          {object V719 = (V683);          {object V748 = (V697);
4673          VMR70(V719)}}          VMR70(V748)}}
4674          va_end(ap);          va_end(ap);
4675          base[0]=base[0];          base[0]=base[0];
4676          return Cnil;}          return Cnil;}
# Line 4652  static void L81() Line 4681  static void L81()
4681  {register object *base=vs_base;  {register object *base=vs_base;
4682          register object *sup=base+VM71; VC71          register object *sup=base+VM71; VC71
4683          vs_check;          vs_check;
4684          {register object V720;          {register object V749;
4685          check_arg(3);          check_arg(3);
4686          V720=(base[1]);          V749=(base[1]);
4687          vs_top=sup;          vs_top=sup;
4688          goto TTL;          goto TTL;
4689  TTL:;  TTL:;
4690          {object V721;          {object V750;
4691          object V722;          object V751;
4692          object V723;          object V752;
4693          object V724;          object V753;
4694          object V725;          object V754;
4695          if(!(type_of(base[2])==t_cons)){          if(!(type_of(base[2])==t_cons)){
4696          goto T1469;}          goto T1469;}
4697          base[4]= (*(LnkLI431))(base[2]);          base[4]= (*(LnkLI431))(base[2]);
# Line 4679  T1467:; Line 4708  T1467:;
4708          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4709          (void) (*Lnk408)();          (void) (*Lnk408)();
4710          if(vs_base>=vs_top){vs_top=sup;goto T1472;}          if(vs_base>=vs_top){vs_top=sup;goto T1472;}
4711          V721= vs_base[0];          V750= vs_base[0];
4712          vs_base++;          vs_base++;
4713          if(vs_base>=vs_top){vs_top=sup;goto T1473;}          if(vs_base>=vs_top){vs_top=sup;goto T1473;}
4714          V722= vs_base[0];          V751= vs_base[0];
4715          vs_base++;          vs_base++;
4716          if(vs_base>=vs_top){vs_top=sup;goto T1474;}          if(vs_base>=vs_top){vs_top=sup;goto T1474;}
4717          V723= vs_base[0];          V752= vs_base[0];
4718          vs_base++;          vs_base++;
4719          if(vs_base>=vs_top){vs_top=sup;goto T1475;}          if(vs_base>=vs_top){vs_top=sup;goto T1475;}
4720          V724= vs_base[0];          V753= vs_base[0];
4721          vs_base++;          vs_base++;
4722          if(vs_base>=vs_top){vs_top=sup;goto T1476;}          if(vs_base>=vs_top){vs_top=sup;goto T1476;}
4723          V725= vs_base[0];          V754= vs_base[0];
4724          vs_base++;          vs_base++;
4725          if(vs_base>=vs_top){vs_top=sup;goto T1477;}          if(vs_base>=vs_top){vs_top=sup;goto T1477;}
4726          base[3]=MMcons(vs_base[0],Cnil);          base[3]=MMcons(vs_base[0],Cnil);
# Line 4699  T1467:; Line 4728  T1467:;
4728          goto T1478;          goto T1478;
4729          goto T1472;          goto T1472;
4730  T1472:;  T1472:;
4731          V721= Cnil;          V750= Cnil;
4732          goto T1473;          goto T1473;
4733  T1473:;  T1473:;
4734          V722= Cnil;          V751= Cnil;
4735          goto T1474;          goto T1474;
4736  T1474:;  T1474:;
4737          V723= Cnil;          V752= Cnil;
4738          goto T1475;          goto T1475;
4739  T1475:;  T1475:;
4740          V724= Cnil;          V753= Cnil;
4741          goto T1476;          goto T1476;
4742  T1476:;  T1476:;
4743          V725= Cnil;          V754= Cnil;
4744          goto T1477;          goto T1477;
4745  T1477:;  T1477:;
4746          base[3]=MMcons(Cnil,Cnil);          base[3]=MMcons(Cnil,Cnil);
4747          goto T1478;          goto T1478;
4748  T1478:;  T1478:;
4749          {object V726;          {object V755;
4750          object V727;          object V756;
4751          object V728;          object V757;
4752          object V729;          object V758;
4753          V726= CMPmake_fixnum((long)(*(LnkLI394))((V720)));          V755= CMPmake_fixnum((long)(*(LnkLI394))((V749)));
4754          V727= STREF(object,(V720),12);          V756= STREF(object,(V749),12);
4755          V728= STREF(object,(V720),16);          V757= STREF(object,(V749),16);
4756          V729= STREF(object,(V720),20);          V758= STREF(object,(V749),20);
4757          if(number_compare((V721),(V726))==0){          if(number_compare((V750),(V755))==0){
4758          goto T1483;}          goto T1483;}
4759          base[4]= VV[245];          base[4]= VV[245];
4760          base[6]= (V721);          base[6]= (V750);
4761          base[7]= (V726);          base[7]= (V755);
4762          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
4763          L83(base);          L83(base);
4764          vs_top=sup;          vs_top=sup;
# Line 4739  T1478:; Line 4768  T1478:;
4768          vs_top=sup;          vs_top=sup;
4769          goto T1483;          goto T1483;
4770  T1483:;  T1483:;
4771          if(number_compare((V722),(V727))==0){          if(number_compare((V751),(V756))==0){
4772          goto T1490;}          goto T1490;}
4773          base[4]= VV[246];          base[4]= VV[246];
4774          base[6]= (V722);          base[6]= (V751);
4775          base[7]= (V727);          base[7]= (V756);
4776          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
4777          L83(base);          L83(base);
4778          vs_top=sup;          vs_top=sup;
# Line 4753  T1483:; Line 4782  T1483:;
4782          vs_top=sup;          vs_top=sup;
4783          goto T1490;          goto T1490;
4784  T1490:;  T1490:;
4785          if((V723)!=Cnil){          if((V752)!=Cnil){
4786          V730= (V723);          V759= (V752);
4787          goto T1500;}          goto T1500;}
4788          V730= (V724);          V759= (V753);
4789          goto T1500;          goto T1500;
4790  T1500:;  T1500:;
4791          if((V730)==((V728))){          V760 = (V757);
4792            if((V759)==(V760)){
4793          goto T1497;}          goto T1497;}
4794          base[4]= VV[247];          base[4]= VV[247];
4795          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 4767  T1500:; Line 4797  T1500:;
4797          vs_top=sup;          vs_top=sup;
4798          goto T1497;          goto T1497;
4799  T1497:;  T1497:;
4800          if(!(type_of((V729))==t_cons)){          if(!(type_of((V758))==t_cons)){
4801          goto T1503;}          goto T1503;}
4802          if(((V724))==Cnil){          if(((V753))==Cnil){
4803          goto T1507;}          goto T1507;}
4804          if(((V723))==Cnil){          if(((V752))==Cnil){
4805          goto T1506;}          goto T1506;}
4806          goto T1507;          goto T1507;
4807  T1507:;  T1507:;
4808          if(((V725))!=Cnil){          if(((V754))!=Cnil){
4809          goto T1506;}          goto T1506;}
4810          base[4]=          base[4]=
4811          make_cclosure_new(LC133,Cnil,base[3],Cdata);          make_cclosure_new(LC133,Cnil,base[3],Cdata);
4812          base[5]= (V729);          base[5]= (V758);
4813          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4814          (void) (*Lnk366)();          (void) (*Lnk366)();
4815          vs_top=sup;          vs_top=sup;
4816          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4817          goto T1506;}          goto T1506;}
4818          base[4]= VV[248];          base[4]= VV[248];
4819          base[5]= (V729);          base[5]= (V758);
4820          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4821          L82(base);          L82(base);
4822          return;          return;
# Line 4804  T1503:; Line 4834  T1503:;
4834  }  }
4835  /*      local entry for function SET-ARG-INFO1  */  /*      local entry for function SET-ARG-INFO1  */
4836    
4837  static object LI84(V737,V738,V739,V740,V741,V742)  static object LI84(V767,V768,V769,V770,V771,V772)
4838    
4839  object V737;object V738;object V739;object V740;object V741;object V742;  object V767;object V768;object V769;object V770;object V771;object V772;
4840  {        VMB72 VMS72 VMV72  {        VMB72 VMS72 VMV72
4841          goto TTL;          goto TTL;
4842  TTL:;  TTL:;
4843          {object V743;          {object V773;
4844          object V744;          object V774;
4845          object V745;          object V775;
4846          register object V746;          register object V776;
4847          if((V740)==Cnil){          if((V770)==Cnil){
4848          V743= Cnil;          V773= Cnil;
4849          goto T1519;}          goto T1519;}
4850          if((CMPcdr((V740)))!=Cnil){          if((CMPcdr((V770)))!=Cnil){
4851          goto T1520;}          goto T1520;}
4852          V743= Cnil;          V773= Cnil;
4853          goto T1519;          goto T1519;
4854          goto T1520;          goto T1520;
4855  T1520:;  T1520:;
4856          V743= (V739);          V773= (V769);
4857          goto T1519;          goto T1519;
4858  T1519:;  T1519:;
4859          V744= CMPmake_fixnum((long)length(STREF(object,(V738),8)));          V774= CMPmake_fixnum((long)length(STREF(object,(V768),8)));
4860          if(((V743))==Cnil){          if(((V773))==Cnil){
4861          goto T1525;}          goto T1525;}
4862          V745= STREF(object,(V738),8);          V775= STREF(object,(V768),8);
4863          goto T1523;          goto T1523;
4864          goto T1525;          goto T1525;
4865  T1525:;  T1525:;
4866          base[4]= (V744);          base[4]= (V774);
4867          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4868          Lmake_list();          Lmake_list();
4869          vs_top=sup;          vs_top=sup;
4870          V745= vs_base[0];          V775= vs_base[0];
4871          goto T1523;          goto T1523;
4872  T1523:;  T1523:;
4873          if(((V743))==Cnil){          if(((V773))==Cnil){
4874          goto T1530;}          goto T1530;}
4875          V746= STREF(object,(V738),24);          V776= STREF(object,(V768),24);
4876          goto T1528;          goto T1528;
4877          goto T1530;          goto T1530;
4878  T1530:;  T1530:;
4879          V746= Cnil;          V776= Cnil;
4880          goto T1528;          goto T1528;
4881  T1528:;  T1528:;
4882          if(((*(LnkLI432))((V738)))==Cnil){          if(((*(LnkLI432))((V768)))==Cnil){
4883          goto T1518;}          goto T1518;}
4884          {register object V747;          {register object V777;
4885          register object V748;          register object V778;
4886          if(((V739))==Cnil){          if(((V769))==Cnil){
4887          goto T1537;}          goto T1537;}
4888          V747= make_cons((V739),Cnil);          V777= make_cons((V769),Cnil);
4889          goto T1535;          goto T1535;
4890          goto T1537;          goto T1537;
4891  T1537:;  T1537:;
4892          V747= (V740);          V777= (V770);
4893          goto T1535;          goto T1535;
4894  T1535:;  T1535:;
4895          V748= CMPcar((V747));          V778= CMPcar((V777));
4896          goto T1541;          goto T1541;
4897  T1541:;  T1541:;
4898          if(!(((V747))==Cnil)){          if(!(((V777))==Cnil)){
4899          goto T1542;}          goto T1542;}
4900          goto T1534;          goto T1534;
4901          goto T1542;          goto T1542;
4902  T1542:;  T1542:;
4903          {object V749;          {object V779;
4904          register object V750;          register object V780;
4905          register object V751;          register object V781;
4906          if(((VV[17]->s.s_dbind))==(VV[18])){          if(((VV[17]->s.s_dbind))==(VV[18])){
4907          goto T1548;}          goto T1548;}
4908          if(type_of((V748))==t_cons){          if(type_of((V778))==t_cons){
4909          goto T1549;}          goto T1549;}
4910          goto T1548;          goto T1548;
4911  T1548:;  T1548:;
4912          base[9]= (V748);          base[9]= (V778);
4913          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
4914          (void) (*Lnk433)(Lclptr433);          (void) (*Lnk433)(Lclptr433);
4915          vs_top=sup;          vs_top=sup;
4916          V749= vs_base[0];          V779= vs_base[0];
4917          goto T1547;          goto T1547;
4918          goto T1549;          goto T1549;
4919  T1549:;  T1549:;
4920          V749= (VFUN_NARGS=2,(*(LnkLI434))((V748),Ct));          V779= (VFUN_NARGS=2,(*(LnkLI434))((V778),Ct));
4921          goto T1547;          goto T1547;
4922  T1547:;  T1547:;
4923          if(((VV[17]->s.s_dbind))==(VV[18])){          if(((VV[17]->s.s_dbind))==(VV[18])){
4924          goto T1555;}          goto T1555;}
4925          if(type_of((V748))==t_cons){          if(type_of((V778))==t_cons){
4926          goto T1556;}          goto T1556;}
4927          goto T1555;          goto T1555;
4928  T1555:;  T1555:;
4929          V750= (*(LnkLI363))((V748));          V780= (*(LnkLI363))((V778));
4930          goto T1554;          goto T1554;
4931          goto T1556;          goto T1556;
4932  T1556:;  T1556:;
4933          V750= (*(LnkLI435))((V748));          V780= (*(LnkLI435))((V778));
4934          goto T1554;          goto T1554;
4935  T1554:;  T1554:;
4936          if(((V750))==Cnil){          if(((V780))==Cnil){
4937          goto T1562;}          goto T1562;}
4938          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
4939          goto T1561;}          goto T1561;}
4940          base[9]= (V737);          base[9]= (V767);
4941          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
4942          (void) (*Lnk436)(Lclptr436);          (void) (*Lnk436)(Lclptr436);
4943          vs_top=sup;          vs_top=sup;
4944          V752= vs_base[0];          V782= vs_base[0];
4945          if(!((V752)==((VV[252]->s.s_dbind)))){          V783 = (VV[252]->s.s_dbind);
4946            if(!((V782)==(V783))){
4947          goto T1562;}          goto T1562;}
4948          goto T1561;          goto T1561;
4949  T1561:;  T1561:;
4950          if(!(((V750))==((VV[253]->s.s_dbind)))){          if(!(((V780))==((VV[253]->s.s_dbind)))){
4951          goto T1571;}          goto T1571;}
4952          V751= VV[254];          V781= VV[254];
4953          goto T1560;          goto T1560;
4954          goto T1571;          goto T1571;
4955  T1571:;  T1571:;
4956          if(!(((V750))==((VV[255]->s.s_dbind)))){          if(!(((V780))==((VV[255]->s.s_dbind)))){
4957          goto T1574;}          goto T1574;}
4958          V751= VV[256];          V781= VV[256];
4959          goto T1560;          goto T1560;
4960          goto T1574;          goto T1574;
4961  T1574:;  T1574:;
4962          if(!(((V750))==((VV[257]->s.s_dbind)))){          if(!(((V780))==((VV[257]->s.s_dbind)))){
4963          goto T1577;}          goto T1577;}
4964          V751= VV[258];          V781= VV[258];
4965          goto T1560;          goto T1560;
4966          goto T1577;          goto T1577;
4967  T1577:;  T1577:;
4968          V751= Cnil;          V781= Cnil;
4969          goto T1560;          goto T1560;
4970          goto T1562;          goto T1562;
4971  T1562:;  T1562:;
4972          V751= Cnil;          V781= Cnil;
4973          goto T1560;          goto T1560;
4974  T1560:;  T1560:;
4975          base[10]=VV[437]->s.s_gfdef;          base[10]=VV[437]->s.s_gfdef;
4976          {object V753;          {object V784;
4977          object V754= (V745);          object V785= (V775);
4978          object V755= (V749);          object V786= (V779);
4979          if(V754==Cnil||V755==Cnil){          if(V785==Cnil||V786==Cnil){
4980          V745= Cnil;          V775= Cnil;
4981          goto T1580;}          goto T1580;}
4982          base[9]=V753=MMcons(Cnil,Cnil);          base[9]=V784=MMcons(Cnil,Cnil);
4983          goto T1581;          goto T1581;
4984  T1581:;  T1581:;
4985          base[11]= (V754->c.c_car);          base[11]= (V785->c.c_car);
4986          base[12]= (V755->c.c_car);          base[12]= (V786->c.c_car);
4987          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
4988          (void) (*Lnk437)();          (void) (*Lnk437)();
4989          vs_top=sup;          vs_top=sup;
4990          (V753->c.c_car)= vs_base[0];          (V784->c.c_car)= vs_base[0];
4991          if((V754=MMcdr(V754))==Cnil||(V755=MMcdr(V755))==Cnil){          if((V785=MMcdr(V785))==Cnil||(V786=MMcdr(V786))==Cnil){
4992          V745= base[9];          V775= base[9];
4993          goto T1580;}          goto T1580;}
4994          V753=MMcdr(V753)=MMcons(Cnil,Cnil);          V784=MMcdr(V784)=MMcons(Cnil,Cnil);
4995          goto T1581;}          goto T1581;}
4996          goto T1580;          goto T1580;
4997  T1580:;  T1580:;
4998          if(((V746))!=Cnil){          if(((V776))!=Cnil){
4999          goto T1587;}          goto T1587;}
5000          V746= (V751);          V776= (V781);
5001          goto T1585;          goto T1585;
5002          goto T1587;          goto T1587;
5003  T1587:;  T1587:;
5004          if(!(((V746))==((V751)))){          if(!(((V776))==((V781)))){
5005          goto T1590;}          goto T1590;}
5006          goto T1585;          goto T1585;
5007          goto T1590;          goto T1590;
5008  T1590:;  T1590:;
5009          V746= Cnil;          V776= Cnil;
5010          goto T1585;          goto T1585;
5011  T1585:;}  T1585:;}
5012          V747= CMPcdr((V747));          V777= CMPcdr((V777));
5013          V748= CMPcar((V747));          V778= CMPcar((V777));
5014          goto T1541;}          goto T1541;}
5015          goto T1534;          goto T1534;
5016  T1534:;  T1534:;
5017          if(equal(STREF(object,(V738),8),V745)){          if(equal(STREF(object,(V768),8),V775)){
5018          goto T1597;}          goto T1597;}
5019          V757= Ct;          V788 = (V768);
5020          STSET(object,(V738),8, V745);          V789 = V775;
5021          (void)(V745);          V790= Ct;
5022            STSET(object,V788,8, V789);
5023            (void)(V789);
5024          goto T1597;          goto T1597;
5025  T1597:;  T1597:;
5026          if(equal(STREF(object,(V738),24),V746)){          if(equal(STREF(object,(V768),24),V776)){
5027          goto T1518;}          goto T1518;}
5028          V759= Ct;          V792 = (V768);
5029          STSET(object,(V738),24, V746);          V793 = V776;
5030          (void)(V746);}          V794= Ct;
5031            STSET(object,V792,24, V793);
5032            (void)(V793);}
5033          goto T1518;          goto T1518;
5034  T1518:;  T1518:;
5035          if(((V741))==Cnil){          if(((V771))==Cnil){
5036          goto T1603;}          goto T1603;}
5037          if(((V742))==Cnil){          if(((V772))==Cnil){
5038          goto T1602;}          goto T1602;}
5039          goto T1603;          goto T1603;
5040  T1603:;  T1603:;
5041          {object V760;          {object V795;
5042          object V761;          object V796;
5043          if(((*(LnkLI438))((V737)))==Cnil){          if(((*(LnkLI438))((V767)))==Cnil){
5044          goto T1609;}          goto T1609;}
5045          base[0]= Ct;          base[0]= Ct;
5046          base[1]= Ct;          base[1]= Ct;
# Line 5013  T1603:; Line 5048  T1603:;
5048          goto T1607;          goto T1607;
5049          goto T1609;          goto T1609;
5050  T1609:;  T1609:;
5051          base[0]= (V737);          base[0]= (V767);
5052          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5053          (void) (*Lnk439)();          (void) (*Lnk439)();
5054          goto T1607;          goto T1607;
5055  T1607:;  T1607:;
5056          if(vs_base>=vs_top){vs_top=sup;goto T1614;}          if(vs_base>=vs_top){vs_top=sup;goto T1614;}
5057          V760= vs_base[0];          V795= vs_base[0];
5058          vs_base++;          vs_base++;
5059          if(vs_base>=vs_top){vs_top=sup;goto T1615;}          if(vs_base>=vs_top){vs_top=sup;goto T1615;}
5060          V761= vs_base[0];          V796= vs_base[0];
5061          vs_top=sup;          vs_top=sup;
5062          goto T1616;          goto T1616;
5063          goto T1614;          goto T1614;
5064  T1614:;  T1614:;
5065          V760= Cnil;          V795= Cnil;
5066          goto T1615;          goto T1615;
5067  T1615:;  T1615:;
5068          V761= Cnil;          V796= Cnil;
5069          goto T1616;          goto T1616;
5070  T1616:;  T1616:;
5071          if(equal(STREF(object,(V738),32),V760)){          if(equal(STREF(object,(V768),32),V795)){
5072          goto T1617;}          goto T1617;}
5073          V763= Ct;          V798 = (V768);
5074          STSET(object,(V738),32, V760);          V799 = V795;
5075          (void)(V760);          V800= Ct;
5076            STSET(object,V798,32, V799);
5077            (void)(V799);
5078          goto T1617;          goto T1617;
5079  T1617:;  T1617:;
5080          if(equal(STREF(object,(V738),36),V761)){          if(equal(STREF(object,(V768),36),V796)){
5081          goto T1620;}          goto T1620;}
5082          V765= Ct;          V802 = (V768);
5083          STSET(object,(V738),36, V761);          V803 = V796;
5084          (void)(V761);          V804= Ct;
5085            STSET(object,V802,36, V803);
5086            (void)(V803);
5087          goto T1620;          goto T1620;
5088  T1620:;  T1620:;
5089          if((STREF(object,(V738),36))!=Cnil){          if((STREF(object,(V768),36))!=Cnil){
5090          goto T1602;}          goto T1602;}
5091          if(equal(STREF(object,(V738),24),Ct)){          if(equal(STREF(object,(V768),24),Ct)){
5092          goto T1602;}          goto T1602;}
5093          V767= Ct;          V806 = (V768);
5094          STSET(object,(V738),24, Ct);          V807 = Ct;
5095          (void)(Ct);}          V808= Ct;
5096            STSET(object,V806,24, V807);
5097            (void)(V807);}
5098          goto T1602;          goto T1602;
5099  T1602:;  T1602:;
5100          if(((V741))!=Cnil){          if(((V771))!=Cnil){
5101          goto T1627;}          goto T1627;}
5102          {object V768;          {object V809;
5103          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
5104          goto T1632;}          goto T1632;}
5105          base[0]= (V737);          base[0]= (V767);
5106          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5107          (void) (*Lnk440)(Lclptr440);          (void) (*Lnk440)(Lclptr440);
5108          vs_top=sup;          vs_top=sup;
5109          V768= vs_base[0];          V809= vs_base[0];
5110          goto T1630;          goto T1630;
5111          goto T1632;          goto T1632;
5112  T1632:;  T1632:;
5113          V768= (*(LnkLI441))((V737));          V809= (*(LnkLI441))((V767));
5114          goto T1630;          goto T1630;
5115  T1630:;  T1630:;
5116          {object V769;          {object V810;
5117          {object V770;          {object V811;
5118          object V771;          object V812;
5119          if(!(type_of((V768))!=t_cons)){          if(!(type_of((V809))!=t_cons)){
5120          goto T1638;}          goto T1638;}
5121          V770= (V768);          V811= (V809);
5122          goto T1636;          goto T1636;
5123          goto T1638;          goto T1638;
5124  T1638:;  T1638:;
5125          V770= CMPcadr((V768));          V811= CMPcadr((V809));
5126          goto T1636;          goto T1636;
5127  T1636:;{object V772;  T1636:;{object V813;
5128          V772= (VV[219]->s.s_dbind);          V813= (VV[219]->s.s_dbind);
5129          base[2]= (VV[219]->s.s_dbind);          base[2]= (VV[219]->s.s_dbind);
5130          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5131          Lpackage_use_list();          Lpackage_use_list();
5132          vs_top=sup;          vs_top=sup;
5133          V773= vs_base[0];          V814= vs_base[0];
5134          V771= make_cons(V772,V773);}          V812= make_cons(V813,V814);}
5135          if((V770)==Cnil){          if((V811)==Cnil){
5136          V769= Cnil;          V810= Cnil;
5137          goto T1635;}          goto T1635;}
5138          if(type_of((V770))==t_symbol){          if(type_of((V811))==t_symbol){
5139          goto T1643;}          goto T1643;}
5140          V769= Cnil;          V810= Cnil;
5141          goto T1635;          goto T1635;
5142          goto T1643;          goto T1643;
5143  T1643:;  T1643:;
5144          base[2]= (V770);          base[2]= (V811);
5145          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5146          Lsymbol_package();          Lsymbol_package();
5147          vs_top=sup;          vs_top=sup;
5148          V776= vs_base[0];          V817= vs_base[0];
5149          {register object x= V776,V775= (V771);          V818 = (V812);
5150          while(V775!=Cnil)          {register object x= V817,V816= V818;
5151          if(x==(V775->c.c_car)){          while(V816!=Cnil)
5152          V774= V775;          if(x==(V816->c.c_car)){
5153            V815= V816;
5154          goto T1647;          goto T1647;
5155          }else V775=V775->c.c_cdr;          }else V816=V816->c.c_cdr;
5156          V774= Cnil;}          V815= Cnil;}
5157          goto T1647;          goto T1647;
5158  T1647:;  T1647:;
5159          if((((V774)==Cnil?Ct:Cnil))==Cnil){          if((((V815)==Cnil?Ct:Cnil))==Cnil){
5160          goto T1645;}          goto T1645;}
5161          V769= Cnil;          V810= Cnil;
5162          goto T1635;          goto T1635;
5163          goto T1645;          goto T1645;
5164  T1645:;  T1645:;
5165          base[2]= VV[259];          base[2]= VV[259];
5166          base[3]= symbol_name((V770));          base[3]= symbol_name((V811));
5167          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5168          (void) (*Lnk442)();          (void) (*Lnk442)();
5169          vs_top=sup;          vs_top=sup;
5170          V777= vs_base[0];          V819= vs_base[0];
5171          V769= ((V777)==Cnil?Ct:Cnil);}          V810= ((V819)==Cnil?Ct:Cnil);}
5172          goto T1635;          goto T1635;
5173  T1635:;  T1635:;
5174          if(equal(STREF(object,(V738),28),(V769))){          if(equal(STREF(object,(V768),28),(V810))){
5175          goto T1627;}          goto T1627;}
5176          V778= Ct;          V820 = (V768);
5177          STSET(object,(V738),28, (V769));          V821 = (V810);
5178          (void)((V769));}}          V822= Ct;
5179            STSET(object,V820,28, V821);
5180            (void)(V821);}}
5181          goto T1627;          goto T1627;
5182  T1627:;  T1627:;
5183          {object V779;          {object V823;
5184          if(!(((((VV[17]->s.s_dbind))==(VV[18])?Ct:Cnil))==Cnil)){          if(!(((((VV[17]->s.s_dbind))==(VV[18])?Ct:Cnil))==Cnil)){
5185          goto T1657;}          goto T1657;}
5186          V779= Ct;          V823= Ct;
5187          goto T1656;          goto T1656;
5188          goto T1657;          goto T1657;
5189  T1657:;  T1657:;
5190          {object V780;          {object V824;
5191          object V781;          object V825;
5192          base[2]= (V737);          base[2]= (V767);
5193          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5194          (void) (*Lnk358)(Lclptr358);          (void) (*Lnk358)(Lclptr358);
5195          vs_top=sup;          vs_top=sup;
5196          V780= vs_base[0];          V824= vs_base[0];
5197          base[2]= (VV[360]->s.s_gfdef);          base[2]= (VV[360]->s.s_gfdef);
5198          base[4]= (V780);          V826 = (V767);
5199            base[4]= (V824);
5200          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5201          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
5202          vs_top=sup;          vs_top=sup;
5203          V782= vs_base[0];          V827= vs_base[0];
5204          base[3]= list(4,(V737),V782,VV[260],Cnil);          base[3]= list(4,V826,V827,VV[260],Cnil);
5205          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
5206          (void) (*Lnk443)(Lclptr443);          (void) (*Lnk443)(Lclptr443);
5207          vs_top=sup;          vs_top=sup;
5208          V781= vs_base[0];          V825= vs_base[0];
5209          if((V781)==Cnil){          if((V825)==Cnil){
5210          V779= Cnil;          V823= Cnil;
5211          goto T1656;}          goto T1656;}
5212          if((CMPcdr((V781)))==Cnil){          if((CMPcdr((V825)))==Cnil){
5213          goto T1666;}          goto T1666;}
5214          V779= Cnil;          V823= Cnil;
5215          goto T1656;          goto T1656;
5216          goto T1666;          goto T1666;
5217  T1666:;  T1666:;
5218          {object V783;          {object V828;
5219          base[2]= CMPcar((V781));          base[2]= CMPcar((V825));
5220          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5221          (void) (*Lnk433)(Lclptr433);          (void) (*Lnk433)(Lclptr433);
5222          vs_top=sup;          vs_top=sup;
5223          V783= vs_base[0];          V828= vs_base[0];
5224          base[2]= CMPcar((V783));          base[2]= CMPcar((V828));
5225          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5226          (void) (*Lnk291)(Lclptr291);          (void) (*Lnk291)(Lclptr291);
5227          vs_top=sup;          vs_top=sup;
5228          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
5229          goto T1670;}          goto T1670;}
5230          V779= Cnil;          V823= Cnil;
5231          goto T1656;          goto T1656;
5232          goto T1670;          goto T1670;
5233  T1670:;  T1670:;
5234          base[2]= CMPcar((V783));          base[2]= CMPcar((V828));
5235          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5236          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk364)(Lclptr364);
5237          vs_top=sup;          vs_top=sup;
5238          V784= vs_base[0];          V829= vs_base[0];
5239          if((VV[19])==(V784)){          if((VV[19])==(V829)){
5240          goto T1673;}          goto T1673;}
5241          V779= Cnil;          V823= Cnil;
5242          goto T1656;          goto T1656;
5243          goto T1673;          goto T1673;
5244  T1673:;  T1673:;
5245          base[2]= CMPcadr((V783));          base[2]= CMPcadr((V828));
5246          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5247          (void) (*Lnk291)(Lclptr291);          (void) (*Lnk291)(Lclptr291);
5248          vs_top=sup;          vs_top=sup;
5249          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
5250          goto T1677;}          goto T1677;}
5251          V779= Cnil;          V823= Cnil;
5252          goto T1656;          goto T1656;
5253          goto T1677;          goto T1677;
5254  T1677:;  T1677:;
5255          base[2]= CMPcadr((V783));          base[2]= CMPcadr((V828));
5256          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5257          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk364)(Lclptr364);
5258          vs_top=sup;          vs_top=sup;
5259          V785= vs_base[0];          V830= vs_base[0];
5260          V779= ((VV[20])==(V785)?Ct:Cnil);}}          V823= ((VV[20])==(V830)?Ct:Cnil);}}
5261          goto T1656;          goto T1656;
5262  T1656:;  T1656:;
5263          if(equal(STREF(object,(V738),40),(V779))){          if(equal(STREF(object,(V768),40),(V823))){
5264          goto T1655;}          goto T1655;}
5265          V786= Ct;          V831 = (V768);
5266          STSET(object,(V738),40, (V779));          V832 = (V823);
5267          (void)((V779));}          V833= Ct;
5268            STSET(object,V831,40, V832);
5269            (void)(V832);}
5270          goto T1655;          goto T1655;
5271  T1655:;  T1655:;
5272          {object V787 = (V738);          {object V834 = (V768);
5273          VMR72(V787)}          VMR72(V834)}
5274          base[0]=base[0];          base[0]=base[0];
5275          return Cnil;          return Cnil;
5276  }  }
5277  /*      local entry for function ENSURE-GENERIC-FUNCTION-USING-CLASS    */  /*      local entry for function ENSURE-GENERIC-FUNCTION-USING-CLASS    */
5278    
5279  static object LI85(object V789,object V788,object first,...)  static object LI85(object V836,object V835,object first,...)
5280  {        {      
5281          va_list ap;          va_list ap;
5282          int narg = VFUN_NARGS; VMB73 VMS73 VMV73          int narg = VFUN_NARGS; VMB73 VMS73 VMV73
5283          {register object V790;          {register object V837;
5284          register object V791;          register object V838;
5285          object V792;          object V839;
5286          object V793;          object V840;
5287          object V794;          object V841;
5288          va_start(ap,first);          va_start(ap,first);
5289          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
5290          V790= V789;          V837= V836;
5291          V791= V788;          V838= V835;
5292          narg= narg - 2;          narg= narg - 2;
5293          V795 = make_list(narg);          V842 = make_list(narg);
5294          V792= V795;          V839= V842;
5295          {          {
5296          parse_key_rest_new(V795,narg,Vcs +3,(struct key *)(void *)&LI85key,first,ap);          parse_key_rest_new(V842,narg,Vcs +3,(struct key *)(void *)&LI85key,first,ap);
5297          if(Vcs[3]==0){          if(Vcs[3]==0){
5298          V793= Cnil;          V840= Cnil;
5299          V794= Cnil;          V841= Cnil;
5300          }else{          }else{
5301          V793=(Vcs[3]);          V840=(Vcs[3]);
5302          V794= Ct;}          V841= Ct;}
5303          if(((V790))==Cnil){          if(((V837))==Cnil){
5304          goto T1686;}          goto T1686;}
5305          if(((*(LnkLI438))((V790)))==Cnil){          if(((*(LnkLI438))((V837)))==Cnil){
5306          goto T1686;}          goto T1686;}
5307          {object V796 = (V790);          {object V843 = (V837);
5308          VMR73(V796)}          VMR73(V843)}
5309          goto T1686;          goto T1686;
5310  T1686:;  T1686:;
5311          {register object x= (V791),V797= (VV[261]->s.s_dbind);          {register object x= (V838),V844= (VV[261]->s.s_dbind);
5312          while(V797!=Cnil)          while(V844!=Cnil)
5313          if(equal(x,V797->c.c_car->c.c_car) &&V797->c.c_car != Cnil){          if(equal(x,V844->c.c_car->c.c_car) &&V844->c.c_car != Cnil){
5314          goto T1692;          goto T1692;
5315          }else V797=V797->c.c_cdr;          }else V844=V844->c.c_cdr;
5316          goto T1691;}          goto T1691;}
5317          goto T1692;          goto T1692;
5318  T1692:;  T1692:;
5319          if(((V790))==Cnil){          if(((V837))==Cnil){
5320          goto T1694;}          goto T1694;}
5321          {object V798 = (VFUN_NARGS=4,(*(LnkLI444))((V791),(V793),(V794),(V790)));          {object V845 = (VFUN_NARGS=4,(*(LnkLI444))((V838),(V840),(V841),(V837)));
5322          VMR73(V798)}          VMR73(V845)}
5323          goto T1694;          goto T1694;
5324  T1694:;  T1694:;
5325          base[0]= VV[262];          base[0]= VV[262];
5326          base[1]= (V791);          base[1]= (V838);
5327          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5328          Lerror();          Lerror();
5329          vs_top=sup;          vs_top=sup;
5330          {object V799 = vs_base[0];          {object V846 = vs_base[0];
5331          VMR73(V799)}          VMR73(V846)}
5332          goto T1691;          goto T1691;
5333  T1691:;  T1691:;
5334          if(((V790))==Cnil){          if(((V837))==Cnil){
5335          goto T1699;}          goto T1699;}
5336          base[0]= VV[263];          base[0]= VV[263];
5337          base[1]= (V791);          base[1]= (V838);
5338          base[2]= VV[261];          base[2]= VV[261];
5339          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
5340          Lerror();          Lerror();
5341          vs_top=sup;          vs_top=sup;
5342          {object V800 = vs_base[0];          {object V847 = vs_base[0];
5343          VMR73(V800)}          VMR73(V847)}
5344          goto T1699;          goto T1699;
5345  T1699:;  T1699:;
5346          base[0]= V791;          base[0]= V838;
5347          base[1]= (VV[264]->s.s_dbind);          base[1]= (VV[264]->s.s_dbind);
5348          base[2]= VV[265];          base[2]= VV[265];
5349          base[3]= (VV[241]->s.s_gfdef);          base[3]= (VV[241]->s.s_gfdef);
# Line 5304  T1699:; Line 5351  T1699:;
5351          Ladjoin();          Ladjoin();
5352          vs_top=sup;          vs_top=sup;
5353          (VV[264]->s.s_dbind)= vs_base[0];          (VV[264]->s.s_dbind)= vs_base[0];
5354          {object V802 = (VFUN_NARGS=3,(*(LnkLI444))((V791),(V793),(V794)));          {object V849 = (VFUN_NARGS=3,(*(LnkLI444))((V838),(V840),(V841)));
5355          VMR73(V802)}          VMR73(V849)}
5356          va_end(ap);          va_end(ap);
5357          base[0]=base[0];          base[0]=base[0];
5358          return Cnil;}          return Cnil;}
5359          }}          }}
5360  /*      local entry for function MAKE-EARLY-GF  */  /*      local entry for function MAKE-EARLY-GF  */
5361    
5362  static object LI86(object V803,object first,...)  static object LI86(object V850,object first,...)
5363  {        {      
5364          va_list ap;          va_list ap;
5365          int narg = VFUN_NARGS; VMB74 VMS74 VMV74          int narg = VFUN_NARGS; VMB74 VMS74 VMV74
5366          {register object V804;          {register object V851;
5367          object V805;          object V852;
5368          object V806;          object V853;
5369          object V807;          object V854;
5370          va_start(ap,first);          va_start(ap,first);
5371          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
5372          V804= V803;          V851= V850;
5373          narg = narg - 1;          narg = narg - 1;
5374          if (narg <= 0) goto T1710;          if (narg <= 0) goto T1710;
5375          else {          else {
5376          V805= first;}          V852= first;}
5377          if (--narg <= 0) goto T1711;          if (--narg <= 0) goto T1711;
5378          else {          else {
5379          V806= va_arg(ap,object);}          V853= va_arg(ap,object);}
5380          if (--narg <= 0) goto T1712;          if (--narg <= 0) goto T1712;
5381          else {          else {
5382          V807= va_arg(ap,object);}          V854= va_arg(ap,object);}
5383          --narg; goto T1713;          --narg; goto T1713;
5384          goto T1710;          goto T1710;
5385  T1710:;  T1710:;
5386          V805= Cnil;          V852= Cnil;
5387          goto T1711;          goto T1711;
5388  T1711:;  T1711:;
5389          V806= Cnil;          V853= Cnil;
5390          goto T1712;          goto T1712;
5391  T1712:;  T1712:;
5392          V807= Cnil;          V854= Cnil;
5393          goto T1713;          goto T1713;
5394  T1713:;  T1713:;
5395          base[0]= (VFUN_NARGS=2,(*(LnkLI445))((VV[266]->s.s_dbind),(VV[267]->s.s_dbind)));          base[0]= (VFUN_NARGS=2,(*(LnkLI445))((VV[266]->s.s_dbind),(VV[267]->s.s_dbind)));
5396          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
5397          if((V807)!=Cnil){          V855 = (base[0]->c.c_car);
5398          V808= (V807);          if((V854)!=Cnil){
5399            V856= (V854);
5400          goto T1719;}          goto T1719;}
5401          if(!(((V804))==(VV[268]))){          if(!(((V851))==(VV[268]))){
5402          goto T1721;}          goto T1721;}
5403          V808=          V856=
5404          make_cclosure_new(LC134,Cnil,base[0],Cdata);          make_cclosure_new(LC134,Cnil,base[0],Cdata);
5405          goto T1719;          goto T1719;
5406          goto T1721;          goto T1721;
5407  T1721:;  T1721:;
5408          V808=          V856=
5409          make_cclosure_new(LC135,Cnil,base[0],Cdata);          make_cclosure_new(LC135,Cnil,base[0],Cdata);
5410          goto T1719;          goto T1719;
5411  T1719:;  T1719:;
5412          (void)((*(LnkLI446))((base[0]->c.c_car),V808));          (void)((*(LnkLI446))(V855,V856));
5413          (void)((*(LnkLI345))((base[0]->c.c_car),V804));          (void)((*(LnkLI345))((base[0]->c.c_car),V851));
5414          (void)((*(LnkLI447))(VV[19],(base[0]->c.c_car),VV[274],(V804)));          (void)((*(LnkLI447))(VV[19],(base[0]->c.c_car),VV[274],(V851)));
5415            V858 = (base[0]->c.c_car);
5416          vs_base=vs_top;          vs_base=vs_top;
5417          (void) (*Lnk350)();          (void) (*Lnk350)();
5418          vs_top=sup;          vs_top=sup;
5419          V810= vs_base[0];          V859= vs_base[0];
5420          (void)((*(LnkLI447))(VV[19],(base[0]->c.c_car),VV[275],V810));          (void)((*(LnkLI447))(VV[19],V858,VV[275],V859));
5421          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
5422          base[2]= (V804);          base[2]= (V851);
5423          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5424          (void) (*Lnk346)();          (void) (*Lnk346)();
5425          vs_top=sup;          vs_top=sup;
5426          {object V811;          {object V860;
5427          V811= (*(LnkLI448))();          V860= (*(LnkLI448))();
5428          {object V813;          {object V862;
5429          V813= (base[0]->c.c_car);          V862= (base[0]->c.c_car);
5430          if(type_of((V813))==t_structure){          if(type_of((V862))==t_structure){
5431          goto T1737;}          goto T1737;}
5432          goto T1735;          goto T1735;
5433          goto T1737;          goto T1737;
5434  T1737:;  T1737:;
5435          if(!((((V813))->str.str_def)==(VV[276]))){          if(!((((V862))->str.str_def)==(VV[276]))){
5436          goto T1735;}}          goto T1735;}}
5437          V812= STREF(object,(base[0]->c.c_car),4);          V861= STREF(object,(base[0]->c.c_car),4);
5438          goto T1733;          goto T1733;
5439          goto T1735;          goto T1735;
5440  T1735:;{object V814;  T1735:;{object V863;
5441          V814= (VV[147]->s.s_dbind);          V863= (VV[147]->s.s_dbind);
5442          base[1]= small_fixnum(14);          base[1]= small_fixnum(14);
5443          base[2]= (base[0]->c.c_car);          base[2]= (base[0]->c.c_car);
5444          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5445          (void) (*Lnk390)();          (void) (*Lnk390)();
5446          vs_top=sup;          vs_top=sup;
5447          V815= vs_base[0];          V864= vs_base[0];
5448          if(!((V814)==(CMPcar(V815)))){          if(!((V863)==(CMPcar(V864)))){
5449          goto T1740;}}          goto T1740;}}
5450          V812= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]);          V861= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]);
5451          goto T1733;          goto T1733;
5452          goto T1740;          goto T1740;
5453  T1740:;  T1740:;
# Line 5406  T1740:; Line 5455  T1740:;
5455          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5456          Lerror();          Lerror();
5457          vs_top=sup;          vs_top=sup;
5458          V812= vs_base[0];          V861= vs_base[0];
5459          goto T1733;          goto T1733;
5460  T1733:;  T1733:;
5461          (void)(((V812)->v.v_self[fix((VV[236]->s.s_dbind))]=((V811))));          V865 = (VV[236]->s.s_dbind);
5462          if(((V806))==Cnil){          V866 = (V860);
5463            (void)(((V861)->v.v_self[fix(V865)]=(V866)));
5464            if(((V853))==Cnil){
5465          goto T1730;}          goto T1730;}
5466          (void)((*(LnkLI11))((V804),(V805)));          (void)((*(LnkLI11))((V851),(V852)));
5467          (void)((VFUN_NARGS=3,(*(LnkLI449))((base[0]->c.c_car),VV[15],(V805))));}          (void)((VFUN_NARGS=3,(*(LnkLI449))((base[0]->c.c_car),VV[15],(V852))));}
5468          goto T1730;          goto T1730;
5469  T1730:;  T1730:;
5470          {object V816 = (base[0]->c.c_car);          {object V867 = (base[0]->c.c_car);
5471          VMR74(V816)}          VMR74(V867)}
5472          va_end(ap);          va_end(ap);
5473          base[0]=base[0];          base[0]=base[0];
5474          return Cnil;}          return Cnil;}
5475          }          }
5476  /*      local entry for function SET-DFUN       */  /*      local entry for function SET-DFUN       */
5477    
5478  static object LI87(object V817,object first,...)  static object LI87(object V868,object first,...)
5479  {        {      
5480          va_list ap;          va_list ap;
5481          int narg = VFUN_NARGS; VMB75 VMS75 VMV75          int narg = VFUN_NARGS; VMB75 VMS75 VMV75
5482          {register object V818;          {register object V869;
5483          register object V819;          register object V870;
5484          register object V820;          register object V871;
5485          object V821;          object V872;
5486          va_start(ap,first);          va_start(ap,first);
5487          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
5488          V818= V817;          V869= V868;
5489          narg = narg - 1;          narg = narg - 1;
5490          if (narg <= 0) goto T1749;          if (narg <= 0) goto T1749;
5491          else {          else {
5492          V819= first;}          V870= first;}
5493          if (--narg <= 0) goto T1750;          if (--narg <= 0) goto T1750;
5494          else {          else {
5495          V820= va_arg(ap,object);}          V871= va_arg(ap,object);}
5496          if (--narg <= 0) goto T1751;          if (--narg <= 0) goto T1751;
5497          else {          else {
5498          V821= va_arg(ap,object);}          V872= va_arg(ap,object);}
5499          --narg; goto T1752;          --narg; goto T1752;
5500          goto T1749;          goto T1749;
5501  T1749:;  T1749:;
5502          V819= Cnil;          V870= Cnil;
5503          goto T1750;          goto T1750;
5504  T1750:;  T1750:;
5505          V820= Cnil;          V871= Cnil;
5506          goto T1751;          goto T1751;
5507  T1751:;  T1751:;
5508          V821= Cnil;          V872= Cnil;
5509          goto T1752;          goto T1752;
5510  T1752:;  T1752:;
5511          if(((V820))==Cnil){          if(((V871))==Cnil){
5512          goto T1756;}          goto T1756;}
5513          V822= Ct;          V873 = (V871);
5514          STSET(object,(V820),0, (V818));          V874 = (V869);
5515          (void)((V818));          V875= Ct;
5516            STSET(object,V873,0, V874);
5517            (void)(V874);
5518          goto T1756;          goto T1756;
5519  T1756:;  T1756:;
5520          {object V823;          {object V876;
5521          if(((V819))==Cnil){          if(((V870))==Cnil){
5522          goto T1762;}          goto T1762;}
5523          if(((V820))!=Cnil){          if(((V871))!=Cnil){
5524          goto T1761;}          goto T1761;}
5525          if(((V821))==Cnil){          if(((V872))==Cnil){
5526          goto T1762;}          goto T1762;}
5527          goto T1761;          goto T1761;
5528  T1761:;  T1761:;
5529          V823= listA(3,(V819),(V820),(V821));          V876= listA(3,(V870),(V871),(V872));
5530          goto T1760;          goto T1760;
5531          goto T1762;          goto T1762;
5532  T1762:;  T1762:;
5533          V823= (V819);          V876= (V870);
5534          goto T1760;          goto T1760;
5535  T1760:;  T1760:;
5536          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
5537          goto T1769;}          goto T1769;}
5538          base[0]= (V823);          base[0]= (V876);
5539          base[1]= V818;          base[1]= V869;
5540          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5541          (void) (*Lnk450)(Lclptr450);          (void) (*Lnk450)(Lclptr450);
5542          vs_top=sup;          vs_top=sup;
5543          goto T1759;          goto T1759;
5544          goto T1769;          goto T1769;
5545  T1769:;  T1769:;
5546          if(type_of(V818)==t_structure){          if(type_of(V869)==t_structure){
5547          goto T1777;}          goto T1777;}
5548          goto T1775;          goto T1775;
5549          goto T1777;          goto T1777;
5550  T1777:;  T1777:;
5551          if(!(((V818)->str.str_def)==(VV[278]))){          if(!(((V869)->str.str_def)==(VV[278]))){
5552          goto T1775;}          goto T1775;}
5553          V825= STREF(object,(V818),4);          V878= STREF(object,(V869),4);
5554          goto T1773;          goto T1773;
5555          goto T1775;          goto T1775;
5556  T1775:;{object V827;  T1775:;{object V880;
5557          V827= (VV[147]->s.s_dbind);          V880= (VV[147]->s.s_dbind);
5558          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5559          base[1]= (V818);          base[1]= (V869);
5560          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5561          (void) (*Lnk390)();          (void) (*Lnk390)();
5562          vs_top=sup;          vs_top=sup;
5563          V828= vs_base[0];          V881= vs_base[0];
5564          if(!((V827)==(CMPcar(V828)))){          if(!((V880)==(CMPcar(V881)))){
5565          goto T1780;}}          goto T1780;}}
5566          V825= CMPcar(((V818))->cc.cc_turbo[12]);          V878= CMPcar(((V869))->cc.cc_turbo[12]);
5567          goto T1773;          goto T1773;
5568          goto T1780;          goto T1780;
5569  T1780:;  T1780:;
# Line 5518  T1780:; Line 5571  T1780:;
5571          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5572          Lerror();          Lerror();
5573          vs_top=sup;          vs_top=sup;
5574          V825= vs_base[0];          V878= vs_base[0];
5575          goto T1773;          goto T1773;
5576  T1773:;  T1773:;
5577          (void)(((V825)->v.v_self[fix((VV[279]->s.s_dbind))]=((V823))));}          V882 = (VV[279]->s.s_dbind);
5578            V883 = (V876);
5579            (void)(((V878)->v.v_self[fix(V882)]=(V883)));}
5580          goto T1759;          goto T1759;
5581  T1759:;  T1759:;
5582          {object V829 = (V819);          {object V884 = (V870);
5583          VMR75(V829)}          VMR75(V884)}
5584          va_end(ap);          va_end(ap);
5585          base[0]=base[0];          base[0]=base[0];
5586          return Cnil;}          return Cnil;}
5587          }          }
5588  /*      local entry for function GF-DFUN-CACHE  */  /*      local entry for function GF-DFUN-CACHE  */
5589    
5590  static object LI88(V831)  static object LI88(V886)
5591    
5592  register object V831;  register object V886;
5593  {        VMB76 VMS76 VMV76  {        VMB76 VMS76 VMV76
5594          goto TTL;          goto TTL;
5595  TTL:;  TTL:;
5596          {object V832;          {object V887;
5597          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
5598          goto T1788;}          goto T1788;}
5599          base[0]= (V831);          base[0]= (V886);
5600          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5601          (void) (*Lnk451)(Lclptr451);          (void) (*Lnk451)(Lclptr451);
5602          vs_top=sup;          vs_top=sup;
5603          V832= vs_base[0];          V887= vs_base[0];
5604          goto T1786;          goto T1786;
5605          goto T1788;          goto T1788;
5606  T1788:;  T1788:;
5607          if(type_of(V831)==t_structure){          if(type_of(V886)==t_structure){
5608          goto T1795;}          goto T1795;}
5609          goto T1793;          goto T1793;
5610          goto T1795;          goto T1795;
5611  T1795:;  T1795:;
5612          if(!(((V831)->str.str_def)==(VV[280]))){          if(!(((V886)->str.str_def)==(VV[280]))){
5613          goto T1793;}          goto T1793;}
5614          V833= STREF(object,(V831),4);          V888= STREF(object,(V886),4);
5615          goto T1791;          goto T1791;
5616          goto T1793;          goto T1793;
5617  T1793:;{object V835;  T1793:;{object V890;
5618          V835= (VV[147]->s.s_dbind);          V890= (VV[147]->s.s_dbind);
5619          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5620          base[1]= (V831);          base[1]= (V886);
5621          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5622          (void) (*Lnk390)();          (void) (*Lnk390)();
5623          vs_top=sup;          vs_top=sup;
5624          V836= vs_base[0];          V891= vs_base[0];
5625          if(!((V835)==(CMPcar(V836)))){          if(!((V890)==(CMPcar(V891)))){
5626          goto T1798;}}          goto T1798;}}
5627          V833= CMPcar(((V831))->cc.cc_turbo[12]);          V888= CMPcar(((V886))->cc.cc_turbo[12]);
5628          goto T1791;          goto T1791;
5629          goto T1798;          goto T1798;
5630  T1798:;  T1798:;
# Line 5577  T1798:; Line 5632  T1798:;
5632          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5633          Lerror();          Lerror();
5634          vs_top=sup;          vs_top=sup;
5635          V833= vs_base[0];          V888= vs_base[0];
5636          goto T1791;          goto T1791;
5637  T1791:;  T1791:;
5638          V832= (V833)->v.v_self[fix((VV[279]->s.s_dbind))];          V892 = (VV[279]->s.s_dbind);
5639            V887= (V888)->v.v_self[fix(V892)];
5640          goto T1786;          goto T1786;
5641  T1786:;  T1786:;
5642          {register object V837;          {register object V893;
5643          V837= (V832);          V893= (V887);
5644          base[0]= (V837);          base[0]= (V893);
5645          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5646          Lfunctionp();          Lfunctionp();
5647          vs_top=sup;          vs_top=sup;
5648          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5649          goto T1805;}          goto T1805;}
5650          {object V838 = Cnil;          {object V894 = Cnil;
5651          VMR76(V838)}          VMR76(V894)}
5652          goto T1805;          goto T1805;
5653  T1805:;  T1805:;
5654          if(!(type_of((V837))==t_cons)){          if(!(type_of((V893))==t_cons)){
5655          goto T1809;}          goto T1809;}
5656          {object V839 = CMPcadr((V832));          {object V895 = CMPcadr((V887));
5657          VMR76(V839)}          VMR76(V895)}
5658          goto T1809;          goto T1809;
5659  T1809:;  T1809:;
5660          {object V840 = Cnil;          {object V896 = Cnil;
5661          VMR76(V840)}}}          VMR76(V896)}}}
5662          base[0]=base[0];          base[0]=base[0];
5663          return Cnil;          return Cnil;
5664  }  }
5665  /*      local entry for function GF-DFUN-INFO   */  /*      local entry for function GF-DFUN-INFO   */
5666    
5667  static object LI89(V842)  static object LI89(V898)
5668    
5669  register object V842;  register object V898;
5670  {        VMB77 VMS77 VMV77  {        VMB77 VMS77 VMV77
5671          goto TTL;          goto TTL;
5672  TTL:;  TTL:;
5673          {object V843;          {object V899;
5674          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
5675          goto T1813;}          goto T1813;}
5676          base[0]= (V842);          base[0]= (V898);
5677          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5678          (void) (*Lnk451)(Lclptr451);          (void) (*Lnk451)(Lclptr451);
5679          vs_top=sup;          vs_top=sup;
5680          V843= vs_base[0];          V899= vs_base[0];
5681          goto T1811;          goto T1811;
5682          goto T1813;          goto T1813;
5683  T1813:;  T1813:;
5684          if(type_of(V842)==t_structure){          if(type_of(V898)==t_structure){
5685          goto T1820;}          goto T1820;}
5686          goto T1818;          goto T1818;
5687          goto T1820;          goto T1820;
5688  T1820:;  T1820:;
5689          if(!(((V842)->str.str_def)==(VV[281]))){          if(!(((V898)->str.str_def)==(VV[281]))){
5690          goto T1818;}          goto T1818;}
5691          V844= STREF(object,(V842),4);          V900= STREF(object,(V898),4);
5692          goto T1816;          goto T1816;
5693          goto T1818;          goto T1818;
5694  T1818:;{object V846;  T1818:;{object V902;
5695          V846= (VV[147]->s.s_dbind);          V902= (VV[147]->s.s_dbind);
5696          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5697          base[1]= (V842);          base[1]= (V898);
5698          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5699          (void) (*Lnk390)();          (void) (*Lnk390)();
5700          vs_top=sup;          vs_top=sup;
5701          V847= vs_base[0];          V903= vs_base[0];
5702          if(!((V846)==(CMPcar(V847)))){          if(!((V902)==(CMPcar(V903)))){
5703          goto T1823;}}          goto T1823;}}
5704          V844= CMPcar(((V842))->cc.cc_turbo[12]);          V900= CMPcar(((V898))->cc.cc_turbo[12]);
5705          goto T1816;          goto T1816;
5706          goto T1823;          goto T1823;
5707  T1823:;  T1823:;
# Line 5653  T1823:; Line 5709  T1823:;
5709          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5710          Lerror();          Lerror();
5711          vs_top=sup;          vs_top=sup;
5712          V844= vs_base[0];          V900= vs_base[0];
5713          goto T1816;          goto T1816;
5714  T1816:;  T1816:;
5715          V843= (V844)->v.v_self[fix((VV[279]->s.s_dbind))];          V904 = (VV[279]->s.s_dbind);
5716            V899= (V900)->v.v_self[fix(V904)];
5717          goto T1811;          goto T1811;
5718  T1811:;  T1811:;
5719          {register object V848;          {register object V905;
5720          V848= (V843);          V905= (V899);
5721          base[0]= (V848);          base[0]= (V905);
5722          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5723          Lfunctionp();          Lfunctionp();
5724          vs_top=sup;          vs_top=sup;
5725          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5726          goto T1830;}          goto T1830;}
5727          {object V849 = Cnil;          {object V906 = Cnil;
5728          VMR77(V849)}          VMR77(V906)}
5729          goto T1830;          goto T1830;
5730  T1830:;  T1830:;
5731          if(!(type_of((V848))==t_cons)){          if(!(type_of((V905))==t_cons)){
5732          goto T1834;}          goto T1834;}
5733          {object V850 = CMPcddr((V843));          {object V907 = CMPcddr((V899));
5734          VMR77(V850)}          VMR77(V907)}
5735          goto T1834;          goto T1834;
5736  T1834:;  T1834:;
5737          {object V851 = Cnil;          {object V908 = Cnil;
5738          VMR77(V851)}}}          VMR77(V908)}}}
5739          base[0]=base[0];          base[0]=base[0];
5740          return Cnil;          return Cnil;
5741  }  }
5742  /*      local entry for function EARLY-GF-NAME  */  /*      local entry for function EARLY-GF-NAME  */
5743    
5744  static object LI90(V853)  static object LI90(V910)
5745    
5746  register object V853;  register object V910;
5747  {        VMB78 VMS78 VMV78  {        VMB78 VMS78 VMV78
5748          goto TTL;          goto TTL;
5749  TTL:;  TTL:;
5750          if(type_of(V853)==t_structure){          if(type_of(V910)==t_structure){
5751          goto T1840;}          goto T1840;}
5752          goto T1838;          goto T1838;
5753          goto T1840;          goto T1840;
5754  T1840:;  T1840:;
5755          if(!(((V853)->str.str_def)==(VV[282]))){          if(!(((V910)->str.str_def)==(VV[282]))){
5756          goto T1838;}          goto T1838;}
5757          V854= STREF(object,(V853),4);          V911= STREF(object,(V910),4);
5758          goto T1836;          goto T1836;
5759          goto T1838;          goto T1838;
5760  T1838:;{object V856;  T1838:;{object V913;
5761          V856= (VV[147]->s.s_dbind);          V913= (VV[147]->s.s_dbind);
5762          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5763          base[1]= (V853);          base[1]= (V910);
5764          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5765          (void) (*Lnk390)();          (void) (*Lnk390)();
5766          vs_top=sup;          vs_top=sup;
5767          V857= vs_base[0];          V914= vs_base[0];
5768          if(!((V856)==(CMPcar(V857)))){          if(!((V913)==(CMPcar(V914)))){
5769          goto T1843;}}          goto T1843;}}
5770          V854= CMPcar(((V853))->cc.cc_turbo[12]);          V911= CMPcar(((V910))->cc.cc_turbo[12]);
5771          goto T1836;          goto T1836;
5772          goto T1843;          goto T1843;
5773  T1843:;  T1843:;
# Line 5718  T1843:; Line 5775  T1843:;
5775          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5776          Lerror();          Lerror();
5777          vs_top=sup;          vs_top=sup;
5778          V854= vs_base[0];          V911= vs_base[0];
5779          goto T1836;          goto T1836;
5780  T1836:;  T1836:;
5781          {object V858 = (V854)->v.v_self[fix((VV[283]->s.s_dbind))];          V915 = (VV[283]->s.s_dbind);
5782          VMR78(V858)}          {object V916 = (V911)->v.v_self[fix(V915)];
5783            VMR78(V916)}
5784          base[0]=base[0];          base[0]=base[0];
5785          return Cnil;          return Cnil;
5786  }  }
5787  /*      local entry for function GF-LAMBDA-LIST */  /*      local entry for function GF-LAMBDA-LIST */
5788    
5789  static object LI91(V860)  static object LI91(V918)
5790    
5791  register object V860;  register object V918;
5792  {        VMB79 VMS79 VMV79  {        VMB79 VMS79 VMV79
5793          goto TTL;          goto TTL;
5794  TTL:;  TTL:;
5795          {object V861;          {object V919;
5796          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
5797          goto T1851;}          goto T1851;}
5798          base[0]= (V860);          base[0]= (V918);
5799          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5800          (void) (*Lnk393)(Lclptr393);          (void) (*Lnk393)(Lclptr393);
5801          vs_top=sup;          vs_top=sup;
5802          V861= vs_base[0];          V919= vs_base[0];
5803          goto T1849;          goto T1849;
5804          goto T1851;          goto T1851;
5805  T1851:;  T1851:;
5806          if(type_of(V860)==t_structure){          if(type_of(V918)==t_structure){
5807          goto T1858;}          goto T1858;}
5808          goto T1856;          goto T1856;
5809          goto T1858;          goto T1858;
5810  T1858:;  T1858:;
5811          if(!(((V860)->str.str_def)==(VV[284]))){          if(!(((V918)->str.str_def)==(VV[284]))){
5812          goto T1856;}          goto T1856;}
5813          V862= STREF(object,(V860),4);          V920= STREF(object,(V918),4);
5814          goto T1854;          goto T1854;
5815          goto T1856;          goto T1856;
5816  T1856:;{object V864;  T1856:;{object V922;
5817          V864= (VV[147]->s.s_dbind);          V922= (VV[147]->s.s_dbind);
5818          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5819          base[1]= (V860);          base[1]= (V918);
5820          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5821          (void) (*Lnk390)();          (void) (*Lnk390)();
5822          vs_top=sup;          vs_top=sup;
5823          V865= vs_base[0];          V923= vs_base[0];
5824          if(!((V864)==(CMPcar(V865)))){          if(!((V922)==(CMPcar(V923)))){
5825          goto T1861;}}          goto T1861;}}
5826          V862= CMPcar(((V860))->cc.cc_turbo[12]);          V920= CMPcar(((V918))->cc.cc_turbo[12]);
5827          goto T1854;          goto T1854;
5828          goto T1861;          goto T1861;
5829  T1861:;  T1861:;
# Line 5773  T1861:; Line 5831  T1861:;
5831          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5832          Lerror();          Lerror();
5833          vs_top=sup;          vs_top=sup;
5834          V862= vs_base[0];          V920= vs_base[0];
5835          goto T1854;          goto T1854;
5836  T1854:;  T1854:;
5837          V861= (V862)->v.v_self[fix((VV[236]->s.s_dbind))];          V924 = (VV[236]->s.s_dbind);
5838            V919= (V920)->v.v_self[fix(V924)];
5839          goto T1849;          goto T1849;
5840  T1849:;  T1849:;
5841          if(!((VV[237])==(STREF(object,(V861),0)))){          if(!((VV[237])==(STREF(object,(V919),0)))){
5842          goto T1868;}          goto T1868;}
5843          {object V866;          {object V925;
5844          if(!(((VV[17]->s.s_dbind))==(VV[18]))){          if(!(((VV[17]->s.s_dbind))==(VV[18]))){
5845          goto T1872;}          goto T1872;}
5846          base[0]= (V860);          base[0]= (V918);
5847          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5848          (void) (*Lnk426)(Lclptr426);          (void) (*Lnk426)(Lclptr426);
5849          vs_top=sup;          vs_top=sup;
5850          V866= vs_base[0];          V925= vs_base[0];
5851          goto T1870;          goto T1870;
5852          goto T1872;          goto T1872;
5853  T1872:;  T1872:;
5854          if(type_of(V860)==t_structure){          if(type_of(V918)==t_structure){
5855          goto T1879;}          goto T1879;}
5856          goto T1877;          goto T1877;
5857          goto T1879;          goto T1879;
5858  T1879:;  T1879:;
5859          if(!(((V860)->str.str_def)==(VV[285]))){          if(!(((V918)->str.str_def)==(VV[285]))){
5860          goto T1877;}          goto T1877;}
5861          V867= STREF(object,(V860),4);          V926= STREF(object,(V918),4);
5862          goto T1875;          goto T1875;
5863          goto T1877;          goto T1877;
5864  T1877:;{object V869;  T1877:;{object V928;
5865          V869= (VV[147]->s.s_dbind);          V928= (VV[147]->s.s_dbind);
5866          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
5867          base[1]= (V860);          base[1]= (V918);
5868          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5869          (void) (*Lnk390)();          (void) (*Lnk390)();
5870          vs_top=sup;          vs_top=sup;
5871          V870= vs_base[0];          V929= vs_base[0];
5872          if(!((V869)==(CMPcar(V870)))){          if(!((V928)==(CMPcar(V929)))){
5873          goto T1882;}}          goto T1882;}}
5874          V867= CMPcar(((V860))->cc.cc_turbo[12]);          V926= CMPcar(((V918))->cc.cc_turbo[12]);
5875          goto T1875;          goto T1875;
5876          goto T1882;          goto T1882;
5877  T1882:;  T1882:;
# Line 5820  T1882:; Line 5879  T1882:;
5879          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5880          Lerror();          Lerror();
5881          vs_top=sup;          vs_top=sup;
5882          V867= vs_base[0];          V926= vs_base[0];
5883          goto T1875;          goto T1875;
5884  T1875:;  T1875:;
5885          V866= (V867)->v.v_self[fix((VV[235]->s.s_dbind))];          V930 = (VV[235]->s.s_dbind);
5886            V925= (V926)->v.v_self[fix(V930)];
5887          goto T1870;          goto T1870;
5888  T1870:;  T1870:;
5889          if(((V866))!=Cnil){          if(((V925))!=Cnil){
5890          goto T1889;}          goto T1889;}
5891          base[0]= VV[286];          base[0]= VV[286];
5892          base[1]= (V860);          base[1]= (V918);
5893          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5894          (void) (*Lnk398)();          (void) (*Lnk398)();
5895          vs_top=sup;          vs_top=sup;
5896          {object V871 = Cnil;          {object V931 = Cnil;
5897          VMR79(V871)}          VMR79(V931)}
5898          goto T1889;          goto T1889;
5899  T1889:;  T1889:;
5900          {object V872;          {object V932;
5901          object V873;          object V933;
5902          object V874;          object V934;
5903          base[3]= (V866);          base[3]= (V925);
5904          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5905          Llast();          Llast();
5906          vs_top=sup;          vs_top=sup;
5907          V875= vs_base[0];          V935= vs_base[0];
5908          V872= CMPcar(V875);          V932= CMPcar(V935);
5909          if(!(type_of((V872))==t_cons)){          if(!(type_of((V932))==t_cons)){
5910          goto T1899;}          goto T1899;}
5911          V873= (*(LnkLI431))((V872));          V933= (*(LnkLI431))((V932));
5912          goto T1897;          goto T1897;
5913          goto T1899;          goto T1899;
5914  T1899:;  T1899:;
5915          base[3]= (V872);          base[3]= (V932);
5916          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5917          (void) (*Lnk48)(Lclptr48);          (void) (*Lnk48)(Lclptr48);
5918          vs_top=sup;          vs_top=sup;
5919          V873= vs_base[0];          V933= vs_base[0];
5920          goto T1897;          goto T1897;
5921  T1897:;  T1897:;
5922          {register object x= VV[62],V876= (V873);          {register object x= VV[62],V936= (V933);
5923          while(V876!=Cnil)          while(V936!=Cnil)
5924          if(eql(x,V876->c.c_car)){          if(eql(x,V936->c.c_car)){
5925          V874= V876;          V934= V936;
5926          goto T1902;          goto T1902;
5927          }else V876=V876->c.c_cdr;          }else V936=V936->c.c_cdr;
5928          V874= Cnil;}          V934= Cnil;}
5929          goto T1902;          goto T1902;
5930  T1902:;  T1902:;
5931          if(((V874))==Cnil){          if(((V934))==Cnil){
5932          goto T1904;}          goto T1904;}
5933          base[3]= (V873);          base[3]= (V933);
5934          base[4]= CMPcdr((V874));          base[4]= CMPcdr((V934));
5935          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5936          Lldiff();          Lldiff();
5937          vs_top=sup;          vs_top=sup;
5938          V877= vs_base[0];          V937= vs_base[0];
5939          {object V878 = append(V877,VV[287]);          {object V938 = append(V937,VV[287]);
5940          VMR79(V878)}          VMR79(V938)}
5941          goto T1904;          goto T1904;
5942  T1904:;  T1904:;
5943          {object V879 = (V873);          {object V939 = (V933);
5944          VMR79(V879)}}}          VMR79(V939)}}}
5945          goto T1868;          goto T1868;
5946  T1868:;  T1868:;
5947          {object V880 = STREF(object,(V861),0);          {object V940 = STREF(object,(V919),0);
5948          VMR79(V880)}}          VMR79(V940)}}
5949          base[0]=base[0];          base[0]=base[0];
5950          return Cnil;          return Cnil;
5951  }  }
# Line 5897  static void L92() Line 5957  static void L92()
5957          vs_check;          vs_check;
5958          check_arg(2);          check_arg(2);
5959          vs_top=sup;          vs_top=sup;
5960          {object V881=base[0]->c.c_cdr;          {object V941=base[0]->c.c_cdr;
5961          if(endp(V881))invalid_macro_call();          if(endp(V941))invalid_macro_call();
5962          base[2]= (V881->c.c_car);          base[2]= (V941->c.c_car);
5963          V881=V881->c.c_cdr;          V941=V941->c.c_cdr;
5964          if(endp(V881))invalid_macro_call();          if(endp(V941))invalid_macro_call();
5965          base[3]= (V881->c.c_car);          base[3]= (V941->c.c_car);
5966          V881=V881->c.c_cdr;          V941=V941->c.c_cdr;
5967          if(endp(V881))invalid_macro_call();          if(endp(V941))invalid_macro_call();
5968          base[4]= (V881->c.c_car);          base[4]= (V941->c.c_car);
5969          V881=V881->c.c_cdr;          V941=V941->c.c_cdr;
5970          if(!endp(V881))invalid_macro_call();}          if(!endp(V941))invalid_macro_call();}
5971          V882= list(2,VV[288],base[2]);          V942= list(2,VV[288],base[2]);
5972          V883= list(2,/* INLINE-ARGS */V882,list(3,VV[289],base[2],list(4,VV[290],base[2],Ct,base[4])));          V943= list(2,/* INLINE-ARGS */V942,list(3,VV[289],base[2],list(4,VV[290],base[2],Ct,base[4])));
5973          V884= list(2,VV[291],base[2]);          V944= list(2,VV[291],base[2]);
5974          V885= make_cons(/* INLINE-ARGS */V884,Cnil);          V945= make_cons(/* INLINE-ARGS */V944,Cnil);
5975          V886= list(4,VV[121],/* INLINE-ARGS */V883,/* INLINE-ARGS */V885,list(2,Ct,list(3,VV[292],VV[293],base[2])));          V946= list(4,VV[121],/* INLINE-ARGS */V943,/* INLINE-ARGS */V945,list(2,Ct,list(3,VV[292],VV[293],base[2])));
5976          V887= list(3,VV[294],base[3],VV[5]);          V947= list(3,VV[294],base[3],VV[5]);
5977          V888= list(3,VV[294],base[3],VV[295]);          V948= list(3,VV[294],base[3],VV[295]);
5978          V889= list(2,VV[296],listA(3,VV[297],base[3],VV[298]));          V949= list(2,VV[296],listA(3,VV[297],base[3],VV[298]));
5979          V890= make_cons(/* INLINE-ARGS */V889,Cnil);          V950= make_cons(/* INLINE-ARGS */V949,Cnil);
5980          V891= list(3,VV[297],base[3],VV[4]);          V951= list(3,VV[297],base[3],VV[4]);
5981          base[5]= list(5,VV[10],/* INLINE-ARGS */V886,/* INLINE-ARGS */V887,/* INLINE-ARGS */V888,list(3,VV[96],/* INLINE-ARGS */V890,list(3,VV[240],VV[299],list(3,VV[30],/* INLINE-ARGS */V891,listA(3,VV[300],list(2,VV[301],base[2]),VV[302])))));          base[5]= list(5,VV[10],/* INLINE-ARGS */V946,/* INLINE-ARGS */V947,/* INLINE-ARGS */V948,list(3,VV[96],/* INLINE-ARGS */V950,list(3,VV[240],VV[299],list(3,VV[30],/* INLINE-ARGS */V951,listA(3,VV[300],list(2,VV[301],base[2]),VV[302])))));
5982          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
5983          return;          return;
5984  }  }
5985  /*      local entry for function REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION   */  /*      local entry for function REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION   */
5986    
5987  static object LI93(object V893,object V892,object first,...)  static object LI93(object V953,object V952,object first,...)
5988  {        {      
5989          va_list ap;          va_list ap;
5990          int narg = VFUN_NARGS; VMB81 VMS81 VMV81          int narg = VFUN_NARGS; VMB81 VMS81 VMV81
5991          {object V894;          {object V954;
5992          object V895;          object V955;
5993          register object V896;          register object V956;
5994          object V897;          object V957;
5995          object V898;          object V958;
5996          object V899;          object V959;
5997          register object V900;          register object V960;
5998          object V901;          object V961;
5999          va_start(ap,first);          va_start(ap,first);
6000          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
6001          V894= V893;          V954= V953;
6002          V895= V892;          V955= V952;
6003          narg= narg - 2;          narg= narg - 2;
6004          V902 = make_list(narg);          V962 = make_list(narg);
6005          V896= V902;          V956= V962;
6006          {          {
6007          parse_key_rest_new(V902,narg,Vcs +3,(struct key *)(void *)&LI93key,first,ap);          parse_key_rest_new(V962,narg,Vcs +3,(struct key *)(void *)&LI93key,first,ap);
6008          V897=(Vcs[3]);          V957=(Vcs[3]);
6009          if(Vcs[4]==0){          if(Vcs[4]==0){
6010          V898= Cnil;          V958= Cnil;
6011          V899= Cnil;          V959= Cnil;
6012          }else{          }else{
6013          V898=(Vcs[4]);          V958=(Vcs[4]);
6014          V899= Ct;}          V959= Ct;}
6015          if(Vcs[5]==0){          if(Vcs[5]==0){
6016          V900= VV[19];          V960= VV[19];
6017          V901= Cnil;          V961= Cnil;
6018          }else{          }else{
6019          V900=(Vcs[5]);          V960=(Vcs[5]);
6020          V901= Ct;}          V961= Ct;}
6021          if(!(type_of((V900))==t_symbol)){          if(!(type_of((V960))==t_symbol)){
6022          goto T1914;}          goto T1914;}
6023          V900= (VFUN_NARGS=3,(*(LnkLI290))((V900),Ct,(V897)));          V960= (VFUN_NARGS=3,(*(LnkLI290))((V960),Ct,(V957)));
6024          goto T1912;          goto T1912;
6025          goto T1914;          goto T1914;
6026  T1914:;  T1914:;
6027          {object V903;          {object V963;
6028          base[0]= (V900);          base[0]= (V960);
6029          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6030          (void) (*Lnk291)(Lclptr291);          (void) (*Lnk291)(Lclptr291);
6031          vs_top=sup;          vs_top=sup;
6032          V903= vs_base[0];          V963= vs_base[0];
6033          if(((V903))==Cnil){          if(((V963))==Cnil){
6034          goto T1920;}          goto T1920;}
6035          goto T1912;          goto T1912;
6036          goto T1920;          goto T1920;
6037  T1920:;  T1920:;
6038          base[0]= VV[293];          base[0]= VV[293];
6039          base[1]= (V900);          base[1]= (V960);
6040          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6041          Lerror();          Lerror();
6042          vs_top=sup;}          vs_top=sup;}
6043          goto T1912;          goto T1912;
6044  T1912:;  T1912:;
6045          {object V904;          {object V964;
6046          object V905;          object V965;
6047          base[0]= (V896);          base[0]= (V956);
6048          base[1]= VV[5];          base[1]= VV[5];
6049          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6050          siLrem_f();          siLrem_f();
6051          if(vs_base>=vs_top){vs_top=sup;goto T1928;}          if(vs_base>=vs_top){vs_top=sup;goto T1928;}
6052          V904= vs_base[0];          V964= vs_base[0];
6053          vs_base++;          vs_base++;
6054          if(vs_base>=vs_top){vs_top=sup;goto T1929;}          if(vs_base>=vs_top){vs_top=sup;goto T1929;}
6055          V905= vs_base[0];          V965= vs_base[0];
6056          vs_top=sup;          vs_top=sup;
6057          goto T1930;          goto T1930;
6058          goto T1928;          goto T1928;
6059  T1928:;  T1928:;
6060          V904= Cnil;          V964= Cnil;
6061          goto T1929;          goto T1929;
6062  T1929:;  T1929:;
6063          V905= Cnil;          V965= Cnil;
6064          goto T1930;          goto T1930;
6065  T1930:;  T1930:;
6066          V896= (V904);}          V956= (V964);}
6067          {object V906;          {object V966;
6068          object V907;          object V967;
6069          base[0]= (V896);          base[0]= (V956);
6070          base[1]= VV[295];          base[1]= VV[295];
6071          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6072          siLrem_f();          siLrem_f();
6073          if(vs_base>=vs_top){vs_top=sup;goto T1937;}          if(vs_base>=vs_top){vs_top=sup;goto T1937;}
6074          V906= vs_base[0];          V966= vs_base[0];
6075          vs_base++;          vs_base++;
6076          if(vs_base>=vs_top){vs_top=sup;goto T1938;}          if(vs_base>=vs_top){vs_top=sup;goto T1938;}
6077          V907= vs_base[0];          V967= vs_base[0];
6078          vs_top=sup;          vs_top=sup;
6079          goto T1939;          goto T1939;
6080          goto T1937;          goto T1937;
6081  T1937:;  T1937:;
6082          V906= Cnil;          V966= Cnil;
6083          goto T1938;          goto T1938;
6084  T1938:;  T1938:;
6085          V907= Cnil;          V967= Cnil;
6086          goto T1939;          goto T1939;
6087  T1939:;  T1939:;
6088          V896= (V906);}          V956= (V966);}
6089          {object V908;          {object V968;
6090          base[0]= (V896);          base[0]= (V956);
6091          base[1]= VV[4];          base[1]= VV[4];
6092          base[2]= VV[303];          base[2]= VV[303];
6093          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
6094          Lgetf();          Lgetf();
6095          vs_top=sup;          vs_top=sup;
6096          V908= vs_base[0];          V968= vs_base[0];
6097          if(((V908))==(VV[303])){          if(((V968))==(VV[303])){
6098          goto T1911;}          goto T1911;}
6099          {object V910;          {object V970;
6100          base[2]= (V900);          base[2]= (V960);
6101          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6102          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
6103          vs_top=sup;          vs_top=sup;
6104          base[1]= vs_base[0];          base[1]= vs_base[0];
6105          base[2]= CMPcar((V908));          base[2]= CMPcar((V968));
6106          base[3]= CMPcdr((V908));          base[3]= CMPcdr((V968));
6107          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
6108          (void) (*Lnk300)(Lclptr300);          (void) (*Lnk300)(Lclptr300);
6109          vs_top=sup;          vs_top=sup;
6110          V910= vs_base[0];          V970= vs_base[0];
6111          {object V911;          {object V971;
6112          base[1]= (V896);          base[1]= (V956);
6113          base[2]= (V910);          base[2]= (V970);
6114          base[3]= VV[4];          base[3]= VV[4];
6115          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
6116          siLput_f();          siLput_f();
6117          vs_top=sup;          vs_top=sup;
6118          V911= vs_base[0];          V971= vs_base[0];
6119          V896= (V911);}}}          V956= (V971);}}}
6120          goto T1911;          goto T1911;
6121  T1911:;  T1911:;
6122          if(((V901))==Cnil){          if(((V961))==Cnil){
6123          goto T1959;}          goto T1959;}
6124          V912= (*(LnkLI363))((V894));          V972= (*(LnkLI363))((V954));
6125          if((/* INLINE-ARGS */V912)==((V900))){          V973 = (V960);
6126            if((/* INLINE-ARGS */V972)==(V973)){
6127          goto T1959;}          goto T1959;}
6128          base[0]= (V894);          base[0]= (V954);
6129          base[1]= (V900);          base[1]= (V960);
6130          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6131          (void) (*Lnk452)(Lclptr452);          (void) (*Lnk452)(Lclptr452);
6132          vs_top=sup;          vs_top=sup;
6133          goto T1959;          goto T1959;
6134  T1959:;  T1959:;
6135          {object V913;          {object V974;
6136          base[0]=VV[453]->s.s_gfdef;          base[0]=VV[453]->s.s_gfdef;
6137          base[1]= (V894);          base[1]= (V954);
6138          {object V914;          {object V975;
6139          V914= (V896);          V975= (V956);
6140           vs_top=base+2;           vs_top=base+2;
6141           while(V914!=Cnil)           while(V975!=Cnil)
6142           {vs_push((V914)->c.c_car);V914=(V914)->c.c_cdr;}           {vs_push((V975)->c.c_car);V975=(V975)->c.c_cdr;}
6143          vs_base=base+1;}          vs_base=base+1;}
6144          (void) (*Lnk453)(Lclptr453);          (void) (*Lnk453)(Lclptr453);
6145          vs_top=sup;          vs_top=sup;
6146          V913= vs_base[0];          V974= vs_base[0];
6147          if(((V899))==Cnil){          if(((V959))==Cnil){
6148          goto T1969;}          goto T1969;}
6149          (void)((*(LnkLI11))((V895),(V898)));          (void)((*(LnkLI11))((V955),(V958)));
6150          goto T1969;          goto T1969;
6151  T1969:;  T1969:;
6152          {object V915 = (V913);          {object V976 = (V974);
6153          VMR81(V915)}}          VMR81(V976)}}
6154          va_end(ap);          va_end(ap);
6155          base[0]=base[0];          base[0]=base[0];
6156          return Cnil;}          return Cnil;}
6157          }}          }}
6158  /*      local entry for function REAL-ENSURE-GF-USING-CLASS--NULL       */  /*      local entry for function REAL-ENSURE-GF-USING-CLASS--NULL       */
6159    
6160  static object LI94(object V917,object V916,object first,...)  static object LI94(object V978,object V977,object first,...)
6161  {        {      
6162          va_list ap;          va_list ap;
6163          int narg = VFUN_NARGS; VMB82 VMS82 VMV82          int narg = VFUN_NARGS; VMB82 VMS82 VMV82
6164          {object V918;          {object V979;
6165          object V919;          object V980;
6166          register object V920;          register object V981;
6167          object V921;          object V982;
6168          object V922;          object V983;
6169          object V923;          object V984;
6170          register object V924;          register object V985;
6171          va_start(ap,first);          va_start(ap,first);
6172          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
6173          V918= V917;          V979= V978;
6174          V919= V916;          V980= V977;
6175          narg= narg - 2;          narg= narg - 2;
6176          V925 = make_list(narg);          V986 = make_list(narg);
6177          V920= V925;          V981= V986;
6178          {          {
6179          parse_key_rest_new(V925,narg,Vcs +3,(struct key *)(void *)&LI94key,first,ap);          parse_key_rest_new(V986,narg,Vcs +3,(struct key *)(void *)&LI94key,first,ap);
6180          V921=(Vcs[3]);          V982=(Vcs[3]);
6181          if(Vcs[4]==0){          if(Vcs[4]==0){
6182          V922= Cnil;          V983= Cnil;
6183          V923= Cnil;          V984= Cnil;
6184          }else{          }else{
6185          V922=(Vcs[4]);          V983=(Vcs[4]);
6186          V923= Ct;}          V984= Ct;}
6187          V924=(Vcs[5]);          V985=(Vcs[5]);
6188          if(!(type_of((V924))==t_symbol)){          if(!(type_of((V985))==t_symbol)){
6189          goto T1976;}          goto T1976;}
6190          V924= (VFUN_NARGS=3,(*(LnkLI290))((V924),Ct,(V921)));          V985= (VFUN_NARGS=3,(*(LnkLI290))((V985),Ct,(V982)));
6191          goto T1974;          goto T1974;
6192          goto T1976;          goto T1976;
6193  T1976:;  T1976:;
6194          {object V926;          {object V987;
6195          base[0]= (V924);          base[0]= (V985);
6196          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6197          (void) (*Lnk291)(Lclptr291);          (void) (*Lnk291)(Lclptr291);
6198          vs_top=sup;          vs_top=sup;
6199          V926= vs_base[0];          V987= vs_base[0];
6200          if(((V926))==Cnil){          if(((V987))==Cnil){
6201          goto T1982;}          goto T1982;}
6202          goto T1974;          goto T1974;
6203          goto T1982;          goto T1982;
6204  T1982:;  T1982:;
6205          base[0]= VV[293];          base[0]= VV[293];
6206          base[1]= (V924);          base[1]= (V985);
6207          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6208          Lerror();          Lerror();
6209          vs_top=sup;}          vs_top=sup;}
6210          goto T1974;          goto T1974;
6211  T1974:;  T1974:;
6212          {object V927;          {object V988;
6213          object V928;          object V989;
6214          base[0]= (V920);          base[0]= (V981);
6215          base[1]= VV[5];          base[1]= VV[5];
6216          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6217          siLrem_f();          siLrem_f();
6218          if(vs_base>=vs_top){vs_top=sup;goto T1990;}          if(vs_base>=vs_top){vs_top=sup;goto T1990;}
6219          V927= vs_base[0];          V988= vs_base[0];
6220          vs_base++;          vs_base++;
6221          if(vs_base>=vs_top){vs_top=sup;goto T1991;}          if(vs_base>=vs_top){vs_top=sup;goto T1991;}
6222          V928= vs_base[0];          V989= vs_base[0];
6223          vs_top=sup;          vs_top=sup;
6224          goto T1992;          goto T1992;
6225          goto T1990;          goto T1990;
6226  T1990:;  T1990:;
6227          V927= Cnil;          V988= Cnil;
6228          goto T1991;          goto T1991;
6229  T1991:;  T1991:;
6230          V928= Cnil;          V989= Cnil;
6231          goto T1992;          goto T1992;
6232  T1992:;  T1992:;
6233          V920= (V927);}          V981= (V988);}
6234          {object V929;          {object V990;
6235          object V930;          object V991;
6236          base[0]= (V920);          base[0]= (V981);
6237          base[1]= VV[295];          base[1]= VV[295];
6238          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6239          siLrem_f();          siLrem_f();
6240          if(vs_base>=vs_top){vs_top=sup;goto T1999;}          if(vs_base>=vs_top){vs_top=sup;goto T1999;}
6241          V929= vs_base[0];          V990= vs_base[0];
6242          vs_base++;          vs_base++;
6243          if(vs_base>=vs_top){vs_top=sup;goto T2000;}          if(vs_base>=vs_top){vs_top=sup;goto T2000;}
6244          V930= vs_base[0];          V991= vs_base[0];
6245          vs_top=sup;          vs_top=sup;
6246          goto T2001;          goto T2001;
6247          goto T1999;          goto T1999;
6248  T1999:;  T1999:;
6249          V929= Cnil;          V990= Cnil;
6250          goto T2000;          goto T2000;
6251  T2000:;  T2000:;
6252          V930= Cnil;          V991= Cnil;
6253          goto T2001;          goto T2001;
6254  T2001:;  T2001:;
6255          V920= (V929);}          V981= (V990);}
6256          {object V931;          {object V992;
6257          base[0]= (V920);          base[0]= (V981);
6258          base[1]= VV[4];          base[1]= VV[4];
6259          base[2]= VV[303];          base[2]= VV[303];
6260          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
6261          Lgetf();          Lgetf();
6262          vs_top=sup;          vs_top=sup;
6263          V931= vs_base[0];          V992= vs_base[0];
6264          if(((V931))==(VV[303])){          if(((V992))==(VV[303])){
6265          goto T1973;}          goto T1973;}
6266          {object V933;          {object V994;
6267          base[2]= (V924);          base[2]= (V985);
6268          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6269          (void) (*Lnk301)(Lclptr301);          (void) (*Lnk301)(Lclptr301);
6270          vs_top=sup;          vs_top=sup;
6271          base[1]= vs_base[0];          base[1]= vs_base[0];
6272          base[2]= CMPcar((V931));          base[2]= CMPcar((V992));
6273          base[3]= CMPcdr((V931));          base[3]= CMPcdr((V992));
6274          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
6275          (void) (*Lnk300)(Lclptr300);          (void) (*Lnk300)(Lclptr300);
6276          vs_top=sup;          vs_top=sup;
6277          V933= vs_base[0];          V994= vs_base[0];
6278          {object V934;          {object V995;
6279          base[1]= (V920);          base[1]= (V981);
6280          base[2]= (V933);          base[2]= (V994);
6281          base[3]= VV[4];          base[3]= VV[4];
6282          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
6283          siLput_f();          siLput_f();
6284          vs_top=sup;          vs_top=sup;
6285          V934= vs_base[0];          V995= vs_base[0];
6286          V920= (V934);}}}          V981= (V995);}}}
6287          goto T1973;          goto T1973;
6288  T1973:;  T1973:;
6289          {object V935;          {object V996;
6290          base[0]=VV[454]->s.s_gfdef;          base[0]=VV[454]->s.s_gfdef;
6291          base[1]= (V924);          base[1]= (V985);
6292          base[2]= VV[220];          base[2]= VV[220];
6293          base[3]= (V919);          base[3]= (V980);
6294          {object V938;          {object V999;
6295          V938= (V920);          V999= (V981);
6296           vs_top=base+4;           vs_top=base+4;
6297           while(V938!=Cnil)           while(V999!=Cnil)
6298           {vs_push((V938)->c.c_car);V938=(V938)->c.c_cdr;}           {vs_push((V999)->c.c_car);V999=(V999)->c.c_cdr;}
6299          vs_base=base+1;}          vs_base=base+1;}
6300          (void) (*Lnk454)(Lclptr454);          (void) (*Lnk454)(Lclptr454);
6301          vs_top=sup;          vs_top=sup;
6302          V937= vs_base[0];          V998= vs_base[0];
6303          V935= (*(LnkLI345))(V937,V919);          V1000 = V980;
6304          if(((V923))==Cnil){          V996= (*(LnkLI345))(V998,V1000);
6305            if(((V984))==Cnil){
6306          goto T2027;}          goto T2027;}
6307          (void)((*(LnkLI11))((V919),(V922)));          (void)((*(LnkLI11))((V980),(V983)));
6308          goto T2027;          goto T2027;
6309  T2027:;  T2027:;
6310          {object V939 = (V935);          {object V1001 = (V996);
6311          VMR82(V939)}}          VMR82(V1001)}}
6312          va_end(ap);          va_end(ap);
6313          base[0]=base[0];          base[0]=base[0];
6314          return Cnil;}          return Cnil;}
# Line 6257  static void L95() Line 6319  static void L95()
6319  {register object *base=vs_base;  {register object *base=vs_base;
6320          register object *sup=base+VM83; VC83          register object *sup=base+VM83; VC83
6321          vs_check;          vs_check;
6322          {register object V940;          {register object V1002;
6323          check_arg(1);          check_arg(1);
6324          V940=(base[0]);          V1002=(base[0]);
6325          vs_top=sup;          vs_top=sup;
6326          goto TTL;          goto TTL;
6327  TTL:;  TTL:;
6328          {object V941;          {object V1003;
6329          object V942;          object V1004;
6330          object V943;          object V1005;
6331          {object V944;          {object V1006;
6332          object V945;          object V1007;
6333          if(((*(LnkLI438))((V940)))==Cnil){          if(((*(LnkLI438))((V1002)))==Cnil){
6334          goto T2033;}          goto T2033;}
6335          if(type_of(V940)==t_structure){          if(type_of(V1002)==t_structure){
6336          goto T2039;}          goto T2039;}
6337          goto T2037;          goto T2037;
6338          goto T2039;          goto T2039;
6339  T2039:;  T2039:;
6340          if(!(((V940)->str.str_def)==(VV[304]))){          if(!(((V1002)->str.str_def)==(VV[304]))){
6341          goto T2037;}          goto T2037;}
6342          V946= STREF(object,(V940),4);          V1008= STREF(object,(V1002),4);
6343          goto T2035;          goto T2035;
6344          goto T2037;          goto T2037;
6345  T2037:;{object V948;  T2037:;{object V1010;
6346          V948= (VV[147]->s.s_dbind);          V1010= (VV[147]->s.s_dbind);
6347          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
6348          base[4]= (V940);          base[4]= (V1002);
6349          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
6350          (void) (*Lnk390)();          (void) (*Lnk390)();
6351          vs_top=sup;          vs_top=sup;
6352          V949= vs_base[0];          V1011= vs_base[0];
6353          if(!((V948)==(CMPcar(V949)))){          if(!((V1010)==(CMPcar(V1011)))){
6354          goto T2042;}}          goto T2042;}}
6355          V946= CMPcar(((V940))->cc.cc_turbo[12]);          V1008= CMPcar(((V1002))->cc.cc_turbo[12]);
6356          goto T2035;          goto T2035;
6357          goto T2042;          goto T2042;
6358  T2042:;  T2042:;
# Line 6298  T2042:; Line 6360  T2042:;
6360          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6361          Lerror();          Lerror();
6362          vs_top=sup;          vs_top=sup;
6363          V946= vs_base[0];          V1008= vs_base[0];
6364          goto T2035;          goto T2035;
6365  T2035:;  T2035:;
6366          V944= (V946)->v.v_self[fix((VV[236]->s.s_dbind))];          V1012 = (VV[236]->s.s_dbind);
6367            V1006= (V1008)->v.v_self[fix(V1012)];
6368          goto T2031;          goto T2031;
6369          goto T2033;          goto T2033;
6370  T2033:;  T2033:;
6371          base[3]= (V940);          base[3]= (V1002);
6372          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6373          (void) (*Lnk393)(Lclptr393);          (void) (*Lnk393)(Lclptr393);
6374          vs_top=sup;          vs_top=sup;
6375          V944= vs_base[0];          V1006= vs_base[0];
6376          goto T2031;          goto T2031;
6377  T2031:;  T2031:;
6378          V945= STREF(object,(V944),8);          V1007= STREF(object,(V1006),8);
6379          base[3]= (*(LnkLI395))((V944));          base[3]= (*(LnkLI395))((V1006));
6380          base[4]= (V945);          base[4]= (V1007);
6381          base[5]= (V944);          base[5]= (V1006);
6382          vs_top=(vs_base=base+3)+3;}          vs_top=(vs_base=base+3)+3;}
6383          if(vs_base>=vs_top){vs_top=sup;goto T2053;}          if(vs_base>=vs_top){vs_top=sup;goto T2053;}
6384          V941= vs_base[0];          V1003= vs_base[0];
6385          vs_base++;          vs_base++;
6386          if(vs_base>=vs_top){vs_top=sup;goto T2054;}          if(vs_base>=vs_top){vs_top=sup;goto T2054;}
6387          V942= vs_base[0];          V1004= vs_base[0];
6388          vs_base++;          vs_base++;
6389          if(vs_base>=vs_top){vs_top=sup;goto T2055;}          if(vs_base>=vs_top){vs_top=sup;goto T2055;}
6390          V943= vs_base[0];          V1005= vs_base[0];
6391          vs_top=sup;          vs_top=sup;
6392          goto T2056;          goto T2056;
6393          goto T2053;          goto T2053;
6394  T2053:;  T2053:;
6395          V941= Cnil;          V1003= Cnil;
6396          goto T2054;          goto T2054;
6397  T2054:;  T2054:;
6398          V942= Cnil;          V1004= Cnil;
6399          goto T2055;          goto T2055;
6400  T2055:;  T2055:;
6401          V943= Cnil;          V1005= Cnil;
6402          goto T2056;          goto T2056;
6403  T2056:;  T2056:;
6404          base[1]= CMPmake_fixnum((long)length((V942)));          base[1]= CMPmake_fixnum((long)length((V1004)));
6405          base[2]= (V941);          base[2]= (V1003);
6406          base[3]= (V942);          base[3]= (V1004);
6407          base[5]= VV[455];          base[5]= VV[455];
6408          base[6]= (V942);          base[6]= (V1004);
6409          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
6410          (void) (*Lnk425)();          (void) (*Lnk425)();
6411          vs_top=sup;          vs_top=sup;
6412          base[4]= vs_base[0];          base[4]= vs_base[0];
6413          base[5]= (V943);          base[5]= (V1005);
6414          vs_top=(vs_base=base+1)+5;          vs_top=(vs_base=base+1)+5;
6415          return;}          return;}
6416          }          }
6417  }  }
6418  /*      local entry for function EARLY-MAKE-A-METHOD    */  /*      local entry for function EARLY-MAKE-A-METHOD    */
6419    
6420  static object LI96(object V955,object V954,object V953,object V952,object V951,object V950,object first,...)  static object LI96(object V1018,object V1017,object V1016,object V1015,object V1014,object V1013,object first,...)
6421  {        {      
6422          va_list ap;          va_list ap;
6423          int narg = VFUN_NARGS; VMB84 VMS84 VMV84          int narg = VFUN_NARGS; VMB84 VMS84 VMV84
6424          {object V956;          {object V1019;
6425          object V957;          object V1020;
6426          object V958;          object V1021;
6427          register object V959;          register object V1022;
6428          register object V960;          register object V1023;
6429          object V961;          object V1024;
6430          object V962;          object V1025;
6431          va_start(ap,first);          va_start(ap,first);
6432          if(narg <6) too_few_arguments();          if(narg <6) too_few_arguments();
6433          V956= V955;          V1019= V1018;
6434          V957= V954;          V1020= V1017;
6435          V958= V953;          V1021= V1016;
6436          V959= V952;          V1022= V1015;
6437          V960= V951;          V1023= V1014;
6438          V961= V950;          V1024= V1013;
6439          narg = narg - 6;          narg = narg - 6;
6440          if (narg <= 0) goto T2064;          if (narg <= 0) goto T2064;
6441          else {          else {
6442          V962= first;}          V1025= first;}
6443          --narg; goto T2065;          --narg; goto T2065;
6444          goto T2064;          goto T2064;
6445  T2064:;  T2064:;
6446          V962= Cnil;          V1025= Cnil;
6447          goto T2065;          goto T2065;
6448  T2065:;  T2065:;
6449          (void)((VFUN_NARGS=1,(*(LnkLI456))((V960))));          (void)((VFUN_NARGS=1,(*(LnkLI456))((V1023))));
6450          {object V963;          {object V1026;
6451          object V964;          object V1027;
6452          V963= Cnil;          V1026= Cnil;
6453          V964= Cnil;          V1027= Cnil;
6454          base[0]= VV[457];          base[0]= VV[457];
6455          base[1]= (V959);          base[1]= (V1022);
6456          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6457          (void) (*Lnk366)();          (void) (*Lnk366)();
6458          vs_top=sup;          vs_top=sup;
6459          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
6460          goto T2070;}          goto T2070;}
6461          V963= (V959);          V1026= (V1022);
6462          {object V965;          {object V1028;
6463          object V966= (V959);          object V1029= (V1022);
6464          if(V966==Cnil){          if(V1029==Cnil){
6465          V964= Cnil;          V1027= Cnil;
6466          goto T2076;}          goto T2076;}
6467          base[0]=V965=MMcons(Cnil,Cnil);          base[0]=V1028=MMcons(Cnil,Cnil);
6468          goto T2077;          goto T2077;
6469  T2077:;  T2077:;
6470          if(!(((V966->c.c_car))==(Ct))){          if(!(((V1029->c.c_car))==(Ct))){
6471          goto T2080;}          goto T2080;}
6472          (V965->c.c_car)= Ct;          (V1028->c.c_car)= Ct;
6473          goto T2078;          goto T2078;
6474          goto T2080;          goto T2080;
6475  T2080:;  T2080:;
6476          base[1]= (V966->c.c_car);          base[1]= (V1029->c.c_car);
6477          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6478          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk364)(Lclptr364);
6479          vs_top=sup;          vs_top=sup;
6480          (V965->c.c_car)= vs_base[0];          (V1028->c.c_car)= vs_base[0];
6481          goto T2078;          goto T2078;
6482  T2078:;  T2078:;
6483          if((V966=MMcdr(V966))==Cnil){          if((V1029=MMcdr(V1029))==Cnil){
6484          V964= base[0];          V1027= base[0];
6485          goto T2076;}          goto T2076;}
6486          V965=MMcdr(V965)=MMcons(Cnil,Cnil);          V1028=MMcdr(V1028)=MMcons(Cnil,Cnil);
6487          goto T2077;}          goto T2077;}
6488          goto T2076;          goto T2076;
6489  T2076:;  T2076:;
6490          goto T2068;          goto T2068;
6491          goto T2070;          goto T2070;
6492  T2070:;  T2070:;
6493          V964= (V959);          V1027= (V1022);
6494          V963= Cnil;          V1026= Cnil;
6495          goto T2068;          goto T2068;
6496  T2068:;  T2068:;
6497          base[0]= (V960);          base[0]= (V1023);
6498          base[1]= VV[36];          base[1]= VV[36];
6499          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6500          Lgetf();          Lgetf();
6501          vs_top=sup;          vs_top=sup;
6502          V968= vs_base[0];          V1031= vs_base[0];
6503          base[0]= (V960);          base[0]= (V1023);
6504          base[1]= VV[216];          base[1]= VV[216];
6505          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6506          Lgetf();          Lgetf();
6507          vs_top=sup;          vs_top=sup;
6508          V969= vs_base[0];          V1032= vs_base[0];
6509          {object V970 = list(5,VV[305],V968,V969,(V963),list(7,(V956),(V957),(V958),(V964),(V960),(V961),(V962)));          V1033 = (V1026);
6510          VMR84(V970)}}          {object V1034 = list(5,VV[305],V1031,V1032,V1033,list(7,(V1019),(V1020),(V1021),(V1027),(V1023),(V1024),(V1025)));
6511            VMR84(V1034)}}
6512          va_end(ap);          va_end(ap);
6513          base[0]=base[0];          base[0]=base[0];
6514          return Cnil;}          return Cnil;}
# Line 6455  static void L97() Line 6519  static void L97()
6519  {register object *base=vs_base;  {register object *base=vs_base;
6520          register object *sup=base+VM85; VC85          register object *sup=base+VM85; VC85
6521          vs_check;          vs_check;
6522          {object V971;          {object V1035;
6523          object V972;          object V1036;
6524          object V973;          object V1037;
6525          object V974;          object V1038;
6526          object V975;          object V1039;
6527          object V976;          object V1040;
6528          object V977;          object V1041;
6529          if(vs_top-vs_base<6) too_few_arguments();          if(vs_top-vs_base<6) too_few_arguments();
6530          if(vs_top-vs_base>7) too_many_arguments();          if(vs_top-vs_base>7) too_many_arguments();
6531          V971=(base[0]);          V1035=(base[0]);
6532          V972=(base[1]);          V1036=(base[1]);
6533          V973=(base[2]);          V1037=(base[2]);
6534          V974=(base[3]);          V1038=(base[3]);
6535          V975=(base[4]);          V1039=(base[4]);
6536          V976=(base[5]);          V1040=(base[5]);
6537          vs_base=vs_base+6;          vs_base=vs_base+6;
6538          if(vs_base>=vs_top){vs_top=sup;goto T2092;}          if(vs_base>=vs_top){vs_top=sup;goto T2092;}
6539          V977=(base[6]);          V1041=(base[6]);
6540          vs_top=sup;          vs_top=sup;
6541          goto T2093;          goto T2093;
6542          goto T2092;          goto T2092;
6543  T2092:;  T2092:;
6544          V977= Cnil;          V1041= Cnil;
6545          goto T2093;          goto T2093;
6546  T2093:;  T2093:;
6547          V974= (*(LnkLI458))((V974));          V1038= (*(LnkLI458))((V1038));
6548          base[7]=VV[454]->s.s_gfdef;          base[7]=VV[454]->s.s_gfdef;
6549          base[8]= (V971);          base[8]= (V1035);
6550          base[9]= VV[306];          base[9]= VV[306];
6551          base[10]= (V972);          base[10]= (V1036);
6552          base[11]= VV[15];          base[11]= VV[15];
6553          base[12]= (V973);          base[12]= (V1037);
6554          base[13]= VV[307];          base[13]= VV[307];
6555          base[14]= (V974);          base[14]= (V1038);
6556          base[15]= VV[3];          base[15]= VV[3];
6557          base[16]= (V976);          base[16]= (V1040);
6558          base[17]= VV[308];          base[17]= VV[308];
6559          base[18]= (V977);          base[18]= (V1041);
6560          base[19]= VV[309];          base[19]= VV[309];
6561          base[20]= Ct;          base[20]= Ct;
6562          {object V978;          {object V1042;
6563          V978= (V975);          V1042= (V1039);
6564           vs_top=base+21;           vs_top=base+21;
6565           while(V978!=Cnil)           while(V1042!=Cnil)
6566           {vs_push((V978)->c.c_car);V978=(V978)->c.c_cdr;}           {vs_push((V1042)->c.c_car);V1042=(V1042)->c.c_cdr;}
6567          vs_base=base+8;}          vs_base=base+8;}
6568          (void) (*Lnk454)(Lclptr454);          (void) (*Lnk454)(Lclptr454);
6569          return;          return;
# Line 6511  static void L98() Line 6575  static void L98()
6575  {register object *base=vs_base;  {register object *base=vs_base;
6576          register object *sup=base+VM86; VC86          register object *sup=base+VM86; VC86
6577          vs_check;          vs_check;
6578          {object V979;          {object V1043;
6579          check_arg(1);          check_arg(1);
6580          V979=(base[0]);          V1043=(base[0]);
6581          vs_top=sup;          vs_top=sup;
6582          goto TTL;          goto TTL;
6583  TTL:;  TTL:;
6584          base[1]= CMPcadr((V979));          base[1]= CMPcadr((V1043));
6585          base[2]= CMPcaddr((V979));          base[2]= CMPcaddr((V1043));
6586          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
6587          return;          return;
6588          }          }
6589  }  }
6590  /*      local entry for function EARLY-METHOD-CLASS     */  /*      local entry for function EARLY-METHOD-CLASS     */
6591    
6592  static object LI99(V981)  static object LI99(V1045)
6593    
6594  object V981;  object V1045;
6595  {        VMB87 VMS87 VMV87  {        VMB87 VMS87 VMV87
6596          goto TTL;          goto TTL;
6597  TTL:;  TTL:;
6598          base[0]= (V981);          base[0]= (V1045);
6599          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6600          (void) (*Lnk459)();          (void) (*Lnk459)();
6601          vs_top=sup;          vs_top=sup;
6602          V982= vs_base[0];          V1046= vs_base[0];
6603          {object V983 = (VFUN_NARGS=1,(*(LnkLI290))(CMPcar(V982)));          {object V1047 = (VFUN_NARGS=1,(*(LnkLI290))(CMPcar(V1046)));
6604          VMR87(V983)}          VMR87(V1047)}
6605          base[0]=base[0];          base[0]=base[0];
6606          return Cnil;          return Cnil;
6607  }  }
6608  /*      local entry for function EARLY-METHOD-STANDARD-ACCESSOR-P       */  /*      local entry for function EARLY-METHOD-STANDARD-ACCESSOR-P       */
6609    
6610  static object LI100(V985)  static object LI100(V1049)
6611    
6612  object V985;  object V1049;
6613  {        VMB88 VMS88 VMV88  {        VMB88 VMS88 VMV88
6614          goto TTL;          goto TTL;
6615  TTL:;  TTL:;
6616          {object V986;          {object V1050;
6617          base[0]= (V985);          base[0]= (V1049);
6618          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6619          (void) (*Lnk459)();          (void) (*Lnk459)();
6620          vs_top=sup;          vs_top=sup;
6621          V987= vs_base[0];          V1051= vs_base[0];
6622          V986= CMPcar(V987);          V1050= CMPcar(V1051);
6623          if(!(((V986))==(VV[310]))){          if(!(((V1050))==(VV[310]))){
6624          goto T2118;}          goto T2118;}
6625          {object V988 = Ct;          {object V1052 = Ct;
6626          VMR88(V988)}          VMR88(V1052)}
6627          goto T2118;          goto T2118;
6628  T2118:;  T2118:;
6629          if(!(((V986))==(VV[311]))){          if(!(((V1050))==(VV[311]))){
6630          goto T2120;}          goto T2120;}
6631          {object V989 = Ct;          {object V1053 = Ct;
6632          VMR88(V989)}          VMR88(V1053)}
6633          goto T2120;          goto T2120;
6634  T2120:;  T2120:;
6635          {object V990 = (((V986))==(VV[312])?Ct:Cnil);          {object V1054 = (((V1050))==(VV[312])?Ct:Cnil);
6636          VMR88(V990)}}          VMR88(V1054)}}
6637          base[0]=base[0];          base[0]=base[0];
6638          return Cnil;          return Cnil;
6639  }  }
# Line 6579  static void L101() Line 6643  static void L101()
6643  {register object *base=vs_base;  {register object *base=vs_base;
6644          register object *sup=base+VM89; VC89          register object *sup=base+VM89; VC89
6645          vs_check;          vs_check;
6646          {object V991;          {object V1055;
6647          check_arg(1);          check_arg(1);
6648          V991=(base[0]);          V1055=(base[0]);
6649          vs_top=sup;          vs_top=sup;
6650          goto TTL;          goto TTL;
6651  TTL:;  TTL:;
6652          base[2]= (V991);          base[2]= (V1055);
6653          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6654          (void) (*Lnk459)();          (void) (*Lnk459)();
6655          vs_top=sup;          vs_top=sup;
# Line 6597  TTL:; Line 6661  TTL:;
6661  }  }
6662  /*      local entry for function EARLY-METHOD-SPECIALIZERS      */  /*      local entry for function EARLY-METHOD-SPECIALIZERS      */
6663    
6664  static object LI102(object V992,object first,...)  static object LI102(object V1056,object first,...)
6665  {        {      
6666          va_list ap;          va_list ap;
6667          int narg = VFUN_NARGS; VMB90 VMS90 VMV90          int narg = VFUN_NARGS; VMB90 VMS90 VMV90
6668          {register object V993;          {register object V1057;
6669          object V994;          object V1058;
6670          va_start(ap,first);          va_start(ap,first);
6671          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
6672          V993= V992;          V1057= V1056;
6673          narg = narg - 1;          narg = narg - 1;
6674          if (narg <= 0) goto T2124;          if (narg <= 0) goto T2124;
6675          else {          else {
6676          V994= first;}          V1058= first;}
6677          --narg; goto T2125;          --narg; goto T2125;
6678          goto T2124;          goto T2124;
6679  T2124:;  T2124:;
6680          V994= Cnil;          V1058= Cnil;
6681          goto T2125;          goto T2125;
6682  T2125:;  T2125:;
6683          if(!(type_of((V993))==t_cons||((V993))==Cnil)){          if(!(type_of((V1057))==t_cons||((V1057))==Cnil)){
6684          goto T2128;}          goto T2128;}
6685          if(!((CMPcar((V993)))==(VV[305]))){          if(!((CMPcar((V1057)))==(VV[305]))){
6686          goto T2128;}          goto T2128;}
6687          if(!(((V994))==(Ct))){          if(!(((V1058))==(Ct))){
6688          goto T2133;}{object V995;          goto T2133;}{object V1059;
6689          V995= CMPcadddr((V993));          V1059= CMPcadddr((V1057));
6690          if(V995==Cnil)goto T2135;          if(V1059==Cnil)goto T2135;
6691          {object V996 = V995;          {object V1060 = V1059;
6692          VMR90(V996)}          VMR90(V1060)}
6693          goto T2135;          goto T2135;
6694  T2135:;}  T2135:;}
6695          {object V998;          {object V1062;
6696          base[2]=VV[290]->s.s_gfdef;          base[2]=VV[290]->s.s_gfdef;
6697          base[3]= (V993);          base[3]= (V1057);
6698          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6699          (void) (*Lnk459)();          (void) (*Lnk459)();
6700          vs_top=sup;          vs_top=sup;
6701          V1001= vs_base[0];          V1065= vs_base[0];
6702          {object V999;          {object V1063;
6703          object V1000= CMPcadddr(V1001);          object V1064= CMPcadddr(V1065);
6704          if(V1000==Cnil){          if(V1064==Cnil){
6705          V998= Cnil;          V1062= Cnil;
6706          goto T2137;}          goto T2137;}
6707          base[1]=V999=MMcons(Cnil,Cnil);          base[1]=V1063=MMcons(Cnil,Cnil);
6708          goto T2138;          goto T2138;
6709  T2138:;  T2138:;
6710          base[3]= (V1000->c.c_car);          base[3]= (V1064->c.c_car);
6711          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6712          (void) (*Lnk290)();          (void) (*Lnk290)();
6713          vs_top=sup;          vs_top=sup;
6714          (V999->c.c_car)= vs_base[0];          (V1063->c.c_car)= vs_base[0];
6715          if((V1000=MMcdr(V1000))==Cnil){          if((V1064=MMcdr(V1064))==Cnil){
6716          V998= base[1];          V1062= base[1];
6717          goto T2137;}          goto T2137;}
6718          V999=MMcdr(V999)=MMcons(Cnil,Cnil);          V1063=MMcdr(V1063)=MMcons(Cnil,Cnil);
6719          goto T2138;}          goto T2138;}
6720          goto T2137;          goto T2137;
6721  T2137:;  T2137:;
6722          (CMPcdddr(V993))->c.c_car = (V998);          (CMPcdddr(V1057))->c.c_car = (V1062);
6723          (void)(CMPcdddr(V993));          (void)(CMPcdddr(V1057));
6724          {object V1002 = (V998);          {object V1066 = (V1062);
6725          VMR90(V1002)}}          VMR90(V1066)}}
6726          goto T2133;          goto T2133;
6727  T2133:;  T2133:;
6728          base[0]= (V993);          base[0]= (V1057);
6729          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6730          (void) (*Lnk459)();          (void) (*Lnk459)();
6731          vs_top=sup;          vs_top=sup;
6732          V1003= vs_base[0];          V1067= vs_base[0];
6733          {object V1004 = CMPcadddr(V1003);          {object V1068 = CMPcadddr(V1067);
6734          VMR90(V1004)}          VMR90(V1068)}
6735          goto T2128;          goto T2128;
6736  T2128:;  T2128:;
6737          base[0]= VV[313];          base[0]= VV[313];
6738          base[1]= (V993);          base[1]= (V1057);
6739          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6740          Lerror();          Lerror();
6741          vs_top=sup;          vs_top=sup;
6742          {object V1005 = vs_base[0];          {object V1069 = vs_base[0];
6743          VMR90(V1005)}          VMR90(V1069)}
6744          va_end(ap);          va_end(ap);
6745          base[0]=base[0];          base[0]=base[0];
6746          return Cnil;}          return Cnil;}
6747          }          }
6748  /*      local entry for function EARLY-METHOD-QUALIFIERS        */  /*      local entry for function EARLY-METHOD-QUALIFIERS        */
6749    
6750  static object LI103(V1007)  static object LI103(V1071)
6751    
6752  object V1007;  object V1071;
6753  {        VMB91 VMS91 VMV91  {        VMB91 VMS91 VMV91
6754          goto TTL;          goto TTL;
6755  TTL:;  TTL:;
6756          base[0]= (V1007);          base[0]= (V1071);
6757          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6758          (void) (*Lnk459)();          (void) (*Lnk459)();
6759          vs_top=sup;          vs_top=sup;
6760          V1008= vs_base[0];          V1072= vs_base[0];
6761          {object V1009 = CMPcadr(V1008);          {object V1073 = CMPcadr(V1072);
6762          VMR91(V1009)}          VMR91(V1073)}
6763          base[0]=base[0];          base[0]=base[0];
6764          return Cnil;          return Cnil;
6765  }  }
6766  /*      local entry for function EARLY-METHOD-LAMBDA-LIST       */  /*      local entry for function EARLY-METHOD-LAMBDA-LIST       */
6767    
6768  static object LI104(V1011)  static object LI104(V1075)
6769    
6770  object V1011;  object V1075;
6771  {        VMB92 VMS92 VMV92  {        VMB92 VMS92 VMV92
6772          goto TTL;          goto TTL;
6773  TTL:;  TTL:;
6774          base[0]= (V1011);          base[0]= (V1075);
6775          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
6776          (void) (*Lnk459)();          (void) (*Lnk459)();
6777          vs_top=sup;          vs_top=sup;
6778          V1012= vs_base[0];          V1076= vs_base[0];
6779          {object V1013 = CMPcaddr(V1012);          {object V1077 = CMPcaddr(V1076);
6780          VMR92(V1013)}          VMR92(V1077)}
6781          base[0]=base[0];          base[0]=base[0];
6782          return Cnil;          return Cnil;
6783  }  }
6784  /*      local entry for function EARLY-ADD-NAMED-METHOD */  /*      local entry for function EARLY-ADD-NAMED-METHOD */
6785    
6786  static object LI105(object V1017,object V1016,object V1015,object V1014,object first,...)  static object LI105(object V1081,object V1080,object V1079,object V1078,object first,...)
6787  {        {      
6788          va_list ap;          va_list ap;
6789          int narg = VFUN_NARGS; VMB93 VMS93 VMV93          int narg = VFUN_NARGS; VMB93 VMS93 VMV93
6790          {object V1018;          {object V1082;
6791          register object V1019;          register object V1083;
6792          register object V1020;          register object V1084;
6793          object V1021;          object V1085;
6794          object V1022;          object V1086;
6795          va_start(ap,first);          va_start(ap,first);
6796          if(narg <4) too_few_arguments();          if(narg <4) too_few_arguments();
6797          V1018= V1017;          V1082= V1081;
6798          V1019= V1016;          V1083= V1080;
6799          V1020= V1015;          V1084= V1079;
6800          V1021= V1014;          V1085= V1078;
6801          narg= narg - 4;          narg= narg - 4;
6802          V1023 = list_vector_new(narg,first,ap);          V1087 = list_vector_new(narg,first,ap);
6803          V1022= V1023;          V1086= V1087;
6804          {object V1024;          {object V1088;
6805          object V1025;          object V1089;
6806          object V1026;          object V1090;
6807          base[3]= (V1018);          base[3]= (V1082);
6808          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
6809          (void) (*Lnk351)();          (void) (*Lnk351)();
6810          vs_top=sup;          vs_top=sup;
6811          V1024= vs_base[0];          V1088= vs_base[0];
6812          {register object V1027;          {register object V1091;
6813          register object V1028;          register object V1092;
6814          if(type_of(V1024)==t_structure){          if(type_of(V1088)==t_structure){
6815          goto T2160;}          goto T2160;}
6816          goto T2158;          goto T2158;
6817          goto T2160;          goto T2160;
6818  T2160:;  T2160:;
6819          if(!(((V1024)->str.str_def)==(VV[314]))){          if(!(((V1088)->str.str_def)==(VV[314]))){
6820          goto T2158;}          goto T2158;}
6821          V1029= STREF(object,(V1024),4);          V1093= STREF(object,(V1088),4);
6822          goto T2156;          goto T2156;
6823          goto T2158;          goto T2158;
6824  T2158:;{object V1031;  T2158:;{object V1095;
6825          V1031= (VV[147]->s.s_dbind);          V1095= (VV[147]->s.s_dbind);
6826          base[5]= small_fixnum(14);          base[5]= small_fixnum(14);
6827          base[6]= (V1024);          base[6]= (V1088);
6828          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
6829          (void) (*Lnk390)();          (void) (*Lnk390)();
6830          vs_top=sup;          vs_top=sup;
6831          V1032= vs_base[0];          V1096= vs_base[0];
6832          if(!((V1031)==(CMPcar(V1032)))){          if(!((V1095)==(CMPcar(V1096)))){
6833          goto T2163;}}          goto T2163;}}
6834          V1029= CMPcar(((V1024))->cc.cc_turbo[12]);          V1093= CMPcar(((V1088))->cc.cc_turbo[12]);
6835          goto T2156;          goto T2156;
6836          goto T2163;          goto T2163;
6837  T2163:;  T2163:;
# Line 6775  T2163:; Line 6839  T2163:;
6839          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6840          Lerror();          Lerror();
6841          vs_top=sup;          vs_top=sup;
6842          V1029= vs_base[0];          V1093= vs_base[0];
6843          goto T2156;          goto T2156;
6844  T2156:;  T2156:;
6845          V1027= (V1029)->v.v_self[fix((VV[235]->s.s_dbind))];          V1097 = (VV[235]->s.s_dbind);
6846          V1028= CMPcar((V1027));          V1091= (V1093)->v.v_self[fix(V1097)];
6847            V1092= CMPcar((V1091));
6848          goto T2171;          goto T2171;
6849  T2171:;  T2171:;
6850          if(!(((V1027))==Cnil)){          if(!(((V1091))==Cnil)){
6851          goto T2172;}          goto T2172;}
6852          V1025= Cnil;          V1089= Cnil;
6853          goto T2154;          goto T2154;
6854          goto T2172;          goto T2172;
6855  T2172:;  T2172:;
6856          V1033= (VFUN_NARGS=1,(*(LnkLI434))((V1028)));          V1098= (VFUN_NARGS=1,(*(LnkLI434))((V1092)));
6857          if(!(equal(/* INLINE-ARGS */V1033,(V1020)))){          V1099 = (V1084);
6858            if(!(equal(/* INLINE-ARGS */V1098,V1099))){
6859          goto T2176;}          goto T2176;}
6860          V1034= (*(LnkLI461))((V1028));          V1100= (*(LnkLI461))((V1092));
6861          if(!(equal(/* INLINE-ARGS */V1034,(V1019)))){          V1101 = (V1083);
6862            if(!(equal(/* INLINE-ARGS */V1100,V1101))){
6863          goto T2176;}          goto T2176;}
6864          V1025= (V1028);          V1089= (V1092);
6865          goto T2154;          goto T2154;
6866          goto T2176;          goto T2176;
6867  T2176:;  T2176:;
6868          V1027= CMPcdr((V1027));          V1091= CMPcdr((V1091));
6869          V1028= CMPcar((V1027));          V1092= CMPcar((V1091));
6870          goto T2171;}          goto T2171;}
6871          goto T2154;          goto T2154;
6872  T2154:;  T2154:;
6873          base[3]= VV[20];          base[3]= VV[20];
6874          base[4]= (V1019);          base[4]= (V1083);
6875          base[5]= (V1021);          base[5]= (V1085);
6876          base[6]= (V1020);          base[6]= (V1084);
6877          base[7]= (V1022);          base[7]= (V1086);
6878          base[8]= Cnil;          base[8]= Cnil;
6879          V1026= simple_symlispcall(VV[462],base+3,6);          V1090= simple_symlispcall(VV[462],base+3,6);
6880          if(((V1025))==Cnil){          if(((V1089))==Cnil){
6881          goto T2193;}          goto T2193;}
6882          base[3]= (V1024);          base[3]= (V1088);
6883          base[4]= (V1025);          base[4]= (V1089);
6884          (void)simple_symlispcall(VV[463],base+3,2);          (void)simple_symlispcall(VV[463],base+3,2);
6885          goto T2193;          goto T2193;
6886  T2193:;  T2193:;
6887          base[3]= (V1024);          base[3]= (V1088);
6888          base[4]= (V1026);          base[4]= (V1090);
6889          {object V1035 = simple_symlispcall(VV[464],base+3,2);          {object V1102 = simple_symlispcall(VV[464],base+3,2);
6890          VMR93(V1035)}}          VMR93(V1102)}}
6891          va_end(ap);          va_end(ap);
6892          base[0]=base[0];          base[0]=base[0];
6893          return Cnil;}          return Cnil;}
6894          }          }
6895  /*      local entry for function ADD-METHOD     */  /*      local entry for function ADD-METHOD     */
6896    
6897  static object LI106(V1038,V1039)  static object LI106(V1105,V1106)
6898    
6899  register object V1038;register object V1039;  register object V1105;register object V1106;
6900  {        VMB94 VMS94 VMV94  {        VMB94 VMS94 VMV94
6901          goto TTL;          goto TTL;
6902  TTL:;{object V1040;  TTL:;{object V1107;
6903          V1040= (VV[147]->s.s_dbind);          V1107= (VV[147]->s.s_dbind);
6904          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
6905          base[1]= (V1038);          base[1]= (V1105);
6906          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6907          (void) (*Lnk390)();          (void) (*Lnk390)();
6908          vs_top=sup;          vs_top=sup;
6909          V1041= vs_base[0];          V1108= vs_base[0];
6910          if((V1040)==(CMPcar(V1041))){          if((V1107)==(CMPcar(V1108))){
6911          goto T2200;}}          goto T2200;}}
6912          base[0]= VV[315];          base[0]= VV[315];
6913          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 6848  TTL:;{object V1040; Line 6915  TTL:;{object V1040;
6915          vs_top=sup;          vs_top=sup;
6916          goto T2200;          goto T2200;
6917  T2200:;  T2200:;
6918          if(!(type_of((V1039))==t_cons||((V1039))==Cnil)){          if(!(type_of((V1106))==t_cons||((V1106))==Cnil)){
6919          goto T2208;}          goto T2208;}
6920          if((CMPcar((V1039)))==(VV[305])){          if((CMPcar((V1106)))==(VV[305])){
6921          goto T2207;}          goto T2207;}
6922          goto T2208;          goto T2208;
6923  T2208:;  T2208:;
# Line 6860  T2208:; Line 6927  T2208:;
6927          vs_top=sup;          vs_top=sup;
6928          goto T2207;          goto T2207;
6929  T2207:;  T2207:;
6930          {object V1043;          {object V1110;
6931          object V1044;          object V1111;
6932          object V1045;          object V1112;
6933          if(type_of(V1038)==t_structure){          if(type_of(V1105)==t_structure){
6934          goto T2218;}          goto T2218;}
6935          goto T2216;          goto T2216;
6936          goto T2218;          goto T2218;
6937  T2218:;  T2218:;
6938          if(!(((V1038)->str.str_def)==(VV[317]))){          if(!(((V1105)->str.str_def)==(VV[317]))){
6939          goto T2216;}          goto T2216;}
6940          V1043= STREF(object,(V1038),4);          V1110= STREF(object,(V1105),4);
6941          goto T2214;          goto T2214;
6942          goto T2216;          goto T2216;
6943  T2216:;{object V1047;  T2216:;{object V1114;
6944          V1047= (VV[147]->s.s_dbind);          V1114= (VV[147]->s.s_dbind);
6945          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
6946          base[3]= (V1038);          base[3]= (V1105);
6947          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
6948          (void) (*Lnk390)();          (void) (*Lnk390)();
6949          vs_top=sup;          vs_top=sup;
6950          V1048= vs_base[0];          V1115= vs_base[0];
6951          if(!((V1047)==(CMPcar(V1048)))){          if(!((V1114)==(CMPcar(V1115)))){
6952          goto T2221;}}          goto T2221;}}
6953          V1043= CMPcar(((V1038))->cc.cc_turbo[12]);          V1110= CMPcar(((V1105))->cc.cc_turbo[12]);
6954          goto T2214;          goto T2214;
6955          goto T2221;          goto T2221;
6956  T2221:;  T2221:;
# Line 6891  T2221:; Line 6958  T2221:;
6958          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6959          Lerror();          Lerror();
6960          vs_top=sup;          vs_top=sup;
6961          V1043= vs_base[0];          V1110= vs_base[0];
6962          goto T2214;          goto T2214;
6963  T2214:;  T2214:;
6964          V1044= (VV[235]->s.s_dbind);          V1111= (VV[235]->s.s_dbind);
6965          V1045= make_cons(V1039,((V1043))->v.v_self[fix((V1044))]);          V1112= make_cons(V1106,((V1110))->v.v_self[fix((V1111))]);
6966          (void)((((V1043))->v.v_self[fix((V1044))]=((V1045))));}          (void)((((V1110))->v.v_self[fix((V1111))]=((V1112))));}
6967          (void)((VFUN_NARGS=3,(*(LnkLI449))((V1038),VV[318],(V1039))));          (void)((VFUN_NARGS=3,(*(LnkLI449))((V1105),VV[318],(V1106))));
6968          V1050= (*(LnkLI441))((V1038));          V1117= (*(LnkLI441))((V1105));
6969          {register object x= /* INLINE-ARGS */V1050,V1049= (VV[261]->s.s_dbind);          V1118 = (VV[261]->s.s_dbind);
6970          while(V1049!=Cnil)          {register object x= /* INLINE-ARGS */V1117,V1116= V1118;
6971          if(equal(x,V1049->c.c_car->c.c_car) &&V1049->c.c_car != Cnil){          while(V1116!=Cnil)
6972            if(equal(x,V1116->c.c_car->c.c_car) &&V1116->c.c_car != Cnil){
6973          goto T2231;          goto T2231;
6974          }else V1049=V1049->c.c_cdr;}          }else V1116=V1116->c.c_cdr;}
6975          {object V1051 = (VFUN_NARGS=1,(*(LnkLI465))((V1038)));          {object V1119 = (VFUN_NARGS=1,(*(LnkLI465))((V1105)));
6976          VMR94(V1051)}          VMR94(V1119)}
6977          goto T2231;          goto T2231;
6978  T2231:;  T2231:;
6979          {object V1052 = Cnil;          {object V1120 = Cnil;
6980          VMR94(V1052)}          VMR94(V1120)}
6981          base[0]=base[0];          base[0]=base[0];
6982          return Cnil;          return Cnil;
6983  }  }
6984  /*      local entry for function REMOVE-METHOD  */  /*      local entry for function REMOVE-METHOD  */
6985    
6986  static object LI107(V1055,V1056)  static object LI107(V1123,V1124)
6987    
6988  register object V1055;object V1056;  register object V1123;object V1124;
6989  {        VMB95 VMS95 VMV95  {        VMB95 VMS95 VMV95
6990          goto TTL;          goto TTL;
6991  TTL:;{object V1057;  TTL:;{object V1125;
6992          V1057= (VV[147]->s.s_dbind);          V1125= (VV[147]->s.s_dbind);
6993          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
6994          base[1]= (V1055);          base[1]= (V1123);
6995          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
6996          (void) (*Lnk390)();          (void) (*Lnk390)();
6997          vs_top=sup;          vs_top=sup;
6998          V1058= vs_base[0];          V1126= vs_base[0];
6999          if((V1057)==(CMPcar(V1058))){          if((V1125)==(CMPcar(V1126))){
7000          goto T2233;}}          goto T2233;}}
7001          base[0]= VV[319];          base[0]= VV[319];
7002          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 6936  TTL:;{object V1057; Line 7004  TTL:;{object V1057;
7004          vs_top=sup;          vs_top=sup;
7005          goto T2233;          goto T2233;
7006  T2233:;  T2233:;
7007          if(!(type_of((V1056))==t_cons||((V1056))==Cnil)){          if(!(type_of((V1124))==t_cons||((V1124))==Cnil)){
7008          goto T2241;}          goto T2241;}
7009          if((CMPcar((V1056)))==(VV[305])){          if((CMPcar((V1124)))==(VV[305])){
7010          goto T2240;}          goto T2240;}
7011          goto T2241;          goto T2241;
7012  T2241:;  T2241:;
# Line 6948  T2241:; Line 7016  T2241:;
7016          vs_top=sup;          vs_top=sup;
7017          goto T2240;          goto T2240;
7018  T2240:;  T2240:;
7019          if(type_of(V1055)==t_structure){          if(type_of(V1123)==t_structure){
7020          goto T2251;}          goto T2251;}
7021          goto T2249;          goto T2249;
7022          goto T2251;          goto T2251;
7023  T2251:;  T2251:;
7024          if(!(((V1055)->str.str_def)==(VV[321]))){          if(!(((V1123)->str.str_def)==(VV[321]))){
7025          goto T2249;}          goto T2249;}
7026          V1059= STREF(object,(V1055),4);          V1127= STREF(object,(V1123),4);
7027          goto T2247;          goto T2247;
7028          goto T2249;          goto T2249;
7029  T2249:;{object V1061;  T2249:;{object V1129;
7030          V1061= (VV[147]->s.s_dbind);          V1129= (VV[147]->s.s_dbind);
7031          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
7032          base[1]= (V1055);          base[1]= (V1123);
7033          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
7034          (void) (*Lnk390)();          (void) (*Lnk390)();
7035          vs_top=sup;          vs_top=sup;
7036          V1062= vs_base[0];          V1130= vs_base[0];
7037          if(!((V1061)==(CMPcar(V1062)))){          if(!((V1129)==(CMPcar(V1130)))){
7038          goto T2254;}}          goto T2254;}}
7039          V1059= CMPcar(((V1055))->cc.cc_turbo[12]);          V1127= CMPcar(((V1123))->cc.cc_turbo[12]);
7040          goto T2247;          goto T2247;
7041          goto T2254;          goto T2254;
7042  T2254:;  T2254:;
# Line 6976  T2254:; Line 7044  T2254:;
7044          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7045          Lerror();          Lerror();
7046          vs_top=sup;          vs_top=sup;
7047          V1059= vs_base[0];          V1127= vs_base[0];
7048          goto T2247;          goto T2247;
7049  T2247:;{object V1063;  T2247:;{object V1131;
7050          V1063= (VV[235]->s.s_dbind);          V1131= (VV[235]->s.s_dbind);
7051          base[0]= (V1056);          base[0]= (V1124);
7052          if(type_of(V1055)==t_structure){          if(type_of(V1123)==t_structure){
7053          goto T2267;}          goto T2267;}
7054          goto T2265;          goto T2265;
7055          goto T2267;          goto T2267;
7056  T2267:;  T2267:;
7057          if(!(((V1055)->str.str_def)==(VV[322]))){          if(!(((V1123)->str.str_def)==(VV[322]))){
7058          goto T2265;}          goto T2265;}
7059          V1065= STREF(object,(V1055),4);          V1133= STREF(object,(V1123),4);
7060          goto T2263;          goto T2263;
7061          goto T2265;          goto T2265;
7062  T2265:;{object V1067;  T2265:;{object V1135;
7063          V1067= (VV[147]->s.s_dbind);          V1135= (VV[147]->s.s_dbind);
7064          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
7065          base[3]= (V1055);          base[3]= (V1123);
7066          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7067          (void) (*Lnk390)();          (void) (*Lnk390)();
7068          vs_top=sup;          vs_top=sup;
7069          V1068= vs_base[0];          V1136= vs_base[0];
7070          if(!((V1067)==(CMPcar(V1068)))){          if(!((V1135)==(CMPcar(V1136)))){
7071          goto T2270;}}          goto T2270;}}
7072          V1065= CMPcar(((V1055))->cc.cc_turbo[12]);          V1133= CMPcar(((V1123))->cc.cc_turbo[12]);
7073          goto T2263;          goto T2263;
7074          goto T2270;          goto T2270;
7075  T2270:;  T2270:;
# Line 7009  T2270:; Line 7077  T2270:;
7077          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7078          Lerror();          Lerror();
7079          vs_top=sup;          vs_top=sup;
7080          V1065= vs_base[0];          V1133= vs_base[0];
7081          goto T2263;          goto T2263;
7082  T2263:;  T2263:;
7083          base[1]= (V1065)->v.v_self[fix((VV[235]->s.s_dbind))];          V1137 = (VV[235]->s.s_dbind);
7084            base[1]= (V1133)->v.v_self[fix(V1137)];
7085          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
7086          (void) (*Lnk376)();          (void) (*Lnk376)();
7087          vs_top=sup;          vs_top=sup;
7088          V1064= vs_base[0];          V1132= vs_base[0];
7089          (void)(((V1059)->v.v_self[fix(V1063)]=(V1064)));}          (void)(((V1127)->v.v_self[fix(V1131)]=(V1132)));}
7090          (void)((VFUN_NARGS=1,(*(LnkLI449))((V1055))));          (void)((VFUN_NARGS=1,(*(LnkLI449))((V1123))));
7091          V1070= (*(LnkLI441))((V1055));          V1139= (*(LnkLI441))((V1123));
7092          {register object x= /* INLINE-ARGS */V1070,V1069= (VV[261]->s.s_dbind);          V1140 = (VV[261]->s.s_dbind);
7093          while(V1069!=Cnil)          {register object x= /* INLINE-ARGS */V1139,V1138= V1140;
7094          if(equal(x,V1069->c.c_car->c.c_car) &&V1069->c.c_car != Cnil){          while(V1138!=Cnil)
7095            if(equal(x,V1138->c.c_car->c.c_car) &&V1138->c.c_car != Cnil){
7096          goto T2278;          goto T2278;
7097          }else V1069=V1069->c.c_cdr;}          }else V1138=V1138->c.c_cdr;}
7098          {object V1071 = (VFUN_NARGS=1,(*(LnkLI465))((V1055)));          {object V1141 = (VFUN_NARGS=1,(*(LnkLI465))((V1123)));
7099          VMR95(V1071)}          VMR95(V1141)}
7100          goto T2278;          goto T2278;
7101  T2278:;  T2278:;
7102          {object V1072 = Cnil;          {object V1142 = Cnil;
7103          VMR95(V1072)}          VMR95(V1142)}
7104          base[0]=base[0];          base[0]=base[0];
7105          return Cnil;          return Cnil;
7106  }  }
7107  /*      local entry for function GET-METHOD     */  /*      local entry for function GET-METHOD     */
7108    
7109  static object LI108(object V1075,object V1074,object V1073,object first,...)  static object LI108(object V1145,object V1144,object V1143,object first,...)
7110  {        {      
7111          va_list ap;          va_list ap;
7112          int narg = VFUN_NARGS; VMB96 VMS96 VMV96          int narg = VFUN_NARGS; VMB96 VMS96 VMV96
7113          {object V1076;          {object V1146;
7114          register object V1077;          register object V1147;
7115          register object V1078;          register object V1148;
7116          object V1079;          object V1149;
7117          va_start(ap,first);          va_start(ap,first);
7118          if(narg <3) too_few_arguments();          if(narg <3) too_few_arguments();
7119          V1076= V1075;          V1146= V1145;
7120          V1077= V1074;          V1147= V1144;
7121          V1078= V1073;          V1148= V1143;
7122          narg = narg - 3;          narg = narg - 3;
7123          if (narg <= 0) goto T2280;          if (narg <= 0) goto T2280;
7124          else {          else {
7125          V1079= first;}          V1149= first;}
7126          --narg; goto T2281;          --narg; goto T2281;
7127          goto T2280;          goto T2280;
7128  T2280:;  T2280:;
7129          V1079= Ct;          V1149= Ct;
7130          goto T2281;          goto T2281;
7131  T2281:;  T2281:;
7132          if(((*(LnkLI438))((V1076)))==Cnil){          if(((*(LnkLI438))((V1146)))==Cnil){
7133          goto T2284;}{object V1080;          goto T2284;}{object V1150;
7134          {register object V1081;          {register object V1151;
7135          register object V1082;          register object V1152;
7136          if(type_of(V1076)==t_structure){          if(type_of(V1146)==t_structure){
7137          goto T2293;}          goto T2293;}
7138          goto T2291;          goto T2291;
7139          goto T2293;          goto T2293;
7140  T2293:;  T2293:;
7141          if(!(((V1076)->str.str_def)==(VV[323]))){          if(!(((V1146)->str.str_def)==(VV[323]))){
7142          goto T2291;}          goto T2291;}
7143          V1083= STREF(object,(V1076),4);          V1153= STREF(object,(V1146),4);
7144          goto T2289;          goto T2289;
7145          goto T2291;          goto T2291;
7146  T2291:;{object V1085;  T2291:;{object V1155;
7147          V1085= (VV[147]->s.s_dbind);          V1155= (VV[147]->s.s_dbind);
7148          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
7149          base[3]= (V1076);          base[3]= (V1146);
7150          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7151          (void) (*Lnk390)();          (void) (*Lnk390)();
7152          vs_top=sup;          vs_top=sup;
7153          V1086= vs_base[0];          V1156= vs_base[0];
7154          if(!((V1085)==(CMPcar(V1086)))){          if(!((V1155)==(CMPcar(V1156)))){
7155          goto T2296;}}          goto T2296;}}
7156          V1083= CMPcar(((V1076))->cc.cc_turbo[12]);          V1153= CMPcar(((V1146))->cc.cc_turbo[12]);
7157          goto T2289;          goto T2289;
7158          goto T2296;          goto T2296;
7159  T2296:;  T2296:;
# Line 7091  T2296:; Line 7161  T2296:;
7161          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7162          Lerror();          Lerror();
7163          vs_top=sup;          vs_top=sup;
7164          V1083= vs_base[0];          V1153= vs_base[0];
7165          goto T2289;          goto T2289;
7166  T2289:;  T2289:;
7167          V1081= (V1083)->v.v_self[fix((VV[235]->s.s_dbind))];          V1157 = (VV[235]->s.s_dbind);
7168          V1082= CMPcar((V1081));          V1151= (V1153)->v.v_self[fix(V1157)];
7169            V1152= CMPcar((V1151));
7170          goto T2304;          goto T2304;
7171  T2304:;  T2304:;
7172          if(!(((V1081))==Cnil)){          if(!(((V1151))==Cnil)){
7173          goto T2305;}          goto T2305;}
7174          V1080= Cnil;          V1150= Cnil;
7175          goto T2287;          goto T2287;
7176          goto T2305;          goto T2305;
7177  T2305:;  T2305:;
7178          V1087= (VFUN_NARGS=2,(*(LnkLI434))((V1082),Cnil));          V1158= (VFUN_NARGS=2,(*(LnkLI434))((V1152),Cnil));
7179          if(equal(/* INLINE-ARGS */V1087,(V1078))){          V1159 = (V1148);
7180            if(equal(/* INLINE-ARGS */V1158,V1159)){
7181          goto T2311;}          goto T2311;}
7182          V1088= (VFUN_NARGS=2,(*(LnkLI434))((V1082),Ct));          V1160= (VFUN_NARGS=2,(*(LnkLI434))((V1152),Ct));
7183          if(!(equal(/* INLINE-ARGS */V1088,(V1078)))){          V1161 = (V1148);
7184            if(!(equal(/* INLINE-ARGS */V1160,V1161))){
7185          goto T2309;}          goto T2309;}
7186          goto T2311;          goto T2311;
7187  T2311:;  T2311:;
7188          V1089= (*(LnkLI461))((V1082));          V1162= (*(LnkLI461))((V1152));
7189          if(!(equal(/* INLINE-ARGS */V1089,(V1077)))){          V1163 = (V1147);
7190            if(!(equal(/* INLINE-ARGS */V1162,V1163))){
7191          goto T2309;}          goto T2309;}
7192          V1080= (V1082);          V1150= (V1152);
7193          goto T2287;          goto T2287;
7194          goto T2309;          goto T2309;
7195  T2309:;  T2309:;
7196          V1081= CMPcdr((V1081));          V1151= CMPcdr((V1151));
7197          V1082= CMPcar((V1081));          V1152= CMPcar((V1151));
7198          goto T2304;}          goto T2304;}
7199          goto T2287;          goto T2287;
7200  T2287:;  T2287:;
7201          if(V1080==Cnil)goto T2286;          if(V1150==Cnil)goto T2286;
7202          {object V1090 = V1080;          {object V1164 = V1150;
7203          VMR96(V1090)}          VMR96(V1164)}
7204          goto T2286;          goto T2286;
7205  T2286:;}  T2286:;}
7206          if(((V1079))==Cnil){          if(((V1149))==Cnil){
7207          goto T2322;}          goto T2322;}
7208          base[0]= VV[324];          base[0]= VV[324];
7209          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7210          Lerror();          Lerror();
7211          vs_top=sup;          vs_top=sup;
7212          {object V1091 = vs_base[0];          {object V1165 = vs_base[0];
7213          VMR96(V1091)}          VMR96(V1165)}
7214          goto T2322;          goto T2322;
7215  T2322:;  T2322:;
7216          {object V1092 = Cnil;          {object V1166 = Cnil;
7217          VMR96(V1092)}          VMR96(V1166)}
7218          goto T2284;          goto T2284;
7219  T2284:;  T2284:;
7220          {object V1093 = (VFUN_NARGS=4,(*(LnkLI466))((V1076),(V1077),(V1078),(V1079)));          {object V1167 = (VFUN_NARGS=4,(*(LnkLI466))((V1146),(V1147),(V1148),(V1149)));
7221          VMR96(V1093)}          VMR96(V1167)}
7222          va_end(ap);          va_end(ap);
7223          base[0]=base[0];          base[0]=base[0];
7224          return Cnil;}          return Cnil;}
# Line 7155  static object LI109(object first,...) Line 7229  static object LI109(object first,...)
7229  {        {      
7230          va_list ap;          va_list ap;
7231          int narg = VFUN_NARGS; VMB97 VMS97 VMV97          int narg = VFUN_NARGS; VMB97 VMS97 VMV97
7232          {object V1094;          {object V1168;
7233          va_start(ap,first);          va_start(ap,first);
7234          narg = narg - 0;          narg = narg - 0;
7235          if (narg <= 0) goto T2325;          if (narg <= 0) goto T2325;
7236          else {          else {
7237          V1094= first;}          V1168= first;}
7238          --narg; goto T2326;          --narg; goto T2326;
7239          goto T2325;          goto T2325;
7240  T2325:;  T2325:;
7241          V1094= (VV[325]->s.s_dbind);          V1168= (VV[325]->s.s_dbind);
7242          goto T2326;          goto T2326;
7243  T2326:;  T2326:;
7244          (VV[326]->s.s_dbind)= Ct;          (VV[326]->s.s_dbind)= Ct;
7245          {object V1095;          {object V1169;
7246          V1095= Cnil;          V1169= Cnil;
7247          {register object V1096;          {register object V1170;
7248          register object V1097;          register object V1171;
7249          V1096= (VV[264]->s.s_dbind);          V1170= (VV[264]->s.s_dbind);
7250          V1097= CMPcar((V1096));          V1171= CMPcar((V1170));
7251          goto T2334;          goto T2334;
7252  T2334:;  T2334:;
7253          if(!(((V1096))==Cnil)){          if(!(((V1170))==Cnil)){
7254          goto T2335;}          goto T2335;}
7255          goto T2330;          goto T2330;
7256          goto T2335;          goto T2335;
7257  T2335:;  T2335:;
7258          base[1]= (VV[467]->s.s_gfdef);          base[1]= (VV[467]->s.s_gfdef);
7259          {object V1099;          {object V1173;
7260          V1099= (*(LnkLI356))((V1097));          V1173= (*(LnkLI356))((V1171));
7261          if(type_of((V1099))==t_structure){          if(type_of((V1173))==t_structure){
7262          goto T2349;}          goto T2349;}
7263          goto T2346;          goto T2346;
7264          goto T2349;          goto T2349;
7265  T2349:;  T2349:;
7266          if(!((((V1099))->str.str_def)==(VV[327]))){          if(!((((V1173))->str.str_def)==(VV[327]))){
7267          goto T2346;}}          goto T2346;}}
7268          V1100= (*(LnkLI356))((V1097));          V1174= (*(LnkLI356))((V1171));
7269          V1098= STREF(object,/* INLINE-ARGS */V1100,4);          V1172= STREF(object,/* INLINE-ARGS */V1174,4);
7270          goto T2344;          goto T2344;
7271          goto T2346;          goto T2346;
7272  T2346:;{object V1101;  T2346:;{object V1175;
7273          V1101= (VV[147]->s.s_dbind);          V1175= (VV[147]->s.s_dbind);
7274          base[3]= small_fixnum(14);          base[3]= small_fixnum(14);
7275          base[4]= (*(LnkLI356))((V1097));          base[4]= (*(LnkLI356))((V1171));
7276          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7277          (void) (*Lnk390)();          (void) (*Lnk390)();
7278          vs_top=sup;          vs_top=sup;
7279          V1102= vs_base[0];          V1176= vs_base[0];
7280          if(!((V1101)==(CMPcar(V1102)))){          if(!((V1175)==(CMPcar(V1176)))){
7281          goto T2352;}}          goto T2352;}}
7282          V1103= (*(LnkLI356))((V1097));          V1177= (*(LnkLI356))((V1171));
7283          V1098= CMPcar((/* INLINE-ARGS */V1103)->cc.cc_turbo[12]);          V1172= CMPcar((/* INLINE-ARGS */V1177)->cc.cc_turbo[12]);
7284          goto T2344;          goto T2344;
7285          goto T2352;          goto T2352;
7286  T2352:;  T2352:;
# Line 7214  T2352:; Line 7288  T2352:;
7288          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7289          Lerror();          Lerror();
7290          vs_top=sup;          vs_top=sup;
7291          V1098= vs_base[0];          V1172= vs_base[0];
7292          goto T2344;          goto T2344;
7293  T2344:;  T2344:;
7294          base[2]= (V1098)->v.v_self[fix((VV[235]->s.s_dbind))];          V1178 = (VV[235]->s.s_dbind);
7295            base[2]= (V1172)->v.v_self[fix(V1178)];
7296          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
7297          (void) (*Lnk366)();          (void) (*Lnk366)();
7298          vs_top=sup;          vs_top=sup;
7299          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7300          goto T2339;}          goto T2339;}
7301          V1095= make_cons(V1097,(V1095));          V1169= make_cons(V1171,(V1169));
7302          goto T2339;          goto T2339;
7303  T2339:;  T2339:;
7304          V1096= CMPcdr((V1096));          V1170= CMPcdr((V1170));
7305          V1097= CMPcar((V1096));          V1171= CMPcar((V1170));
7306          goto T2334;}          goto T2334;}
7307          goto T2330;          goto T2330;
7308  T2330:;  T2330:;
7309          {register object V1105;          {register object V1180;
7310          object V1106;          object V1181;
7311          V1105= nconc((V1095),VV[328]);          V1180= nconc((V1169),VV[328]);
7312          V1106= CMPcar((V1105));          V1181= CMPcar((V1180));
7313          goto T2368;          goto T2368;
7314  T2368:;  T2368:;
7315          if(!(((V1105))==Cnil)){          if(!(((V1180))==Cnil)){
7316          goto T2369;}          goto T2369;}
7317          goto T2364;          goto T2364;
7318          goto T2369;          goto T2369;
7319  T2369:;  T2369:;
7320          base[2]= (V1106);          V1182 = (V1181);
7321            base[2]= (V1181);
7322          base[3]= (VV[264]->s.s_dbind);          base[3]= (VV[264]->s.s_dbind);
7323          base[4]= VV[265];          base[4]= VV[265];
7324          base[5]= (VV[241]->s.s_gfdef);          base[5]= (VV[241]->s.s_gfdef);
7325          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
7326          (void) (*Lnk468)();          (void) (*Lnk468)();
7327          vs_top=sup;          vs_top=sup;
7328          V1107= vs_base[0];          V1183= vs_base[0];
7329          (VV[264]->s.s_dbind)= make_cons((V1106),V1107);          (VV[264]->s.s_dbind)= make_cons(V1182,V1183);
7330          V1105= CMPcdr((V1105));          V1180= CMPcdr((V1180));
7331          V1106= CMPcar((V1105));          V1181= CMPcar((V1180));
7332          goto T2368;}          goto T2368;}
7333          goto T2364;          goto T2364;
7334  T2364:;  T2364:;
7335          {register object V1108;          {register object V1184;
7336          object V1109;          object V1185;
7337          V1108= (VV[264]->s.s_dbind);          V1184= (VV[264]->s.s_dbind);
7338          V1109= CMPcar((V1108));          V1185= CMPcar((V1184));
7339          goto T2389;          goto T2389;
7340  T2389:;  T2389:;
7341          if(!(((V1108))==Cnil)){          if(!(((V1184))==Cnil)){
7342          goto T2390;}          goto T2390;}
7343          goto T2385;          goto T2385;
7344          goto T2390;          goto T2390;
7345  T2390:;  T2390:;
7346          if(((V1094))==Cnil){          if(((V1168))==Cnil){
7347          goto T2394;}          goto T2394;}
7348          base[1]= Ct;          base[1]= Ct;
7349          base[2]= VV[329];          base[2]= VV[329];
7350          base[3]= (V1109);          base[3]= (V1185);
7351          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
7352          Lformat();          Lformat();
7353          vs_top=sup;          vs_top=sup;
7354          goto T2394;          goto T2394;
7355  T2394:;  T2394:;
7356          {register object V1110;          {register object V1186;
7357          object V1111;          object V1187;
7358          V1110= (*(LnkLI356))((V1109));          V1186= (*(LnkLI356))((V1185));
7359          if(type_of(V1110)==t_structure){          if(type_of(V1186)==t_structure){
7360          goto T2408;}          goto T2408;}
7361          goto T2406;          goto T2406;
7362          goto T2408;          goto T2408;
7363  T2408:;  T2408:;
7364          if(!(((V1110)->str.str_def)==(VV[330]))){          if(!(((V1186)->str.str_def)==(VV[330]))){
7365          goto T2406;}          goto T2406;}
7366          V1114= STREF(object,(V1110),4);          V1190= STREF(object,(V1186),4);
7367          goto T2404;          goto T2404;
7368          goto T2406;          goto T2406;
7369  T2406:;{object V1116;  T2406:;{object V1192;
7370          V1116= (VV[147]->s.s_dbind);          V1192= (VV[147]->s.s_dbind);
7371          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
7372          base[5]= (V1110);          base[5]= (V1186);
7373          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
7374          (void) (*Lnk390)();          (void) (*Lnk390)();
7375          vs_top=sup;          vs_top=sup;
7376          V1117= vs_base[0];          V1193= vs_base[0];
7377          if(!((V1116)==(CMPcar(V1117)))){          if(!((V1192)==(CMPcar(V1193)))){
7378          goto T2411;}}          goto T2411;}}
7379          V1114= CMPcar(((V1110))->cc.cc_turbo[12]);          V1190= CMPcar(((V1186))->cc.cc_turbo[12]);
7380          goto T2404;          goto T2404;
7381          goto T2411;          goto T2411;
7382  T2411:;  T2411:;
# Line 7308  T2411:; Line 7384  T2411:;
7384          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
7385          Lerror();          Lerror();
7386          vs_top=sup;          vs_top=sup;
7387          V1114= vs_base[0];          V1190= vs_base[0];
7388          goto T2404;          goto T2404;
7389  T2404:;  T2404:;
7390          {object V1112;          V1194 = (VV[235]->s.s_dbind);
7391          object V1113= (V1114)->v.v_self[fix((VV[235]->s.s_dbind))];          {object V1188;
7392          if(V1113==Cnil){          object V1189= (V1190)->v.v_self[fix(V1194)];
7393          V1111= Cnil;          if(V1189==Cnil){
7394            V1187= Cnil;
7395          goto T2402;}          goto T2402;}
7396          base[3]=V1112=MMcons(Cnil,Cnil);          base[3]=V1188=MMcons(Cnil,Cnil);
7397          goto T2403;          goto T2403;
7398  T2403:;  T2403:;
7399          {object V1119;          {object V1196;
7400          base[5]= (V1113->c.c_car);          base[5]= (V1189->c.c_car);
7401          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
7402          (void) (*Lnk459)();          (void) (*Lnk459)();
7403          vs_top=sup;          vs_top=sup;
# Line 7328  T2403:; Line 7405  T2403:;
7405          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
7406          Lcopy_list();          Lcopy_list();
7407          vs_top=sup;          vs_top=sup;
7408          V1119= vs_base[0];          V1196= vs_base[0];
7409          {object V1121;          {object V1198;
7410          V1121= (VFUN_NARGS=2,(*(LnkLI434))((V1113->c.c_car),Ct));          V1198= (VFUN_NARGS=2,(*(LnkLI434))((V1189->c.c_car),Ct));
7411          (CMPcdddr(V1119))->c.c_car = (V1121);          (CMPcdddr(V1196))->c.c_car = (V1198);
7412          (void)(CMPcdddr(V1119));}          (void)(CMPcdddr(V1196));}
7413          {object V1122;          {object V1199;
7414          V1122= (V1119);          V1199= (V1196);
7415           vs_top=base+4;           vs_top=base+4;
7416           while(V1122!=Cnil)           while(V1199!=Cnil)
7417           {vs_push((V1122)->c.c_car);V1122=(V1122)->c.c_cdr;}           {vs_push((V1199)->c.c_car);V1199=(V1199)->c.c_cdr;}
7418          vs_base=base+4;}          vs_base=base+4;}
7419          (void) (*Lnk469)();          (void) (*Lnk469)();
7420          vs_top=sup;          vs_top=sup;
7421          (V1112->c.c_car)= vs_base[0];}          (V1188->c.c_car)= vs_base[0];}
7422          if((V1113=MMcdr(V1113))==Cnil){          if((V1189=MMcdr(V1189))==Cnil){
7423          V1111= base[3];          V1187= base[3];
7424          goto T2402;}          goto T2402;}
7425          V1112=MMcdr(V1112)=MMcons(Cnil,Cnil);          V1188=MMcdr(V1188)=MMcons(Cnil,Cnil);
7426          goto T2403;}          goto T2403;}
7427          goto T2402;          goto T2402;
7428  T2402:;  T2402:;
7429          base[3]= (VV[331]->s.s_dbind);          base[3]= (VV[331]->s.s_dbind);
7430          base[4]= V1110;          base[4]= V1186;
7431          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7432          (void) (*Lnk470)(Lclptr470);          (void) (*Lnk470)(Lclptr470);
7433          vs_top=sup;          vs_top=sup;
7434          base[3]= (VV[252]->s.s_dbind);          base[3]= (VV[252]->s.s_dbind);
7435          base[4]= V1110;          base[4]= V1186;
7436          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
7437          (void) (*Lnk471)(Lclptr471);          (void) (*Lnk471)(Lclptr471);
7438          vs_top=sup;          vs_top=sup;
7439          (void)((*(LnkLI472))((V1110),(V1111)));}          (void)((*(LnkLI472))((V1186),(V1187)));}
7440          V1108= CMPcdr((V1108));          V1184= CMPcdr((V1184));
7441          V1109= CMPcar((V1108));          V1185= CMPcar((V1184));
7442          goto T2389;}          goto T2389;}
7443          goto T2385;          goto T2385;
7444  T2385:;  T2385:;
7445          {register object V1125;          {register object V1202;
7446          object V1126;          object V1203;
7447          V1125= (VV[332]->s.s_dbind);          V1202= (VV[332]->s.s_dbind);
7448          V1126= CMPcar((V1125));          V1203= CMPcar((V1202));
7449          goto T2440;          goto T2440;
7450  T2440:;  T2440:;
7451          if(!(((V1125))==Cnil)){          if(!(((V1202))==Cnil)){
7452          goto T2441;}          goto T2441;}
7453          goto T2436;          goto T2436;
7454          goto T2441;          goto T2441;
7455  T2441:;  T2441:;
7456          {object V1127;          {object V1204;
7457          V1127= CMPcar((V1126));          V1204= CMPcar((V1203));
7458          base[1]= CMPcaddr((V1126));          base[1]= CMPcaddr((V1203));
7459          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7460          Lsymbol_function();          Lsymbol_function();
7461          vs_top=sup;          vs_top=sup;
7462          V1128= vs_base[0];          V1205= vs_base[0];
7463          (void)((*(LnkLI345))(V1128,(V1127)));}          V1206 = (V1204);
7464          V1125= CMPcdr((V1125));          (void)((*(LnkLI345))(V1205,V1206));}
7465          V1126= CMPcar((V1125));          V1202= CMPcdr((V1202));
7466            V1203= CMPcar((V1202));
7467          goto T2440;}          goto T2440;}
7468          goto T2436;          goto T2436;
7469  T2436:;  T2436:;
7470          {register object V1129;          {register object V1207;
7471          object V1130;          object V1208;
7472          V1129= (VV[261]->s.s_dbind);          V1207= (VV[261]->s.s_dbind);
7473          V1130= CMPcar((V1129));          V1208= CMPcar((V1207));
7474          goto T2457;          goto T2457;
7475  T2457:;  T2457:;
7476          if(!(((V1129))==Cnil)){          if(!(((V1207))==Cnil)){
7477          goto T2458;}          goto T2458;}
7478          {object V1131 = Cnil;          {object V1209 = Cnil;
7479          VMR97(V1131)}          VMR97(V1209)}
7480          goto T2458;          goto T2458;
7481  T2458:;  T2458:;
7482          {object V1132;          {object V1210;
7483          object V1133;          object V1211;
7484          object V1134;          object V1212;
7485          V1132= CMPcar((V1130));          V1210= CMPcar((V1208));
7486          V1133= (*(LnkLI356))((V1132));          V1211= (*(LnkLI356))((V1210));
7487          {object V1135;          {object V1213;
7488          object V1136= CMPcdr((V1130));          object V1214= CMPcdr((V1208));
7489          if(V1136==Cnil){          if(V1214==Cnil){
7490          V1134= Cnil;          V1212= Cnil;
7491          goto T2465;}          goto T2465;}
7492          base[4]=V1135=MMcons(Cnil,Cnil);          base[4]=V1213=MMcons(Cnil,Cnil);
7493          goto T2466;          goto T2466;
7494  T2466:;  T2466:;
7495          {object V1138;          {object V1216;
7496          object V1139;          object V1217;
7497          object V1140;          object V1218;
7498          object V1141;          object V1219;
7499          object V1142;          object V1220;
7500          V1138= CMPcar((V1136->c.c_car));          V1216= CMPcar((V1214->c.c_car));
7501          V1139= CMPcadr((V1136->c.c_car));          V1217= CMPcadr((V1214->c.c_car));
7502          V1140= CMPcaddr((V1136->c.c_car));          V1218= CMPcaddr((V1214->c.c_car));
7503          if((V1140)!=Cnil){          if((V1218)!=Cnil){
7504          V1141= (V1140);          V1219= (V1218);
7505          goto T2471;}          goto T2471;}
7506          V1141= (V1132);          V1219= (V1210);
7507          goto T2471;          goto T2471;
7508  T2471:;  T2471:;
7509          base[11]= (V1141);          base[11]= (V1219);
7510          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
7511          Lsymbol_function();          Lsymbol_function();
7512          vs_top=sup;          vs_top=sup;
# Line 7436  T2471:; Line 7514  T2471:;
7514          base[9]=MMcons(base[9],Cnil);          base[9]=MMcons(base[9],Cnil);
7515          base[11]=          base[11]=
7516          make_cclosure_new(LC138,Cnil,base[9],Cdata);          make_cclosure_new(LC138,Cnil,base[9],Cdata);
7517          base[12]= list(2,VV[165],(V1141));          base[12]= list(2,VV[165],(V1219));
7518          vs_top=(vs_base=base+11)+2;          vs_top=(vs_base=base+11)+2;
7519          (void) (*Lnk346)();          (void) (*Lnk346)();
7520          vs_top=sup;          vs_top=sup;
7521          V1143= vs_base[0];          V1221= vs_base[0];
7522          V1142= list(2,VV[36],V1143);          V1220= list(2,VV[36],V1221);
7523          base[11]= VV[20];          base[11]= VV[20];
7524          base[12]= Cnil;          base[12]= Cnil;
7525          base[13]= (V1138);          base[13]= (V1216);
7526          base[14]= (V1139);          base[14]= (V1217);
7527          base[15]= (V1142);          base[15]= (V1220);
7528          base[16]= Cnil;          base[16]= Cnil;
7529          (V1135->c.c_car)= simple_symlispcall(VV[462],base+11,6);}          (V1213->c.c_car)= simple_symlispcall(VV[462],base+11,6);}
7530          if((V1136=MMcdr(V1136))==Cnil){          if((V1214=MMcdr(V1214))==Cnil){
7531          V1134= base[4];          V1212= base[4];
7532          goto T2465;}          goto T2465;}
7533          V1135=MMcdr(V1135)=MMcons(Cnil,Cnil);          V1213=MMcdr(V1213)=MMcons(Cnil,Cnil);
7534          goto T2466;}          goto T2466;}
7535          goto T2465;          goto T2465;
7536  T2465:;  T2465:;
7537          base[4]= (VV[331]->s.s_dbind);          base[4]= (VV[331]->s.s_dbind);
7538          base[5]= V1133;          base[5]= V1211;
7539          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
7540          (void) (*Lnk470)(Lclptr470);          (void) (*Lnk470)(Lclptr470);
7541          vs_top=sup;          vs_top=sup;
7542          base[4]= (VV[252]->s.s_dbind);          base[4]= (VV[252]->s.s_dbind);
7543          base[5]= V1133;          base[5]= V1211;
7544          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
7545          (void) (*Lnk471)(Lclptr471);          (void) (*Lnk471)(Lclptr471);
7546          vs_top=sup;          vs_top=sup;
7547          (void)((*(LnkLI472))((V1133),(V1134)));}          (void)((*(LnkLI472))((V1211),(V1212)));}
7548          V1129= CMPcdr((V1129));          V1207= CMPcdr((V1207));
7549          V1130= CMPcar((V1129));          V1208= CMPcar((V1207));
7550          goto T2457;}}          goto T2457;}}
7551          va_end(ap);          va_end(ap);
7552          base[0]=base[0];          base[0]=base[0];
# Line 7480  static void L110() Line 7558  static void L110()
7558  {register object *base=vs_base;  {register object *base=vs_base;
7559          register object *sup=base+VM98; VC98          register object *sup=base+VM98; VC98
7560          vs_check;          vs_check;
7561          {register object V1146;          {register object V1224;
7562          check_arg(1);          check_arg(1);
7563          V1146=(base[0]);          V1224=(base[0]);
7564          vs_top=sup;          vs_top=sup;
7565          goto TTL;          goto TTL;
7566  TTL:;  TTL:;
7567          {object V1147;          {object V1225;
7568          register object V1148;          register object V1226;
7569          object V1149;          object V1227;
7570          {object V1150;          {object V1228;
7571          V1150= CMPcar((V1146));          V1228= CMPcar((V1224));
7572          V1146= CMPcdr((V1146));          V1224= CMPcdr((V1224));
7573          V1147= (V1150);}          V1225= (V1228);}
7574          V1148= Cnil;          V1226= Cnil;
7575          V1149= Cnil;          V1227= Cnil;
7576          goto T2501;          goto T2501;
7577  T2501:;  T2501:;
7578          if((CMPcar((V1146)))==Cnil){          if((CMPcar((V1224)))==Cnil){
7579          goto T2504;}          goto T2504;}
7580          if(!(type_of(CMPcar((V1146)))!=t_cons)){          if(!(type_of(CMPcar((V1224)))!=t_cons)){
7581          goto T2504;}          goto T2504;}
7582          {register object V1151;          {register object V1229;
7583          {register object V1152;          {register object V1230;
7584          V1152= CMPcar((V1146));          V1230= CMPcar((V1224));
7585          V1146= CMPcdr((V1146));          V1224= CMPcdr((V1224));
7586          V1151= (V1152);}          V1229= (V1230);}
7587          V1148= make_cons((V1151),(V1148));          V1226= make_cons((V1229),(V1226));
7588          goto T2502;}          goto T2502;}
7589          goto T2504;          goto T2504;
7590  T2504:;  T2504:;
7591          V1148= nreverse((V1148));          V1226= nreverse((V1226));
7592          goto T2499;          goto T2499;
7593          goto T2502;          goto T2502;
7594  T2502:;  T2502:;
7595          goto T2501;          goto T2501;
7596          goto T2499;          goto T2499;
7597  T2499:;  T2499:;
7598          {object V1153;          {object V1231;
7599          V1153= CMPcar((V1146));          V1231= CMPcar((V1224));
7600          V1146= CMPcdr((V1146));          V1224= CMPcdr((V1224));
7601          V1149= (V1153);}          V1227= (V1231);}
7602          base[1]= (V1147);          base[1]= (V1225);
7603          base[2]= (V1148);          base[2]= (V1226);
7604          base[3]= (V1149);          base[3]= (V1227);
7605          base[4]= (V1146);          base[4]= (V1224);
7606          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
7607          return;}          return;}
7608          }          }
7609  }  }
7610  /*      local entry for function PARSE-SPECIALIZERS     */  /*      local entry for function PARSE-SPECIALIZERS     */
7611    
7612  static object LI111(V1155)  static object LI111(V1233)
7613    
7614  object V1155;  object V1233;
7615  {        VMB99 VMS99 VMV99  {        VMB99 VMS99 VMV99
7616          goto TTL;          goto TTL;
7617  TTL:;  TTL:;
7618          {object V1156;          {object V1234;
7619          object V1157= (V1155);          object V1235= (V1233);
7620          if(V1157==Cnil){          if(V1235==Cnil){
7621          {object V1158 = Cnil;          {object V1236 = Cnil;
7622          VMR99(V1158)}}          VMR99(V1236)}}
7623          base[0]=V1156=MMcons(Cnil,Cnil);          base[0]=V1234=MMcons(Cnil,Cnil);
7624          goto T2524;          goto T2524;
7625  T2524:;  T2524:;
7626          base[1]= (V1157->c.c_car);          base[1]= (V1235->c.c_car);
7627          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7628          L112(base);          L112(base);
7629          vs_top=sup;          vs_top=sup;
7630          (V1156->c.c_car)= vs_base[0];          (V1234->c.c_car)= vs_base[0];
7631          if((V1157=MMcdr(V1157))==Cnil){          if((V1235=MMcdr(V1235))==Cnil){
7632          {object V1159 = base[0];          {object V1237 = base[0];
7633          VMR99(V1159)}}          VMR99(V1237)}}
7634          V1156=MMcdr(V1156)=MMcons(Cnil,Cnil);          V1234=MMcdr(V1234)=MMcons(Cnil,Cnil);
7635          goto T2524;}          goto T2524;}
7636          base[0]=base[0];          base[0]=base[0];
7637          return Cnil;          return Cnil;
7638  }  }
7639  /*      local entry for function UNPARSE-SPECIALIZERS   */  /*      local entry for function UNPARSE-SPECIALIZERS   */
7640    
7641  static object LI113(V1161)  static object LI113(V1239)
7642    
7643  object V1161;  object V1239;
7644  {        VMB100 VMS100 VMV100  {        VMB100 VMS100 VMV100
7645          goto TTL;          goto TTL;
7646  TTL:;  TTL:;
7647          if(!(type_of((V1161))==t_cons||((V1161))==Cnil)){          if(!(type_of((V1239))==t_cons||((V1239))==Cnil)){
7648          goto T2528;}          goto T2528;}
7649          {object V1162;          {object V1240;
7650          object V1163= (V1161);          object V1241= (V1239);
7651          if(V1163==Cnil){          if(V1241==Cnil){
7652          {object V1164 = Cnil;          {object V1242 = Cnil;
7653          VMR100(V1164)}}          VMR100(V1242)}}
7654          base[0]=V1162=MMcons(Cnil,Cnil);          base[0]=V1240=MMcons(Cnil,Cnil);
7655          goto T2530;          goto T2530;
7656  T2530:;  T2530:;
7657          base[1]= (V1163->c.c_car);          base[1]= (V1241->c.c_car);
7658          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7659          L114(base);          L114(base);
7660          vs_top=sup;          vs_top=sup;
7661          (V1162->c.c_car)= vs_base[0];          (V1240->c.c_car)= vs_base[0];
7662          if((V1163=MMcdr(V1163))==Cnil){          if((V1241=MMcdr(V1241))==Cnil){
7663          {object V1165 = base[0];          {object V1243 = base[0];
7664          VMR100(V1165)}}          VMR100(V1243)}}
7665          V1162=MMcdr(V1162)=MMcons(Cnil,Cnil);          V1240=MMcdr(V1240)=MMcons(Cnil,Cnil);
7666          goto T2530;}          goto T2530;}
7667          goto T2528;          goto T2528;
7668  T2528:;  T2528:;
7669          base[0]= (V1161);          base[0]= (V1239);
7670          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7671          (void) (*Lnk433)(Lclptr433);          (void) (*Lnk433)(Lclptr433);
7672          vs_top=sup;          vs_top=sup;
7673          V1161= vs_base[0];          V1239= vs_base[0];
7674          goto TTL;          goto TTL;
7675          base[0]=base[0];          base[0]=base[0];
7676          return Cnil;          return Cnil;
# Line 7603  static void L115() Line 7681  static void L115()
7681  {register object *base=vs_base;  {register object *base=vs_base;
7682          register object *sup=base+VM101; VC101          register object *sup=base+VM101; VC101
7683          vs_check;          vs_check;
7684          {object V1166;          {object V1244;
7685          object V1167;          object V1245;
7686          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
7687          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
7688          V1166=(base[0]);          V1244=(base[0]);
7689          vs_base=vs_base+1;          vs_base=vs_base+1;
7690          if(vs_base>=vs_top){vs_top=sup;goto T2536;}          if(vs_base>=vs_top){vs_top=sup;goto T2536;}
7691          V1167=(base[1]);          V1245=(base[1]);
7692          vs_top=sup;          vs_top=sup;
7693          goto T2537;          goto T2537;
7694          goto T2536;          goto T2536;
7695  T2536:;  T2536:;
7696          V1167= Ct;          V1245= Ct;
7697          goto T2537;          goto T2537;
7698  T2537:;  T2537:;
7699          {register object V1168;          {register object V1246;
7700          register object V1169;          register object V1247;
7701          object V1170;          object V1248;
7702          object V1171;          object V1249;
7703          V1168= Cnil;          V1246= Cnil;
7704          V1169= Cnil;          V1247= Cnil;
7705          V1170= Cnil;          V1248= Cnil;
7706          V1171= Cnil;          V1249= Cnil;
7707          base[2]= (V1166);          base[2]= (V1244);
7708          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7709          (void) (*Lnk473)(Lclptr473);          (void) (*Lnk473)(Lclptr473);
7710          vs_top=sup;          vs_top=sup;
7711          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
7712          goto T2541;}          goto T2541;}
7713          V1169= (V1166);          V1247= (V1244);
7714          base[2]= (V1169);          base[2]= (V1247);
7715          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7716          (void) (*Lnk474)(Lclptr474);          (void) (*Lnk474)(Lclptr474);
7717          vs_top=sup;          vs_top=sup;
7718          V1168= vs_base[0];          V1246= vs_base[0];
7719          if((V1168)==Cnil){          if((V1246)==Cnil){
7720          V1171= Cnil;          V1249= Cnil;
7721          goto T2550;}          goto T2550;}
7722          base[2]= (V1168);          base[2]= (V1246);
7723          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7724          (void) (*Lnk440)(Lclptr440);          (void) (*Lnk440)(Lclptr440);
7725          vs_top=sup;          vs_top=sup;
7726          V1171= vs_base[0];          V1249= vs_base[0];
7727          goto T2550;          goto T2550;
7728  T2550:;  T2550:;
7729          if(((V1171))==Cnil){          if(((V1249))==Cnil){
7730          goto T2554;}          goto T2554;}
7731          base[2]= (V1169);          V1250 = (V1249);
7732            base[2]= (V1247);
7733          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7734          (void) (*Lnk476)(Lclptr476);          (void) (*Lnk476)(Lclptr476);
7735          vs_top=sup;          vs_top=sup;
7736          V1172= vs_base[0];          V1251= vs_base[0];
7737          base[2]= (V1169);          base[2]= (V1247);
7738          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7739          (void) (*Lnk433)(Lclptr433);          (void) (*Lnk433)(Lclptr433);
7740          vs_top=sup;          vs_top=sup;
7741          V1173= vs_base[0];          V1252= vs_base[0];
7742          V1174= (*(LnkLI477))(V1173);          V1253= (*(LnkLI477))(V1252);
7743          V1175= (*(LnkLI401))((V1171),V1172,/* INLINE-ARGS */V1174);          V1254= (*(LnkLI401))(V1250,V1251,/* INLINE-ARGS */V1253);
7744          V1170= (*(LnkLI475))(/* INLINE-ARGS */V1175);          V1248= (*(LnkLI475))(/* INLINE-ARGS */V1254);
7745          goto T2552;          goto T2552;
7746          goto T2554;          goto T2554;
7747  T2554:;  T2554:;
7748          base[3]= Cnil;          base[3]= Cnil;
7749          base[4]= VV[336];          base[4]= VV[336];
7750          base[5]= (V1169);          base[5]= (V1247);
7751          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
7752          Lformat();          Lformat();
7753          vs_top=sup;          vs_top=sup;
# Line 7676  T2554:; Line 7755  T2554:;
7755          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7756          Lmake_symbol();          Lmake_symbol();
7757          vs_top=sup;          vs_top=sup;
7758          V1170= vs_base[0];          V1248= vs_base[0];
7759          goto T2552;          goto T2552;
7760  T2552:;  T2552:;
7761          goto T2539;          goto T2539;
7762          goto T2541;          goto T2541;
7763  T2541:;  T2541:;
7764          {object V1176;          {object V1255;
7765          object V1177;          object V1256;
7766          register object V1178;          register object V1257;
7767          base[2]= (V1166);          base[2]= (V1244);
7768          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7769          (void) (*Lnk352)();          (void) (*Lnk352)();
7770          if(vs_base>=vs_top){vs_top=sup;goto T2566;}          if(vs_base>=vs_top){vs_top=sup;goto T2566;}
7771          V1176= vs_base[0];          V1255= vs_base[0];
7772          vs_base++;          vs_base++;
7773          if(vs_base>=vs_top){vs_top=sup;goto T2567;}          if(vs_base>=vs_top){vs_top=sup;goto T2567;}
7774          V1177= vs_base[0];          V1256= vs_base[0];
7775          vs_base++;          vs_base++;
7776          if(vs_base>=vs_top){vs_top=sup;goto T2568;}          if(vs_base>=vs_top){vs_top=sup;goto T2568;}
7777          V1178= vs_base[0];          V1257= vs_base[0];
7778          vs_top=sup;          vs_top=sup;
7779          goto T2569;          goto T2569;
7780          goto T2566;          goto T2566;
7781  T2566:;  T2566:;
7782          V1176= Cnil;          V1255= Cnil;
7783          goto T2567;          goto T2567;
7784  T2567:;  T2567:;
7785          V1177= Cnil;          V1256= Cnil;
7786          goto T2568;          goto T2568;
7787  T2568:;  T2568:;
7788          V1178= Cnil;          V1257= Cnil;
7789          goto T2569;          goto T2569;
7790  T2569:;  T2569:;
7791          if((V1167)!=Cnil){          if((V1245)!=Cnil){
7792          if(((V1167))!=Cnil){          if(((V1245))!=Cnil){
7793          goto T2573;}          goto T2573;}
7794          goto T2574;}          goto T2574;}
7795          if(((*(LnkLI355))((V1176)))!=Cnil){          if(((*(LnkLI355))((V1255)))!=Cnil){
7796          goto T2573;}          goto T2573;}
7797          goto T2574;          goto T2574;
7798  T2574:;  T2574:;
7799          V1168= Cnil;          V1246= Cnil;
7800          goto T2572;          goto T2572;
7801          goto T2573;          goto T2573;
7802  T2573:;  T2573:;
7803          V1168= (*(LnkLI356))((V1176));          V1246= (*(LnkLI356))((V1255));
7804          goto T2572;          goto T2572;
7805  T2572:;  T2572:;
7806          if(((V1168))!=Cnil){          if(((V1246))!=Cnil){
7807          goto T2570;}          goto T2570;}
7808          goto T2539;          goto T2539;
7809          goto T2570;          goto T2570;
7810  T2570:;  T2570:;
7811          {object V1179;          {object V1258;
7812          base[2]= (V1168);          base[2]= (V1246);
7813          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7814          (void) (*Lnk478)(Lclptr478);          (void) (*Lnk478)(Lclptr478);
7815          vs_top=sup;          vs_top=sup;
7816          V1179= vs_base[0];          V1258= vs_base[0];
7817          V1180= (*(LnkLI458))((V1178));          V1259= (*(LnkLI458))((V1257));
7818          V1182 = CMPmake_fixnum((long)length((V1178)));          V1261 = CMPmake_fixnum((long)length((V1257)));
7819          base[2]= number_minus((V1179),V1182);          base[2]= number_minus((V1258),V1261);
7820          base[3]= VV[223];          base[3]= VV[223];
7821          base[4]= (VV[337]->s.s_dbind);          base[4]= (VV[337]->s.s_dbind);
7822          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
7823          Lmake_list();          Lmake_list();
7824          vs_top=sup;          vs_top=sup;
7825          V1181= vs_base[0];          V1260= vs_base[0];
7826          V1178= append(/* INLINE-ARGS */V1180,V1181);          V1257= append(/* INLINE-ARGS */V1259,V1260);
7827          V1169= (VFUN_NARGS=4,(*(LnkLI479))((V1168),(V1177),(V1178),(V1167)));          V1247= (VFUN_NARGS=4,(*(LnkLI479))((V1246),(V1256),(V1257),(V1245)));
7828          if(((V1169))!=Cnil){          if(((V1247))!=Cnil){
7829          goto T2583;}          goto T2583;}
7830          goto T2539;          goto T2539;
7831          goto T2583;          goto T2583;
7832  T2583:;  T2583:;
7833          V1183= (*(LnkLI401))((V1176),(V1177),(V1178));          V1262= (*(LnkLI401))((V1255),(V1256),(V1257));
7834          V1170= (*(LnkLI475))(/* INLINE-ARGS */V1183);}}          V1248= (*(LnkLI475))(/* INLINE-ARGS */V1262);}}
7835          goto T2539;          goto T2539;
7836  T2539:;  T2539:;
7837          base[2]= (V1168);          base[2]= (V1246);
7838          base[3]= (V1169);          base[3]= (V1247);
7839          base[4]= (V1170);          base[4]= (V1248);
7840          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
7841          return;}          return;}
7842          }          }
7843  }  }
7844  /*      local entry for function EXTRACT-PARAMETERS     */  /*      local entry for function EXTRACT-PARAMETERS     */
7845    
7846  static object LI116(V1185)  static object LI116(V1264)
7847    
7848  object V1185;  object V1264;
7849  {        VMB102 VMS102 VMV102  {        VMB102 VMS102 VMV102
7850          goto TTL;          goto TTL;
7851  TTL:;  TTL:;
7852          {object V1186;          {object V1265;
7853          object V1187;          object V1266;
7854          object V1188;          object V1267;
7855          base[0]= (V1185);          base[0]= (V1264);
7856          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7857          (void) (*Lnk370)();          (void) (*Lnk370)();
7858          if(vs_base>=vs_top){vs_top=sup;goto T2592;}          if(vs_base>=vs_top){vs_top=sup;goto T2592;}
7859          V1186= vs_base[0];          V1265= vs_base[0];
7860          vs_base++;          vs_base++;
7861          if(vs_base>=vs_top){vs_top=sup;goto T2593;}          if(vs_base>=vs_top){vs_top=sup;goto T2593;}
7862          V1187= vs_base[0];          V1266= vs_base[0];
7863          vs_base++;          vs_base++;
7864          if(vs_base>=vs_top){vs_top=sup;goto T2594;}          if(vs_base>=vs_top){vs_top=sup;goto T2594;}
7865          V1188= vs_base[0];          V1267= vs_base[0];
7866          vs_top=sup;          vs_top=sup;
7867          goto T2595;          goto T2595;
7868          goto T2592;          goto T2592;
7869  T2592:;  T2592:;
7870          V1186= Cnil;          V1265= Cnil;
7871          goto T2593;          goto T2593;
7872  T2593:;  T2593:;
7873          V1187= Cnil;          V1266= Cnil;
7874          goto T2594;          goto T2594;
7875  T2594:;  T2594:;
7876          V1188= Cnil;          V1267= Cnil;
7877          goto T2595;          goto T2595;
7878  T2595:;  T2595:;
7879          {object V1189 = (V1186);          {object V1268 = (V1265);
7880          VMR102(V1189)}}          VMR102(V1268)}}
7881          base[0]=base[0];          base[0]=base[0];
7882          return Cnil;          return Cnil;
7883  }  }
7884  /*      local entry for function EXTRACT-LAMBDA-LIST    */  /*      local entry for function EXTRACT-LAMBDA-LIST    */
7885    
7886  static object LI117(V1191)  static object LI117(V1270)
7887    
7888  object V1191;  object V1270;
7889  {        VMB103 VMS103 VMV103  {        VMB103 VMS103 VMV103
7890          goto TTL;          goto TTL;
7891  TTL:;  TTL:;
7892          {object V1192;          {object V1271;
7893          object V1193;          object V1272;
7894          object V1194;          object V1273;
7895          base[0]= (V1191);          base[0]= (V1270);
7896          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7897          (void) (*Lnk370)();          (void) (*Lnk370)();
7898          if(vs_base>=vs_top){vs_top=sup;goto T2598;}          if(vs_base>=vs_top){vs_top=sup;goto T2598;}
7899          V1192= vs_base[0];          V1271= vs_base[0];
7900          vs_base++;          vs_base++;
7901          if(vs_base>=vs_top){vs_top=sup;goto T2599;}          if(vs_base>=vs_top){vs_top=sup;goto T2599;}
7902          V1193= vs_base[0];          V1272= vs_base[0];
7903          vs_base++;          vs_base++;
7904          if(vs_base>=vs_top){vs_top=sup;goto T2600;}          if(vs_base>=vs_top){vs_top=sup;goto T2600;}
7905          V1194= vs_base[0];          V1273= vs_base[0];
7906          vs_top=sup;          vs_top=sup;
7907          goto T2601;          goto T2601;
7908          goto T2598;          goto T2598;
7909  T2598:;  T2598:;
7910          V1192= Cnil;          V1271= Cnil;
7911          goto T2599;          goto T2599;
7912  T2599:;  T2599:;
7913          V1193= Cnil;          V1272= Cnil;
7914          goto T2600;          goto T2600;
7915  T2600:;  T2600:;
7916          V1194= Cnil;          V1273= Cnil;
7917          goto T2601;          goto T2601;
7918  T2601:;  T2601:;
7919          {object V1195 = (V1193);          {object V1274 = (V1272);
7920          VMR103(V1195)}}          VMR103(V1274)}}
7921          base[0]=base[0];          base[0]=base[0];
7922          return Cnil;          return Cnil;
7923  }  }
7924  /*      local entry for function EXTRACT-SPECIALIZER-NAMES      */  /*      local entry for function EXTRACT-SPECIALIZER-NAMES      */
7925    
7926  static object LI118(V1197)  static object LI118(V1276)
7927    
7928  object V1197;  object V1276;
7929  {        VMB104 VMS104 VMV104  {        VMB104 VMS104 VMV104
7930          goto TTL;          goto TTL;
7931  TTL:;  TTL:;
7932          {object V1198;          {object V1277;
7933          object V1199;          object V1278;
7934          object V1200;          object V1279;
7935          base[0]= (V1197);          base[0]= (V1276);
7936          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7937          (void) (*Lnk370)();          (void) (*Lnk370)();
7938          if(vs_base>=vs_top){vs_top=sup;goto T2604;}          if(vs_base>=vs_top){vs_top=sup;goto T2604;}
7939          V1198= vs_base[0];          V1277= vs_base[0];
7940          vs_base++;          vs_base++;
7941          if(vs_base>=vs_top){vs_top=sup;goto T2605;}          if(vs_base>=vs_top){vs_top=sup;goto T2605;}
7942          V1199= vs_base[0];          V1278= vs_base[0];
7943          vs_base++;          vs_base++;
7944          if(vs_base>=vs_top){vs_top=sup;goto T2606;}          if(vs_base>=vs_top){vs_top=sup;goto T2606;}
7945          V1200= vs_base[0];          V1279= vs_base[0];
7946          vs_top=sup;          vs_top=sup;
7947          goto T2607;          goto T2607;
7948          goto T2604;          goto T2604;
7949  T2604:;  T2604:;
7950          V1198= Cnil;          V1277= Cnil;
7951          goto T2605;          goto T2605;
7952  T2605:;  T2605:;
7953          V1199= Cnil;          V1278= Cnil;
7954          goto T2606;          goto T2606;
7955  T2606:;  T2606:;
7956          V1200= Cnil;          V1279= Cnil;
7957          goto T2607;          goto T2607;
7958  T2607:;  T2607:;
7959          {object V1201 = (V1200);          {object V1280 = (V1279);
7960          VMR104(V1201)}}          VMR104(V1280)}}
7961          base[0]=base[0];          base[0]=base[0];
7962          return Cnil;          return Cnil;
7963  }  }
7964  /*      local entry for function EXTRACT-REQUIRED-PARAMETERS    */  /*      local entry for function EXTRACT-REQUIRED-PARAMETERS    */
7965    
7966  static object LI119(V1203)  static object LI119(V1282)
7967    
7968  object V1203;  object V1282;
7969  {        VMB105 VMS105 VMV105  {        VMB105 VMS105 VMV105
7970          goto TTL;          goto TTL;
7971  TTL:;  TTL:;
7972          {object V1204;          {object V1283;
7973          object V1205;          object V1284;
7974          object V1206;          object V1285;
7975          object V1207;          object V1286;
7976          base[0]= (V1203);          base[0]= (V1282);
7977          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7978          (void) (*Lnk370)();          (void) (*Lnk370)();
7979          if(vs_base>=vs_top){vs_top=sup;goto T2610;}          if(vs_base>=vs_top){vs_top=sup;goto T2610;}
7980          V1204= vs_base[0];          V1283= vs_base[0];
7981          vs_base++;          vs_base++;
7982          if(vs_base>=vs_top){vs_top=sup;goto T2611;}          if(vs_base>=vs_top){vs_top=sup;goto T2611;}
7983          V1205= vs_base[0];          V1284= vs_base[0];
7984          vs_base++;          vs_base++;
7985          if(vs_base>=vs_top){vs_top=sup;goto T2612;}          if(vs_base>=vs_top){vs_top=sup;goto T2612;}
7986          V1206= vs_base[0];          V1285= vs_base[0];
7987          vs_base++;          vs_base++;
7988          if(vs_base>=vs_top){vs_top=sup;goto T2613;}          if(vs_base>=vs_top){vs_top=sup;goto T2613;}
7989          V1207= vs_base[0];          V1286= vs_base[0];
7990          vs_top=sup;          vs_top=sup;
7991          goto T2614;          goto T2614;
7992          goto T2610;          goto T2610;
7993  T2610:;  T2610:;
7994          V1204= Cnil;          V1283= Cnil;
7995          goto T2611;          goto T2611;
7996  T2611:;  T2611:;
7997          V1205= Cnil;          V1284= Cnil;
7998          goto T2612;          goto T2612;
7999  T2612:;  T2612:;
8000          V1206= Cnil;          V1285= Cnil;
8001          goto T2613;          goto T2613;
8002  T2613:;  T2613:;
8003          V1207= Cnil;          V1286= Cnil;
8004          goto T2614;          goto T2614;
8005  T2614:;  T2614:;
8006          {object V1208 = (V1207);          {object V1287 = (V1286);
8007          VMR105(V1208)}}          VMR105(V1287)}}
8008          base[0]=base[0];          base[0]=base[0];
8009          return Cnil;          return Cnil;
8010  }  }
# Line 7935  static void L120() Line 8014  static void L120()
8014  {register object *base=vs_base;  {register object *base=vs_base;
8015          register object *sup=base+VM106; VC106          register object *sup=base+VM106; VC106
8016          vs_check;          vs_check;
8017          {register object V1209;          {register object V1288;
8018          object V1210;          object V1289;
8019          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
8020          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
8021          V1209=(base[0]);          V1288=(base[0]);
8022          vs_base=vs_base+1;          vs_base=vs_base+1;
8023          if(vs_base>=vs_top){vs_top=sup;goto T2615;}          if(vs_base>=vs_top){vs_top=sup;goto T2615;}
8024          V1210=(base[1]);          V1289=(base[1]);
8025          vs_top=sup;          vs_top=sup;
8026          goto T2616;          goto T2616;
8027          goto T2615;          goto T2615;
8028  T2615:;  T2615:;
8029          V1210= Cnil;          V1289= Cnil;
8030          goto T2616;          goto T2616;
8031  T2616:;  T2616:;
8032          {register object V1211;          {register object V1290;
8033          V1211= CMPcar((V1209));          V1290= CMPcar((V1288));
8034          if(((V1209))!=Cnil){          if(((V1288))!=Cnil){
8035          goto T2620;}          goto T2620;}
8036          base[2]= Cnil;          base[2]= Cnil;
8037          base[3]= Cnil;          base[3]= Cnil;
# Line 7962  T2616:; Line 8041  T2616:;
8041          return;          return;
8042          goto T2620;          goto T2620;
8043  T2620:;  T2620:;
8044          if(!(((V1211))==(VV[56]))){          if(!(((V1290))==(VV[56]))){
8045          goto T2627;}          goto T2627;}
8046          base[2]= Cnil;          base[2]= Cnil;
8047          base[3]= (V1209);          base[3]= (V1288);
8048          base[4]= Cnil;          base[4]= Cnil;
8049          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
8050          return;          return;
8051          goto T2627;          goto T2627;
8052  T2627:;  T2627:;
8053          {register object x= (V1211),V1212= VV[183];          {register object x= (V1290),V1291= VV[183];
8054          while(V1212!=Cnil)          while(V1291!=Cnil)
8055          if(x==(V1212->c.c_car)){          if(x==(V1291->c.c_car)){
8056          goto T2634;          goto T2634;
8057          }else V1212=V1212->c.c_cdr;          }else V1291=V1291->c.c_cdr;
8058          goto T2633;}          goto T2633;}
8059          goto T2634;          goto T2634;
8060  T2634:;  T2634:;
8061          {register object x= (V1211),V1213= VV[338];          {register object x= (V1290),V1292= VV[338];
8062          while(V1213!=Cnil)          while(V1292!=Cnil)
8063          if(x==(V1213->c.c_car)){          if(x==(V1292->c.c_car)){
8064          goto T2635;          goto T2635;
8065          }else V1213=V1213->c.c_cdr;}          }else V1292=V1292->c.c_cdr;}
8066          base[2]= VV[339];          base[2]= VV[339];
8067          base[3]= (V1211);          base[3]= (V1290);
8068          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8069          (void) (*Lnk398)();          (void) (*Lnk398)();
8070          vs_top=sup;          vs_top=sup;
8071          goto T2635;          goto T2635;
8072  T2635:;  T2635:;
8073          {object V1214;          {object V1293;
8074          object V1215;          object V1294;
8075          base[2]= CMPcdr((V1209));          base[2]= CMPcdr((V1288));
8076          base[3]= Ct;          base[3]= Ct;
8077          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8078          (void) (*Lnk370)();          (void) (*Lnk370)();
8079          if(vs_base>=vs_top){vs_top=sup;goto T2643;}          if(vs_base>=vs_top){vs_top=sup;goto T2643;}
8080          V1214= vs_base[0];          V1293= vs_base[0];
8081          vs_base++;          vs_base++;
8082          if(vs_base>=vs_top){vs_top=sup;goto T2644;}          if(vs_base>=vs_top){vs_top=sup;goto T2644;}
8083          V1215= vs_base[0];          V1294= vs_base[0];
8084          vs_top=sup;          vs_top=sup;
8085          goto T2645;          goto T2645;
8086          goto T2643;          goto T2643;
8087  T2643:;  T2643:;
8088          V1214= Cnil;          V1293= Cnil;
8089          goto T2644;          goto T2644;
8090  T2644:;  T2644:;
8091          V1215= Cnil;          V1294= Cnil;
8092          goto T2645;          goto T2645;
8093  T2645:;  T2645:;
8094          base[2]= (V1214);          base[2]= (V1293);
8095          base[3]= make_cons((V1211),(V1215));          base[3]= make_cons((V1290),(V1294));
8096          base[4]= Cnil;          base[4]= Cnil;
8097          base[5]= Cnil;          base[5]= Cnil;
8098          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
8099          return;}          return;}
8100          goto T2633;          goto T2633;
8101  T2633:;  T2633:;
8102          if(((V1210))==Cnil){          if(((V1289))==Cnil){
8103          goto T2651;}          goto T2651;}
8104          {object V1216;          {object V1295;
8105          object V1217;          object V1296;
8106          base[2]= CMPcdr((V1209));          base[2]= CMPcdr((V1288));
8107          base[3]= Ct;          base[3]= Ct;
8108          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8109          (void) (*Lnk370)();          (void) (*Lnk370)();
8110          if(vs_base>=vs_top){vs_top=sup;goto T2656;}          if(vs_base>=vs_top){vs_top=sup;goto T2656;}
8111          V1216= vs_base[0];          V1295= vs_base[0];
8112          vs_base++;          vs_base++;
8113          if(vs_base>=vs_top){vs_top=sup;goto T2657;}          if(vs_base>=vs_top){vs_top=sup;goto T2657;}
8114          V1217= vs_base[0];          V1296= vs_base[0];
8115          vs_top=sup;          vs_top=sup;
8116          goto T2658;          goto T2658;
8117          goto T2656;          goto T2656;
8118  T2656:;  T2656:;
8119          V1216= Cnil;          V1295= Cnil;
8120          goto T2657;          goto T2657;
8121  T2657:;  T2657:;
8122          V1217= Cnil;          V1296= Cnil;
8123          goto T2658;          goto T2658;
8124  T2658:;  T2658:;
8125          if(!(type_of((V1211))==t_cons||((V1211))==Cnil)){          if(!(type_of((V1290))==t_cons||((V1290))==Cnil)){
8126          goto T2662;}          goto T2662;}
8127          V1218= CMPcar((V1211));          V1297= CMPcar((V1290));
8128          goto T2660;          goto T2660;
8129          goto T2662;          goto T2662;
8130  T2662:;  T2662:;
8131          V1218= (V1211);          V1297= (V1290);
8132          goto T2660;          goto T2660;
8133  T2660:;  T2660:;
8134          base[2]= make_cons(V1218,(V1216));          V1298 = (V1295);
8135          base[3]= make_cons((V1211),(V1217));          base[2]= make_cons(V1297,V1298);
8136            base[3]= make_cons((V1290),(V1296));
8137          base[4]= Cnil;          base[4]= Cnil;
8138          base[5]= Cnil;          base[5]= Cnil;
8139          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
8140          return;}          return;}
8141          goto T2651;          goto T2651;
8142  T2651:;  T2651:;
8143          {object V1219;          {object V1299;
8144          object V1220;          object V1300;
8145          object V1221;          object V1301;
8146          object V1222;          object V1302;
8147          base[2]= CMPcdr((V1209));          base[2]= CMPcdr((V1288));
8148          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
8149          (void) (*Lnk370)();          (void) (*Lnk370)();
8150          if(vs_base>=vs_top){vs_top=sup;goto T2669;}          if(vs_base>=vs_top){vs_top=sup;goto T2669;}
8151          V1219= vs_base[0];          V1299= vs_base[0];
8152          vs_base++;          vs_base++;
8153          if(vs_base>=vs_top){vs_top=sup;goto T2670;}          if(vs_base>=vs_top){vs_top=sup;goto T2670;}
8154          V1220= vs_base[0];          V1300= vs_base[0];
8155          vs_base++;          vs_base++;
8156          if(vs_base>=vs_top){vs_top=sup;goto T2671;}          if(vs_base>=vs_top){vs_top=sup;goto T2671;}
8157          V1221= vs_base[0];          V1301= vs_base[0];
8158          vs_base++;          vs_base++;
8159          if(vs_base>=vs_top){vs_top=sup;goto T2672;}          if(vs_base>=vs_top){vs_top=sup;goto T2672;}
8160          V1222= vs_base[0];          V1302= vs_base[0];
8161          vs_top=sup;          vs_top=sup;
8162          goto T2673;          goto T2673;
8163          goto T2669;          goto T2669;
8164  T2669:;  T2669:;
8165          V1219= Cnil;          V1299= Cnil;
8166          goto T2670;          goto T2670;
8167  T2670:;  T2670:;
8168          V1220= Cnil;          V1300= Cnil;
8169          goto T2671;          goto T2671;
8170  T2671:;  T2671:;
8171          V1221= Cnil;          V1301= Cnil;
8172          goto T2672;          goto T2672;
8173  T2672:;  T2672:;
8174          V1222= Cnil;          V1302= Cnil;
8175          goto T2673;          goto T2673;
8176  T2673:;  T2673:;
8177          if(!(type_of((V1211))==t_cons||((V1211))==Cnil)){          if(!(type_of((V1290))==t_cons||((V1290))==Cnil)){
8178          goto T2677;}          goto T2677;}
8179          V1223= CMPcar((V1211));          V1303= CMPcar((V1290));
8180          goto T2675;          goto T2675;
8181          goto T2677;          goto T2677;
8182  T2677:;  T2677:;
8183          V1223= (V1211);          V1303= (V1290);
8184          goto T2675;          goto T2675;
8185  T2675:;  T2675:;
8186          base[2]= make_cons(V1223,(V1219));          V1304 = (V1299);
8187          if(!(type_of((V1211))==t_cons||((V1211))==Cnil)){          base[2]= make_cons(V1303,V1304);
8188            if(!(type_of((V1290))==t_cons||((V1290))==Cnil)){
8189          goto T2682;}          goto T2682;}
8190          V1224= CMPcar((V1211));          V1305= CMPcar((V1290));
8191          goto T2680;          goto T2680;
8192          goto T2682;          goto T2682;
8193  T2682:;  T2682:;
8194          V1224= (V1211);          V1305= (V1290);
8195          goto T2680;          goto T2680;
8196  T2680:;  T2680:;
8197          base[3]= make_cons(V1224,(V1220));          V1306 = (V1300);
8198          if(!(type_of((V1211))==t_cons||((V1211))==Cnil)){          base[3]= make_cons(V1305,V1306);
8199            if(!(type_of((V1290))==t_cons||((V1290))==Cnil)){
8200          goto T2687;}          goto T2687;}
8201          V1225= CMPcadr((V1211));          V1307= CMPcadr((V1290));
8202          goto T2685;          goto T2685;
8203          goto T2687;          goto T2687;
8204  T2687:;  T2687:;
8205          V1225= Ct;          V1307= Ct;
8206          goto T2685;          goto T2685;
8207  T2685:;  T2685:;
8208          base[4]= make_cons(V1225,(V1221));          V1308 = (V1301);
8209          if(!(type_of((V1211))==t_cons||((V1211))==Cnil)){          base[4]= make_cons(V1307,V1308);
8210            if(!(type_of((V1290))==t_cons||((V1290))==Cnil)){
8211          goto T2692;}          goto T2692;}
8212          V1226= CMPcar((V1211));          V1309= CMPcar((V1290));
8213          goto T2690;          goto T2690;
8214          goto T2692;          goto T2692;
8215  T2692:;  T2692:;
8216          V1226= (V1211);          V1309= (V1290);
8217          goto T2690;          goto T2690;
8218  T2690:;  T2690:;
8219          base[5]= make_cons(V1226,(V1222));          V1310 = (V1302);
8220            base[5]= make_cons(V1309,V1310);
8221          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
8222          return;}}          return;}}
8223          }          }
# Line 8146  static void L121() Line 8230  static void L121()
8230          vs_check;          vs_check;
8231          check_arg(2);          check_arg(2);
8232          vs_top=sup;          vs_top=sup;
8233          {object V1227=base[0]->c.c_cdr;          {object V1311=base[0]->c.c_cdr;
8234          if(endp(V1227))invalid_macro_call();          if(endp(V1311))invalid_macro_call();
8235          base[2]= (V1227->c.c_car);          base[2]= (V1311->c.c_car);
8236          V1227=V1227->c.c_cdr;          V1311=V1311->c.c_cdr;
8237          base[3]= V1227;}          base[3]= V1311;}
8238          {object V1228;          {object V1312;
8239          object V1229= base[2];          object V1313= base[2];
8240          if(V1229==Cnil){          if(V1313==Cnil){
8241          base[4]= Cnil;          base[4]= Cnil;
8242          goto T2694;}          goto T2694;}
8243          base[5]=V1228=MMcons(Cnil,Cnil);          base[5]=V1312=MMcons(Cnil,Cnil);
8244          goto T2695;          goto T2695;
8245  T2695:;  T2695:;
8246          V1231= CMPcar((V1229->c.c_car));          V1315= CMPcar((V1313->c.c_car));
8247          V1232= (*(LnkLI480))(CMPcar((V1229->c.c_car)),base[1]);          V1316= (*(LnkLI480))(CMPcar((V1313->c.c_car)),base[1]);
8248          (V1228->c.c_car)= list(3,/* INLINE-ARGS */V1231,/* INLINE-ARGS */V1232,CMPcadr((V1229->c.c_car)));          (V1312->c.c_car)= list(3,/* INLINE-ARGS */V1315,/* INLINE-ARGS */V1316,CMPcadr((V1313->c.c_car)));
8249          if((V1229=MMcdr(V1229))==Cnil){          if((V1313=MMcdr(V1313))==Cnil){
8250          base[4]= base[5];          base[4]= base[5];
8251          goto T2694;}          goto T2694;}
8252          V1228=MMcdr(V1228)=MMcons(Cnil,Cnil);          V1312=MMcdr(V1312)=MMcons(Cnil,Cnil);
8253          goto T2695;}          goto T2695;}
8254          goto T2694;          goto T2694;
8255  T2694:;  T2694:;
# Line 8180  T2694:; Line 8264  T2694:;
8264  }  }
8265  /*      local entry for function EXPAND-SYMBOL-MACROLET-INTERNAL        */  /*      local entry for function EXPAND-SYMBOL-MACROLET-INTERNAL        */
8266    
8267  static object LI124(V1237,V1238,V1239,V1240)  static object LI124(V1321,V1322,V1323,V1324)
8268    
8269  object V1237;register object V1238;object V1239;object V1240;  object V1321;register object V1322;object V1323;object V1324;
8270  {        VMB108 VMS108 VMV108  {        VMB108 VMS108 VMV108
8271          goto TTL;          goto TTL;
8272  TTL:;  TTL:;
8273          base[0]= (V1240);          base[0]= (V1324);
8274          base[1]= (V1237);          base[1]= (V1321);
8275          base[2]= Cnil;          base[2]= Cnil;
8276          if(((V1239))==(VV[194])){          if(((V1323))==(VV[194])){
8277          goto T2701;}          goto T2701;}
8278          {object V1241 = (V1238);          {object V1325 = (V1322);
8279          VMR108(V1241)}          VMR108(V1325)}
8280          goto T2701;          goto T2701;
8281  T2701:;  T2701:;
8282          if(!(type_of((V1238))==t_symbol)){          if(!(type_of((V1322))==t_symbol)){
8283          goto T2704;}          goto T2704;}
8284          {register object x= (V1238),V1242= base[1];          {register object x= (V1322),V1326= base[1];
8285          while(V1242!=Cnil)          while(V1326!=Cnil)
8286          if(eql(x,V1242->c.c_car->c.c_car) &&V1242->c.c_car != Cnil){          if(eql(x,V1326->c.c_car->c.c_car) &&V1326->c.c_car != Cnil){
8287          base[2]= (V1242->c.c_car);          base[2]= (V1326->c.c_car);
8288          goto T2710;          goto T2710;
8289          }else V1242=V1242->c.c_cdr;          }else V1326=V1326->c.c_cdr;
8290          base[2]= Cnil;}          base[2]= Cnil;}
8291          goto T2710;          goto T2710;
8292  T2710:;  T2710:;
8293          if((base[2])==Cnil){          if((base[2])==Cnil){
8294          goto T2707;}          goto T2707;}
8295          V1243= CMPcadr(base[2]);          V1327= CMPcadr(base[2]);
8296          V1244= (*(LnkLI480))((V1238),base[0]);          V1328= (*(LnkLI480))((V1322),base[0]);
8297          if(!((/* INLINE-ARGS */V1243)==(/* INLINE-ARGS */V1244))){          if(!((/* INLINE-ARGS */V1327)==(/* INLINE-ARGS */V1328))){
8298          goto T2707;}          goto T2707;}
8299          {object V1245 = CMPcaddr(base[2]);          {object V1329 = CMPcaddr(base[2]);
8300          VMR108(V1245)}          VMR108(V1329)}
8301          goto T2707;          goto T2707;
8302  T2707:;  T2707:;
8303          {object V1246 = (V1238);          {object V1330 = (V1322);
8304          VMR108(V1246)}          VMR108(V1330)}
8305          goto T2704;          goto T2704;
8306  T2704:;  T2704:;
8307          if(type_of((V1238))==t_cons||((V1238))==Cnil){          if(type_of((V1322))==t_cons||((V1322))==Cnil){
8308          goto T2713;}          goto T2713;}
8309          {object V1247 = (V1238);          {object V1331 = (V1322);
8310          VMR108(V1247)}          VMR108(V1331)}
8311          goto T2713;          goto T2713;
8312  T2713:;  T2713:;
8313          {register object x= CMPcar((V1238)),V1248= VV[340];          {register object x= CMPcar((V1322)),V1332= VV[340];
8314          while(V1248!=Cnil)          while(V1332!=Cnil)
8315          if(eql(x,V1248->c.c_car)){          if(eql(x,V1332->c.c_car)){
8316          goto T2717;          goto T2717;
8317          }else V1248=V1248->c.c_cdr;          }else V1332=V1332->c.c_cdr;
8318          goto T2716;}          goto T2716;}
8319          goto T2717;          goto T2717;
8320  T2717:;  T2717:;
8321          base[3]= CMPcar((V1238));          base[3]= CMPcar((V1322));
8322          {object V1249;          {object V1333;
8323          V1249= Cnil;          V1333= Cnil;
8324          base[4]= CMPcdr((V1238));          base[4]= CMPcdr((V1322));
8325          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
8326          L125(base);          L125(base);
8327          vs_top=sup;          vs_top=sup;
8328          V1249= vs_base[0];          V1333= vs_base[0];
8329          {object V1250 = (*(LnkLI481))((V1238),base[3],(V1249));          {object V1334 = (*(LnkLI481))((V1322),base[3],(V1333));
8330          VMR108(V1250)}}          VMR108(V1334)}}
8331          goto T2716;          goto T2716;
8332  T2716:;  T2716:;
8333          if(!((CMPcar((V1238)))==(VV[341]))){          if(!((CMPcar((V1322)))==(VV[341]))){
8334          goto T2723;}          goto T2723;}
8335          {object V1251;          {object V1335;
8336          object V1252;          object V1336;
8337          V1251= CMPcadr((V1238));          V1335= CMPcadr((V1322));
8338          {object V1253;          {object V1337;
8339          object V1254= (V1251);          object V1338= (V1335);
8340          if(V1254==Cnil){          if(V1338==Cnil){
8341          V1252= Cnil;          V1336= Cnil;
8342          goto T2726;}          goto T2726;}
8343          base[5]=V1253=MMcons(Cnil,Cnil);          base[5]=V1337=MMcons(Cnil,Cnil);
8344          goto T2727;          goto T2727;
8345  T2727:;  T2727:;
8346          vs_base=vs_top;          vs_base=vs_top;
8347          Lgensym();          Lgensym();
8348          vs_top=sup;          vs_top=sup;
8349          (V1253->c.c_car)= vs_base[0];          (V1337->c.c_car)= vs_base[0];
8350          if((V1254=MMcdr(V1254))==Cnil){          if((V1338=MMcdr(V1338))==Cnil){
8351          V1252= base[5];          V1336= base[5];
8352          goto T2726;}          goto T2726;}
8353          V1253=MMcdr(V1253)=MMcons(Cnil,Cnil);          V1337=MMcdr(V1337)=MMcons(Cnil,Cnil);
8354          goto T2727;}          goto T2727;}
8355          goto T2726;          goto T2726;
8356  T2726:;  T2726:;
8357          V1256= CMPcaddr((V1238));          V1340= CMPcaddr((V1322));
8358          {object V1258;          {object V1342;
8359          object V1259= (V1251);          object V1343= (V1335);
8360          object V1260= (V1252);          object V1344= (V1336);
8361          if(V1259==Cnil||V1260==Cnil){          if(V1343==Cnil||V1344==Cnil){
8362          V1257= Cnil;          V1341= Cnil;
8363          goto T2729;}          goto T2729;}
8364          base[5]=V1258=MMcons(Cnil,Cnil);          base[5]=V1342=MMcons(Cnil,Cnil);
8365          goto T2730;          goto T2730;
8366  T2730:;  T2730:;
8367          (V1258->c.c_car)= list(3,VV[30],(V1259->c.c_car),(V1260->c.c_car));          (V1342->c.c_car)= list(3,VV[30],(V1343->c.c_car),(V1344->c.c_car));
8368          if((V1259=MMcdr(V1259))==Cnil||(V1260=MMcdr(V1260))==Cnil){          if((V1343=MMcdr(V1343))==Cnil||(V1344=MMcdr(V1344))==Cnil){
8369          V1257= base[5];          V1341= base[5];
8370          goto T2729;}          goto T2729;}
8371          V1258=MMcdr(V1258)=MMcons(Cnil,Cnil);          V1342=MMcdr(V1342)=MMcons(Cnil,Cnil);
8372          goto T2730;}          goto T2730;}
8373          goto T2729;          goto T2729;
8374  T2729:;  T2729:;
8375          {object V1263 = listA(4,VV[342],(V1252),/* INLINE-ARGS */V1256,reverse(V1257));          {object V1347 = listA(4,VV[342],(V1336),/* INLINE-ARGS */V1340,reverse(V1341));
8376          VMR108(V1263)}}          VMR108(V1347)}}
8377          goto T2723;          goto T2723;
8378  T2723:;  T2723:;
8379          {object V1264 = (V1238);          {object V1348 = (V1322);
8380          VMR108(V1264)}          VMR108(V1348)}
8381          base[0]=base[0];          base[0]=base[0];
8382          return Cnil;          return Cnil;
8383  }  }
# Line 8305  static void L126() Line 8389  static void L126()
8389          vs_check;          vs_check;
8390          check_arg(2);          check_arg(2);
8391          vs_top=sup;          vs_top=sup;
8392          {object V1265=base[0]->c.c_cdr;          {object V1349=base[0]->c.c_cdr;
8393          if(endp(V1265))invalid_macro_call();          if(endp(V1349))invalid_macro_call();
8394          base[2]= (V1265->c.c_car);          base[2]= (V1349->c.c_car);
8395          V1265=V1265->c.c_cdr;          V1349=V1349->c.c_cdr;
8396          if(endp(V1265))invalid_macro_call();          if(endp(V1349))invalid_macro_call();
8397          base[3]= (V1265->c.c_car);          base[3]= (V1349->c.c_car);
8398          V1265=V1265->c.c_cdr;          V1349=V1349->c.c_cdr;
8399          base[4]= V1265;}          base[4]= V1349;}
8400          {register object V1266;          {register object V1350;
8401          vs_base=vs_top;          vs_base=vs_top;
8402          Lgensym();          Lgensym();
8403          vs_top=sup;          vs_top=sup;
8404          V1266= vs_base[0];          V1350= vs_base[0];
8405          V1267= list(2,(V1266),base[3]);          V1351= list(2,(V1350),base[3]);
8406          V1268= make_cons(/* INLINE-ARGS */V1267,Cnil);          V1352= make_cons(/* INLINE-ARGS */V1351,Cnil);
8407          {object V1270;          {object V1354;
8408          if(!(type_of(base[3])==t_cons)){          if(!(type_of(base[3])==t_cons)){
8409          goto T2736;}          goto T2736;}
8410          if(!((CMPcar(base[3]))==(VV[139]))){          if(!((CMPcar(base[3]))==(VV[139]))){
8411          goto T2736;}          goto T2736;}
8412          V1270= CMPcaddr(base[3]);          V1354= CMPcaddr(base[3]);
8413          goto T2734;          goto T2734;
8414          goto T2736;          goto T2736;
8415  T2736:;  T2736:;
8416          V1270= base[3];          V1354= base[3];
8417          goto T2734;          goto T2734;
8418  T2734:;  T2734:;
8419          if(type_of((V1270))==t_symbol){          if(type_of((V1354))==t_symbol){
8420          goto T2740;}          goto T2740;}
8421          V1269= Cnil;          V1353= Cnil;
8422          goto T2733;          goto T2733;
8423          goto T2740;          goto T2740;
8424  T2740:;  T2740:;
8425          V1271= list(2,VV[46],list(3,VV[343],(V1266),(V1270)));          V1355= list(2,VV[46],list(3,VV[343],(V1350),(V1354)));
8426          V1269= make_cons(/* INLINE-ARGS */V1271,Cnil);}          V1353= make_cons(/* INLINE-ARGS */V1355,Cnil);}
8427          goto T2733;          goto T2733;
8428  T2733:;  T2733:;
8429          {object V1273;          {object V1357;
8430          object V1274= base[2];          object V1358= base[2];
8431          if(V1274==Cnil){          if(V1358==Cnil){
8432          V1272= Cnil;          V1356= Cnil;
8433          goto T2742;}          goto T2742;}
8434          base[5]=V1273=MMcons(Cnil,Cnil);          base[5]=V1357=MMcons(Cnil,Cnil);
8435          goto T2743;          goto T2743;
8436  T2743:;  T2743:;
8437          {register object V1275;          {register object V1359;
8438          V1275= (V1274->c.c_car);          V1359= (V1358->c.c_car);
8439          {object V1276;          {object V1360;
8440          object V1277;          object V1361;
8441          if(!(type_of((V1275))==t_symbol)){          if(!(type_of((V1359))==t_symbol)){
8442          goto T2747;}          goto T2747;}
8443          V1276= (V1275);          V1360= (V1359);
8444          goto T2745;          goto T2745;
8445          goto T2747;          goto T2747;
8446  T2747:;  T2747:;
8447          V1276= CMPcar((V1275));          V1360= CMPcar((V1359));
8448          goto T2745;          goto T2745;
8449  T2745:;  T2745:;
8450          if(!(type_of((V1275))==t_symbol)){          if(!(type_of((V1359))==t_symbol)){
8451          goto T2751;}          goto T2751;}
8452          V1277= (V1275);          V1361= (V1359);
8453          goto T2749;          goto T2749;
8454          goto T2751;          goto T2751;
8455  T2751:;  T2751:;
8456          V1277= CMPcadr((V1275));          V1361= CMPcadr((V1359));
8457          goto T2749;          goto T2749;
8458  T2749:;  T2749:;
8459          (V1273->c.c_car)= list(2,(V1276),list(3,VV[197],(V1266),list(2,VV[1],(V1277))));}}          (V1357->c.c_car)= list(2,(V1360),list(3,VV[197],(V1350),list(2,VV[1],(V1361))));}}
8460          if((V1274=MMcdr(V1274))==Cnil){          if((V1358=MMcdr(V1358))==Cnil){
8461          V1272= base[5];          V1356= base[5];
8462          goto T2742;}          goto T2742;}
8463          V1273=MMcdr(V1273)=MMcons(Cnil,Cnil);          V1357=MMcdr(V1357)=MMcons(Cnil,Cnil);
8464          goto T2743;}          goto T2743;}
8465          goto T2742;          goto T2742;
8466  T2742:;  T2742:;
8467          V1278= list(2,(V1266),listA(3,VV[344],V1272,base[4]));          V1362 = base[4];
8468          base[5]= listA(3,VV[96],/* INLINE-ARGS */V1268,append(V1269,/* INLINE-ARGS */V1278));          V1363= list(2,(V1350),listA(3,VV[344],V1356,V1362));
8469            base[5]= listA(3,VV[96],/* INLINE-ARGS */V1352,append(V1353,/* INLINE-ARGS */V1363));
8470          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
8471          return;}          return;}
8472  }  }
# Line 8393  static void L127() Line 8478  static void L127()
8478          vs_check;          vs_check;
8479          check_arg(2);          check_arg(2);
8480          vs_top=sup;          vs_top=sup;
8481          {object V1279=base[0]->c.c_cdr;          {object V1364=base[0]->c.c_cdr;
8482          if(endp(V1279))invalid_macro_call();          if(endp(V1364))invalid_macro_call();
8483          base[2]= (V1279->c.c_car);          base[2]= (V1364->c.c_car);
8484          V1279=V1279->c.c_cdr;          V1364=V1364->c.c_cdr;
8485          if(endp(V1279))invalid_macro_call();          if(endp(V1364))invalid_macro_call();
8486          base[3]= (V1279->c.c_car);          base[3]= (V1364->c.c_car);
8487          V1279=V1279->c.c_cdr;          V1364=V1364->c.c_cdr;
8488          base[4]= V1279;}          base[4]= V1364;}
8489          {register object V1280;          {register object V1365;
8490          vs_base=vs_top;          vs_base=vs_top;
8491          Lgensym();          Lgensym();
8492          vs_top=sup;          vs_top=sup;
8493          V1280= vs_base[0];          V1365= vs_base[0];
8494          V1281= list(2,(V1280),base[3]);          V1366= list(2,(V1365),base[3]);
8495          V1282= make_cons(/* INLINE-ARGS */V1281,Cnil);          V1367= make_cons(/* INLINE-ARGS */V1366,Cnil);
8496          {object V1284;          {object V1369;
8497          if(!(type_of(base[3])==t_cons)){          if(!(type_of(base[3])==t_cons)){
8498          goto T2757;}          goto T2757;}
8499          if(!((CMPcar(base[3]))==(VV[139]))){          if(!((CMPcar(base[3]))==(VV[139]))){
8500          goto T2757;}          goto T2757;}
8501          V1284= CMPcaddr(base[3]);          V1369= CMPcaddr(base[3]);
8502          goto T2755;          goto T2755;
8503          goto T2757;          goto T2757;
8504  T2757:;  T2757:;
8505          V1284= base[3];          V1369= base[3];
8506          goto T2755;          goto T2755;
8507  T2755:;  T2755:;
8508          if(type_of((V1284))==t_symbol){          if(type_of((V1369))==t_symbol){
8509          goto T2761;}          goto T2761;}
8510          V1283= Cnil;          V1368= Cnil;
8511          goto T2754;          goto T2754;
8512          goto T2761;          goto T2761;
8513  T2761:;  T2761:;
8514          V1285= list(2,VV[46],list(3,VV[343],(V1280),(V1284)));          V1370= list(2,VV[46],list(3,VV[343],(V1365),(V1369)));
8515          V1283= make_cons(/* INLINE-ARGS */V1285,Cnil);}          V1368= make_cons(/* INLINE-ARGS */V1370,Cnil);}
8516          goto T2754;          goto T2754;
8517  T2754:;  T2754:;
8518          {object V1287;          {object V1372;
8519          object V1288= base[2];          object V1373= base[2];
8520          if(V1288==Cnil){          if(V1373==Cnil){
8521          V1286= Cnil;          V1371= Cnil;
8522          goto T2763;}          goto T2763;}
8523          base[5]=V1287=MMcons(Cnil,Cnil);          base[5]=V1372=MMcons(Cnil,Cnil);
8524          goto T2764;          goto T2764;
8525  T2764:;  T2764:;
8526          {object V1290;          {object V1375;
8527          object V1291;          object V1376;
8528          V1290= CMPcar((V1288->c.c_car));          V1375= CMPcar((V1373->c.c_car));
8529          V1291= CMPcadr((V1288->c.c_car));          V1376= CMPcadr((V1373->c.c_car));
8530          (V1287->c.c_car)= list(2,(V1290),list(2,(V1291),(V1280)));}          (V1372->c.c_car)= list(2,(V1375),list(2,(V1376),(V1365)));}
8531          if((V1288=MMcdr(V1288))==Cnil){          if((V1373=MMcdr(V1373))==Cnil){
8532          V1286= base[5];          V1371= base[5];
8533          goto T2763;}          goto T2763;}
8534          V1287=MMcdr(V1287)=MMcons(Cnil,Cnil);          V1372=MMcdr(V1372)=MMcons(Cnil,Cnil);
8535          goto T2764;}          goto T2764;}
8536          goto T2763;          goto T2763;
8537  T2763:;  T2763:;
8538          V1292= list(2,(V1280),listA(3,VV[344],V1286,base[4]));          V1377 = base[4];
8539          base[5]= listA(3,VV[96],/* INLINE-ARGS */V1282,append(V1283,/* INLINE-ARGS */V1292));          V1378= list(2,(V1365),listA(3,VV[344],V1371,V1377));
8540            base[5]= listA(3,VV[96],/* INLINE-ARGS */V1367,append(V1368,/* INLINE-ARGS */V1378));
8541          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
8542          return;}          return;}
8543  }  }
# Line 8462  register object *base0; Line 8548  register object *base0;
8548  {       register object *base=vs_base;  {       register object *base=vs_base;
8549          register object *sup=base+VM111; VC111          register object *sup=base+VM111; VC111
8550          vs_check;          vs_check;
8551          {register object V1293;          {register object V1379;
8552          check_arg(1);          check_arg(1);
8553          V1293=(base[0]);          V1379=(base[0]);
8554          vs_top=sup;          vs_top=sup;
8555          goto TTL;          goto TTL;
8556  TTL:;  TTL:;
8557          if(((V1293))!=Cnil){          if(((V1379))!=Cnil){
8558          goto T2769;}          goto T2769;}
8559          base[1]= Cnil;          base[1]= Cnil;
8560          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8561          return;          return;
8562          goto T2769;          goto T2769;
8563  T2769:;  T2769:;
8564          {register object x= CMPcar((V1293)),V1295= base0[1];          V1380 = (V1379);
8565          while(V1295!=Cnil)          {register object x= CMPcar((V1379)),V1382= base0[1];
8566          if(eql(x,V1295->c.c_car->c.c_car) &&V1295->c.c_car != Cnil){          while(V1382!=Cnil)
8567          base0[2]= (V1295->c.c_car);          if(eql(x,V1382->c.c_car->c.c_car) &&V1382->c.c_car != Cnil){
8568            base0[2]= (V1382->c.c_car);
8569          goto T2776;          goto T2776;
8570          }else V1295=V1295->c.c_cdr;          }else V1382=V1382->c.c_cdr;
8571          base0[2]= Cnil;}          base0[2]= Cnil;}
8572          goto T2776;          goto T2776;
8573  T2776:;  T2776:;
8574          if((base0[2])==Cnil){          if((base0[2])==Cnil){
8575          goto T2773;}          goto T2773;}
8576          V1296= CMPcadr(base0[2]);          V1383= CMPcadr(base0[2]);
8577          V1297= (*(LnkLI480))(CMPcar((V1293)),base0[0]);          V1384= (*(LnkLI480))(CMPcar((V1379)),base0[0]);
8578          if(!((/* INLINE-ARGS */V1296)==(/* INLINE-ARGS */V1297))){          if(!((/* INLINE-ARGS */V1383)==(/* INLINE-ARGS */V1384))){
8579          goto T2773;}          goto T2773;}
8580          base0[3]= VV[30];          base0[3]= VV[30];
8581          V1294= CMPcaddr(base0[2]);          V1381= CMPcaddr(base0[2]);
8582          goto T2771;          goto T2771;
8583          goto T2773;          goto T2773;
8584  T2773:;  T2773:;
8585          V1294= CMPcar((V1293));          V1381= CMPcar((V1379));
8586          goto T2771;          goto T2771;
8587  T2771:;  T2771:;
8588          V1298= CMPcadr((V1293));          V1385= CMPcadr((V1379));
8589          base[1]= CMPcddr((V1293));          base[1]= CMPcddr((V1379));
8590          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8591          L125(base0);          L125(base0);
8592          vs_top=sup;          vs_top=sup;
8593          V1299= vs_base[0];          V1386= vs_base[0];
8594          base[1]= (VFUN_NARGS=4,(*(LnkLI482))((V1293),V1294,/* INLINE-ARGS */V1298,V1299));          base[1]= (VFUN_NARGS=4,(*(LnkLI482))(V1380,V1381,/* INLINE-ARGS */V1385,V1386));
8595          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8596          return;          return;
8597          }          }
# Line 8516  register object *base0; Line 8603  register object *base0;
8603  {       register object *base=vs_base;  {       register object *base=vs_base;
8604          register object *sup=base+VM112; VC112          register object *sup=base+VM112; VC112
8605          vs_check;          vs_check;
8606          {object V1300;          {object V1387;
8607          object V1301;          object V1388;
8608          object V1302;          object V1389;
8609          check_arg(3);          check_arg(3);
8610          V1300=(base[0]);          V1387=(base[0]);
8611          V1301=(base[1]);          V1388=(base[1]);
8612          V1302=(base[2]);          V1389=(base[2]);
8613          vs_top=sup;          vs_top=sup;
8614          base[3]= (*(LnkLI483))((base0[0]->c.c_car),(V1300),(V1301),(V1302));          base[3]= (*(LnkLI483))((base0[0]->c.c_car),(V1387),(V1388),(V1389));
8615          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8616          return;          return;
8617          }          }
# Line 8536  register object *base0; Line 8623  register object *base0;
8623  {       register object *base=vs_base;  {       register object *base=vs_base;
8624          register object *sup=base+VM113; VC113          register object *sup=base+VM113; VC113
8625          vs_check;          vs_check;
8626          {object V1303;          {object V1390;
8627          check_arg(1);          check_arg(1);
8628          V1303=(base[0]);          V1390=(base[0]);
8629          vs_top=sup;          vs_top=sup;
8630          goto TTL;          goto TTL;
8631  TTL:;  TTL:;
8632          base[1]= (V1303);          base[1]= (V1390);
8633          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8634          (void) (*Lnk484)(Lclptr484);          (void) (*Lnk484)(Lclptr484);
8635          vs_top=sup;          vs_top=sup;
8636          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8637          goto T2783;}          goto T2783;}
8638          {register object V1304;          {register object V1391;
8639          base[1]= (V1303);          base[1]= (V1390);
8640          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8641          (void) (*Lnk485)(Lclptr485);          (void) (*Lnk485)(Lclptr485);
8642          vs_top=sup;          vs_top=sup;
8643          V1304= vs_base[0];          V1391= vs_base[0];
8644          if(!(type_of((V1304))==t_cons)){          if(!(type_of((V1391))==t_cons)){
8645          goto T2789;}          goto T2789;}
8646          if(!((CMPcar((V1304)))==(VV[51]))){          if(!((CMPcar((V1391)))==(VV[51]))){
8647          goto T2789;}          goto T2789;}
8648          {object V1305;          {object V1392;
8649          object V1306;          object V1393;
8650          V1305= CMPcadr((V1304));          V1392= CMPcadr((V1391));
8651          base[3]= (V1305);          base[3]= (V1392);
8652          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8653          (void) (*Lnk364)(Lclptr364);          (void) (*Lnk364)(Lclptr364);
8654          vs_top=sup;          vs_top=sup;
8655          V1306= vs_base[0];          V1393= vs_base[0];
8656          V1307= (VFUN_NARGS=2,(*(LnkLI290))((V1306),Cnil));          V1394 = (V1392);
8657          if(!(((V1305))==(/* INLINE-ARGS */V1307))){          V1395= (VFUN_NARGS=2,(*(LnkLI290))((V1393),Cnil));
8658            if(!((V1394)==(/* INLINE-ARGS */V1395))){
8659          goto T2797;}          goto T2797;}
8660          base[3]= (V1306);          base[3]= (V1393);
8661          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8662          return;          return;
8663          goto T2797;          goto T2797;
8664  T2797:;  T2797:;
8665          base[3]= (V1304);          base[3]= (V1391);
8666          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
8667          return;}          return;}
8668          goto T2789;          goto T2789;
8669  T2789:;  T2789:;
8670          base[1]= (V1304);          base[1]= (V1391);
8671          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8672          return;}          return;}
8673          goto T2783;          goto T2783;
8674  T2783:;  T2783:;
8675          base[1]= VV[335];          base[1]= VV[335];
8676          base[2]= (V1303);          base[2]= (V1390);
8677          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8678          Lerror();          Lerror();
8679          return;          return;
# Line 8598  register object *base0; Line 8686  register object *base0;
8686  {       register object *base=vs_base;  {       register object *base=vs_base;
8687          register object *sup=base+VM114; VC114          register object *sup=base+VM114; VC114
8688          vs_check;          vs_check;
8689          {register object V1308;          {register object V1396;
8690          check_arg(1);          check_arg(1);
8691          V1308=(base[0]);          V1396=(base[0]);
8692          vs_top=sup;          vs_top=sup;
8693          goto TTL;          goto TTL;
8694  TTL:;  TTL:;
8695          {object V1309;          {object V1397;
8696          base[1]= (V1308);          base[1]= (V1396);
8697          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8698          (void) (*Lnk486)();          (void) (*Lnk486)();
8699          vs_top=sup;          vs_top=sup;
8700          V1309= vs_base[0];          V1397= vs_base[0];
8701          base[1]= (V1309);          base[1]= (V1397);
8702          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8703          (void) (*Lnk484)(Lclptr484);          (void) (*Lnk484)(Lclptr484);
8704          vs_top=sup;          vs_top=sup;
8705          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
8706          goto T2804;}          goto T2804;}
8707          base[1]= (V1309);          base[1]= (V1397);
8708          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8709          return;          return;
8710          goto T2804;          goto T2804;
8711  T2804:;  T2804:;
8712          if(!(type_of((V1308))==t_symbol)){          if(!(type_of((V1396))==t_symbol)){
8713          goto T2808;}          goto T2808;}
8714          base[1]= VV[333];          base[1]= VV[333];
8715          base[2]= (V1308);          base[2]= (V1396);
8716          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8717          Lerror();          Lerror();
8718          return;          return;
8719          goto T2808;          goto T2808;
8720  T2808:;  T2808:;
8721          base[1]= VV[334];          base[1]= VV[334];
8722          base[2]= (V1308);          base[2]= (V1396);
8723          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
8724          Lerror();          Lerror();
8725          return;}          return;}
# Line 8644  register object *base0; Line 8732  register object *base0;
8732  {       register object *base=vs_base;  {       register object *base=vs_base;
8733          register object *sup=base+VM115; VC115          register object *sup=base+VM115; VC115
8734          vs_check;          vs_check;
8735          {object V1310;          {object V1398;
8736          register object V1311;          register object V1399;
8737          check_arg(2);          check_arg(2);
8738          V1310=(base[0]);          V1398=(base[0]);
8739          V1311=(base[1]);          V1399=(base[1]);
8740          vs_top=sup;          vs_top=sup;
8741          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
8742          {object V1312;          {object V1400;
8743          V1312= (V1310);          V1400= (V1398);
8744           vs_top=base+3;           vs_top=base+3;
8745           while(V1312!=Cnil)           while(V1400!=Cnil)
8746           {vs_push((V1312)->c.c_car);V1312=(V1312)->c.c_cdr;}           {vs_push((V1400)->c.c_car);V1400=(V1400)->c.c_cdr;}
8747          vs_base=base+3;}          vs_base=base+3;}
8748          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
8749                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 8671  register object *base0; Line 8759  register object *base0;
8759  {       register object *base=vs_base;  {       register object *base=vs_base;
8760          register object *sup=base+VM116; VC116          register object *sup=base+VM116; VC116
8761          vs_check;          vs_check;
8762          {object V1313;          {object V1401;
8763          check_arg(1);          check_arg(1);
8764          V1313=(base[0]);          V1401=(base[0]);
8765          vs_top=sup;          vs_top=sup;
8766          base[1]= (((type_of((V1313))==t_symbol?Ct:Cnil))==Cnil?Ct:Cnil);          base[1]= (((type_of((V1401))==t_symbol?Ct:Cnil))==Cnil?Ct:Cnil);
8767          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8768          return;          return;
8769          }          }
# Line 8687  register object *base0; Line 8775  register object *base0;
8775  {       register object *base=vs_base;  {       register object *base=vs_base;
8776          register object *sup=base+VM117; VC117          register object *sup=base+VM117; VC117
8777          vs_check;          vs_check;
8778          {object V1314;          {object V1402;
8779          check_arg(1);          check_arg(1);
8780          V1314=(base[0]);          V1402=(base[0]);
8781          vs_top=sup;          vs_top=sup;
8782          base[1]= (((((V1314))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil);          base[1]= (((((V1402))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil);
8783          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8784          return;          return;
8785          }          }
# Line 8703  register object *base0; Line 8791  register object *base0;
8791  {       register object *base=vs_base;  {       register object *base=vs_base;
8792          register object *sup=base+VM118; VC118          register object *sup=base+VM118; VC118
8793          vs_check;          vs_check;
8794          {object V1315;          {object V1403;
8795          vs_top[0]=Cnil;          vs_top[0]=Cnil;
8796          {object *p=vs_top;          {object *p=vs_top;
8797           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
8798          V1315=(base[0]);          V1403=(base[0]);
8799          vs_top=sup;          vs_top=sup;
8800          base[1]= VV[273];          base[1]= VV[273];
8801          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
# Line 8723  register object *base0; Line 8811  register object *base0;
8811  {       register object *base=vs_base;  {       register object *base=vs_base;
8812          register object *sup=base+VM119; VC119          register object *sup=base+VM119; VC119
8813          vs_check;          vs_check;
8814          {object V1316;          {object V1404;
8815          register object V1317;          register object V1405;
8816          check_arg(2);          check_arg(2);
8817          V1316=(base[0]);          V1404=(base[0]);
8818          V1317=(base[1]);          V1405=(base[1]);
8819          vs_top=sup;          vs_top=sup;
8820          base[2]= (V1317);          base[2]= (V1405);
8821          base[3]= VV[269];          base[3]= VV[269];
8822          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8823          Lformat();          Lformat();
8824          vs_top=sup;          vs_top=sup;
8825          base[2]= (V1317);          base[2]= (V1405);
8826          base[3]= VV[270];          base[3]= VV[270];
8827          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8828          Lformat();          Lformat();
8829          vs_top=sup;          vs_top=sup;
8830          base[2]= (V1317);          base[2]= (V1405);
8831          base[3]= VV[271];          base[3]= VV[271];
8832          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8833          Lformat();          Lformat();
8834          vs_top=sup;          vs_top=sup;
8835          (void)((*(LnkLI487))((V1316),(V1317)));          (void)((*(LnkLI487))((V1404),(V1405)));
8836          base[2]= (V1317);          base[2]= (V1405);
8837          base[3]= VV[272];          base[3]= VV[272];
8838          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
8839          Lformat();          Lformat();
# Line 8759  register object *base0; Line 8847  register object *base0;
8847  {       register object *base=vs_base;  {       register object *base=vs_base;
8848          register object *sup=base+VM120; VC120          register object *sup=base+VM120; VC120
8849          vs_check;          vs_check;
8850          {object V1318;          {object V1406;
8851          check_arg(1);          check_arg(1);
8852          V1318=(base[0]);          V1406=(base[0]);
8853          vs_top=sup;          vs_top=sup;
8854          {register object x= (V1318),V1319= (base0[0]->c.c_car);          {register object x= (V1406),V1407= (base0[0]->c.c_car);
8855          while(V1319!=Cnil)          while(V1407!=Cnil)
8856          if(x==(V1319->c.c_car)){          if(x==(V1407->c.c_car)){
8857          base[1]= V1319;          base[1]= V1407;
8858          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8859          return;          return;
8860          }else V1319=V1319->c.c_cdr;          }else V1407=V1407->c.c_cdr;
8861          base[1]= Cnil;          base[1]= Cnil;
8862          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8863          return;}          return;}
# Line 8782  register object *base0; Line 8870  register object *base0;
8870  {       register object *base=vs_base;  {       register object *base=vs_base;
8871          register object *sup=base+VM121; VC121          register object *sup=base+VM121; VC121
8872          vs_check;          vs_check;
8873          {object V1320;          {object V1408;
8874          object V1321;          object V1409;
8875          check_arg(2);          check_arg(2);
8876          V1320=(base[0]);          V1408=(base[0]);
8877          V1321=(base[1]);          V1409=(base[1]);
8878          vs_top=sup;          vs_top=sup;
8879          goto TTL;          goto TTL;
8880  TTL:;  TTL:;
8881          if(!(number_compare((V1320),(V1321))>0)){          if(!(number_compare((V1408),(V1409))>0)){
8882          goto T2831;}          goto T2831;}
8883          base[2]= VV[250];          base[2]= VV[250];
8884          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 8809  register object *base0; Line 8897  register object *base0;
8897  {       register object *base=vs_base;  {       register object *base=vs_base;
8898          register object *sup=base+VM122; VC122          register object *sup=base+VM122; VC122
8899          vs_check;          vs_check;
8900          {object V1322;          {object V1410;
8901          object V1323;          object V1411;
8902          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
8903          V1322=(base[0]);          V1410=(base[0]);
8904          vs_base=vs_base+1;          vs_base=vs_base+1;
8905          vs_top[0]=Cnil;          vs_top[0]=Cnil;
8906          {object *p=vs_top;          {object *p=vs_top;
8907           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
8908          V1323=(base[1]);          V1411=(base[1]);
8909          vs_top=sup;          vs_top=sup;
8910          base[2]= VV[249];          base[2]= VV[249];
8911          base[3]= base0[2];          base[3]= base0[2];
8912          base[4]= base0[0];          base[4]= base0[0];
8913          base[6]= Cnil;          base[6]= Cnil;
8914          base[7]= (V1322);          base[7]= (V1410);
8915          {object V1324;          {object V1412;
8916          V1324= (V1323);          V1412= (V1411);
8917           vs_top=base+8;           vs_top=base+8;
8918           while(V1324!=Cnil)           while(V1412!=Cnil)
8919           {vs_push((V1324)->c.c_car);V1324=(V1324)->c.c_cdr;}           {vs_push((V1412)->c.c_car);V1412=(V1412)->c.c_cdr;}
8920          vs_base=base+6;}          vs_base=base+6;}
8921          Lformat();          Lformat();
8922          vs_top=sup;          vs_top=sup;
# Line 8845  register object *base0; Line 8933  register object *base0;
8933  {       register object *base=vs_base;  {       register object *base=vs_base;
8934          register object *sup=base+VM123; VC123          register object *sup=base+VM123; VC123
8935          vs_check;          vs_check;
8936          {object V1325;          {object V1413;
8937          check_arg(1);          check_arg(1);
8938          V1325=(base[0]);          V1413=(base[0]);
8939          vs_top=sup;          vs_top=sup;
8940          base[1]= (((((V1325))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil);          base[1]= (((((V1413))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil);
8941          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8942          return;          return;
8943          }          }
# Line 8861  register object *base0; Line 8949  register object *base0;
8949  {       register object *base=vs_base;  {       register object *base=vs_base;
8950          register object *sup=base+VM124; VC124          register object *sup=base+VM124; VC124
8951          vs_check;          vs_check;
8952          {object V1326;          {object V1414;
8953          check_arg(1);          check_arg(1);
8954          V1326=(base[0]);          V1414=(base[0]);
8955          vs_top=sup;          vs_top=sup;
8956          goto TTL;          goto TTL;
8957  TTL:;  TTL:;
8958          if(!(type_of((V1326))==t_cons||((V1326))==Cnil)){          if(!(type_of((V1414))==t_cons||((V1414))==Cnil)){
8959          goto T2841;}          goto T2841;}
8960          {object V1327= CMPcar((V1326));          {object V1415= CMPcar((V1414));
8961          if(!(type_of(V1327)==t_cons||(V1327)==Cnil)){          if(!(type_of(V1415)==t_cons||(V1415)==Cnil)){
8962          goto T2844;}}          goto T2844;}}
8963          base[1]= CMPcaar((V1326));          base[1]= CMPcaar((V1414));
8964          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8965          return;          return;
8966          goto T2844;          goto T2844;
8967  T2844:;  T2844:;
8968          base[1]= CMPcar((V1326));          base[1]= CMPcar((V1414));
8969          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8970          (void) (*Lnk488)();          (void) (*Lnk488)();
8971          return;          return;
8972          goto T2841;          goto T2841;
8973  T2841:;  T2841:;
8974          base[1]= (V1326);          base[1]= (V1414);
8975          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
8976          (void) (*Lnk488)();          (void) (*Lnk488)();
8977          return;          return;
# Line 8896  register object *base0; Line 8984  register object *base0;
8984  {       register object *base=vs_base;  {       register object *base=vs_base;
8985          register object *sup=base+VM125; VC125          register object *sup=base+VM125; VC125
8986          vs_check;          vs_check;
8987          {object V1328;          {object V1416;
8988          object V1329;          object V1417;
8989          check_arg(2);          check_arg(2);
8990          V1328=(base[0]);          V1416=(base[0]);
8991          V1329=(base[1]);          V1417=(base[1]);
8992          vs_top=sup;          vs_top=sup;
8993          goto TTL;          goto TTL;
8994  TTL:;  TTL:;
8995          if((base0[0])==Cnil){          if((base0[0])==Cnil){
8996          goto T2848;}          goto T2848;}
8997          (void)((*(LnkLI489))((V1329),base0[0],V1328));          (void)((*(LnkLI489))((V1417),base0[0],V1416));
8998          goto T2848;          goto T2848;
8999  T2848:;  T2848:;
9000          if((base0[4])==Cnil){          if((base0[4])==Cnil){
9001          goto T2852;}          goto T2852;}
9002          base[2]= (*(LnkLI489))((V1329),base0[4],V1328);          base[2]= (*(LnkLI489))((V1417),base0[4],V1416);
9003          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
9004          return;          return;
9005          goto T2852;          goto T2852;
# Line 8928  register object *base0; Line 9016  register object *base0;
9016  {       register object *base=vs_base;  {       register object *base=vs_base;
9017          register object *sup=base+VM126; VC126          register object *sup=base+VM126; VC126
9018          vs_check;          vs_check;
9019          {object V1334;          {object V1422;
9020          check_arg(1);          check_arg(1);
9021          V1334=(base[0]);          V1422=(base[0]);
9022          vs_top=sup;          vs_top=sup;
9023          goto TTL;          goto TTL;
9024  TTL:;  TTL:;
9025          {register object V1335;          {register object V1423;
9026          register object V1336;          register object V1424;
9027          V1335= CMPcdar(base0[0]);          V1423= CMPcdar(base0[0]);
9028          V1336= CMPcar((V1335));          V1424= CMPcar((V1423));
9029          goto T2857;          goto T2857;
9030  T2857:;  T2857:;
9031          if(!(((V1335))==Cnil)){          if(!(((V1423))==Cnil)){
9032          goto T2858;}          goto T2858;}
9033          base[3]= Cnil;          base[3]= Cnil;
9034          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9035          return;          return;
9036          goto T2858;          goto T2858;
9037  T2858:;  T2858:;
9038          if(!((CMPcar((V1336)))==(VV[182]))){          if(!((CMPcar((V1424)))==(VV[182]))){
9039          goto T2862;}          goto T2862;}
9040          {register object x= (V1334),V1337= CMPcdr((V1336));          {register object x= (V1422),V1425= CMPcdr((V1424));
9041          while(V1337!=Cnil)          while(V1425!=Cnil)
9042          if(x==(V1337->c.c_car)){          if(x==(V1425->c.c_car)){
9043          goto T2866;          goto T2866;
9044          }else V1337=V1337->c.c_cdr;          }else V1425=V1425->c.c_cdr;
9045          goto T2862;}          goto T2862;}
9046          goto T2866;          goto T2866;
9047  T2866:;  T2866:;
# Line 8962  T2866:; Line 9050  T2866:;
9050          return;          return;
9051          goto T2862;          goto T2862;
9052  T2862:;  T2862:;
9053          V1335= CMPcdr((V1335));          V1423= CMPcdr((V1423));
9054          V1336= CMPcar((V1335));          V1424= CMPcar((V1423));
9055          goto T2857;}          goto T2857;}
9056          }          }
9057  }  }
# Line 8974  register object *base0; Line 9062  register object *base0;
9062  {       register object *base=vs_base;  {       register object *base=vs_base;
9063          register object *sup=base+VM127; VC127          register object *sup=base+VM127; VC127
9064          vs_check;          vs_check;
9065          {register object V1338;          {register object V1426;
9066          object V1339;          object V1427;
9067          object V1340;          object V1428;
9068          check_arg(3);          check_arg(3);
9069          V1338=(base[0]);          V1426=(base[0]);
9070          V1339=(base[1]);          V1427=(base[1]);
9071          V1340=(base[2]);          V1428=(base[2]);
9072          vs_top=sup;          vs_top=sup;
9073          if(((V1339))==(VV[194])){          if(((V1427))==(VV[194])){
9074          goto T2873;}          goto T2873;}
9075          base[3]= (V1338);          base[3]= (V1426);
9076          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9077          return;          return;
9078          goto T2873;          goto T2873;
9079  T2873:;  T2873:;
9080          if(type_of((V1338))==t_cons||((V1338))==Cnil){          if(type_of((V1426))==t_cons||((V1426))==Cnil){
9081          goto T2876;}          goto T2876;}
9082          base[3]= (V1338);          base[3]= (V1426);
9083          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9084          return;          return;
9085          goto T2876;          goto T2876;
9086  T2876:;  T2876:;
9087          if(!((CMPcar((V1338)))==(VV[195]))){          if(!((CMPcar((V1426)))==(VV[195]))){
9088          goto T2879;}          goto T2879;}
9089          (base0[2]->c.c_car)= Ct;          (base0[2]->c.c_car)= Ct;
9090          base[3]= (V1338);          base[3]= (V1426);
9091          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9092          return;          return;
9093          goto T2879;          goto T2879;
9094  T2879:;  T2879:;
9095          if(!((CMPcar((V1338)))==(VV[196]))){          if(!((CMPcar((V1426)))==(VV[196]))){
9096          goto T2884;}          goto T2884;}
9097          (base0[0]->c.c_car)= Ct;          (base0[0]->c.c_car)= Ct;
9098          base[3]= (V1338);          base[3]= (V1426);
9099          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9100          return;          return;
9101          goto T2884;          goto T2884;
9102  T2884:;  T2884:;
9103          {object V1341;          {object V1429;
9104          if((CMPcar((V1338)))==(VV[34])){          if((CMPcar((V1426)))==(VV[34])){
9105          goto T2889;}          goto T2889;}
9106          V1341= Cnil;          V1429= Cnil;
9107          goto T2888;          goto T2888;
9108          goto T2889;          goto T2889;
9109  T2889:;  T2889:;
9110          if(!((CMPcadr((V1338)))==(VV[195]))){          if(!((CMPcadr((V1426)))==(VV[195]))){
9111          goto T2892;}          goto T2892;}
9112          (base0[2]->c.c_car)= Ct;          (base0[2]->c.c_car)= Ct;
9113          (base0[1]->c.c_car)= Ct;          (base0[1]->c.c_car)= Ct;
9114          V1341= (V1338);          V1429= (V1426);
9115          goto T2888;          goto T2888;
9116          goto T2892;          goto T2892;
9117  T2892:;  T2892:;
9118          if(!((CMPcadr((V1338)))==(VV[196]))){          if(!((CMPcadr((V1426)))==(VV[196]))){
9119          goto T2899;}          goto T2899;}
9120          (base0[0]->c.c_car)= Ct;          (base0[0]->c.c_car)= Ct;
9121          (base0[1]->c.c_car)= Ct;          (base0[1]->c.c_car)= Ct;
9122          V1341= (V1338);          V1429= (V1426);
9123          goto T2888;          goto T2888;
9124          goto T2899;          goto T2899;
9125  T2899:;  T2899:;
9126          V1341= Cnil;          V1429= Cnil;
9127          goto T2888;          goto T2888;
9128  T2888:;  T2888:;
9129          if(((V1341))==Cnil){          if(((V1429))==Cnil){
9130          goto T2906;}          goto T2906;}
9131          base[3]= (V1341);          base[3]= (V1429);
9132          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9133          return;          return;
9134          goto T2906;          goto T2906;
9135  T2906:;  T2906:;
9136          if((CMPcar((V1338)))==(VV[197])){          if((CMPcar((V1426)))==(VV[197])){
9137          goto T2910;}          goto T2910;}
9138          if((CMPcar((V1338)))==(VV[198])){          if((CMPcar((V1426)))==(VV[198])){
9139          goto T2910;}          goto T2910;}
9140          if(!((CMPcar((V1338)))==(VV[199]))){          if(!((CMPcar((V1426)))==(VV[199]))){
9141          goto T2909;}          goto T2909;}
9142          goto T2910;          goto T2910;
9143  T2910:;  T2910:;
9144          base[3]= CMPcaddr((V1338));          base[3]= CMPcaddr((V1426));
9145          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9146          Lconstantp();          Lconstantp();
9147          vs_top=sup;          vs_top=sup;
9148          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9149          goto T2909;}          goto T2909;}
9150          {object V1342;          {object V1430;
9151          V1342= (*(LnkLI490))((V1338),(base0[5]->c.c_car),(V1340));          V1430= (*(LnkLI490))((V1426),(base0[5]->c.c_car),(V1428));
9152          {object V1343= CMPcar((V1338));          {object V1431= CMPcar((V1426));
9153          if((V1343!= VV[197]))goto T2919;          if((V1431!= VV[197]))goto T2919;
9154          base[3]= (*(LnkLI491))((base0[4]->c.c_car),(V1342),(V1338));          base[3]= (*(LnkLI491))((base0[4]->c.c_car),(V1430),(V1426));
9155          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9156          return;          return;
9157          goto T2919;          goto T2919;
9158  T2919:;  T2919:;
9159          if((V1343!= VV[198]))goto T2920;          if((V1431!= VV[198]))goto T2920;
9160          base[3]= (*(LnkLI492))((base0[4]->c.c_car),(V1342),(V1338));          base[3]= (*(LnkLI492))((base0[4]->c.c_car),(V1430),(V1426));
9161          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9162          return;          return;
9163          goto T2920;          goto T2920;
9164  T2920:;  T2920:;
9165          if((V1343!= VV[199]))goto T2921;          if((V1431!= VV[199]))goto T2921;
9166          base[3]= (*(LnkLI493))((base0[4]->c.c_car),(V1342),(V1338));          base[3]= (*(LnkLI493))((base0[4]->c.c_car),(V1430),(V1426));
9167          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9168          return;          return;
9169          goto T2921;          goto T2921;
9170  T2921:;  T2921:;
9171          FEerror("The ECASE key value ~s is illegal.",1,V1343);          FEerror("The ECASE key value ~s is illegal.",1,V1431);
9172          base[3]= Cnil;          base[3]= Cnil;
9173          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9174          return;}}          return;}}
9175          goto T2909;          goto T2909;
9176  T2909:;  T2909:;
9177          if(!((CMPcar((V1338)))==(VV[138]))){          if(!((CMPcar((V1426)))==(VV[138]))){
9178          goto T2923;}          goto T2923;}
9179          if(!(type_of(CMPcadr((V1338)))==t_cons)){          if(!(type_of(CMPcadr((V1426)))==t_cons)){
9180          goto T2923;}          goto T2923;}
9181          if(!((CMPcar(CMPcadr((V1338))))==(VV[34]))){          if(!((CMPcar(CMPcadr((V1426))))==(VV[34]))){
9182          goto T2923;}          goto T2923;}
9183          base[3]= CMPcadr(CMPcadr((V1338)));          base[3]= CMPcadr(CMPcadr((V1426)));
9184          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9185          (void) (*Lnk494)();          (void) (*Lnk494)();
9186          vs_top=sup;          vs_top=sup;
9187          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9188          goto T2923;}          goto T2923;}
9189          base[3]= (*(LnkLI495))((V1338),(base0[5]->c.c_car),(V1340),(base0[4]->c.c_car),(base0[3]->c.c_car));          base[3]= (*(LnkLI495))((V1426),(base0[5]->c.c_car),(V1428),(base0[4]->c.c_car),(base0[3]->c.c_car));
9190          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9191          return;          return;
9192          goto T2923;          goto T2923;
9193  T2923:;  T2923:;
9194          if(type_of(CMPcar((V1338)))==t_symbol){          if(type_of(CMPcar((V1426)))==t_symbol){
9195          goto T2934;}          goto T2934;}
9196          if(!(type_of(CMPcar((V1338)))==t_cons)){          if(!(type_of(CMPcar((V1426)))==t_cons)){
9197          goto T2933;}          goto T2933;}
9198          if(!((CMPcaar((V1338)))==(VV[30]))){          if(!((CMPcaar((V1426)))==(VV[30]))){
9199          goto T2933;}          goto T2933;}
9200          goto T2934;          goto T2934;
9201  T2934:;  T2934:;
9202          base[3]= CMPcar((V1338));          base[3]= CMPcar((V1426));
9203          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9204          (void) (*Lnk494)();          (void) (*Lnk494)();
9205          vs_top=sup;          vs_top=sup;
9206          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
9207          goto T2933;}          goto T2933;}
9208          base[3]= (*(LnkLI495))((V1338),(base0[5]->c.c_car),(V1340),(base0[4]->c.c_car),(base0[3]->c.c_car));          base[3]= (*(LnkLI495))((V1426),(base0[5]->c.c_car),(V1428),(base0[4]->c.c_car),(base0[3]->c.c_car));
9209          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9210          return;          return;
9211          goto T2933;          goto T2933;
9212  T2933:;  T2933:;
9213          if(!((CMPcar((V1338)))==(VV[200]))){          if(!((CMPcar((V1426)))==(VV[200]))){
9214          goto T2943;}          goto T2943;}
9215          if(((VV[22]->s.s_dbind))==Cnil){          if(((VV[22]->s.s_dbind))==Cnil){
9216          goto T2943;}          goto T2943;}
9217          {object V1344= CMPcadddr((V1338));          {object V1432= CMPcadddr((V1426));
9218          if((V1344!= VV[254]))goto T2948;          if((V1432!= VV[254]))goto T2948;
9219          {object V1345;          {object V1433;
9220          V1345= CMPcaddr((V1338));          V1433= CMPcaddr((V1426));
9221          (VV[23]->s.s_dbind)= make_cons((V1345),(VV[23]->s.s_dbind));          (VV[23]->s.s_dbind)= make_cons((V1433),(VV[23]->s.s_dbind));
9222          goto T2947;}          goto T2947;}
9223          goto T2948;          goto T2948;
9224  T2948:;  T2948:;
9225          if((V1344!= VV[256]))goto T2951;          if((V1432!= VV[256]))goto T2951;
9226          {object V1346;          {object V1434;
9227          V1346= CMPcaddr((V1338));          V1434= CMPcaddr((V1426));
9228          (VV[24]->s.s_dbind)= make_cons((V1346),(VV[24]->s.s_dbind));          (VV[24]->s.s_dbind)= make_cons((V1434),(VV[24]->s.s_dbind));
9229          goto T2947;}          goto T2947;}
9230          goto T2951;          goto T2951;
9231  T2951:;  T2951:;
9232          if((V1344!= VV[258]))goto T2954;          if((V1432!= VV[258]))goto T2954;
9233          {object V1347;          {object V1435;
9234          V1347= CMPcaddr((V1338));          V1435= CMPcaddr((V1426));
9235          (VV[25]->s.s_dbind)= make_cons((V1347),(VV[25]->s.s_dbind));          (VV[25]->s.s_dbind)= make_cons((V1435),(VV[25]->s.s_dbind));
9236          goto T2947;}          goto T2947;}
9237          goto T2954;          goto T2954;
9238  T2954:;}  T2954:;}
9239          goto T2947;          goto T2947;
9240  T2947:;  T2947:;
9241          base[3]= make_cons(CMPcadr((V1338)),CMPcddddr((V1338)));          base[3]= make_cons(CMPcadr((V1426)),CMPcddddr((V1426)));
9242          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9243          return;          return;
9244          goto T2943;          goto T2943;
9245  T2943:;  T2943:;
9246          base[3]= (V1338);          base[3]= (V1426);
9247          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
9248          return;}          return;}
9249          }          }
# Line 9167  register object *base0; Line 9255  register object *base0;
9255  {       register object *base=vs_base;  {       register object *base=vs_base;
9256          register object *sup=base+VM128; VC128          register object *sup=base+VM128; VC128
9257          vs_check;          vs_check;
9258          {register object V1348;          {register object V1436;
9259          check_arg(1);          check_arg(1);
9260          V1348=(base[0]);          V1436=(base[0]);
9261          vs_top=sup;          vs_top=sup;
9262          goto TTL;          goto TTL;
9263  TTL:;  TTL:;
9264          {register object x= (V1348),V1349= VV[183];          {register object x= (V1436),V1437= VV[183];
9265          while(V1349!=Cnil)          while(V1437!=Cnil)
9266          if(x==(V1349->c.c_car)){          if(x==(V1437->c.c_car)){
9267          goto T2959;          goto T2959;
9268          }else V1349=V1349->c.c_cdr;          }else V1437=V1437->c.c_cdr;
9269          goto T2958;}          goto T2958;}
9270          goto T2959;          goto T2959;
9271  T2959:;  T2959:;
9272          {object V1350= (V1348);          {object V1438= (V1436);
9273          if((V1350!= VV[407]))goto T2961;          if((V1438!= VV[407]))goto T2961;
9274          base0[7]= VV[184];          base0[7]= VV[184];
9275          goto T2960;          goto T2960;
9276          goto T2961;          goto T2961;
9277  T2961:;  T2961:;
9278          if((V1350!= VV[62]))goto T2963;          if((V1438!= VV[62]))goto T2963;
9279          base0[7]= VV[185];          base0[7]= VV[185];
9280          goto T2960;          goto T2960;
9281          goto T2963;          goto T2963;
9282  T2963:;  T2963:;
9283          if((V1350!= VV[63]))goto T2965;          if((V1438!= VV[63]))goto T2965;
9284          goto T2960;          goto T2960;
9285          goto T2965;          goto T2965;
9286  T2965:;  T2965:;
9287          if((V1350!= VV[170]))goto T2966;          if((V1438!= VV[170]))goto T2966;
9288          base0[7]= VV[186];          base0[7]= VV[186];
9289          goto T2960;          goto T2960;
9290          goto T2966;          goto T2966;
9291  T2966:;  T2966:;
9292          if((V1350!= VV[56]))goto T2968;          if((V1438!= VV[56]))goto T2968;
9293          base0[7]= VV[187];          base0[7]= VV[187];
9294          goto T2960;          goto T2960;
9295          goto T2968;          goto T2968;
9296  T2968:;  T2968:;
9297          base[1]= VV[188];          base[1]= VV[188];
9298          base[2]= (V1348);          base[2]= (V1436);
9299          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9300          Lerror();          Lerror();
9301          vs_top=sup;}          vs_top=sup;}
# Line 9218  T2960:; Line 9306  T2960:;
9306          return;          return;
9307          goto T2958;          goto T2958;
9308  T2958:;  T2958:;
9309          {object V1351= base0[7];          {object V1439= base0[7];
9310          if((V1351!= VV[181]))goto T2972;          if((V1439!= VV[181]))goto T2972;
9311          V1352= list(2,(V1348),list(2,VV[189],base0[5]));          V1440= list(2,(V1436),list(2,VV[189],base0[5]));
9312          base[1]= make_cons(/* INLINE-ARGS */V1352,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V1440,Cnil);
9313          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9314          return;          return;
9315          goto T2972;          goto T2972;
9316  T2972:;  T2972:;
9317          if((V1351!= VV[184]))goto T2973;          if((V1439!= VV[184]))goto T2973;
9318          if(type_of((V1348))==t_cons){          if(type_of((V1436))==t_cons){
9319          goto T2975;}          goto T2975;}
9320          V1353= list(2,(V1348),list(3,VV[116],base0[5],list(2,VV[189],base0[5])));          V1441= list(2,(V1436),list(3,VV[116],base0[5],list(2,VV[189],base0[5])));
9321          base[1]= make_cons(/* INLINE-ARGS */V1353,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V1441,Cnil);
9322          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9323          return;          return;
9324          goto T2975;          goto T2975;
9325  T2975:;  T2975:;
9326          if((CMPcddr((V1348)))!=Cnil){          if((CMPcddr((V1436)))!=Cnil){
9327          goto T2978;}          goto T2978;}
9328          V1354= CMPcar((V1348));          V1442= CMPcar((V1436));
9329          V1355= list(2,/* INLINE-ARGS */V1354,list(4,VV[130],base0[5],list(2,VV[189],base0[5]),CMPcadr((V1348))));          V1443= list(2,/* INLINE-ARGS */V1442,list(4,VV[130],base0[5],list(2,VV[189],base0[5]),CMPcadr((V1436))));
9330          base[1]= make_cons(/* INLINE-ARGS */V1355,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V1443,Cnil);
9331          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9332          return;          return;
9333          goto T2978;          goto T2978;
9334  T2978:;  T2978:;
9335          V1356= list(2,CMPcaddr((V1348)),base0[5]);          V1444= list(2,CMPcaddr((V1436)),base0[5]);
9336          V1357= CMPcar((V1348));          V1445= CMPcar((V1436));
9337          base[1]= list(2,/* INLINE-ARGS */V1356,list(2,/* INLINE-ARGS */V1357,list(4,VV[130],base0[5],list(2,VV[189],base0[5]),CMPcadr((V1348)))));          base[1]= list(2,/* INLINE-ARGS */V1444,list(2,/* INLINE-ARGS */V1445,list(4,VV[130],base0[5],list(2,VV[189],base0[5]),CMPcadr((V1436)))));
9338          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9339          return;          return;
9340          goto T2973;          goto T2973;
9341  T2973:;  T2973:;
9342          if((V1351!= VV[186]))goto T2980;          if((V1439!= VV[186]))goto T2980;
9343          V1358= list(2,(V1348),base0[5]);          V1446= list(2,(V1436),base0[5]);
9344          base[1]= make_cons(/* INLINE-ARGS */V1358,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V1446,Cnil);
9345          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9346          return;          return;
9347          goto T2980;          goto T2980;
9348  T2980:;  T2980:;
9349          if((V1351!= VV[185]))goto T2981;          if((V1439!= VV[185]))goto T2981;
9350          if(type_of((V1348))==t_cons){          if(type_of((V1436))==t_cons){
9351          goto T2983;}          goto T2983;}
9352          base[1]= (V1348);          base[1]= (V1436);
9353          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9354          (void) (*Lnk488)();          (void) (*Lnk488)();
9355          vs_top=sup;          vs_top=sup;
9356          V1359= vs_base[0];          V1447= vs_base[0];
9357          V1360= list(2,(V1348),list(3,VV[190],V1359,base0[5]));          V1448 = base0[5];
9358          base[1]= make_cons(/* INLINE-ARGS */V1360,Cnil);          V1449= list(2,(V1436),list(3,VV[190],V1447,V1448));
9359            base[1]= make_cons(/* INLINE-ARGS */V1449,Cnil);
9360          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9361          return;          return;
9362          goto T2983;          goto T2983;
9363  T2983:;  T2983:;
9364          if((CMPcddr((V1348)))!=Cnil){          if((CMPcddr((V1436)))!=Cnil){
9365          goto T2988;}          goto T2988;}
9366          {object V1361;          {object V1450;
9367          object V1362;          object V1451;
9368          if(!(type_of(CMPcar((V1348)))==t_cons)){          if(!(type_of(CMPcar((V1436)))==t_cons)){
9369          goto T2992;}          goto T2992;}
9370          base[1]= CMPcaar((V1348));          base[1]= CMPcaar((V1436));
9371          base[2]= CMPcadar((V1348));          base[2]= CMPcadar((V1436));
9372          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9373          goto T2990;          goto T2990;
9374          goto T2992;          goto T2992;
9375  T2992:;  T2992:;
9376          base[2]= CMPcar((V1348));          base[2]= CMPcar((V1436));
9377          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
9378          (void) (*Lnk488)();          (void) (*Lnk488)();
9379          vs_top=sup;          vs_top=sup;
9380          base[1]= vs_base[0];          base[1]= vs_base[0];
9381          base[2]= CMPcar((V1348));          base[2]= CMPcar((V1436));
9382          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9383          goto T2990;          goto T2990;
9384  T2990:;  T2990:;
9385          if(vs_base>=vs_top){vs_top=sup;goto T2999;}          if(vs_base>=vs_top){vs_top=sup;goto T2999;}
9386          V1361= vs_base[0];          V1450= vs_base[0];
9387          vs_base++;          vs_base++;
9388          if(vs_base>=vs_top){vs_top=sup;goto T3000;}          if(vs_base>=vs_top){vs_top=sup;goto T3000;}
9389          V1362= vs_base[0];          V1451= vs_base[0];
9390          vs_top=sup;          vs_top=sup;
9391          goto T3001;          goto T3001;
9392          goto T2999;          goto T2999;
9393  T2999:;  T2999:;
9394          V1361= Cnil;          V1450= Cnil;
9395          goto T3000;          goto T3000;
9396  T3000:;  T3000:;
9397          V1362= Cnil;          V1451= Cnil;
9398          goto T3001;          goto T3001;
9399  T3001:;  T3001:;
9400          V1363= list(2,base0[6],list(3,VV[191],(V1361),base0[5]));          V1452= list(2,base0[6],list(3,VV[191],(V1450),base0[5]));
9401          V1364= list(2,VV[192],base0[6]);          V1453= list(2,VV[192],base0[6]);
9402          base[1]= list(2,/* INLINE-ARGS */V1363,list(2,(V1362),list(4,VV[130],/* INLINE-ARGS */V1364,list(2,VV[193],base0[6]),CMPcadr((V1348)))));          base[1]= list(2,/* INLINE-ARGS */V1452,list(2,(V1451),list(4,VV[130],/* INLINE-ARGS */V1453,list(2,VV[193],base0[6]),CMPcadr((V1436)))));
9403          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9404          return;}          return;}
9405          goto T2988;          goto T2988;
9406  T2988:;  T2988:;
9407          {object V1365;          {object V1454;
9408          object V1366;          object V1455;
9409          if(!(type_of(CMPcar((V1348)))==t_cons)){          if(!(type_of(CMPcar((V1436)))==t_cons)){
9410          goto T3004;}          goto T3004;}
9411          base[1]= CMPcaar((V1348));          base[1]= CMPcaar((V1436));
9412          base[2]= CMPcadar((V1348));          base[2]= CMPcadar((V1436));
9413          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9414          goto T3002;          goto T3002;
9415          goto T3004;          goto T3004;
9416  T3004:;  T3004:;
9417          base[2]= CMPcar((V1348));          base[2]= CMPcar((V1436));
9418          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
9419          (void) (*Lnk488)();          (void) (*Lnk488)();
9420          vs_top=sup;          vs_top=sup;
9421          base[1]= vs_base[0];          base[1]= vs_base[0];
9422          base[2]= CMPcar((V1348));          base[2]= CMPcar((V1436));
9423          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9424          goto T3002;          goto T3002;
9425  T3002:;  T3002:;
9426          if(vs_base>=vs_top){vs_top=sup;goto T3011;}          if(vs_base>=vs_top){vs_top=sup;goto T3011;}
9427          V1365= vs_base[0];          V1454= vs_base[0];
9428          vs_base++;          vs_base++;
9429          if(vs_base>=vs_top){vs_top=sup;goto T3012;}          if(vs_base>=vs_top){vs_top=sup;goto T3012;}
9430          V1366= vs_base[0];          V1455= vs_base[0];
9431          vs_top=sup;          vs_top=sup;
9432          goto T3013;          goto T3013;
9433          goto T3011;          goto T3011;
9434  T3011:;  T3011:;
9435          V1365= Cnil;          V1454= Cnil;
9436          goto T3012;          goto T3012;
9437  T3012:;  T3012:;
9438          V1366= Cnil;          V1455= Cnil;
9439          goto T3013;          goto T3013;
9440  T3013:;  T3013:;
9441          V1367= list(2,base0[6],list(3,VV[191],(V1365),base0[5]));          V1456= list(2,base0[6],list(3,VV[191],(V1454),base0[5]));
9442          V1368= list(2,CMPcaddr((V1348)),base0[6]);          V1457= list(2,CMPcaddr((V1436)),base0[6]);
9443          V1369= list(2,VV[192],base0[6]);          V1458= list(2,VV[192],base0[6]);
9444          base[1]= list(3,/* INLINE-ARGS */V1367,/* INLINE-ARGS */V1368,list(2,(V1366),list(4,VV[130],/* INLINE-ARGS */V1369,list(2,VV[193],base0[6]),CMPcadr((V1348)))));          base[1]= list(3,/* INLINE-ARGS */V1456,/* INLINE-ARGS */V1457,list(2,(V1455),list(4,VV[130],/* INLINE-ARGS */V1458,list(2,VV[193],base0[6]),CMPcadr((V1436)))));
9445          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9446          return;}          return;}
9447          goto T2981;          goto T2981;
9448  T2981:;  T2981:;
9449          if((V1351!= VV[187]))goto T3014;          if((V1439!= VV[187]))goto T3014;
9450          base[1]= make_cons((V1348),Cnil);          base[1]= make_cons((V1436),Cnil);
9451          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9452          return;          return;
9453          goto T3014;          goto T3014;
# Line 9375  register object *base0; Line 9464  register object *base0;
9464  {       register object *base=vs_base;  {       register object *base=vs_base;
9465          register object *sup=base+VM129; VC129          register object *sup=base+VM129; VC129
9466          vs_check;          vs_check;
9467          {object V1370;          {object V1459;
9468          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9469          {object *p=vs_top;          {object *p=vs_top;
9470           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9471          V1370=(base[0]);          V1459=(base[0]);
9472          vs_top=sup;          vs_top=sup;
9473          base[1]= STREF(object,(base0[0]->c.c_car),0);          base[1]= STREF(object,(base0[0]->c.c_car),0);
9474          base[2]= (V1370);          base[2]= (V1459);
9475          {object V1371;          {object V1460;
9476          V1371= STREF(object,(base0[0]->c.c_car),4);          V1460= STREF(object,(base0[0]->c.c_car),4);
9477           vs_top=base+3;           vs_top=base+3;
9478           while(V1371!=Cnil)           while(V1460!=Cnil)
9479           {vs_push((V1371)->c.c_car);V1371=(V1371)->c.c_cdr;}           {vs_push((V1460)->c.c_car);V1460=(V1460)->c.c_cdr;}
9480          vs_base=base+2;}          vs_base=base+2;}
9481          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9482                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 9403  register object *base0; Line 9492  register object *base0;
9492  {       register object *base=vs_base;  {       register object *base=vs_base;
9493          register object *sup=base+VM130; VC130          register object *sup=base+VM130; VC130
9494          vs_check;          vs_check;
9495          {object V1372;          {object V1461;
9496          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9497          {object *p=vs_top;          {object *p=vs_top;
9498           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9499          V1372=(base[0]);          V1461=(base[0]);
9500          vs_top=sup;          vs_top=sup;
9501          base[1]= STREF(object,(base0[2]->c.c_car),0);          base[1]= STREF(object,(base0[2]->c.c_car),0);
9502          base[2]= STREF(object,(base0[2]->c.c_car),4);          base[2]= STREF(object,(base0[2]->c.c_car),4);
9503          base[3]= STREF(object,(base0[2]->c.c_car),8);          base[3]= STREF(object,(base0[2]->c.c_car),8);
9504          {object V1373;          {object V1462;
9505          if(((base0[0]->c.c_car))==Cnil){          if(((base0[0]->c.c_car))==Cnil){
9506          goto T3025;}          goto T3025;}
9507          {object V1374;          {object V1463;
9508          object V1375;          object V1464;
9509          V1374= nthcdr(fix((base0[1]->c.c_car)),(V1372));          V1463= nthcdr(fix((base0[1]->c.c_car)),(V1461));
9510          base[6]= (V1372);          base[6]= (V1461);
9511          base[7]= (V1374);          base[7]= (V1463);
9512          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
9513          Lldiff();          Lldiff();
9514          vs_top=sup;          vs_top=sup;
9515          V1375= vs_base[0];          V1464= vs_base[0];
9516          V1373= nconc((V1375),(V1374));          V1462= nconc((V1464),(V1463));
9517          goto T3023;}          goto T3023;}
9518          goto T3025;          goto T3025;
9519  T3025:;  T3025:;
9520          V1373= (V1372);          V1462= (V1461);
9521          goto T3023;          goto T3023;
9522  T3023:;  T3023:;
9523           vs_top=base+4;           vs_top=base+4;
9524           while(V1373!=Cnil)           while(V1462!=Cnil)
9525           {vs_push((V1373)->c.c_car);V1373=(V1373)->c.c_cdr;}           {vs_push((V1462)->c.c_car);V1462=(V1462)->c.c_cdr;}
9526          vs_base=base+2;}          vs_base=base+2;}
9527          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9528                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 9449  register object *base0; Line 9538  register object *base0;
9538  {       register object *base=vs_base;  {       register object *base=vs_base;
9539          register object *sup=base+VM131; VC131          register object *sup=base+VM131; VC131
9540          vs_check;          vs_check;
9541          {register object V1376;          {register object V1465;
9542          check_arg(1);          check_arg(1);
9543          V1376=(base[0]);          V1465=(base[0]);
9544          vs_top=sup;          vs_top=sup;
9545          if(!(type_of((V1376))==t_cons)){          if(!(type_of((V1465))==t_cons)){
9546          goto T3032;}          goto T3032;}
9547          if((CMPcar((V1376)))==(VV[31])){          if((CMPcar((V1465)))==(VV[31])){
9548          goto T3034;}          goto T3034;}
9549          base[1]= Cnil;          base[1]= Cnil;
9550          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9551          return;          return;
9552          goto T3034;          goto T3034;
9553  T3034:;  T3034:;
9554          base[1]= CMPcadr((V1376));          base[1]= CMPcadr((V1465));
9555          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9556          Lconstantp();          Lconstantp();
9557          vs_top=sup;          vs_top=sup;
# Line 9473  T3034:; Line 9562  T3034:;
9562          return;          return;
9563          goto T3036;          goto T3036;
9564  T3036:;  T3036:;
9565          {register object V1377;          {register object V1466;
9566          base[1]= CMPcadr((V1376));          base[1]= CMPcadr((V1465));
9567          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9568          Leval();          Leval();
9569          vs_top=sup;          vs_top=sup;
9570          V1377= vs_base[0];{object V1378;          V1466= vs_base[0];{object V1467;
9571          V1378= (*(LnkLI365))((V1377));          V1467= (*(LnkLI365))((V1466));
9572          if(V1378==Cnil)goto T3041;          if(V1467==Cnil)goto T3041;
9573          base[1]= V1378;          base[1]= V1467;
9574          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9575          return;          return;
9576          goto T3041;          goto T3041;
9577  T3041:;}  T3041:;}
9578          if(!(type_of((V1377))==t_fixnum||type_of((V1377))==t_bignum)){          if(!(type_of((V1466))==t_fixnum||type_of((V1466))==t_bignum)){
9579          goto T3043;}          goto T3043;}
9580          base[1]= Ct;          base[1]= Ct;
9581          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9582          return;          return;
9583          goto T3043;          goto T3043;
9584  T3043:;  T3043:;
9585          if(type_of((V1377))==t_character){          if(type_of((V1466))==t_character){
9586          goto T3045;}          goto T3045;}
9587          base[1]= Cnil;          base[1]= Cnil;
9588          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9589          return;          return;
9590          goto T3045;          goto T3045;
9591  T3045:;  T3045:;
9592          base[1]= (V1377);          base[1]= (V1466);
9593          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9594          Lstandard_char_p();          Lstandard_char_p();
9595          return;}          return;}
9596          goto T3032;          goto T3032;
9597  T3032:;  T3032:;
9598          base[1]= (*(LnkLI365))((V1376));          base[1]= (*(LnkLI365))((V1465));
9599          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
9600          return;          return;
9601          }          }
# Line 9518  register object *base0; Line 9607  register object *base0;
9607  {       register object *base=vs_base;  {       register object *base=vs_base;
9608          register object *sup=base+VM132; VC132          register object *sup=base+VM132; VC132
9609          vs_check;          vs_check;
9610          {object V1379;          {object V1468;
9611          check_arg(1);          check_arg(1);
9612          V1379=(base[0]);          V1468=(base[0]);
9613          vs_top=sup;          vs_top=sup;
9614          goto TTL;          goto TTL;
9615  TTL:;  TTL:;
9616          base[1]= VV[9];          base[1]= VV[9];
9617          base[2]= (V1379);          base[2]= (V1468);
9618          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
9619          Lerror();          Lerror();
9620          return;          return;
# Line 9538  register object *base0; Line 9627  register object *base0;
9627  {       register object *base=vs_base;  {       register object *base=vs_base;
9628          register object *sup=base+VM133; VC133          register object *sup=base+VM133; VC133
9629          vs_check;          vs_check;
9630          {object V1380;          {object V1469;
9631          vs_top[0]=Cnil;          vs_top[0]=Cnil;
9632          {object *p=vs_top;          {object *p=vs_top;
9633           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
9634          V1380=(base[0]);          V1469=(base[0]);
9635          vs_top=sup;          vs_top=sup;
9636          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
9637          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
9638          Lsymbol_function();          Lsymbol_function();
9639          vs_top=sup;          vs_top=sup;
9640          base[1]= vs_base[0];          base[1]= vs_base[0];
9641          {object V1381;          {object V1470;
9642          V1381= (V1380);          V1470= (V1469);
9643           vs_top=base+2;           vs_top=base+2;
9644           while(V1381!=Cnil)           while(V1470!=Cnil)
9645           {vs_push((V1381)->c.c_car);V1381=(V1381)->c.c_cdr;}           {vs_push((V1470)->c.c_car);V1470=(V1470)->c.c_cdr;}
9646          vs_base=base+2;}          vs_base=base+2;}
9647          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
9648                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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