/[gcl]/gcl/cmpnew/gcl_cmpcall.c
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpcall.c

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

revision 1.1.2.1 by camm, Sun Sep 14 02:30:33 2003 UTC revision 1.1.2.2 by camm, Tue Sep 23 18:39:17 2003 UTC
# Line 11  static object LI1(object V1,object first Line 11  static object LI1(object V1,object first
11          {register object V2;          {register object V2;
12          object V3;          object V3;
13          va_start(ap,first);          va_start(ap,first);
         if(narg <1) too_few_arguments();  
14          V2= V1;          V2= V1;
15          narg = narg - 1;          narg = narg - 1;
16          if (narg <= 0) goto T1;          if (narg <= 0) goto T1;
# Line 35  T4:; Line 34  T4:;
34          VMR1(V5)}          VMR1(V5)}
35          goto T6;          goto T6;
36  T6:;{object V6;  T6:;{object V6;
37          if((get((V2),VV[0],Cnil))!=Cnil){          {object V7 =((V2))->s.s_plist;
38             object ind= VV[0];
39            while(V7!=Cnil){
40            if(V7->c.c_car==ind){
41            if(((V7->c.c_cdr->c.c_car))!=Cnil){
42          goto T10;}          goto T10;}
43            goto T11;
44            }else V7=V7->c.c_cdr->c.c_cdr;}}
45            goto T11;
46    T11:;
47          V6= Cnil;          V6= Cnil;
48          goto T9;          goto T9;
49          goto T10;          goto T10;
# Line 45  T10:; Line 52  T10:;
52          goto T9;          goto T9;
53  T9:;  T9:;
54          if(V6==Cnil)goto T8;          if(V6==Cnil)goto T8;
55          {object V7 = V6;          {object V8 = V6;
56          VMR1(V7)}          VMR1(V8)}
57          goto T8;          goto T8;
58  T8:;}  T8:;}
59          if((get((V2),VV[1],Cnil))!=Cnil){          {object V9 =((V2))->s.s_plist;
60             object ind= VV[1];
61            while(V9!=Cnil){
62            if(V9->c.c_car==ind){
63            if(((V9->c.c_cdr->c.c_car))!=Cnil){
64          goto T12;}          goto T12;}
65          {object V8 = Cnil;          goto T13;
66          VMR1(V8)}          }else V9=V9->c.c_cdr->c.c_cdr;}}
67            goto T13;
68    T13:;
69            {object V10 = Cnil;
70            VMR1(V10)}
71          goto T12;          goto T12;
72  T12:;  T12:;
73          {object V9;          {object V11;
74          V9= get((V2),VV[2],Cnil);          {object V12 =((V2))->s.s_plist;
75          {register object x= (V9),V11= VV[3];           object ind= VV[2];
76          while(!endp(V11))          while(V12!=Cnil){
77          if(eql(x,V11->c.c_car)){          if(V12->c.c_car==ind){
78          V10= V11;          V11= (V12->c.c_cdr->c.c_car);
79            goto T16;
80            }else V12=V12->c.c_cdr->c.c_cdr;}
81            V11= Cnil;}
82            goto T16;
83    T16:;
84            {register object x= (V11),V14= VV[3];
85            while(V14!=Cnil)
86            if(eql(x,V14->c.c_car)){
87            V13= V14;
88          goto T17;          goto T17;
89          }else V11=V11->c.c_cdr;          }else V14=V14->c.c_cdr;
90          V10= Cnil;}          V13= Cnil;}
91          goto T17;          goto T17;
92  T17:;  T17:;
93          if((V10)==Cnil){          if((V13)==Cnil){
94          goto T14;}}          goto T14;}}
95          {object V12 = Cnil;          {object V15 = Cnil;
96          VMR1(V12)}          VMR1(V15)}
97          goto T14;          goto T14;
98  T14:;  T14:;
99          {register object V13;          {register object V16;
100          register object V14;          register object V17;
101          V13= get((V2),VV[4],Cnil);          {object V18 =((V2))->s.s_plist;
102          V14= car((V13));           object ind= VV[4];
103            while(V18!=Cnil){
104            if(V18->c.c_car==ind){
105            V16= (V18->c.c_cdr->c.c_car);
106            goto T18;
107            }else V18=V18->c.c_cdr->c.c_cdr;}
108            V16= Cnil;}
109            goto T18;
110    T18:;
111            V17= CMPcar((V16));
112          goto T21;          goto T21;
113  T21:;  T21:;
114          if(!(endp_prop((V13)))){          if(!(((V16))==Cnil)){
115          goto T22;}          goto T22;}
116          {object V15 = Ct;          {object V19 = Ct;
117          VMR1(V15)}          VMR1(V19)}
118          goto T22;          goto T22;
119  T22:;  T22:;
120          if(!(((V14))==(VV[5]))){          if(!(((V17))==(VV[5]))){
121          goto T27;}          goto T27;}
122          goto T26;          goto T26;
123          goto T27;          goto T27;
124  T27:;{object V16;  T27:;{object V20;
125          {register object V17;          {register object V21;
126          V17= (V14);          V21= (V17);
127          {register object x= (V17),V19= VV[3];          {register object x= (V21),V23= VV[3];
128          while(!endp(V19))          while(V23!=Cnil)
129          if(eql(x,V19->c.c_car)){          if(eql(x,V23->c.c_car)){
130          V18= V19;          V22= V23;
131          goto T31;          goto T31;
132          }else V19=V19->c.c_cdr;          }else V23=V23->c.c_cdr;
133          V18= Cnil;}          V22= Cnil;}
134          goto T31;          goto T31;
135  T31:;  T31:;
136          V16= ((V18)==Cnil?Ct:Cnil);}          V20= ((V22)==Cnil?Ct:Cnil);}
137          if(V16==Cnil)goto T29;          if(V20==Cnil)goto T29;
138          goto T26;          goto T26;
139          goto T29;          goto T29;
140  T29:;}  T29:;}
141          {object V20 = Cnil;          {object V24 = Cnil;
142          VMR1(V20)}          VMR1(V24)}
143          goto T26;          goto T26;
144  T26:;  T26:;
145          V13= cdr((V13));          V16= CMPcdr((V16));
146          V14= car((V13));          V17= CMPcar((V16));
147          goto T21;}          goto T21;}
148          va_end(ap);          va_end(ap);
149          base[0]=base[0];          base[0]=base[0];
# Line 118  T26:; Line 151  T26:;
151          }          }
152  /*      local entry for function CMP-MACRO-FUNCTION     */  /*      local entry for function CMP-MACRO-FUNCTION     */
153    
154  static object LI2(V22)  static object LI2(V26)
155    
156  object V22;  object V26;
157  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
158          goto TTL;          goto TTL;
159  TTL:;  TTL:;
160          {object V23;          {object V27;
161          V23= Cnil;          V27= Cnil;
162          V23= (*(LnkLI100))((V22));          V27= (*(LnkLI100))((V26));
163          if(((V23))==Cnil){          if(((V27))==Cnil){
164          goto T39;}          goto T39;}
165          if(!((car((V23)))==(VV[6]))){          if(!((CMPcar((V27)))==(VV[6]))){
166          goto T43;}          goto T43;}
167          {object V24 = Cnil;          {object V28 = Cnil;
168          VMR2(V24)}          VMR2(V28)}
169          goto T43;          goto T43;
170  T43:;  T43:;
171          {object V25 = (V23);          {object V29 = (V27);
172          VMR2(V25)}          VMR2(V29)}
173          goto T39;          goto T39;
174  T39:;  T39:;
175          base[0]= (V22);          base[0]= (V26);
176          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
177          Lmacro_function();          Lmacro_function();
178          vs_top=sup;          vs_top=sup;
179          {object V26 = vs_base[0];          {object V30 = vs_base[0];
180          VMR2(V26)}}          VMR2(V30)}}
181          base[0]=base[0];          base[0]=base[0];
182          return Cnil;          return Cnil;
183  }  }
184  /*      local entry for function C1FUNOB        */  /*      local entry for function C1FUNOB        */
185    
186  static object LI3(V28)  static object LI3(V32)
187    
188  register object V28;  register object V32;
189  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
190          bds_check;          bds_check;
191          goto TTL;          goto TTL;
192  TTL:;  TTL:;
193          {register object V29;          {register object V33;
194          V29= Cnil;          V33= Cnil;
195          if(!(type_of((V28))==t_cons)){          if(!(type_of((V32))==t_cons)){
196          goto T47;}          goto T47;}
197          if(!(type_of(car((V28)))==t_symbol)){          if(!(type_of(CMPcar((V32)))==t_symbol)){
198          goto T47;}          goto T47;}
199          if(((*(LnkLI101))(car((V28))))==Cnil){          if(((*(LnkLI101))(CMPcar((V32))))==Cnil){
200          goto T47;}          goto T47;}
201          V28= (*(LnkLI102))((V28));          V32= (*(LnkLI102))((V32));
202          goto T47;          goto T47;
203  T47:;{object V30;  T47:;{object V34;
204          if(type_of((V28))==t_cons){          if(type_of((V32))==t_cons){
205          goto T57;}          goto T57;}
206          V30= Cnil;          V34= Cnil;
207          goto T56;          goto T56;
208          goto T57;          goto T57;
209  T57:;{object V31;  T57:;{object V35;
210          if((car((V28)))==(VV[7])){          if((CMPcar((V32)))==(VV[7])){
211          goto T61;}          goto T61;}
212          V31= Cnil;          V35= Cnil;
213          goto T60;          goto T60;
214          goto T61;          goto T61;
215  T61:;  T61:;
216          if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){          if((((CMPcdr((V32)))==Cnil?Ct:Cnil))==Cnil){
217          goto T63;}          goto T63;}
218          V31= Cnil;          V35= Cnil;
219          goto T60;          goto T60;
220          goto T63;          goto T63;
221  T63:;  T63:;
222          if(endp_prop(cddr((V28)))){          if((CMPcddr((V32)))==Cnil){
223          goto T65;}          goto T65;}
224          V31= Cnil;          V35= Cnil;
225          goto T60;          goto T60;
226          goto T65;          goto T65;
227  T65:;{object V32;  T65:;{object V36;
228          if(type_of(cadr((V28)))==t_cons){          if(type_of(CMPcadr((V32)))==t_cons){
229          goto T69;}          goto T69;}
230          V32= Cnil;          V36= Cnil;
231          goto T68;          goto T68;
232          goto T69;          goto T69;
233  T69:;  T69:;
234          if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){          if((((CMPcdadr((V32)))==Cnil?Ct:Cnil))==Cnil){
235          goto T71;}          goto T71;}
236          V32= Cnil;          V36= Cnil;
237          goto T68;          goto T68;
238          goto T71;          goto T71;
239  T71:;  T71:;
240          if((caadr((V28)))==(VV[8])){          if((CMPcaadr((V32)))==(VV[8])){
241          goto T73;}          goto T73;}
242          V32= Cnil;          V36= Cnil;
243          goto T68;          goto T68;
244          goto T73;          goto T73;
245  T73:;  T73:;
# Line 214  T73:; Line 247  T73:;
247          bds_bind(VV[10],Cnil);          bds_bind(VV[10],Cnil);
248          bds_bind(VV[11],Cnil);          bds_bind(VV[11],Cnil);
249          bds_bind(VV[12],Cnil);          bds_bind(VV[12],Cnil);
250          {object V33;          {object V37;
251          V33= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28))));          V37= (VFUN_NARGS=1,(*(LnkLI103))(CMPcdadr((V32))));
252          V34= list(3,VV[13],cadr((V33)),(V33));          V38= list(3,VV[13],CMPcadr((V37)),(V37));
253          bds_unwind1;          bds_unwind1;
254          bds_unwind1;          bds_unwind1;
255          bds_unwind1;          bds_unwind1;
256          bds_unwind1;          bds_unwind1;
257          V32= V34;}          V36= V38;}
258          goto T68;          goto T68;
259  T68:;  T68:;
260          if(V32==Cnil)goto T67;          if(V36==Cnil)goto T67;
261          V31= V32;          V35= V36;
262          goto T60;          goto T60;
263          goto T67;          goto T67;
264  T67:;}  T67:;}
265          if(type_of(cadr((V28)))==t_symbol){          if(type_of(CMPcadr((V32)))==t_symbol){
266          goto T76;}          goto T76;}
267          V31= Cnil;          V35= Cnil;
268          goto T60;          goto T60;
269          goto T76;          goto T76;
270  T76:;{object V35;  T76:;{object V39;
271          V29= (*(LnkLI100))(cadr((V28)));          V33= (*(LnkLI100))(CMPcadr((V32)));
272          if(((V29))!=Cnil){          if(((V33))!=Cnil){
273          goto T80;}          goto T80;}
274          V35= Cnil;          V39= Cnil;
275          goto T79;          goto T79;
276          goto T80;          goto T80;
277  T80:;  T80:;
278          if((car((V29)))==(VV[6])){          if((CMPcar((V33)))==(VV[6])){
279          goto T83;}          goto T83;}
280          V35= Cnil;          V39= Cnil;
281          goto T79;          goto T79;
282          goto T83;          goto T83;
283  T83:;  T83:;
284          V35= (V29);          V39= (V33);
285          goto T79;          goto T79;
286  T79:;  T79:;
287          if(V35==Cnil)goto T78;          if(V39==Cnil)goto T78;
288          V31= V35;          V35= V39;
289          goto T60;          goto T60;
290          goto T78;          goto T78;
291  T78:;}  T78:;}
292          V36= get(cadr((V28)),VV[16],Cnil);          {object V41 =(CMPcadr((V32)))->s.s_plist;
293          V37= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V36)==Cnil?Ct:Cnil)));           object ind= VV[16];
294          V31= list(3,VV[14],/* INLINE-ARGS */V37,cadr((V28)));          while(V41!=Cnil){
295            if(V41->c.c_car==ind){
296            V40= (V41->c.c_cdr->c.c_car);
297            goto T85;
298            }else V41=V41->c.c_cdr->c.c_cdr;}
299            V40= Cnil;}
300            goto T85;
301    T85:;
302            V42= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V40)==Cnil?Ct:Cnil)));
303            V35= list(3,VV[14],/* INLINE-ARGS */V42,CMPcadr((V32)));
304          goto T60;          goto T60;
305  T60:;  T60:;
306          if(V31==Cnil)goto T59;          if(V35==Cnil)goto T59;
307          V30= V31;          V34= V35;
308          goto T56;          goto T56;
309          goto T59;          goto T59;
310  T59:;}  T59:;}
311          if((car((V28)))==(VV[17])){          if((CMPcar((V32)))==(VV[17])){
312          goto T86;}          goto T86;}
313          V30= Cnil;          V34= Cnil;
314          goto T56;          goto T56;
315          goto T86;          goto T86;
316  T86:;  T86:;
317          if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){          if((((CMPcdr((V32)))==Cnil?Ct:Cnil))==Cnil){
318          goto T88;}          goto T88;}
319          V30= Cnil;          V34= Cnil;
320          goto T56;          goto T56;
321          goto T88;          goto T88;
322  T88:;  T88:;
323          if(endp_prop(cddr((V28)))){          if((CMPcddr((V32)))==Cnil){
324          goto T90;}          goto T90;}
325          V30= Cnil;          V34= Cnil;
326          goto T56;          goto T56;
327          goto T90;          goto T90;
328  T90:;{object V38;  T90:;{object V43;
329          if(type_of(cadr((V28)))==t_cons){          if(type_of(CMPcadr((V32)))==t_cons){
330          goto T94;}          goto T94;}
331          V38= Cnil;          V43= Cnil;
332          goto T93;          goto T93;
333          goto T94;          goto T94;
334  T94:;  T94:;
335          if((caadr((V28)))==(VV[8])){          if((CMPcaadr((V32)))==(VV[8])){
336          goto T96;}          goto T96;}
337          V38= Cnil;          V43= Cnil;
338          goto T93;          goto T93;
339          goto T96;          goto T96;
340  T96:;  T96:;
341          if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){          if((((CMPcdadr((V32)))==Cnil?Ct:Cnil))==Cnil){
342          goto T98;}          goto T98;}
343          V38= Cnil;          V43= Cnil;
344          goto T93;          goto T93;
345          goto T98;          goto T98;
346  T98:;  T98:;
347          {object V39;          {object V44;
348          V39= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28))));          V44= (VFUN_NARGS=1,(*(LnkLI103))(CMPcdadr((V32))));
349          V38= list(3,VV[13],cadr((V39)),(V39));}          V43= list(3,VV[13],CMPcadr((V44)),(V44));}
350          goto T93;          goto T93;
351  T93:;  T93:;
352          if(V38==Cnil)goto T92;          if(V43==Cnil)goto T92;
353          V30= V38;          V34= V43;
354          goto T56;          goto T56;
355          goto T92;          goto T92;
356  T92:;}  T92:;}
357          if(type_of(cadr((V28)))==t_symbol){          if(type_of(CMPcadr((V32)))==t_symbol){
358          goto T101;}          goto T101;}
359          V30= Cnil;          V34= Cnil;
360          goto T56;          goto T56;
361          goto T101;          goto T101;
362  T101:;{object V40;  T101:;{object V45;
363          V29= (*(LnkLI100))(cadr((V28)));          V33= (*(LnkLI100))(CMPcadr((V32)));
364          if(((V29))!=Cnil){          if(((V33))!=Cnil){
365          goto T105;}          goto T105;}
366          V40= Cnil;          V45= Cnil;
367          goto T104;          goto T104;
368          goto T105;          goto T105;
369  T105:;  T105:;
370          if((car((V29)))==(VV[6])){          if((CMPcar((V33)))==(VV[6])){
371          goto T108;}          goto T108;}
372          V40= Cnil;          V45= Cnil;
373          goto T104;          goto T104;
374          goto T108;          goto T108;
375  T108:;  T108:;
376          V40= (V29);          V45= (V33);
377          goto T104;          goto T104;
378  T104:;  T104:;
379          if(V40==Cnil)goto T103;          if(V45==Cnil)goto T103;
380          V30= V40;          V34= V45;
381          goto T56;          goto T56;
382          goto T103;          goto T103;
383  T103:;}  T103:;}
384          V41= get(cadr((V28)),VV[16],Cnil);          {object V47 =(CMPcadr((V32)))->s.s_plist;
385          V42= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V41)==Cnil?Ct:Cnil)));           object ind= VV[16];
386          V30= list(3,VV[14],/* INLINE-ARGS */V42,cadr((V28)));          while(V47!=Cnil){
387            if(V47->c.c_car==ind){
388            V46= (V47->c.c_cdr->c.c_car);
389            goto T110;
390            }else V47=V47->c.c_cdr->c.c_cdr;}
391            V46= Cnil;}
392            goto T110;
393    T110:;
394            V48= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V46)==Cnil?Ct:Cnil)));
395            V34= list(3,VV[14],/* INLINE-ARGS */V48,CMPcadr((V32)));
396          goto T56;          goto T56;
397  T56:;  T56:;
398          if(V30==Cnil)goto T55;          if(V34==Cnil)goto T55;
399          {object V43 = V30;          {object V49 = V34;
400          VMR3(V43)}          VMR3(V49)}
401          goto T55;          goto T55;
402  T55:;}  T55:;}
403          {object V44;          {object V50;
404          object V45;          object V51;
405          V44= (*(LnkLI105))((V28));          V50= (*(LnkLI105))((V32));
406          V45= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],Ct));          V51= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],Ct));
407          (void)((*(LnkLI106))((V45),cadr((V44))));          (void)((*(LnkLI106))((V51),CMPcadr((V50))));
408          {object V46 = list(3,VV[18],(V45),(V44));          {object V52 = list(3,VV[18],(V51),(V50));
409          VMR3(V46)}}}          VMR3(V52)}}}
410          base[0]=base[0];          base[0]=base[0];
411          return Cnil;          return Cnil;
412  }  }
413  /*      local entry for function C2FUNCALL-AUX  */  /*      local entry for function C2FUNCALL-AUX  */
414    
415  static object LI4(V48)  static object LI4(V54)
416    
417  register object V48;  register object V54;
418  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
419          goto TTL;          goto TTL;
420  TTL:;  TTL:;
421          {object V49;          {object V55;
422          object V50;          object V56;
423          object V51;          object V57;
424          object V52;          object V58;
425          V49= cadr((V48));          V55= CMPcadr((V54));
426          V50= caddr((V48));          V56= CMPcaddr((V54));
427          V51= cadddr((V48));          V57= CMPcadddr((V54));
428          V52= car(cddddr((V48)));          V58= CMPcar(CMPcddddr((V54)));
429          {object V53 = (VFUN_NARGS=4,(*(LnkLI107))((V50),(V51),(V52),(V49)));          {object V59 = (VFUN_NARGS=4,(*(LnkLI107))((V56),(V57),(V58),(V55)));
430          VMR4(V53)}}          VMR4(V59)}}
431          base[0]=base[0];          base[0]=base[0];
432          return Cnil;          return Cnil;
433  }  }
434  /*      local entry for function C2FUNCALL      */  /*      local entry for function C2FUNCALL      */
435    
436  static object LI5(object V55,object V54,object first,...)  static object LI5(object V61,object V60,object first,...)
437  {        {      
438          va_list ap;          va_list ap;
439          int narg = VFUN_NARGS; VMB5 VMS5 VMV5          int narg = VFUN_NARGS; VMB5 VMS5 VMV5
440          bds_check;          bds_check;
441          {register object V56;          {register object V62;
442          register object V57;          register object V63;
443          register object V58;          register object V64;
444          object V59;          object V65;
445          va_start(ap,first);          va_start(ap,first);
446          if(narg <2) too_few_arguments();          V62= V61;
447          V56= V55;          V63= V60;
         V57= V54;  
448          narg = narg - 2;          narg = narg - 2;
449          if (narg <= 0) goto T118;          if (narg <= 0) goto T118;
450          else {          else {
451          V58= first;}          V64= first;}
452          if (--narg <= 0) goto T119;          if (--narg <= 0) goto T119;
453          else {          else {
454          V59= va_arg(ap,object);}          V65= va_arg(ap,object);}
455          --narg; goto T120;          --narg; goto T120;
456          goto T118;          goto T118;
457  T118:;  T118:;
458          V58= Cnil;          V64= Cnil;
459          goto T119;          goto T119;
460  T119:;  T119:;
461          V59= Cnil;          V65= Cnil;
462          goto T120;          goto T120;
463  T120:;  T120:;
464          {object V60= car((V56));          {object V66= CMPcar((V62));
465          if((V60!= VV[14]))goto T123;          if((V66!= VV[14]))goto T123;
466          {object V61 = (*(LnkLI108))(caddr((V56)),(V57),(V58),Ct);          {object V67 = (*(LnkLI108))(CMPcaddr((V62)),(V63),(V64),Ct);
467          VMR5(V61)}          VMR5(V67)}
468          goto T123;          goto T123;
469  T123:;  T123:;
470          if((V60!= VV[6]))goto T124;          if((V66!= VV[6]))goto T124;
471          {object V62 = (*(LnkLI109))(cddr((V56)),(V57));          {object V68 = (*(LnkLI109))(CMPcddr((V62)),(V63));
472          VMR5(V62)}          VMR5(V68)}
473          goto T124;          goto T124;
474  T124:;  T124:;
475          if((V60!= VV[13]))goto T125;          if((V66!= VV[13]))goto T125;
476          {object V63 = (*(LnkLI110))(caddr((V56)),(V57));          {object V69 = (*(LnkLI110))(CMPcaddr((V62)),(V63));
477          VMR5(V63)}          VMR5(V69)}
478          goto T125;          goto T125;
479  T125:;  T125:;
480          if((V60!= VV[18]))goto T126;          if((V66!= VV[18]))goto T126;
481          {register object V64;          {register object V70;
482          base[0]= symbol_value(VV[19]);          base[0]= (VV[19]->s.s_dbind);
483          V64= caddr((V56));          V70= CMPcaddr((V62));
484          bds_bind(VV[19],base[0]);          bds_bind(VV[19],base[0]);
485          if(!(type_of((V57))==t_cons||((V57))==Cnil)){          if(!(type_of((V63))==t_cons||((V63))==Cnil)){
486          goto T129;}          goto T129;}
487          if((symbol_value(VV[20]))==Cnil){          if(((VV[20]->s.s_dbind))==Cnil){
488          goto T129;}          goto T129;}
489          if((symbol_value(VV[21]))==(VV[22])){          if(((VV[21]->s.s_dbind))==(VV[22])){
490          goto T130;}          goto T130;}
491          if(!(type_of(symbol_value(VV[21]))==t_cons)){          if(!(type_of((VV[21]->s.s_dbind))==t_cons)){
492          goto T137;}          goto T137;}
493          if((car(symbol_value(VV[21])))==(VV[23])){          if((CMPcar((VV[21]->s.s_dbind)))==(VV[23])){
494          goto T130;}          goto T130;}
495          goto T137;          goto T137;
496  T137:;  T137:;
497          if(((V59))==Cnil){          if(((V65))==Cnil){
498          goto T129;}          goto T129;}
499          V65= structure_ref((V59),VV[24],2);          if(!(equal(STREF(object,(V65),8),VV[25]))){
         if(!(equal(/* INLINE-ARGS */V65,VV[25]))){  
500          goto T129;}          goto T129;}
501          goto T130;          goto T130;
502  T130:;  T130:;
503          (void)((*(LnkLI111))((V64),(V57),(V59)));          (void)((*(LnkLI111))((V70),(V63),(V65)));
504          {object V66 = Cnil;          {object V71 = Cnil;
505          bds_unwind1;          bds_unwind1;
506          VMR5(V66)}          VMR5(V71)}
507          goto T129;          goto T129;
508  T129:;  T129:;
509          if(((V58))!=Cnil){          if(((V64))!=Cnil){
510          goto T145;}          goto T145;}
511          if(type_of((V57))==t_cons||((V57))==Cnil){          if(type_of((V63))==t_cons||((V63))==Cnil){
512          goto T148;}          goto T148;}
513          (void)((*(LnkLI112))());          (void)((*(LnkLI112))());
514          goto T148;          goto T148;
515  T148:;  T148:;
516          if(!((car((V64)))==(VV[26]))){          if(!((CMPcar((V70)))==(VV[26]))){
517          goto T152;}          goto T152;}
518          V58= caddr((V64));          V64= CMPcaddr((V70));
519          goto T145;          goto T145;
520          goto T152;          goto T152;
521  T152:;  T152:;
522          if(!((car((V64)))==(VV[23]))){          if(!((CMPcar((V70)))==(VV[23]))){
523          goto T156;}          goto T156;}
524          if(((*(LnkLI113))(caaddr((V64)),(V57)))!=Cnil){          if(((*(LnkLI113))(CMPcaaddr((V70)),(V63)))!=Cnil){
525          goto T156;}          goto T156;}
526          V58= make_cons(VV[23],caddr((V64)));          V64= make_cons(VV[23],CMPcaddr((V70)));
527          goto T145;          goto T145;
528          goto T156;          goto T156;
529  T156:;  T156:;
530          V58= list(2,VV[27],(*(LnkLI114))());          V64= list(2,VV[27],(*(LnkLI114))());
531          bds_bind(VV[21],(V58));          bds_bind(VV[21],(V64));
532          V67= (*(LnkLI115))(caddr((V56)));          V72= (*(LnkLI115))(CMPcaddr((V62)));
533          bds_unwind1;          bds_unwind1;
534          goto T145;          goto T145;
535  T145:;  T145:;
536          (void)((*(LnkLI116))((V57)));          (void)((*(LnkLI116))((V63)));
537          if((symbol_value(VV[28]))==Cnil){          if(((VV[28]->s.s_dbind))==Cnil){
538          goto T166;}          goto T166;}
539          princ_str("\n   super_funcall(",VV[29]);          princ_str("\n   super_funcall(",VV[29]);
540          (void)((*(LnkLI117))((V58)));          (void)((*(LnkLI117))((V64)));
541          princ_str(");",VV[29]);          princ_str(");",VV[29]);
542          goto T164;          goto T164;
543          goto T166;          goto T166;
544  T166:;  T166:;
545          if((symbol_value(VV[30]))==Cnil){          if(((VV[30]->s.s_dbind))==Cnil){
546          goto T172;}          goto T172;}
547          (void)((          (void)((
548          (type_of(symbol_value(VV[30])) == t_sfun ?(*((symbol_value(VV[30]))->sfn.sfn_self)):          (type_of((VV[30]->s.s_dbind)) == t_sfun ?(*(((VV[30]->s.s_dbind))->sfn.sfn_self)):
549          (fcall.fun=(symbol_value(VV[30])),fcall.argd=1,fcalln))((V58))));          (fcall.argd=1,type_of((VV[30]->s.s_dbind))==t_vfun) ?
550            (*(((VV[30]->s.s_dbind))->sfn.sfn_self)):
551            (fcall.fun=((VV[30]->s.s_dbind)),fcalln))((V64))));
552          goto T164;          goto T164;
553          goto T172;          goto T172;
554  T172:;  T172:;
555          princ_str("\n   super_funcall_no_event(",VV[29]);          princ_str("\n   super_funcall_no_event(",VV[29]);
556          (void)((*(LnkLI117))((V58)));          (void)((*(LnkLI117))((V64)));
557          princ_str(");",VV[29]);          princ_str(");",VV[29]);
558          goto T164;          goto T164;
559  T164:;  T164:;
560          {object V68 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));          {object V73 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
561          bds_unwind1;          bds_unwind1;
562          VMR5(V68)}}          VMR5(V73)}}
563          goto T126;          goto T126;
564  T126:;  T126:;
565          {object V69 = (*(LnkLI112))();          {object V74 = (*(LnkLI112))();
566          VMR5(V69)}}          VMR5(V74)}}
567          va_end(ap);          va_end(ap);
568          base[0]=base[0];          base[0]=base[0];
569          return Cnil;}          return Cnil;}
# Line 523  static object LI6(object first,...) Line 574  static object LI6(object first,...)
574  {        {      
575          va_list ap;          va_list ap;
576          int narg = VFUN_NARGS; VMB6 VMS6 VMV6          int narg = VFUN_NARGS; VMB6 VMS6 VMV6
577          {register object V70;          {register object V75;
578          va_start(ap,first);          va_start(ap,first);
579          narg= narg - 0;          narg= narg - 0;
580          V71 = list_vector_new(narg,first,ap);          V76 = list_vector_new(narg,first,ap);
581          V70= V71;          V75= V76;
582          {register object V72;          {register object V77;
583          object V73;          object V78;
584          V72= car((V70));          V77= CMPcar((V75));
585          V73= Cnil;          V78= Cnil;
586          (void)((*(LnkLI117))(VV[32]));          (void)((*(LnkLI117))(VV[32]));
587          if(!(type_of((V72))==t_cons)){          if(!(type_of((V77))==t_cons)){
588          goto T182;}          goto T182;}
589          if((car((V72)))==(VV[23])){          if((CMPcar((V77)))==(VV[23])){
590          goto T181;}          goto T181;}
591          goto T182;          goto T182;
592  T182:;  T182:;
593          V72= list(2,VV[33],(VFUN_NARGS=0,(*(LnkLI119))()));          V77= list(2,VV[33],(VFUN_NARGS=0,(*(LnkLI119))()));
594          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
595          (void)((*(LnkLI117))((V72)));          (void)((*(LnkLI117))((V77)));
596          princ_str(" = ",VV[29]);          princ_str(" = ",VV[29]);
597          (void)((*(LnkLI117))(car((V70))));          (void)((*(LnkLI117))(CMPcar((V75))));
598          princ_char(44,VV[29]);          princ_char(44,VV[29]);
599          goto T181;          goto T181;
600  T181:;  T181:;
601          princ_str("\n   (type_of(",VV[29]);          princ_str("\n   (type_of(",VV[29]);
602          (void)((*(LnkLI117))((V72)));          (void)((*(LnkLI117))((V77)));
603          princ_str(") == t_sfun ?",VV[29]);          princ_str(") == t_sfun ?",VV[29]);
604          princ_str("(*((",VV[29]);          princ_str("(*((",VV[29]);
605          (void)((*(LnkLI117))((V72)));          (void)((*(LnkLI117))((V77)));
606          princ_str(")->sfn.sfn_self)):",VV[29]);          princ_str(")->sfn.sfn_self)):",VV[29]);
607          if(!(number_compare(symbol_value(VV[34]),small_fixnum(3))<0)){          if(!(number_compare((VV[34]->s.s_dbind),small_fixnum(3))<0)){
608          goto T200;}          goto T200;}
609          V73= Ct;          V78= Ct;
610          princ_str("\n   (fcall.argd=",VV[29]);          princ_str("\n   (fcall.argd=",VV[29]);
611          V74 = make_fixnum((long)length(cdr((V70))));          V79 = CMPmake_fixnum((long)length(CMPcdr((V75))));
612          (void)((*(LnkLI117))(V74));          (void)((*(LnkLI117))(V79));
613          princ_str(",type_of(",VV[29]);          princ_str(",type_of(",VV[29]);
614          (void)((*(LnkLI117))((V72)));          (void)((*(LnkLI117))((V77)));
615          princ_str(")==t_vfun) ?",VV[29]);          princ_str(")==t_vfun) ?",VV[29]);
616          princ_str("\n   (*((",VV[29]);          princ_str("\n   (*((",VV[29]);
617          (void)((*(LnkLI117))((V72)));          (void)((*(LnkLI117))((V77)));
618          princ_str(")->sfn.sfn_self)):",VV[29]);          princ_str(")->sfn.sfn_self)):",VV[29]);
619          goto T200;          goto T200;
620  T200:;  T200:;
621          princ_str("\n   (fcall.fun=(",VV[29]);          princ_str("\n   (fcall.fun=(",VV[29]);
622          (void)((*(LnkLI117))((V72)));          (void)((*(LnkLI117))((V77)));
623          princ_str("),",VV[29]);          princ_str("),",VV[29]);
624          if(((V73))!=Cnil){          if(((V78))!=Cnil){
625          goto T218;}          goto T218;}
626          princ_str("fcall.argd=",VV[29]);          princ_str("fcall.argd=",VV[29]);
627          V75 = make_fixnum((long)length(cdr((V70))));          V80 = CMPmake_fixnum((long)length(CMPcdr((V75))));
628          (void)((*(LnkLI117))(V75));          (void)((*(LnkLI117))(V80));
629          princ_char(44,VV[29]);          princ_char(44,VV[29]);
630          goto T218;          goto T218;
631  T218:;  T218:;
632          princ_str("fcalln))(",VV[29]);          princ_str("fcalln))(",VV[29]);
633          if((cdr((V70)))==Cnil){          if((CMPcdr((V75)))==Cnil){
634          goto T226;}          goto T226;}
635          (void)((*(LnkLI117))(cadr((V70))));          (void)((*(LnkLI117))(CMPcadr((V75))));
636          {register object V76;          {register object V81;
637          register object V77;          register object V82;
638          V76= cddr((V70));          V81= CMPcddr((V75));
639          V77= car((V76));          V82= CMPcar((V81));
640          goto T234;          goto T234;
641  T234:;  T234:;
642          if(!(endp_prop((V76)))){          if(!(((V81))==Cnil)){
643          goto T235;}          goto T235;}
644          goto T226;          goto T226;
645          goto T235;          goto T235;
646  T235:;  T235:;
647          (void)((*(LnkLI117))(VV[35]));          (void)((*(LnkLI117))(VV[35]));
648          (void)((*(LnkLI117))((V77)));          (void)((*(LnkLI117))((V82)));
649          V76= cdr((V76));          V81= CMPcdr((V81));
650          V77= car((V76));          V82= CMPcar((V81));
651          goto T234;}          goto T234;}
652          goto T226;          goto T226;
653  T226:;  T226:;
654          (void)((*(LnkLI117))(VV[36]));          (void)((*(LnkLI117))(VV[36]));
655          (void)((*(LnkLI117))(VV[36]));          (void)((*(LnkLI117))(VV[36]));
656          {object V78 = Cnil;          {object V83 = Cnil;
657          VMR6(V78)}}          VMR6(V83)}}
658          va_end(ap);          va_end(ap);
659          base[0]=base[0];          base[0]=base[0];
660          return Cnil;}          return Cnil;}
661          }          }
662  /*      local entry for function C2CALL-LAMBDA  */  /*      local entry for function C2CALL-LAMBDA  */
663    
664  static object LI7(V81,V82)  static object LI7(V86,V87)
665    
666  object V81;register object V82;  object V86;register object V87;
667  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
668          bds_check;          bds_check;
669          goto TTL;          goto TTL;
670  TTL:;  TTL:;
671          {register object V83;          {register object V88;
672          V83= caddr((V81));          V88= CMPcaddr((V86));
673          if((cadr((V83)))!=Cnil){          if((CMPcadr((V88)))!=Cnil){
674          goto T250;}          goto T250;}
675          if((caddr((V83)))!=Cnil){          if((CMPcaddr((V88)))!=Cnil){
676          goto T250;}          goto T250;}
677          if((cadddr((V83)))!=Cnil){          if((CMPcadddr((V88)))!=Cnil){
678          goto T250;}          goto T250;}
679          if(type_of((V82))==t_cons||((V82))==Cnil){          if(type_of((V87))==t_cons||((V87))==Cnil){
680          goto T251;}          goto T251;}
681          goto T250;          goto T250;
682  T250:;  T250:;
683          if(!(type_of((V82))==t_cons||((V82))==Cnil)){          if(!(type_of((V87))==t_cons||((V87))==Cnil)){
684          goto T259;}          goto T259;}
685          {object V84;          {object V89;
686          V84= symbol_value(VV[19]);          V89= (VV[19]->s.s_dbind);
687          bds_bind(VV[19],symbol_value(VV[19]));          bds_bind(VV[19],(VV[19]->s.s_dbind));
688          (void)((*(LnkLI120))((V82)));          (void)((*(LnkLI120))((V87)));
689          if(((*(LnkLI121))((V83)))==Cnil){          if(((*(LnkLI121))((V88)))==Cnil){
690          bds_unwind1;          bds_unwind1;
691          goto T259;}          goto T259;}
692          princ_str("\n   vs_top=(vs_base=base+",VV[29]);          princ_str("\n   vs_top=(vs_base=base+",VV[29]);
693          (void)((*(LnkLI117))((V84)));          (void)((*(LnkLI117))((V89)));
694          princ_str(")+",VV[29]);          princ_str(")+",VV[29]);
695          V85= number_minus((VV[19]->s.s_dbind),(V84));          V90= number_minus((VV[19]->s.s_dbind),(V89));
696          (void)((*(LnkLI117))(/* INLINE-ARGS */V85));          (void)((*(LnkLI117))(/* INLINE-ARGS */V90));
697          princ_char(59,VV[29]);          princ_char(59,VV[29]);
698          setq(VV[37],Ct);          (VV[37]->s.s_dbind)= Ct;
699          bds_unwind1;}          bds_unwind1;}
700          goto T259;          goto T259;
701  T259:;  T259:;
702          {object V86 = (VFUN_NARGS=2,(*(LnkLI122))((V83),caddr(cddr((V81)))));          {object V91 = (VFUN_NARGS=2,(*(LnkLI122))((V88),CMPcaddr(CMPcddr((V86)))));
703          VMR7(V86)}          VMR7(V91)}
704          goto T251;          goto T251;
705  T251:;  T251:;
706          {object V87;          {object V92;
707          object V88;          object V93;
708          V87= make_fixnum((long)length(car((V83))));          V92= CMPmake_fixnum((long)length(CMPcar((V88))));
709          V88= make_fixnum((long)length((V82)));          V93= CMPmake_fixnum((long)length((V87)));
710          if(!(eql((V88),(V87)))){          if(!(eql((V93),(V92)))){
711          goto T276;}          goto T276;}
712          goto T273;          goto T273;
713          goto T276;          goto T276;
714  T276:;  T276:;
715          (void)((VFUN_NARGS=3,(*(LnkLI123))(VV[38],(V88),(V87))));}          (void)((VFUN_NARGS=3,(*(LnkLI123))(VV[38],(V93),(V92))));}
716          goto T273;          goto T273;
717  T273:;  T273:;
718          {object V89 = (*(LnkLI124))(car((V83)),(V82),caddr(cddr((V81))));          {object V94 = (*(LnkLI124))(CMPcar((V88)),(V87),CMPcaddr(CMPcddr((V86))));
719          VMR7(V89)}}          VMR7(V94)}}
720          base[0]=base[0];          base[0]=base[0];
721          return Cnil;          return Cnil;
722  }  }
723  /*      local entry for function CHECK-FNAME-ARGS       */  /*      local entry for function CHECK-FNAME-ARGS       */
724    
725  static object LI8(V92,V93)  static object LI8(V97,V98)
726    
727  object V92;object V93;  object V97;object V98;
728  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
729          goto TTL;          goto TTL;
730  TTL:;  TTL:;
731          {register object V94;          {register object V99;
732          V94= get((V92),VV[39],Ct);          {object V100 =((V97))->s.s_plist;
733          if((Ct)==((V94))){           object ind= VV[39];
734            while(V100!=Cnil){
735            if(V100->c.c_car==ind){
736            V99= (V100->c.c_cdr->c.c_car);
737            goto T278;
738            }else V100=V100->c.c_cdr->c.c_cdr;}
739            V99= Ct;}
740            goto T278;
741    T278:;
742            if((Ct)==((V99))){
743          goto T280;}          goto T280;}
744          goto T279;          goto T279;
745          goto T280;          goto T280;
746  T280:;  T280:;
747          if((get((V92),VV[40],Cnil))!=Cnil){          {object V101 =((V97))->s.s_plist;
748             object ind= VV[40];
749            while(V101!=Cnil){
750            if(V101->c.c_car==ind){
751            if(((V101->c.c_cdr->c.c_car))!=Cnil){
752          goto T282;}          goto T282;}
753            goto T283;
754            }else V101=V101->c.c_cdr->c.c_cdr;}}
755            goto T283;
756    T283:;
757          goto T279;          goto T279;
758          goto T282;          goto T282;
759  T282:;  T282:;
760          V94= VV[41];          V99= VV[41];
761          goto T279;          goto T279;
762  T279:;  T279:;
763          if(!(type_of((V94))==t_cons||((V94))==Cnil)){          if(!(type_of((V99))==t_cons||((V99))==Cnil)){
764          goto T286;}          goto T286;}
765          if(!(type_of((V93))==t_cons||((V93))==Cnil)){          if(!(type_of((V98))==t_cons||((V98))==Cnil)){
766          goto T286;}          goto T286;}
767          {register object x= VV[5],V95= (V94);          {register object x= VV[5],V102= (V99);
768          while(!endp(V95))          while(V102!=Cnil)
769          if(eql(x,V95->c.c_car)){          if(eql(x,V102->c.c_car)){
770          goto T286;          goto T286;
771          }else V95=V95->c.c_cdr;}          }else V102=V102->c.c_cdr;}
772          if(!(((long)length((V94)))==((long)length((V93))))){          if(!(((long)length((V99)))==((long)length((V98))))){
773          goto T292;}          goto T292;}
774          {object V96 = Ct;          {object V103 = Ct;
775          VMR8(V96)}          VMR8(V103)}
776          goto T292;          goto T292;
777  T292:;  T292:;
778          V97 = make_fixnum((long)length((V93)));          V104 = CMPmake_fixnum((long)length((V98)));
779          V98 = make_fixnum((long)length((V94)));          V105 = CMPmake_fixnum((long)length((V99)));
780          {object V99 = (VFUN_NARGS=4,(*(LnkLI125))(VV[42],(V92),V97,V98));          {object V106 = (VFUN_NARGS=4,(*(LnkLI125))(VV[42],(V97),V104,V105));
781          VMR8(V99)}          VMR8(V106)}
782          goto T286;          goto T286;
783  T286:;  T286:;
784          {object V100 = Cnil;          {object V107 = Cnil;
785          VMR8(V100)}}          VMR8(V107)}}
786          return Cnil;          return Cnil;
787  }  }
788  /*      function definition for SAVE-AVMA       */  /*      local entry for function SAVE-AVMA      */
789    
790  static void L9()  static object LI9(V109)
791  {register object *base=vs_base;  
792          register object *sup=base+VM9; VC9  object V109;
793          vs_reserve(VM9);  {        VMB9 VMS9 VMV9
         {object V101;  
         check_arg(1);  
         V101=(base[0]);  
         vs_top=sup;  
794          goto TTL;          goto TTL;
795  TTL:;  TTL:;
796          if((symbol_value(VV[43]))!=Cnil){          if(((VV[43]->s.s_dbind))!=Cnil){
797          goto T295;}{object V102;          goto T295;}{object V110;
798          {register object x= VV[44],V103= car((V101));          {register object x= VV[44],V111= CMPcar((V109));
799          while(!endp(V103))          while(V111!=Cnil)
800          if(eql(x,V103->c.c_car)){          if(eql(x,V111->c.c_car)){
801          V102= V103;          V110= V111;
802          goto T301;          goto T301;
803          }else V103=V103->c.c_cdr;          }else V111=V111->c.c_cdr;
804          V102= Cnil;}          V110= Cnil;}
805          goto T301;          goto T301;
806  T301:;  T301:;
807          if(V102==Cnil)goto T300;          if(V110==Cnil)goto T300;
808          setq(VV[43],V102);          (VV[43]->s.s_dbind)= V110;
809          goto T299;          goto T299;
810          goto T300;          goto T300;
811  T300:;}  T300:;}
812          if(!((cadr((V101)))==(VV[44]))){          if(!((CMPcadr((V109)))==(VV[44]))){
813          goto T302;}          goto T302;}
814          setq(VV[43],Ct);          (VV[43]->s.s_dbind)= Ct;
815          goto T299;          goto T299;
816          goto T302;          goto T302;
817  T302:;  T302:;
818          base[1]= small_fixnum(4);          base[0]= small_fixnum(4);
819          base[2]= caddr((V101));          base[1]= CMPcaddr((V109));
820          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+0)+2;
821          Llogbitp();          Llogbitp();
822          vs_top=sup;          vs_top=sup;
823          setq(VV[43],vs_base[0]);          (VV[43]->s.s_dbind)= vs_base[0];
824          goto T299;          goto T299;
825  T299:;  T299:;
826          if((symbol_value(VV[43]))==Cnil){          if(((VV[43]->s.s_dbind))==Cnil){
827          goto T295;}          goto T295;}
828          princ_str("\n   { save_avma;",VV[29]);          princ_str("\n   { save_avma;",VV[29]);
829          vs_base=vs_top;          (void)((*(LnkLI126))());
830          (void) (*Lnk126)();          if(!(type_of((VV[45]->s.s_dbind))==t_cons)){
         vs_top=sup;  
         if(!(type_of(symbol_value(VV[45]))==t_cons)){  
831          goto T309;}          goto T309;}
832          base[1]= Ct;          {object V112 = Ct;
833          vs_top=(vs_base=base+1)+1;          VMR9(V112)}
         return;  
834          goto T309;          goto T309;
835  T309:;  T309:;
836          setq(VV[45],make_cons(symbol_value(VV[45]),VV[46]));          (VV[45]->s.s_dbind)= make_cons((VV[45]->s.s_dbind),VV[46]);
837          base[1]= symbol_value(VV[45]);          {object V113 = (VV[45]->s.s_dbind);
838          vs_top=(vs_base=base+1)+1;          VMR9(V113)}
         return;  
839          goto T295;          goto T295;
840  T295:;  T295:;
841          base[1]= Cnil;          {object V114 = Cnil;
842          vs_top=(vs_base=base+1)+1;          VMR9(V114)}
843          return;          base[0]=base[0];
844          }          return Cnil;
845  }  }
846  /*      local entry for function C2CALL-GLOBAL  */  /*      local entry for function C2CALL-GLOBAL  */
847    
848  static object LI10(V108,V109,V110,V111)  static object LI10(V119,V120,V121,V122)
849    
850  register object V108;register object V109;object V110;object V111;  register object V119;register object V120;object V121;object V122;
851  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
852          bds_check;          bds_check;
853          goto TTL;          goto TTL;
854  TTL:;  TTL:;
855          {register object V112;          {register object V123;
856          V112= Cnil;          V123= Cnil;
857          bds_bind(VV[19],symbol_value(VV[19]));          bds_bind(VV[19],(VV[19]->s.s_dbind));
858          if(((*(LnkLI127))((V108)))==Cnil){          if(((*(LnkLI127))((V119)))==Cnil){
859          goto T314;}          goto T314;}
860          if(!(type_of((V109))==t_cons||((V109))==Cnil)){          if(!(type_of((V120))==t_cons||((V120))==Cnil)){
861          goto T317;}          goto T317;}
862          if((symbol_value(VV[47]))==Cnil){          if(((VV[47]->s.s_dbind))==Cnil){
863          goto T317;}          goto T317;}
864          if((symbol_value(VV[48]))==Cnil){          if(((VV[48]->s.s_dbind))==Cnil){
865          goto T317;}          goto T317;}
866          if(!((car(symbol_value(VV[48])))==((V108)))){          if(!((CMPcar((VV[48]->s.s_dbind)))==((V119)))){
867          goto T317;}          goto T317;}
868          {register object x= symbol_value(VV[49]),V113= VV[50];          {register object x= (VV[49]->s.s_dbind),V124= VV[50];
869          while(!endp(V113))          while(V124!=Cnil)
870          if(eql(x,V113->c.c_car)){          if(eql(x,V124->c.c_car)){
871          goto T327;          goto T327;
872          }else V113=V113->c.c_cdr;          }else V124=V124->c.c_cdr;
873          goto T317;}          goto T317;}
874          goto T327;          goto T327;
875  T327:;  T327:;
876          if(((*(LnkLI128))())==Cnil){          if(((*(LnkLI128))())==Cnil){
877          goto T317;}          goto T317;}
878          if(!(((long)length((V109)))==((long)length(cdr(symbol_value(VV[48])))))){          if(!(((long)length((V120)))==((long)length(CMPcdr((VV[48]->s.s_dbind)))))){
879          goto T317;}          goto T317;}
880          bds_bind(VV[21],VV[22]);          bds_bind(VV[21],VV[22]);
881          setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));          (VV[51]->s.s_dbind)= number_plus((VV[51]->s.s_dbind),small_fixnum(1));
882          bds_bind(VV[49],make_cons(symbol_value(VV[51]),Cnil));          bds_bind(VV[49],make_cons((VV[51]->s.s_dbind),Cnil));
883          bds_bind(VV[52],make_cons((VV[49]->s.s_dbind),symbol_value(VV[52])));          bds_bind(VV[52],make_cons((VV[49]->s.s_dbind),(VV[52]->s.s_dbind)));
884          {object V115;          {object V126;
885          object V116= cdr(symbol_value(VV[48]));          object V127= CMPcdr((VV[48]->s.s_dbind));
886          if(endp(V116)){          if(V127==Cnil){
887          V114= Cnil;          V125= Cnil;
888          goto T336;}          goto T336;}
889          base[4]=V115=MMcons(Cnil,Cnil);          base[4]=V126=MMcons(Cnil,Cnil);
890          goto T337;          goto T337;
891  T337:;  T337:;
892          (V115->c.c_car)= list(2,(V116->c.c_car),Cnil);          (V126->c.c_car)= list(2,(V127->c.c_car),Cnil);
893          V116=MMcdr(V116);          if((V127=MMcdr(V127))==Cnil){
894          if(endp(V116)){          V125= base[4];
         V114= base[4];  
895          goto T336;}          goto T336;}
896          V115=MMcdr(V115)=MMcons(Cnil,Cnil);          V126=MMcdr(V126)=MMcons(Cnil,Cnil);
897          goto T337;}          goto T337;}
898          goto T336;          goto T336;
899  T336:;  T336:;
900          (void)((*(LnkLI129))(V114,(V109)));          (void)((*(LnkLI129))(V125,(V120)));
901          if((cdr((VV[49]->s.s_dbind)))==Cnil){          if((CMPcdr((VV[49]->s.s_dbind)))==Cnil){
902          bds_unwind1;          bds_unwind1;
903          bds_unwind1;          bds_unwind1;
904          bds_unwind1;          bds_unwind1;
905          goto T331;}          goto T331;}
906          princ_str("\n   goto T",VV[29]);          princ_str("\n   goto T",VV[29]);
907          (void)((*(LnkLI117))(car((VV[49]->s.s_dbind))));          (void)((*(LnkLI117))(CMPcar((VV[49]->s.s_dbind))));
908          princ_char(59,VV[29]);          princ_char(59,VV[29]);
909          princ_str("\nT",VV[29]);          princ_str("\nT",VV[29]);
910          (void)((*(LnkLI117))(car((VV[49]->s.s_dbind))));          (void)((*(LnkLI117))(CMPcar((VV[49]->s.s_dbind))));
911          princ_str(":;",VV[29]);          princ_str(":;",VV[29]);
912          bds_unwind1;          bds_unwind1;
913          bds_unwind1;          bds_unwind1;
# Line 857  T336:; Line 916  T336:;
916  T331:;  T331:;
917          (void)((*(LnkLI130))(VV[53]));          (void)((*(LnkLI130))(VV[53]));
918          princ_str("\n   goto TTL;",VV[29]);          princ_str("\n   goto TTL;",VV[29]);
919          {object V118 = (VFUN_NARGS=2,(*(LnkLI131))(VV[54],(V108)));          {object V129 = (VFUN_NARGS=2,(*(LnkLI131))(VV[54],(V119)));
920          bds_unwind1;          bds_unwind1;
921          VMR10(V118)}          VMR10(V129)}
922          goto T317;          goto T317;
923  T317:;  T317:;
924          if(!(type_of((V109))==t_cons||((V109))==Cnil)){          if(!(type_of((V120))==t_cons||((V120))==Cnil)){
925          goto T352;}          goto T352;}
926          if(((V110))!=Cnil){          if(((V121))!=Cnil){
927          goto T352;}          goto T352;}
928          V112= (*(LnkLI132))((V108),(V109),(V111));          V123= (*(LnkLI132))((V119),(V120),(V122));
929          if(((V112))==Cnil){          if(((V123))==Cnil){
930          goto T352;}          goto T352;}
931          bds_bind(VV[45],small_fixnum(0));          bds_bind(VV[45],small_fixnum(0));
932          bds_bind(VV[43],symbol_value(VV[43]));          bds_bind(VV[43],(VV[43]->s.s_dbind));
933          base[3]= (V112);          (void)((*(LnkLI133))((V123)));
934          vs_top=(vs_base=base+3)+1;          V130= (*(LnkLI134))((V123),(V120));
935          (void) (*Lnk133)();          (void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V130,Cnil,(V119))));
936          vs_top=sup;          {object V131 = (*(LnkLI135))();
         V119= (*(LnkLI134))((V112),(V109));  
         (void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V119,Cnil,(V108))));  
         {object V120 = (*(LnkLI135))();  
937          bds_unwind1;          bds_unwind1;
938          bds_unwind1;          bds_unwind1;
939          bds_unwind1;          bds_unwind1;
940          VMR10(V120)}          VMR10(V131)}
941          goto T352;          goto T352;
942  T352:;{object V121;  T352:;{object V132;
943          V121= get((V108),VV[55],Cnil);          {object V133 =((V119))->s.s_plist;
944          if(V121==Cnil)goto T366;           object ind= VV[55];
945          V112= V121;          while(V133!=Cnil){
946          goto T365;          if(V133->c.c_car==ind){
947            V132= (V133->c.c_cdr->c.c_car);
948          goto T366;          goto T366;
949  T366:;}          }else V133=V133->c.c_cdr->c.c_cdr;}
950          V112= get((V108),VV[56],Cnil);          V132= Cnil;}
951            goto T366;
952    T366:;
953            if(V132==Cnil)goto T365;
954            V123= V132;
955            goto T364;
956          goto T365;          goto T365;
957  T365:;  T365:;}
958          if(((V112))==Cnil){          {object V134 =((V119))->s.s_plist;
959          goto T363;}           object ind= VV[56];
960          (void)((*(LnkLI136))((V108),(V109)));          while(V134!=Cnil){
961          (void)((*(LnkLI116))((V109)));          if(V134->c.c_car==ind){
962            V123= (V134->c.c_cdr->c.c_car);
963            goto T364;
964            }else V134=V134->c.c_cdr->c.c_cdr;}
965            V123= Cnil;}
966            goto T364;
967    T364:;
968            if(((V123))==Cnil){
969            goto T362;}
970            (void)((*(LnkLI136))((V119),(V120)));
971            (void)((*(LnkLI116))((V120)));
972          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
973          (void)((*(LnkLI117))((V112)));          (void)((*(LnkLI117))((V123)));
974          princ_str("();",VV[29]);          princ_str("();",VV[29]);
975          {object V122 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108)));          {object V135 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V119)));
976          bds_unwind1;          bds_unwind1;
977          VMR10(V122)}          VMR10(V135)}
978          goto T363;          goto T362;
979  T363:;  T362:;
980          if(!(type_of((V109))==t_cons||((V109))==Cnil)){          if(!(type_of((V120))==t_cons||((V120))==Cnil)){
981          goto T375;}          goto T374;}
982          if(!(((long)length((V109)))<(10))){          if(!(((long)length((V120)))<(10))){
983          goto T375;}          goto T374;}
984          if((symbol_value(VV[57]))!=Cnil){          if(((VV[57]->s.s_dbind))!=Cnil){
985          goto T380;}          goto T379;}
986          if((get((V108),VV[58],Cnil))==Cnil){          {object V136 =((V119))->s.s_plist;
987          goto T375;}           object ind= VV[58];
988          goto T380;          while(V136!=Cnil){
989  T380:;          if(V136->c.c_car==ind){
990          if(!((symbol_value(VV[21]))==(VV[59]))){          if(((V136->c.c_cdr->c.c_car))==Cnil){
991          goto T386;}          goto T374;}
992            goto T382;
993            }else V136=V136->c.c_cdr->c.c_cdr;}
994            goto T374;}
995            goto T382;
996    T382:;
997            goto T379;
998    T379:;
999            if(!(((VV[21]->s.s_dbind))==(VV[59]))){
1000            goto T385;}
1001          base[1]= Ct;          base[1]= Ct;
1002          base[2]= VV[60];          base[2]= VV[60];
1003          base[3]= (V108);          base[3]= (V119);
1004          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1005          Lformat();          Lformat();
1006          vs_top=sup;          vs_top=sup;
1007          goto T386;          goto T385;
1008  T386:;  T385:;
1009          if((VV[59])==(symbol_value(VV[21]))){          if((VV[59])==((VV[21]->s.s_dbind))){
1010          goto T375;}          goto T374;}
1011          if(((V110))!=Cnil){          if(((V121))!=Cnil){
1012          goto T375;}          goto T374;}
1013          bds_bind(VV[45],small_fixnum(0));          bds_bind(VV[45],small_fixnum(0));
1014          V123= (*(LnkLI137))((V108),(V109));          V137= (*(LnkLI137))((V119),(V120));
1015          V124= (*(LnkLI134))(/* INLINE-ARGS */V123,(V109));          V138= (*(LnkLI134))(/* INLINE-ARGS */V137,(V120));
1016          (void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V124,Cnil,(V108))));          (void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V138,Cnil,(V119))));
1017          {object V125 = (*(LnkLI135))();          {object V139 = (*(LnkLI135))();
1018          bds_unwind1;          bds_unwind1;
1019          bds_unwind1;          bds_unwind1;
1020          VMR10(V125)}          VMR10(V139)}
1021          goto T375;          goto T374;
1022  T375:;  T374:;
1023          (void)((*(LnkLI116))((V109)));          (void)((*(LnkLI116))((V120)));
1024          {object V126;          {object V140;
1025          V126= (*(LnkLI138))((V108),Cnil,(V109));          V140= (*(LnkLI138))((V119),Cnil,(V120));
1026          princ_str("\n   (void) (*Lnk",VV[29]);          princ_str("\n   (void) (*Lnk",VV[29]);
1027          (void)((*(LnkLI117))((V126)));          (void)((*(LnkLI117))((V140)));
1028          princ_str(")(",VV[29]);          princ_str(")(",VV[29]);
1029          if((get((V108),VV[61],Cnil))==Cnil){          {object V141 =((V119))->s.s_plist;
1030          goto T402;}           object ind= VV[61];
1031            while(V141!=Cnil){
1032            if(V141->c.c_car==ind){
1033            if(((V141->c.c_cdr->c.c_car))==Cnil){
1034            goto T401;}
1035            goto T403;
1036            }else V141=V141->c.c_cdr->c.c_cdr;}
1037            goto T401;}
1038            goto T403;
1039    T403:;
1040          princ_str("Lclptr",VV[29]);          princ_str("Lclptr",VV[29]);
1041          (void)((*(LnkLI117))((V126)));          (void)((*(LnkLI117))((V140)));
1042          goto T402;          goto T401;
1043  T402:;  T401:;
1044          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1045          {object V127 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108)));          {object V142 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V119)));
1046          bds_unwind1;          bds_unwind1;
1047          VMR10(V127)}}          VMR10(V142)}}
1048          goto T314;          goto T314;
1049  T314:;  T314:;
1050          {object V128 = (*(LnkLI139))((V108),(V109),(V110),Cnil);          {object V143 = (*(LnkLI139))((V119),(V120),(V121),Cnil);
1051          bds_unwind1;          bds_unwind1;
1052          VMR10(V128)}}          VMR10(V143)}}
1053          base[0]=base[0];          base[0]=base[0];
1054          return Cnil;          return Cnil;
1055  }  }
1056  /*      local entry for function ADD-FAST-LINK  */  /*      local entry for function ADD-FAST-LINK  */
1057    
1058  static object LI11(V132,V133,V134)  static object LI11(V147,V148,V149)
1059    
1060  register object V132;object V133;object V134;  register object V147;object V148;object V149;
1061  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
1062          goto TTL;          goto TTL;
1063  TTL:;  TTL:;
1064          {object V135;          {object V150;
1065          object V136;          object V151;
1066          object V137;          object V152;
1067          register object V138;          register object V153;
1068          V137= (*(LnkLI140))((V132));          V152= (*(LnkLI140))((V147));
1069          V135= Cnil;          V150= Cnil;
1070          V136= Cnil;          V151= Cnil;
1071          V138= Cnil;          V153= Cnil;
1072          if(((V133))==Cnil){          if(((V148))==Cnil){
1073          goto T412;}          goto T411;}
1074          {object V139;          {object V154;
1075          object V140;          object V155;
1076          object V141;          object V156;
1077          base[0]=MMcons(Cnil,Cnil);          base[0]=MMcons(Cnil,Cnil);
1078          V139= Cnil;          V154= Cnil;
1079          V140= Cnil;          V155= Cnil;
1080          if(type_of((V134))==t_cons||((V134))==Cnil){          if(type_of((V149))==t_cons||((V149))==Cnil){
1081          goto T417;}          goto T416;}
1082          V141= Cnil;          V156= Cnil;
1083          goto T416;          goto T415;
         goto T417;  
 T417:;  
         V141= make_fixnum((long)length((V134)));  
1084          goto T416;          goto T416;
1085  T416:;  T416:;
1086          if((get((V132),VV[1],Cnil))==Cnil){          V156= CMPmake_fixnum((long)length((V149)));
1087          goto T422;}          goto T415;
1088          V140= get((V132),VV[4],Cnil);  T415:;
1089          goto T420;          {object V157 =((V147))->s.s_plist;
1090             object ind= VV[1];
1091            while(V157!=Cnil){
1092            if(V157->c.c_car==ind){
1093            if(((V157->c.c_cdr->c.c_car))==Cnil){
1094            goto T421;}
1095            goto T422;
1096            }else V157=V157->c.c_cdr->c.c_cdr;}
1097            goto T421;}
1098          goto T422;          goto T422;
1099  T422:;  T422:;
1100          V139= get((V132),VV[0],Cnil);          {object V158 =((V147))->s.s_plist;
1101          if(((V139))==Cnil){           object ind= VV[4];
1102          goto T425;}          while(V158!=Cnil){
1103          if(!(type_of((V139))==t_fixnum)){          if(V158->c.c_car==ind){
1104          goto T430;}          V155= (V158->c.c_cdr->c.c_car);
1105          if(!(equal((V141),(V139)))){          goto T419;
1106          goto T432;}          }else V158=V158->c.c_cdr->c.c_cdr;}
1107          goto T428;          V155= Cnil;
1108          goto T432;          goto T419;}
1109  T432:;          goto T421;
1110          (void)((VFUN_NARGS=2,(*(LnkLI125))(VV[62],(V132))));  T421:;
1111          goto T428;          {object V159 =((V147))->s.s_plist;
1112          goto T430;           object ind= VV[0];
1113  T430:;          while(V159!=Cnil){
1114          (void)(sputprop((V132),VV[0],(V141)));          if(V159->c.c_car==ind){
1115          goto T428;          V154= (V159->c.c_cdr->c.c_car);
1116  T428:;          goto T426;
1117          base[2]= (V141);          }else V159=V159->c.c_cdr->c.c_cdr;}
1118            V154= Cnil;}
1119            goto T426;
1120    T426:;
1121            if(((V154))==Cnil){
1122            goto T424;}
1123            if(!(type_of((V154))==t_fixnum)){
1124            goto T429;}
1125            if(!(equal((V156),(V154)))){
1126            goto T431;}
1127            goto T427;
1128            goto T431;
1129    T431:;
1130            (void)((VFUN_NARGS=2,(*(LnkLI125))(VV[62],(V147))));
1131            goto T427;
1132            goto T429;
1133    T429:;
1134            (void)(sputprop((V147),VV[0],(V156)));
1135            goto T427;
1136    T427:;
1137            base[2]= (V156);
1138          base[3]= VV[63];          base[3]= VV[63];
1139          base[4]= Ct;          base[4]= Ct;
1140          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1141          Lmake_list();          Lmake_list();
1142          vs_top=sup;          vs_top=sup;
1143          V140= vs_base[0];          V155= vs_base[0];
1144          goto T420;          goto T419;
1145          goto T425;          goto T424;
1146  T425:;  T424:;
1147          V140= Cnil;          V155= Cnil;
1148          goto T420;          goto T419;
1149  T420:;  T419:;
1150          if((V141)==Cnil){          if((V156)==Cnil){
1151            goto T436;}
1152            V160 = CMPmake_fixnum((long)length((V155)));
1153            if(!(eql((V156),V160))){
1154          goto T437;}          goto T437;}
1155          V142 = make_fixnum((long)length((V140)));          goto T436;
         if(!(eql((V141),V142))){  
         goto T438;}  
         goto T437;  
         goto T438;  
 T438:;{object V143;  
         {register object x= VV[5],V144= (V140);  
         while(!endp(V144))  
         if(eql(x,V144->c.c_car)){  
         V143= V144;  
         goto T441;  
         }else V144=V144->c.c_cdr;  
         V143= Cnil;}  
         goto T441;  
 T441:;  
         if(V143==Cnil)goto T440;  
1156          goto T437;          goto T437;
1157    T437:;{object V161;
1158            {register object x= VV[5],V162= (V155);
1159            while(V162!=Cnil)
1160            if(eql(x,V162->c.c_car)){
1161            V161= V162;
1162          goto T440;          goto T440;
1163  T440:;}          }else V162=V162->c.c_cdr;
1164          V145 = make_fixnum((long)length((V140)));          V161= Cnil;}
1165          (void)((VFUN_NARGS=4,(*(LnkLI125))(VV[64],(V132),(V141),V145)));          goto T440;
1166          goto T437;  T440:;
1167  T437:;          if(V161==Cnil)goto T439;
1168          {register object x= (V132),V146= symbol_value(VV[65]);          goto T436;
1169          while(!endp(V146))          goto T439;
1170          if(type_of(V146->c.c_car)==t_cons &&eql(x,V146->c.c_car->c.c_car)){  T439:;}
1171          V136= (V146->c.c_car);          V163 = CMPmake_fixnum((long)length((V155)));
1172          goto T444;          (void)((VFUN_NARGS=4,(*(LnkLI125))(VV[64],(V147),(V156),V163)));
1173          }else V146=V146->c.c_cdr;          goto T436;
1174          V136= Cnil;}  T436:;
1175          goto T444;          {register object x= (V147),V164= (VV[65]->s.s_dbind);
1176  T444:;          while(V164!=Cnil)
1177          if((cddr((V136)))!=Cnil){          if(eql(x,V164->c.c_car->c.c_car) &&V164->c.c_car != Cnil){
1178          goto T410;}          V151= (V164->c.c_car);
1179          {register object V147;          goto T443;
1180            }else V164=V164->c.c_cdr;
1181            V151= Cnil;}
1182            goto T443;
1183    T443:;
1184            if((CMPcddr((V151)))!=Cnil){
1185            goto T409;}
1186            {register object V165;
1187          vs_base=vs_top;          vs_base=vs_top;
1188          (void) (*Lnk141)();          (void) (*Lnk141)();
1189          vs_top=sup;          vs_top=sup;
1190          V147= vs_base[0];          V165= vs_base[0];
1191          base[2]= (V147);          base[2]= (V165);
1192          base[3]= VV[66];          base[3]= VV[66];
1193          base[4]= (V137);          base[4]= (V152);
1194          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1195          Lformat();          Lformat();
1196          vs_top=sup;          vs_top=sup;
1197          {register object V148;          {register object V166;
1198          register object V149;          register object V167;
1199          register object V150;          register object V168;
1200          V148= Cnil;          V166= Cnil;
1201          V149= (V140);          V167= (V155);
1202          V150= small_fixnum(0);          V168= small_fixnum(0);
1203            goto T453;
1204    T453:;
1205            if(((V167))!=Cnil){
1206            goto T454;}
1207            goto T451;
1208          goto T454;          goto T454;
1209  T454:;  T454:;
1210          if(((V149))!=Cnil){          if(!((CMPcar((V167)))==(VV[5]))){
1211          goto T455;}          goto T460;}
1212          goto T452;          V153= Ct;
1213          goto T455;          (void)(princ(VV[67],(V165)));
1214  T455:;          goto T458;
1215          if(!((car((V149)))==(VV[5]))){          goto T460;
1216          goto T461;}  T460:;
1217          V138= Ct;          if(((V166))==Cnil){
1218          (void)(princ(VV[67],(V147)));          goto T466;}
1219          goto T459;          (void)(princ(VV[68],(V165)));
1220          goto T461;          goto T464;
1221  T461:;          goto T466;
1222          if(((V148))==Cnil){  T466:;
1223          goto T467;}          V166= Ct;
1224          (void)(princ(VV[68],(V147)));          goto T464;
1225          goto T465;  T464:;
1226          goto T467;          base[2]= (V165);
 T467:;  
         V148= Ct;  
         goto T465;  
 T465:;  
         base[2]= (V147);  
1227          base[3]= VV[69];          base[3]= VV[69];
1228          base[4]= (V150);          base[4]= (V168);
1229          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1230          Lformat();          Lformat();
1231          vs_top=sup;          vs_top=sup;
1232          goto T459;          goto T458;
1233  T459:;  T458:;
1234          V149= cdr((V149));          V167= CMPcdr((V167));
1235          V150= number_plus(small_fixnum(1),(V150));          V168= number_plus(small_fixnum(1),(V168));
1236          goto T454;}          goto T453;}
1237          goto T452;          goto T451;
1238  T452:;  T451:;
1239          (void)(princ(VV[70],(V147)));          (void)(princ(VV[70],(V165)));
1240          base[2]= (V147);          base[2]= (V165);
1241          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1242          (void) (*Lnk142)();          (void) (*Lnk142)();
1243          vs_top=sup;          vs_top=sup;
1244          (base[0]->c.c_car)= vs_base[0];}          (base[0]->c.c_car)= vs_base[0];}
1245          if(((V138))==Cnil){          if(((V153))==Cnil){
1246          goto T479;}          goto T478;}
1247          V135=          V150=
1248          make_cclosure_new(LC21,Cnil,base[0],Cdata);          make_cclosure_new(LC21,Cnil,base[0],Cdata);
1249          goto T479;          goto T478;
1250  T479:;  T478:;
1251          {object V151;{object V153;          {object V169;{object V171;
1252          V153= get((V132),VV[2],Cnil);          {object V172 =((V147))->s.s_plist;
1253          if(V153==Cnil)goto T486;           object ind= VV[2];
1254          V152= V153;          while(V172!=Cnil){
1255          goto T485;          if(V172->c.c_car==ind){
1256            V171= (V172->c.c_cdr->c.c_car);
1257            goto T486;
1258            }else V172=V172->c.c_cdr->c.c_cdr;}
1259            V171= Cnil;}
1260          goto T486;          goto T486;
1261  T486:;}  T486:;
1262          V152= Ct;          if(V171==Cnil)goto T485;
1263            V170= V171;
1264            goto T484;
1265          goto T485;          goto T485;
1266  T485:;  T485:;}
1267          if((V135)!=Cnil){          V170= Ct;
1268          V154= (V135);          goto T484;
1269          goto T488;}  T484:;
1270          V154= (base[0]->c.c_car);          if((V150)!=Cnil){
1271          goto T488;          V173= (V150);
1272  T488:;          goto T487;}
1273          V151= list(6,(V132),(V140),V152,small_fixnum(3),V154,VV[71]);          V173= (base[0]->c.c_car);
1274          setq(VV[72],make_cons((V151),symbol_value(VV[72])));}          goto T487;
1275    T487:;
1276            V169= list(6,(V147),(V155),V170,small_fixnum(3),V173,VV[71]);
1277            (VV[72]->s.s_dbind)= make_cons((V169),(VV[72]->s.s_dbind));}
1278          base[2]= Cnil;          base[2]= Cnil;
1279          base[3]= VV[73];          base[3]= VV[73];
1280          base[4]= (V137);          base[4]= (V152);
1281          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1282          Lformat();          Lformat();
1283          vs_top=sup;          vs_top=sup;
1284          V155= vs_base[0];{object V157;          V174= vs_base[0];{object V176;
1285          V157= get((V132),VV[2],Cnil);          {object V177 =((V147))->s.s_plist;
1286          if(V157==Cnil)goto T496;           object ind= VV[2];
1287          V156= V157;          while(V177!=Cnil){
1288          goto T495;          if(V177->c.c_car==ind){
1289            V176= (V177->c.c_cdr->c.c_car);
1290            goto T496;
1291            }else V177=V177->c.c_cdr->c.c_cdr;}
1292            V176= Cnil;}
1293          goto T496;          goto T496;
1294  T496:;}  T496:;
1295          V156= Ct;          if(V176==Cnil)goto T495;
1296            V175= V176;
1297            goto T494;
1298          goto T495;          goto T495;
1299  T495:;  T495:;}
1300          V136= list(4,(V132),V155,V156,(V140));          V175= Ct;
1301          goto T410;}          goto T494;
1302          goto T412;  T494:;
1303  T412:;          V151= list(4,(V147),V174,V175,(V155));
1304          (void)((*(LnkLI136))((V132),(V134)));          goto T409;}
1305          if((get((V132),VV[61],Cnil))==Cnil){          goto T411;
1306          goto T502;}  T411:;
1307          V158= VV[61];          (void)((*(LnkLI136))((V147),(V149)));
1308          goto T500;          {object V179 =((V147))->s.s_plist;
1309             object ind= VV[61];
1310            while(V179!=Cnil){
1311            if(V179->c.c_car==ind){
1312            if(((V179->c.c_cdr->c.c_car))==Cnil){
1313            goto T501;}
1314            goto T502;
1315            }else V179=V179->c.c_cdr->c.c_cdr;}
1316            goto T501;}
1317          goto T502;          goto T502;
1318  T502:;  T502:;
1319          V158= Cnil;          V178= VV[61];
1320          goto T500;          goto T499;
1321  T500:;          goto T501;
1322          V136= list(3,(V132),(V137),V158);  T501:;
1323          goto T410;          V178= Cnil;
1324  T410:;          goto T499;
1325          base[0]= V136;  T499:;
1326          base[1]= symbol_value(VV[65]);          V151= list(3,(V147),(V152),V178);
1327            goto T409;
1328    T409:;
1329            base[0]= V151;
1330            base[1]= (VV[65]->s.s_dbind);
1331          base[2]= VV[74];          base[2]= VV[74];
1332          base[3]= VV[75];          base[3]= VV[75];
1333          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
1334          Ladjoin();          Ladjoin();
1335          vs_top=sup;          vs_top=sup;
1336          setq(VV[65],vs_base[0]);          (VV[65]->s.s_dbind)= vs_base[0];
1337          {object V160 = (V137);          {object V181 = (V152);
1338          VMR11(V160)}}          VMR11(V181)}}
1339          base[0]=base[0];          base[0]=base[0];
1340          return Cnil;          return Cnil;
1341  }  }
1342  /*      function definition for DECLARATION-TYPE        */  /*      local entry for function DECLARATION-TYPE       */
1343    
1344  static void L12()  static object LI12(V183)
1345  {register object *base=vs_base;  
1346          register object *sup=base+VM12; VC12  object V183;
1347          vs_reserve(VM12);  {        VMB12 VMS12 VMV12
         {object V161;  
         check_arg(1);  
         V161=(base[0]);  
         vs_top=sup;  
1348          goto TTL;          goto TTL;
1349  TTL:;  TTL:;
1350          if(!(equal((V161),VV[76]))){          if(!(equal((V183),VV[76]))){
1351          goto T511;}          goto T510;}
1352          base[1]= VV[77];          {object V184 = VV[77];
1353          vs_top=(vs_base=base+1)+1;          VMR12(V184)}
1354          return;          goto T510;
1355          goto T511;  T510:;
1356  T511:;          if(!(equal((V183),VV[78]))){
1357          if(!(equal((V161),VV[78]))){          goto T513;}
1358          goto T514;}          {object V185 = VV[79];
1359          base[1]= VV[79];          VMR12(V185)}
1360          vs_top=(vs_base=base+1)+1;          goto T513;
1361          return;  T513:;
1362          goto T514;          {object V186 = (V183);
1363  T514:;          VMR12(V186)}
1364          base[1]= (V161);          return Cnil;
         vs_top=(vs_base=base+1)+1;  
         return;  
         }  
1365  }  }
1366  /*      local entry for function WT-FUNCTION-LINK       */  /*      local entry for function WT-FUNCTION-LINK       */
1367    
1368  static object LI13(V163)  static object LI13(V188)
1369    
1370  register object V163;  register object V188;
1371  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1372          goto TTL;          goto TTL;
1373  TTL:;  TTL:;
1374          {register object V164;          {register object V189;
1375          register object V165;          register object V190;
1376          register object V166;          register object V191;
1377          object V167;          object V192;
1378          V164= car((V163));          V189= CMPcar((V188));
1379          V165= cadr((V163));          V190= CMPcadr((V188));
1380          V166= caddr((V163));          V191= CMPcaddr((V188));
1381          V167= cadddr((V163));          V192= CMPcadddr((V188));
1382          if(((V166))!=Cnil){          if(((V191))!=Cnil){
1383          goto T522;}          goto T521;}
1384          princ_str("\nstatic void LnkT",VV[29]);          princ_str("\nstatic void LnkT",VV[29]);
1385          (void)((*(LnkLI117))((V165)));          (void)((*(LnkLI117))((V190)));
1386          princ_str("(){ call_or_link(VV[",VV[29]);          princ_str("(){ call_or_link(VV[",VV[29]);
1387          (void)((*(LnkLI117))((V165)));          (void)((*(LnkLI117))((V190)));
1388          princ_str("],(void **)(void *)&Lnk",VV[29]);          princ_str("],(void **)(void *)&Lnk",VV[29]);
1389          (void)((*(LnkLI117))((V165)));          (void)((*(LnkLI117))((V190)));
1390          princ_str(");}",VV[29]);          princ_str(");}",VV[29]);
1391          goto T520;          goto T519;
1392          goto T522;          goto T521;
1393  T522:;  T521:;
1394          if(!(eql((V166),VV[61]))){          if(!(eql((V191),VV[61]))){
1395          goto T532;}          goto T531;}
1396          princ_str("\nstatic void LnkT",VV[29]);          princ_str("\nstatic void LnkT",VV[29]);
1397          (void)((*(LnkLI117))((V165)));          (void)((*(LnkLI117))((V190)));
1398          princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]);          princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]);
1399          (void)((*(LnkLI117))((V165)));          (void)((*(LnkLI117))((V190)));
1400          princ_str("],(void **)(void *)&Lnk",VV[29]);          princ_str("],(void **)(void *)&Lnk",VV[29]);
1401          (void)((*(LnkLI117))((V165)));          (void)((*(LnkLI117))((V190)));
1402          princ_str(",(void **)(void *)&Lclptr",VV[29]);          princ_str(",(void **)(void *)&Lclptr",VV[29]);
1403          (void)((*(LnkLI117))((V165)));          (void)((*(LnkLI117))((V190)));
1404          princ_str(");}",VV[29]);          princ_str(");}",VV[29]);
1405          goto T520;          goto T519;
1406          goto T532;          goto T531;
1407  T532:;  T531:;
1408          princ_str("\nstatic ",VV[29]);          princ_str("\nstatic ",VV[29]);
1409          base[0]= (*(LnkLI143))((V166));          V193= (*(LnkLI144))((V191));
1410          vs_top=(vs_base=base+0)+1;          V194= (*(LnkLI143))(/* INLINE-ARGS */V193);
1411          (void) (*Lnk144)();          (void)((*(LnkLI117))(/* INLINE-ARGS */V194));
         vs_top=sup;  
         V168= vs_base[0];  
         (void)((*(LnkLI117))(V168));  
1412          princ_str(" LnkT",VV[29]);          princ_str(" LnkT",VV[29]);
1413          (void)((*(LnkLI117))((V165)));          (void)((*(LnkLI117))((V190)));
1414          if(((V167))!=Cnil){          if(((V192))!=Cnil){
1415          goto T550;}          goto T547;}
1416          if((Ct)==((V166))){          if((Ct)==((V191))){
1417          goto T551;}          goto T548;}
1418          goto T550;          goto T547;
1419  T550:;  T547:;
1420          {object V169;          {object V195;
1421          {register object x= VV[5],V170= (V167);          {register object x= VV[5],V196= (V192);
1422          while(!endp(V170))          while(V196!=Cnil)
1423          if(eql(x,V170->c.c_car)){          if(eql(x,V196->c.c_car)){
1424          V169= V170;          V195= V196;
1425          goto T555;          goto T552;
1426          }else V170=V170->c.c_cdr;          }else V196=V196->c.c_cdr;
1427          V169= Cnil;}          V195= Cnil;}
1428          goto T555;          goto T552;
1429  T555:;  T552:;
1430          princ_str("(object first,...){",VV[29]);          princ_str("(object first,...){",VV[29]);
1431          base[0]= (*(LnkLI143))((V166));          V197= (*(LnkLI144))((V191));
1432          vs_top=(vs_base=base+0)+1;          V198= (*(LnkLI143))(/* INLINE-ARGS */V197);
1433          (void) (*Lnk144)();          (void)((*(LnkLI117))(/* INLINE-ARGS */V198));
         vs_top=sup;  
         V171= vs_base[0];  
         (void)((*(LnkLI117))(V171));  
1434          princ_str("V1;",VV[29]);          princ_str("V1;",VV[29]);
1435          princ_str("va_list ap;va_start(ap,first);V1=call_",VV[29]);          princ_str("va_list ap;va_start(ap,first);V1=call_",VV[29]);
1436          if(((V169))==Cnil){          if(((V195))==Cnil){
1437          goto T566;}          goto T561;}
1438          V172= VV[80];          V199= VV[80];
1439          goto T564;          goto T559;
1440          goto T566;          goto T561;
1441  T566:;  T561:;
1442          V172= VV[81];          V199= VV[81];
1443          goto T564;          goto T559;
1444  T564:;  T559:;
1445          (void)((*(LnkLI117))(V172));          (void)((*(LnkLI117))(V199));
1446          princ_str("proc_new(VV[",VV[29]);          princ_str("proc_new(VV[",VV[29]);
1447          V173= (*(LnkLI145))((V164));          V200= (*(LnkLI145))((V189));
1448          (void)((*(LnkLI117))(/* INLINE-ARGS */V173));          (void)((*(LnkLI117))(/* INLINE-ARGS */V200));
1449          princ_str("],(void **)(void *)&Lnk",VV[29]);          princ_str("],(void **)(void *)&Lnk",VV[29]);
1450          (void)((*(LnkLI117))((V165)));          (void)((*(LnkLI117))((V190)));
1451          if((V169)!=Cnil){          if((V195)!=Cnil){
1452          goto T572;}          goto T567;}
1453          princ_char(44,VV[29]);          princ_char(44,VV[29]);
1454          V174 = make_fixnum((long)(*(LnkLI146))((V167),(V166)));          V201 = CMPmake_fixnum((long)(*(LnkLI146))((V192),(V191)));
1455          (void)((*(LnkLI117))(V174));          (void)((*(LnkLI117))(V201));
1456          goto T572;          goto T567;
1457  T572:;  T567:;
1458          princ_str(",first,ap);va_end(ap);return V1;}",VV[29]);          princ_str(",first,ap);va_end(ap);return V1;}",VV[29]);
1459          goto T520;}          goto T519;}
1460          goto T551;          goto T548;
1461  T551:;  T548:;
1462          princ_str("(){return call_proc0(VV[",VV[29]);          princ_str("(){return call_proc0(VV[",VV[29]);
1463          V175= (*(LnkLI145))((V164));          V202= (*(LnkLI145))((V189));
1464          (void)((*(LnkLI117))(/* INLINE-ARGS */V175));          (void)((*(LnkLI117))(/* INLINE-ARGS */V202));
1465          princ_str("],(void **)(void *)&Lnk",VV[29]);          princ_str("],(void **)(void *)&Lnk",VV[29]);
1466          (void)((*(LnkLI117))((V165)));          (void)((*(LnkLI117))((V190)));
1467          princ_str(");}",VV[29]);          princ_str(");}",VV[29]);
1468          goto T520;          goto T519;
1469  T520:;  T519:;
1470          V164= symbol_name((V164));          V189= symbol_name((V189));
1471          if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V164))))==Cnil){          if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V189))))==Cnil){
1472          goto T583;}          goto T578;}
1473          V164= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V164)));          V189= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V189)));
1474          goto T583;          goto T578;
1475  T583:;  T578:;
1476          princ_str(" /* ",VV[29]);          princ_str(" /* ",VV[29]);
1477          (void)((*(LnkLI117))((V164)));          (void)((*(LnkLI117))((V189)));
1478          princ_str(" */",VV[29]);          princ_str(" */",VV[29]);
1479          {object V176 = Cnil;          {object V203 = Cnil;
1480          VMR13(V176)}}          VMR13(V203)}}
         base[0]=base[0];  
1481          return Cnil;          return Cnil;
1482  }  }
1483  /*      local entry for function WT-FUNCALL-C   */  /*      local entry for function WT-FUNCALL-C   */
1484    
1485  static object LI14(V178)  static object LI14(V205)
1486    
1487  register object V178;  register object V205;
1488  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1489          bds_check;          bds_check;
1490          goto TTL;          goto TTL;
1491  TTL:;  TTL:;
1492          {object V179;          {object V206;
1493          object V180;          object V207;
1494          register object V181;          register object V208;
1495          V179= car((V178));          V206= CMPcar((V205));
1496          V180= cdr((V178));          V207= CMPcdr((V205));
1497          V181= Cnil;          V208= Cnil;
1498          if(!(eql(car((V179)),VV[23]))){          if(!(eql(CMPcar((V206)),VV[23]))){
1499          goto T595;}          goto T590;}
1500          {object V182;          {object V209;
1501          V182= make_cons(car((V179)),caddr((V179)));          V209= make_cons(CMPcar((V206)),CMPcaddr((V206)));
1502          if((symbol_value(VV[83]))==Cnil){          if(((VV[83]->s.s_dbind))==Cnil){
1503          goto T598;}          goto T593;}
1504          princ_str("\n   (type_of(",VV[29]);          princ_str("\n   (type_of(",VV[29]);
1505          base[0]= (V182);          base[0]= (V209);
1506          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1507          (void) (*Lnk149)();          (void) (*Lnk149)();
1508          vs_top=sup;          vs_top=sup;
1509          princ_str(")==t_cfun)||FEinvalid_function(",VV[29]);          princ_str(")==t_cfun)||FEinvalid_function(",VV[29]);
1510          base[0]= (V182);          base[0]= (V209);
1511          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1512          (void) (*Lnk149)();          (void) (*Lnk149)();
1513          vs_top=sup;          vs_top=sup;
1514          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1515          goto T598;          goto T593;
1516  T598:;  T593:;
1517          (void)((*(LnkLI116))((V180)));          (void)((*(LnkLI116))((V207)));
1518          princ_str("\n   (",VV[29]);          princ_str("\n   (",VV[29]);
1519          base[0]= (V182);          base[0]= (V209);
1520          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1521          (void) (*Lnk149)();          (void) (*Lnk149)();
1522          vs_top=sup;          vs_top=sup;
1523          goto T593;}          goto T588;}
1524          goto T595;          goto T590;
1525  T595:;  T590:;
1526          setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));          (VV[84]->s.s_dbind)= number_plus((VV[84]->s.s_dbind),small_fixnum(1));
1527          V181= list(2,VV[33],symbol_value(VV[84]));          V208= list(2,VV[33],(VV[84]->s.s_dbind));
1528          bds_bind(VV[21],(V181));          bds_bind(VV[21],(V208));
1529          princ_str("\n   {object V",VV[29]);          princ_str("\n   {object V",VV[29]);
1530          (void)((*(LnkLI117))(cadr((V181))));          (void)((*(LnkLI117))(CMPcadr((V208))));
1531          princ_char(59,VV[29]);          princ_char(59,VV[29]);
1532          (void)((*(LnkLI115))(car((V178))));          (void)((*(LnkLI115))(CMPcar((V205))));
1533          (void)((*(LnkLI116))(cdr((V178))));          (void)((*(LnkLI116))(CMPcdr((V205))));
1534          princ_str("(V",VV[29]);          princ_str("(V",VV[29]);
1535          (void)((*(LnkLI117))(cadr((V181))));          (void)((*(LnkLI117))(CMPcadr((V208))));
1536          bds_unwind1;          bds_unwind1;
1537          goto T593;          goto T588;
1538  T593:;  T588:;
1539          princ_str(")->cf.cf_self ();",VV[29]);          princ_str(")->cf.cf_self ();",VV[29]);
1540          if((V181)==Cnil){          if((V208)==Cnil){
1541          goto T590;}          goto T585;}
1542          princ_char(125,VV[29]);}          princ_char(125,VV[29]);}
1543          goto T590;          goto T585;
1544  T590:;  T585:;
1545          {object V183 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));          {object V210 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
1546          VMR14(V183)}          VMR14(V210)}
1547          base[0]=base[0];          base[0]=base[0];
1548          return Cnil;          return Cnil;
1549  }  }
1550  /*      local entry for function INLINE-PROC    */  /*      local entry for function INLINE-PROC    */
1551    
1552  static object LI15(V186,V187)  static object LI15(V213,V214)
1553    
1554  object V186;object V187;  object V213;object V214;
1555  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1556          goto TTL;          goto TTL;
1557  TTL:;  TTL:;
1558          {register object V188;          {register object V215;
1559          register object V189;          register object V216;
1560          object V190;          object V217;
1561          V188= make_fixnum((long)length((V187)));          V215= CMPmake_fixnum((long)length((V214)));
1562          V189= Cnil;          V216= Cnil;
1563          V190= (*(LnkLI145))((V186));          V217= (*(LnkLI145))((V213));
1564          base[2]= Ct;          base[2]= Ct;
1565          base[3]= VV[85];          base[3]= VV[85];
1566          base[4]= (V186);          base[4]= (V213);
1567          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1568          Lformat();          Lformat();
1569          vs_top=sup;          vs_top=sup;
1570          {object V191;          {object V218;
1571          {object V192= (V188);          {object V219= (V215);
1572          if(!eql(V192,VV[86]))goto T636;          if(!eql(V219,VV[86]))goto T631;
1573          base[2]= Cnil;          base[2]= Cnil;
1574          base[3]= VV[88];          base[3]= VV[88];
1575          base[4]= (V190);          base[4]= (V217);
1576          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1577          Lformat();          Lformat();
1578          vs_top=sup;          vs_top=sup;
1579          V193= vs_base[0];          V220= vs_base[0];
1580          V191= list(5,VV[87],Ct,small_fixnum(3),V193,VV[58]);          V218= list(5,VV[87],Ct,small_fixnum(3),V220,VV[58]);
1581          goto T635;          goto T630;
1582          goto T636;          goto T631;
1583  T636:;  T631:;
1584          if(!eql(V192,VV[89]))goto T641;          if(!eql(V219,VV[89]))goto T636;
1585          base[2]= Cnil;          base[2]= Cnil;
1586          base[3]= VV[91];          base[3]= VV[91];
1587          base[4]= (V190);          base[4]= (V217);
1588          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1589          Lformat();          Lformat();
1590          vs_top=sup;          vs_top=sup;
1591          V194= vs_base[0];          V221= vs_base[0];
1592          V191= list(5,VV[90],Ct,small_fixnum(3),V194,VV[58]);          V218= list(5,VV[90],Ct,small_fixnum(3),V221,VV[58]);
1593          goto T635;          goto T630;
1594          goto T641;          goto T636;
1595  T641:;  T636:;
1596          base[2]= (V188);          base[2]= (V215);
1597          base[3]= VV[63];          base[3]= VV[63];
1598          base[4]= Ct;          base[4]= Ct;
1599          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1600          Lmake_list();          Lmake_list();
1601          vs_top=sup;          vs_top=sup;
1602          V195= vs_base[0];          V222= vs_base[0];
1603          base[2]= Cnil;          base[2]= Cnil;
1604          base[3]= VV[92];          base[3]= VV[92];
1605          base[4]= (V190);          base[4]= (V217);
1606          base[5]= (V188);          base[5]= (V215);
1607          {register object V197;          {register object V224;
1608          register object V198;          register object V225;
1609          V197= (V188);          V224= (V215);
1610          V198= small_fixnum(0);          V225= small_fixnum(0);
1611          goto T659;          goto T654;
1612  T659:;  T654:;
1613          if(!(number_compare((V198),(V197))>=0)){          if(!(number_compare((V225),(V224))>=0)){
1614          goto T660;}          goto T655;}
1615          base[6]= nreverse((V189));          base[6]= nreverse((V216));
1616          goto T655;          goto T650;
         goto T660;  
 T660:;  
         {register object V199;  
         V199= (V198);  
         V189= make_cons((V199),(V189));}  
         V198= one_plus((V198));  
         goto T659;}  
1617          goto T655;          goto T655;
1618  T655:;  T655:;
1619            {register object V226;
1620            V226= (V225);
1621            V216= make_cons((V226),(V216));}
1622            V225= one_plus((V225));
1623            goto T654;}
1624            goto T650;
1625    T650:;
1626          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
1627          Lformat();          Lformat();
1628          vs_top=sup;          vs_top=sup;
1629          V196= vs_base[0];          V223= vs_base[0];
1630          V191= list(5,V195,Ct,small_fixnum(3),V196,VV[58]);}          V218= list(5,V222,Ct,small_fixnum(3),V223,VV[58]);}
1631          goto T635;          goto T630;
1632  T635:;  T630:;
1633          {object V200;          {object V227;
1634          V200= make_cons((V186),(V191));          V227= make_cons((V213),(V218));
1635          setq(VV[72],make_cons((V200),symbol_value(VV[72])));}          (VV[72]->s.s_dbind)= make_cons((V227),(VV[72]->s.s_dbind));}
1636          {object V201 = (V191);          {object V228 = (V218);
1637          VMR15(V201)}}}          VMR15(V228)}}}
1638          base[0]=base[0];          base[0]=base[0];
1639          return Cnil;          return Cnil;
1640  }  }
1641  /*      local entry for function WT-SIMPLE-CALL */  /*      local entry for function WT-SIMPLE-CALL */
1642    
1643  static object LI16(object V204,object V203,object V202,object first,...)  static object LI16(object V231,object V230,object V229,object first,...)
1644  {        {      
1645          va_list ap;          va_list ap;
1646          int narg = VFUN_NARGS; VMB16 VMS16 VMV16          int narg = VFUN_NARGS; VMB16 VMS16 VMV16
1647          {object V205;          {object V232;
1648          object V206;          object V233;
1649          object V207;          object V234;
1650          object V208;          object V235;
1651          va_start(ap,first);          va_start(ap,first);
1652          if(narg <3) too_few_arguments();          V232= V231;
1653          V205= V204;          V233= V230;
1654          V206= V203;          V234= V229;
         V207= V202;  
1655          narg = narg - 3;          narg = narg - 3;
1656          if (narg <= 0) goto T673;          if (narg <= 0) goto T668;
1657          else {          else {
1658          V208= first;}          V235= first;}
1659          --narg; goto T674;          --narg; goto T669;
1660          goto T673;          goto T668;
1661  T673:;  T668:;
1662          V208= Cnil;          V235= Cnil;
1663          goto T674;          goto T669;
1664  T674:;  T669:;
1665          princ_str("simple_",VV[29]);          princ_str("simple_",VV[29]);
1666          (void)((*(LnkLI117))((V205)));          (void)((*(LnkLI117))((V232)));
1667          princ_char(40,VV[29]);          princ_char(40,VV[29]);
1668          if(((V208))==Cnil){          if(((V235))==Cnil){
1669          goto T680;}          goto T675;}
1670          princ_str("VV[",VV[29]);          princ_str("VV[",VV[29]);
1671          (void)((*(LnkLI117))((V208)));          (void)((*(LnkLI117))((V235)));
1672          princ_str("],",VV[29]);          princ_str("],",VV[29]);
1673          goto T680;          goto T675;
1674  T680:;  T675:;
1675          princ_str("base+",VV[29]);          princ_str("base+",VV[29]);
1676          (void)((*(LnkLI117))((V206)));          (void)((*(LnkLI117))((V233)));
1677          princ_char(44,VV[29]);          princ_char(44,VV[29]);
1678          (void)((*(LnkLI117))((V207)));          (void)((*(LnkLI117))((V234)));
1679          princ_char(41,VV[29]);          princ_char(41,VV[29]);
1680          setq(VV[37],Ct);          (VV[37]->s.s_dbind)= Ct;
1681          {object V209 = Ct;          {object V236 = Ct;
1682          VMR16(V209)}          VMR16(V236)}
1683          va_end(ap);          va_end(ap);
1684          return Cnil;}          return Cnil;}
1685          }          }
1686  /*      local entry for function SAVE-FUNOB     */  /*      local entry for function SAVE-FUNOB     */
1687    
1688  static object LI17(V211)  static object LI17(V238)
1689    
1690  register object V211;  register object V238;
1691  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1692          bds_check;          bds_check;
1693          goto TTL;          goto TTL;
1694  TTL:;  TTL:;
1695          {object V212= car((V211));          {object V239= CMPcar((V238));
1696          if((V212!= VV[13])          if((V239!= VV[13])
1697          && (V212!= VV[150])          && (V239!= VV[150])
1698          && (V212!= VV[6]))goto T693;          && (V239!= VV[6]))goto T688;
1699          {object V213 = Cnil;          {object V240 = Cnil;
1700          VMR17(V213)}          VMR17(V240)}
1701          goto T693;          goto T688;
1702  T693:;  T688:;
1703          if((V212!= VV[14]))goto T694;          if((V239!= VV[14]))goto T689;
1704          if(((*(LnkLI127))(caddr((V211))))==Cnil){          if(((*(LnkLI127))(CMPcaddr((V238))))==Cnil){
1705          goto T695;}          goto T690;}
1706          if((get(caddr((V211)),VV[55],Cnil))!=Cnil){          {object V241 =(CMPcaddr((V238)))->s.s_plist;
1707          goto T696;}           object ind= VV[55];
1708          if((get(caddr((V211)),VV[56],Cnil))!=Cnil){          while(V241!=Cnil){
1709          goto T696;}          if(V241->c.c_car==ind){
1710          {register object x= caddr((V211)),V214= symbol_value(VV[93]);          if(((V241->c.c_cdr->c.c_car))!=Cnil){
1711          while(!endp(V214))          goto T691;}
1712          if(type_of(V214->c.c_car)==t_cons &&eql(x,V214->c.c_car->c.c_car)){          goto T695;
1713          goto T696;          }else V241=V241->c.c_cdr->c.c_cdr;}}
         }else V214=V214->c.c_cdr;}  
1714          goto T695;          goto T695;
1715  T695:;  T695:;
1716          {object V215;          {object V242 =(CMPcaddr((V238)))->s.s_plist;
1717          V215= list(2,VV[27],(*(LnkLI114))());           object ind= VV[56];
1718          if((symbol_value(VV[83]))==Cnil){          while(V242!=Cnil){
1719          goto T707;}          if(V242->c.c_car==ind){
1720            if(((V242->c.c_cdr->c.c_car))!=Cnil){
1721            goto T691;}
1722            goto T697;
1723            }else V242=V242->c.c_cdr->c.c_cdr;}}
1724            goto T697;
1725    T697:;
1726            {register object x= CMPcaddr((V238)),V243= (VV[93]->s.s_dbind);
1727            while(V243!=Cnil)
1728            if(eql(x,V243->c.c_car->c.c_car) &&V243->c.c_car != Cnil){
1729            goto T691;
1730            }else V243=V243->c.c_cdr;}
1731            goto T690;
1732    T690:;
1733            {object V244;
1734            V244= list(2,VV[27],(*(LnkLI114))());
1735            if(((VV[83]->s.s_dbind))==Cnil){
1736            goto T702;}
1737          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1738          (void)((*(LnkLI117))((V215)));          (void)((*(LnkLI117))((V244)));
1739          princ_str("=symbol_function(VV[",VV[29]);          princ_str("=symbol_function(VV[",VV[29]);
1740          V216= (*(LnkLI140))(caddr((V211)));          V245= (*(LnkLI140))(CMPcaddr((V238)));
1741          (void)((*(LnkLI117))(/* INLINE-ARGS */V216));          (void)((*(LnkLI117))(/* INLINE-ARGS */V245));
1742          princ_str("]);",VV[29]);          princ_str("]);",VV[29]);
1743          goto T705;          goto T700;
1744          goto T707;          goto T702;
1745  T707:;  T702:;
1746          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1747          (void)((*(LnkLI117))((V215)));          (void)((*(LnkLI117))((V244)));
1748          princ_str("=VV[",VV[29]);          princ_str("=VV[",VV[29]);
1749          V217= (*(LnkLI140))(caddr((V211)));          V246= (*(LnkLI140))(CMPcaddr((V238)));
1750          (void)((*(LnkLI117))(/* INLINE-ARGS */V217));          (void)((*(LnkLI117))(/* INLINE-ARGS */V246));
1751          princ_str("]->s.s_gfdef;",VV[29]);          princ_str("]->s.s_gfdef;",VV[29]);
1752          goto T705;          goto T700;
1753  T705:;  T700:;
1754          {object V218 = (V215);          {object V247 = (V244);
1755          VMR17(V218)}}          VMR17(V247)}}
1756          goto T696;          goto T691;
1757  T696:;  T691:;
1758          {object V219 = Cnil;          {object V248 = Cnil;
1759          VMR17(V219)}          VMR17(V248)}
1760          goto T694;          goto T689;
1761  T694:;  T689:;
1762          if((V212!= VV[18]))goto T719;          if((V239!= VV[18]))goto T714;
1763          {object V220;          {object V249;
1764          V220= list(2,VV[27],(*(LnkLI114))());          V249= list(2,VV[27],(*(LnkLI114))());
1765          bds_bind(VV[21],(V220));          bds_bind(VV[21],(V249));
1766          (void)((*(LnkLI115))(caddr((V211))));          (void)((*(LnkLI115))(CMPcaddr((V238))));
1767          {object V221 = (V220);          {object V250 = (V249);
1768          bds_unwind1;          bds_unwind1;
1769          VMR17(V221)}}          VMR17(V250)}}
1770          goto T719;          goto T714;
1771  T719:;  T714:;
1772          {object V222 = (*(LnkLI112))();          {object V251 = (*(LnkLI112))();
1773          VMR17(V222)}}          VMR17(V251)}}
1774          base[0]=base[0];          base[0]=base[0];
1775          return Cnil;          return Cnil;
1776  }  }
1777  /*      local entry for function PUSH-ARGS      */  /*      local entry for function PUSH-ARGS      */
1778    
1779  static object LI18(V224)  static object LI18(V253)
1780    
1781  object V224;  object V253;
1782  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1783          bds_check;          bds_check;
1784          goto TTL;          goto TTL;
1785  TTL:;  TTL:;
1786          if(((V224))!=Cnil){          if(((V253))!=Cnil){
1787          goto T723;}          goto T718;}
1788          princ_str("\n   vs_base=vs_top;",VV[29]);          princ_str("\n   vs_base=vs_top;",VV[29]);
1789          {object V225 = Cnil;          {object V254 = Cnil;
1790          VMR18(V225)}          VMR18(V254)}
1791          goto T723;          goto T718;
1792  T723:;  T718:;
1793          if(!(type_of((V224))==t_cons)){          if(!(type_of((V253))==t_cons)){
1794          goto T727;}          goto T722;}
1795          {object V226;          {object V255;
1796          V226= symbol_value(VV[19]);          V255= (VV[19]->s.s_dbind);
1797          bds_bind(VV[19],symbol_value(VV[19]));          bds_bind(VV[19],(VV[19]->s.s_dbind));
1798          {register object V227;          {register object V256;
1799          register object V228;          register object V257;
1800          V227= (V224);          V256= (V253);
1801          V228= car((V227));          V257= CMPcar((V256));
1802          goto T734;          goto T729;
1803  T734:;  T729:;
1804          if(!(endp_prop((V227)))){          if(!(((V256))==Cnil)){
1805          goto T735;}          goto T730;}
1806            goto T725;
1807          goto T730;          goto T730;
1808          goto T735;  T730:;
 T735:;  
1809          base[2]= list(2,VV[27],(*(LnkLI114))());          base[2]= list(2,VV[27],(*(LnkLI114))());
1810          bds_bind(VV[21],base[2]);          bds_bind(VV[21],base[2]);
1811          V229= (*(LnkLI115))((V228));          V258= (*(LnkLI115))((V257));
1812          bds_unwind1;          bds_unwind1;
1813          V227= cdr((V227));          V256= CMPcdr((V256));
1814          V228= car((V227));          V257= CMPcar((V256));
1815          goto T734;}          goto T729;}
1816          goto T730;          goto T725;
1817  T730:;  T725:;
1818          princ_str("\n   vs_top=(vs_base=base+",VV[29]);          princ_str("\n   vs_top=(vs_base=base+",VV[29]);
1819          (void)((*(LnkLI117))((V226)));          (void)((*(LnkLI117))((V255)));
1820          princ_str(")+",VV[29]);          princ_str(")+",VV[29]);
1821          V230= number_minus((VV[19]->s.s_dbind),(V226));          V259= number_minus((VV[19]->s.s_dbind),(V255));
1822          (void)((*(LnkLI117))(/* INLINE-ARGS */V230));          (void)((*(LnkLI117))(/* INLINE-ARGS */V259));
1823          princ_char(59,VV[29]);          princ_char(59,VV[29]);
1824          setq(VV[37],Ct);          (VV[37]->s.s_dbind)= Ct;
1825          {object V231 = Ct;          {object V260 = Ct;
1826          bds_unwind1;          bds_unwind1;
1827          VMR18(V231)}}          VMR18(V260)}}
1828          goto T727;          goto T722;
1829  T727:;  T722:;
1830          {object V232 = Cnil;          {object V261 = Cnil;
1831          VMR18(V232)}          VMR18(V261)}
1832          base[0]=base[0];          base[0]=base[0];
1833          return Cnil;          return Cnil;
1834  }  }
1835  /*      local entry for function PUSH-ARGS-LISPCALL     */  /*      local entry for function PUSH-ARGS-LISPCALL     */
1836    
1837  static object LI19(V234)  static object LI19(V263)
1838    
1839  object V234;  object V263;
1840  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1841          bds_check;          bds_check;
1842          goto TTL;          goto TTL;
1843  TTL:;  TTL:;
1844          {register object V235;          {register object V264;
1845          register object V236;          register object V265;
1846          V235= (V234);          V264= (V263);
1847          V236= car((V235));          V265= CMPcar((V264));
1848          goto T756;          goto T751;
1849  T756:;  T751:;
1850          if(!(endp_prop((V235)))){          if(!(((V264))==Cnil)){
1851          goto T757;}          goto T752;}
1852          {object V237 = Cnil;          {object V266 = Cnil;
1853          VMR19(V237)}          VMR19(V266)}
1854          goto T757;          goto T752;
1855  T757:;  T752:;
1856          base[1]= list(2,VV[27],(*(LnkLI114))());          base[1]= list(2,VV[27],(*(LnkLI114))());
1857          bds_bind(VV[21],base[1]);          bds_bind(VV[21],base[1]);
1858          V238= (*(LnkLI115))((V236));          V267= (*(LnkLI115))((V265));
1859          bds_unwind1;          bds_unwind1;
1860          V235= cdr((V235));          V264= CMPcdr((V264));
1861          V236= car((V235));          V265= CMPcar((V264));
1862          goto T756;}          goto T751;}
1863          base[0]=base[0];          base[0]=base[0];
1864          return Cnil;          return Cnil;
1865  }  }
1866  /*      local entry for function C2CALL-UNKNOWN-GLOBAL  */  /*      local entry for function C2CALL-UNKNOWN-GLOBAL  */
1867    
1868  static object LI20(V243,V244,V245,V246)  static object LI20(V272,V273,V274,V275)
1869    
1870  register object V243;register object V244;register object V245;register object V246;  register object V272;register object V273;register object V274;register object V275;
1871  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1872          goto TTL;          goto TTL;
1873  TTL:;  TTL:;
1874          if((symbol_value(VV[28]))==Cnil){          if(((VV[28]->s.s_dbind))==Cnil){
1875          goto T769;}          goto T764;}
1876          if(((V245))!=Cnil){          if(((V274))!=Cnil){
1877          goto T771;}          goto T766;}
1878          V245= list(2,VV[27],(*(LnkLI114))());          V274= list(2,VV[27],(*(LnkLI114))());
1879          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1880          (void)((*(LnkLI117))((V245)));          (void)((*(LnkLI117))((V274)));
1881          princ_str("=symbol_function(VV[",VV[29]);          princ_str("=symbol_function(VV[",VV[29]);
1882          V247= (*(LnkLI140))((V243));          V276= (*(LnkLI140))((V272));
1883          (void)((*(LnkLI117))(/* INLINE-ARGS */V247));          (void)((*(LnkLI117))(/* INLINE-ARGS */V276));
1884          princ_str("]);",VV[29]);          princ_str("]);",VV[29]);
1885          goto T771;          goto T766;
1886  T771:;  T766:;
1887          (void)((*(LnkLI116))((V244)));          (void)((*(LnkLI116))((V273)));
1888          princ_str("\n   funcall_with_catcher(VV[",VV[29]);          princ_str("\n   funcall_with_catcher(VV[",VV[29]);
1889          V248= (*(LnkLI140))((V243));          V277= (*(LnkLI140))((V272));
1890          (void)((*(LnkLI117))(/* INLINE-ARGS */V248));          (void)((*(LnkLI117))(/* INLINE-ARGS */V277));
1891          princ_str("],",VV[29]);          princ_str("],",VV[29]);
1892          (void)((*(LnkLI117))((V245)));          (void)((*(LnkLI117))((V274)));
1893          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1894          {object V249 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243)));          {object V278 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V272)));
1895          VMR20(V249)}          VMR20(V278)}
1896          goto T769;          goto T764;
1897  T769:;  T764:;
1898          if(((V245))==Cnil){          if(((V274))==Cnil){
1899            goto T784;}
1900            (void)((*(LnkLI116))((V273)));
1901            if(((V275))==Cnil){
1902          goto T789;}          goto T789;}
1903          (void)((*(LnkLI116))((V244)));          if(((VV[83]->s.s_dbind))==Cnil){
1904          if(((V246))==Cnil){          goto T792;}
         goto T794;}  
         if((symbol_value(VV[83]))==Cnil){  
         goto T797;}  
1905          princ_str("\n   funcall_no_event(",VV[29]);          princ_str("\n   funcall_no_event(",VV[29]);
1906          (void)((*(LnkLI117))((V245)));          (void)((*(LnkLI117))((V274)));
1907          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1908            goto T787;
1909          goto T792;          goto T792;
1910          goto T797;  T792:;
 T797:;  
1911          princ_str("\n   CMPfuncall(",VV[29]);          princ_str("\n   CMPfuncall(",VV[29]);
1912          (void)((*(LnkLI117))((V245)));          (void)((*(LnkLI117))((V274)));
1913          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1914          goto T792;          goto T787;
         goto T794;  
 T794:;  
         princ_str("\n   funcall(",VV[29]);  
         (void)((*(LnkLI117))((V245)));  
         princ_str(");",VV[29]);  
         goto T792;  
 T792:;  
         {object V250 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));  
         VMR20(V250)}  
1915          goto T789;          goto T789;
1916  T789:;  T789:;
1917          if(((*(LnkLI151))((V244)))==Cnil){          princ_str("\n   funcall(",VV[29]);
1918          goto T809;}          (void)((*(LnkLI117))((V274)));
1919          {object V251;          princ_str(");",VV[29]);
1920          V251= symbol_value(VV[19]);          goto T787;
1921          V245= list(2,VV[27],(*(LnkLI114))());  T787:;
1922          if((symbol_value(VV[83]))==Cnil){          {object V279 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
1923          goto T815;}          VMR20(V279)}
1924            goto T784;
1925    T784:;
1926            if(((*(LnkLI151))((V273)))==Cnil){
1927            goto T804;}
1928            {object V280;
1929            V280= (VV[19]->s.s_dbind);
1930            V274= list(2,VV[27],(*(LnkLI114))());
1931            if(((VV[83]->s.s_dbind))==Cnil){
1932            goto T810;}
1933          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1934          (void)((*(LnkLI117))((V245)));          (void)((*(LnkLI117))((V274)));
1935          princ_str("=symbol_function(VV[",VV[29]);          princ_str("=symbol_function(VV[",VV[29]);
1936          V252= (*(LnkLI140))((V243));          V281= (*(LnkLI140))((V272));
1937          (void)((*(LnkLI117))(/* INLINE-ARGS */V252));          (void)((*(LnkLI117))(/* INLINE-ARGS */V281));
1938          princ_str("]);",VV[29]);          princ_str("]);",VV[29]);
1939          goto T813;          goto T808;
1940          goto T815;          goto T810;
1941  T815:;  T810:;
1942          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1943          (void)((*(LnkLI117))((V245)));          (void)((*(LnkLI117))((V274)));
1944          princ_str("=(VV[",VV[29]);          princ_str("=(VV[",VV[29]);
1945          V253= (*(LnkLI140))((V243));          V282= (*(LnkLI140))((V272));
1946          (void)((*(LnkLI117))(/* INLINE-ARGS */V253));          (void)((*(LnkLI117))(/* INLINE-ARGS */V282));
1947          princ_str("]->s.s_gfdef);",VV[29]);          princ_str("]->s.s_gfdef);",VV[29]);
1948          goto T813;          goto T808;
1949  T813:;  T808:;
1950          (void)((*(LnkLI120))((V244)));          (void)((*(LnkLI120))((V273)));
1951          if((symbol_value(VV[21]))==(VV[94])){          if(((VV[21]->s.s_dbind))==(VV[94])){
1952          goto T828;}          goto T823;}
1953          if(!((symbol_value(VV[21]))==(VV[59]))){          if(!(((VV[21]->s.s_dbind))==(VV[59]))){
1954          goto T829;}          goto T824;}
1955          goto T828;          goto T823;
1956  T828:;  T823:;
1957          princ_str("\n   lispcall",VV[29]);          princ_str("\n   lispcall",VV[29]);
1958          if(((V246))==Cnil){          if(((V275))==Cnil){
1959          goto T835;}          goto T830;}
1960          princ_str("_no_event",VV[29]);          princ_str("_no_event",VV[29]);
1961          goto T835;          goto T830;
1962  T835:;  T830:;
1963          princ_str("(base+",VV[29]);          princ_str("(base+",VV[29]);
1964          (void)((*(LnkLI117))((V251)));          (void)((*(LnkLI117))((V280)));
1965          princ_char(44,VV[29]);          princ_char(44,VV[29]);
1966          V254 = make_fixnum((long)length((V244)));          V283 = CMPmake_fixnum((long)length((V273)));
1967          (void)((*(LnkLI117))(V254));          (void)((*(LnkLI117))(V283));
1968          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1969          setq(VV[37],Ct);          (VV[37]->s.s_dbind)= Ct;
1970          {object V255 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));          {object V284 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
1971          VMR20(V255)}          VMR20(V284)}
1972          goto T829;          goto T824;
1973  T829:;  T824:;
1974          if(((V246))==Cnil){          if(((V275))==Cnil){
1975          goto T849;}          goto T844;}
1976          V256= VV[96];          V285= VV[96];
1977          goto T847;          goto T842;
1978          goto T849;          goto T844;
1979  T849:;  T844:;
1980          V256= VV[97];          V285= VV[97];
1981            goto T842;
1982    T842:;
1983            V286 = CMPmake_fixnum((long)length((V273)));
1984            V287= list(4,VV[95],V285,(V280),V286);
1985            {object V288 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V287));
1986            VMR20(V288)}}
1987            goto T804;
1988    T804:;
1989            {object V289;
1990            V289= (VV[19]->s.s_dbind);
1991            (void)((*(LnkLI120))((V273)));
1992            if(((VV[21]->s.s_dbind))==(VV[94])){
1993            goto T847;}
1994            if(!(((VV[21]->s.s_dbind))==(VV[59]))){
1995            goto T848;}
1996          goto T847;          goto T847;
1997  T847:;  T847:;
         V257 = make_fixnum((long)length((V244)));  
         V258= list(4,VV[95],V256,(V251),V257);  
         {object V259 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V258));  
         VMR20(V259)}}  
         goto T809;  
 T809:;  
         {object V260;  
         V260= symbol_value(VV[19]);  
         (void)((*(LnkLI120))((V244)));  
         if((symbol_value(VV[21]))==(VV[94])){  
         goto T852;}  
         if(!((symbol_value(VV[21]))==(VV[59]))){  
         goto T853;}  
         goto T852;  
 T852:;  
1998          princ_str("\n   symlispcall",VV[29]);          princ_str("\n   symlispcall",VV[29]);
1999          if(((V246))==Cnil){          if(((V275))==Cnil){
2000          goto T859;}          goto T854;}
2001          princ_str("_no_event",VV[29]);          princ_str("_no_event",VV[29]);
2002          goto T859;          goto T854;
2003  T859:;  T854:;
2004          princ_str("(VV[",VV[29]);          princ_str("(VV[",VV[29]);
2005          V261= (*(LnkLI140))((V243));          V290= (*(LnkLI140))((V272));
2006          (void)((*(LnkLI117))(/* INLINE-ARGS */V261));          (void)((*(LnkLI117))(/* INLINE-ARGS */V290));
2007          princ_str("],base+",VV[29]);          princ_str("],base+",VV[29]);
2008          (void)((*(LnkLI117))((V260)));          (void)((*(LnkLI117))((V289)));
2009          princ_char(44,VV[29]);          princ_char(44,VV[29]);
2010          V262 = make_fixnum((long)length((V244)));          V291 = CMPmake_fixnum((long)length((V273)));
2011          (void)((*(LnkLI117))(V262));          (void)((*(LnkLI117))(V291));
2012          princ_str(");",VV[29]);          princ_str(");",VV[29]);
2013          setq(VV[37],Ct);          (VV[37]->s.s_dbind)= Ct;
2014          {object V263 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243)));          {object V292 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V272)));
2015          VMR20(V263)}          VMR20(V292)}
2016          goto T853;          goto T848;
2017  T853:;  T848:;
2018          if(((V246))==Cnil){          if(((V275))==Cnil){
2019          goto T875;}          goto T870;}
2020          V264= VV[98];          V293= VV[98];
2021          goto T873;          goto T868;
2022          goto T875;          goto T870;
2023  T875:;  T870:;
2024          V264= VV[99];          V293= VV[99];
2025          goto T873;          goto T868;
2026  T873:;  T868:;
2027          V265 = make_fixnum((long)length((V244)));          V294 = CMPmake_fixnum((long)length((V273)));
2028          V266= list(5,VV[95],V264,(V260),V265,(*(LnkLI140))((V243)));          V295= list(5,VV[95],V293,(V289),V294,(*(LnkLI140))((V272)));
2029          {object V267 = (VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V266,Cnil,(V243)));          {object V296 = (VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V295,Cnil,(V272)));
2030          VMR20(V267)}}          VMR20(V296)}}
2031          return Cnil;          return Cnil;
2032  }  }
2033  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 1893  static void LC21(base0) Line 2036  static void LC21(base0)
2036  register object *base0;  register object *base0;
2037  {       register object *base=vs_base;  {       register object *base=vs_base;
2038          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
2039          vs_reserve(VM21);          vs_check;
2040          {object V268;          {object V297;
2041          vs_top[0]=Cnil;          vs_top[0]=Cnil;
2042          {object *p=vs_top;          {object *p=vs_top;
2043           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
2044          V268=(base[0]);          V297=(base[0]);
2045          vs_top=sup;          vs_top=sup;
2046          princ_str("(VFUN_NARGS=",VV[29]);          princ_str("(VFUN_NARGS=",VV[29]);
2047          V269 = make_fixnum((long)length((V268)));          V298 = CMPmake_fixnum((long)length((V297)));
2048          (void)((*(LnkLI117))(V269));          (void)((*(LnkLI117))(V298));
2049          princ_char(44,VV[29]);          princ_char(44,VV[29]);
2050          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
2051          base[2]= (V268);          base[2]= (V297);
2052          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2053          (void) (*Lnk152)();          (void) (*Lnk152)();
2054          vs_top=sup;          vs_top=sup;
# Line 1922  static object  LnkTLI148(object first,.. Line 2065  static object  LnkTLI148(object first,..
2065  static object  LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[147],(void **)(void *)&LnkLI147,first,ap);va_end(ap);return V1;} /* FIND */  static object  LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[147],(void **)(void *)&LnkLI147,first,ap);va_end(ap);return V1;} /* FIND */
2066  static object  LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */  static object  LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */
2067  static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */  static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */
2068  static void LnkT144(){ call_or_link(VV[144],(void **)(void *)&Lnk144);} /* DECLARATION-TYPE */  static object  LnkTLI144(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[144],(void **)(void *)&LnkLI144,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
2069  static object  LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)(void *)&LnkLI143,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */  static object  LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)(void *)&LnkLI143,1,first,ap);va_end(ap);return V1;} /* DECLARATION-TYPE */
2070  static void LnkT142(){ call_or_link(VV[142],(void **)(void *)&Lnk142);} /* GET-OUTPUT-STREAM-STRING */  static void LnkT142(){ call_or_link(VV[142],(void **)(void *)&Lnk142);} /* GET-OUTPUT-STREAM-STRING */
2071  static void LnkT141(){ call_or_link(VV[141],(void **)(void *)&Lnk141);} /* MAKE-STRING-OUTPUT-STREAM */  static void LnkT141(){ call_or_link(VV[141],(void **)(void *)&Lnk141);} /* MAKE-STRING-OUTPUT-STREAM */
2072  static object  LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */  static object  LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
# Line 1933  static object  LnkTLI137(object first,.. Line 2076  static object  LnkTLI137(object first,..
2076  static object  LnkTLI136(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[136],(void **)(void *)&LnkLI136,2,first,ap);va_end(ap);return V1;} /* CHECK-FNAME-ARGS */  static object  LnkTLI136(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[136],(void **)(void *)&LnkLI136,2,first,ap);va_end(ap);return V1;} /* CHECK-FNAME-ARGS */
2077  static object  LnkTLI135(){return call_proc0(VV[135],(void **)(void *)&LnkLI135);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI135(){return call_proc0(VV[135],(void **)(void *)&LnkLI135);} /* CLOSE-INLINE-BLOCKS */
2078  static object  LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)(void *)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */  static object  LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)(void *)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */
2079  static void LnkT133(){ call_or_link(VV[133],(void **)(void *)&Lnk133);} /* SAVE-AVMA */  static object  LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[133],(void **)(void *)&LnkLI133,1,first,ap);va_end(ap);return V1;} /* SAVE-AVMA */
2080  static object  LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)(void *)&LnkLI132,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */  static object  LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)(void *)&LnkLI132,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */
2081  static object  LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[131],(void **)(void *)&LnkLI131,first,ap);va_end(ap);return V1;} /* CMPNOTE */  static object  LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[131],(void **)(void *)&LnkLI131,first,ap);va_end(ap);return V1;} /* CMPNOTE */
2082  static object  LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)(void *)&LnkLI130,1,first,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */  static object  LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)(void *)&LnkLI130,1,first,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */
2083  static object  LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[129],(void **)(void *)&LnkLI129,2,first,ap);va_end(ap);return V1;} /* C2PSETQ */  static object  LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[129],(void **)(void *)&LnkLI129,2,first,ap);va_end(ap);return V1;} /* C2PSETQ */
2084  static object  LnkTLI128(){return call_proc0(VV[128],(void **)(void *)&LnkLI128);} /* TAIL-RECURSION-POSSIBLE */  static object  LnkTLI128(){return call_proc0(VV[128],(void **)(void *)&LnkLI128);} /* TAIL-RECURSION-POSSIBLE */
2085  static object  LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */  static object  LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */
2086  static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* INC-INLINE-BLOCKS */  static object  LnkTLI126(){return call_proc0(VV[126],(void **)(void *)&LnkLI126);} /* INC-INLINE-BLOCKS */
2087  static object  LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[125],(void **)(void *)&LnkLI125,first,ap);va_end(ap);return V1;} /* CMPWARN */  static object  LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[125],(void **)(void *)&LnkLI125,first,ap);va_end(ap);return V1;} /* CMPWARN */
2088  static object  LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,3,first,ap);va_end(ap);return V1;} /* C2LET */  static object  LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,3,first,ap);va_end(ap);return V1;} /* C2LET */
2089  static object  LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[123],(void **)(void *)&LnkLI123,first,ap);va_end(ap);return V1;} /* CMPERR */  static object  LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[123],(void **)(void *)&LnkLI123,first,ap);va_end(ap);return V1;} /* CMPERR */

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

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