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

Diff of /gcl/cmpnew/cmpeval.c

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

revision 1.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:54 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "cmpeval.h"  #include "cmpeval.h"
4  init_cmpeval(){do_init(VV);}  void init_cmpeval(){do_init(VV);}
5  /*      local entry for function C1EXPR*        */  /*      local entry for function C1EXPR*        */
6    
7  static object LI1(V3,V4)  static object LI1(V3,V4)
8    
9  register object V3;object V4;  register object V3;object V4;
10  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
11    goto TTL;
12  TTL:;  TTL:;
13          V3= (*(LnkLI123))((V3));          V3= (*(LnkLI123))((V3));
14          (void)((*(LnkLI124))((V4),cadr((V3))));          (void)((*(LnkLI124))((V4),cadr((V3))));
15          {object V5 = (V3);          {object V5 = (V3);
16          VMR1(V5)}          VMR1(V5)}
17            return Cnil;
18  }  }
19  /*      local entry for function C1EXPR */  /*      local entry for function C1EXPR */
20    
# Line 20  static object LI2(V7) Line 22  static object LI2(V7)
22    
23  VOL object V7;  VOL object V7;
24  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
25    goto TTL;
26  TTL:;  TTL:;
27          frs_push(FRS_CATCH,VV[0]);          frs_push(FRS_CATCH,VV[0]);
28          if(nlj_active)          if(nlj_active)
# Line 36  TTL:; Line 39  TTL:;
39          frs_pop();          frs_pop();
40          V7= V8;          V7= V8;
41          goto T5;          goto T5;
42    goto T11;
43  T11:;  T11:;
44          if(!(((V7))==(Ct))){          if(!(((V7))==(Ct))){
45          goto T14;}          goto T14;}
# Line 43  T11:; Line 47  T11:;
47          frs_pop();          frs_pop();
48          V7= V9;          V7= V9;
49          goto T5;          goto T5;
50    goto T14;
51  T14:;  T14:;
52          if(!((type_of((V7))==t_symbol&&((V7))->s.s_hpack==keyword_package))){          if(!((type_of((V7))==t_symbol&&((V7))->s.s_hpack==keyword_package))){
53          goto T17;}          goto T17;}
# Line 52  T14:; Line 57  T14:;
57          frs_pop();          frs_pop();
58          V7= V12;          V7= V12;
59          goto T5;          goto T5;
60    goto T17;
61  T17:;  T17:;
62          base[0]= (V7);          base[0]= (V7);
63          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 70  T17:; Line 76  T17:;
76          frs_pop();          frs_pop();
77          V7= V14;          V7= V14;
78          goto T5;          goto T5;
79    goto T25;
80  T25:;}  T25:;}
81          V15= (*(LnkLI128))((V13));          V15= (*(LnkLI128))((V13));
82          V16= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V15));          V16= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V15));
# Line 77  T25:;} Line 84  T25:;}
84          frs_pop();          frs_pop();
85          V7= V17;          V7= V17;
86          goto T5;}          goto T5;}
87    goto T20;
88  T20:;  T20:;
89          V18= (*(LnkLI132))((V7));          V18= (*(LnkLI132))((V7));
90          frs_pop();          frs_pop();
91          V7= V18;          V7= V18;
92          goto T5;          goto T5;
93    goto T8;
94  T8:;  T8:;
95          if(!(type_of((V7))==t_cons)){          if(!(type_of((V7))==t_cons)){
96          goto T28;}          goto T28;}
# Line 97  T8:; Line 106  T8:;
106          frs_pop();          frs_pop();
107          V7= vs_base[0];          V7= vs_base[0];
108          goto T5;          goto T5;
109    goto T32;
110  T32:;  T32:;
111          if(!(type_of((V19))==t_cons)){          if(!(type_of((V19))==t_cons)){
112          goto T37;}          goto T37;}
# Line 106  T32:; Line 116  T32:;
116          frs_pop();          frs_pop();
117          V7= V20;          V7= V20;
118          goto T5;          goto T5;
119    goto T37;
120  T37:;  T37:;
121          if(!(type_of((V19))==t_cons)){          if(!(type_of((V19))==t_cons)){
122          goto T42;}          goto T42;}
# Line 115  T37:; Line 126  T37:;
126          frs_pop();          frs_pop();
127          V7= V21;          V7= V21;
128          goto T5;          goto T5;
129    goto T42;
130  T42:;  T42:;
131          V22= (VFUN_NARGS=2,(*(LnkLI135))(VV[7],(V19)));          V22= (VFUN_NARGS=2,(*(LnkLI135))(VV[7],(V19)));
132          frs_pop();          frs_pop();
133          V7= V22;          V7= V22;
134          goto T5;}          goto T5;}
135    goto T28;
136  T28:;  T28:;
137          V23= (*(LnkLI130))((V7),Ct);          V23= (*(LnkLI130))((V7),Ct);
138          frs_pop();          frs_pop();
139          V7= V23;}          V7= V23;}
140    goto T5;
141  T5:;  T5:;
142          if(!(((V7))==(VV[8]))){          if(!(((V7))==(VV[8]))){
143          goto T47;}          goto T47;}
144          {object V24 = (*(LnkLI125))();          {object V24 = (*(LnkLI125))();
145          VMR2(V24)}          VMR2(V24)}
146    goto T47;
147  T47:;  T47:;
148          {object V25 = (V7);          {object V25 = (V7);
149          VMR2(V25)}          VMR2(V25)}
150            base[0]=base[0];
151            return Cnil;
152  }  }
153  /*      local entry for function C1SHARP-COMMA  */  /*      local entry for function C1SHARP-COMMA  */
154    
# Line 139  static object LI3(V27) Line 156  static object LI3(V27)
156    
157  object V27;  object V27;
158  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
159    goto TTL;
160  TTL:;  TTL:;
161          V28= make_cons(VV[5],(V27));          V28= make_cons(VV[5],(V27));
162          {object V29 = (*(LnkLI130))(/* INLINE-ARGS */V28,Ct);          {object V29 = (*(LnkLI130))(/* INLINE-ARGS */V28,Ct);
163          VMR3(V29)}          VMR3(V29)}
164            return Cnil;
165  }  }
166  /*      local entry for function C1DEFINE-STRUCTURE     */  /*      local entry for function C1DEFINE-STRUCTURE     */
167    
# Line 151  static object LI4(V31) Line 170  static object LI4(V31)
170  object V31;  object V31;
171  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
172          bds_check;          bds_check;
173    goto TTL;
174  TTL:;  TTL:;
175          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
176          base[1]= make_cons(VV[10],(V31));          base[1]= make_cons(VV[10],(V31));
# Line 163  TTL:; Line 183  TTL:;
183          {object V33 = Cnil;          {object V33 = Cnil;
184          bds_unwind1;          bds_unwind1;
185          VMR4(V33)}          VMR4(V33)}
186            base[0]=base[0];
187            return Cnil;
188  }  }
189  /*      local entry for function C1NIL  */  /*      local entry for function C1NIL  */
190    
191  static object LI5()  static object LI5()
192    
193  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
194    goto TTL;
195  TTL:;  TTL:;
196          {object V34 = symbol_value(VV[11]);          {object V34 = symbol_value(VV[11]);
197          VMR5(V34)}          VMR5(V34)}
198            return Cnil;
199  }  }
200  /*      local entry for function C1T    */  /*      local entry for function C1T    */
201    
202  static object LI6()  static object LI6()
203    
204  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
205    goto TTL;
206  TTL:;  TTL:;
207          {object V35 = symbol_value(VV[12]);          {object V35 = symbol_value(VV[12]);
208          VMR6(V35)}          VMR6(V35)}
209            return Cnil;
210  }  }
211  /*      function definition for FLAGS-POS       */  /*      function definition for FLAGS-POS       */
212    
213  static L7()  static void L7()
214  {register object *base=vs_base;  {register object *base=vs_base;
215          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
216          vs_reserve(VM7);          vs_reserve(VM7);
# Line 192  static L7() Line 218  static L7()
218          check_arg(1);          check_arg(1);
219          V36=(base[0]);          V36=(base[0]);
220          vs_top=sup;          vs_top=sup;
221    goto TTL;
222  TTL:;  TTL:;
223          {register long V37;          {register long V37;
224          V37= 0;          V37= 0;
# Line 199  TTL:; Line 226  TTL:;
226          register object V39;          register object V39;
227          V38= VV[13];          V38= VV[13];
228          V39= car((V38));          V39= car((V38));
229    goto T58;
230  T58:;  T58:;
231          if(!(endp((V38)))){          if(!(endp((V38)))){
232          goto T59;}          goto T59;}
233          goto T54;          goto T54;
234    goto T59;
235  T59:;  T59:;
236          {register object x= (V36),V40= (V39);          {register object x= (V36),V40= (V39);
237          while(!endp(V40))          while(!endp(V40))
# Line 210  T59:; Line 239  T59:;
239          goto T65;          goto T65;
240          }else V40=V40->c.c_cdr;          }else V40=V40->c.c_cdr;
241          goto T63;}          goto T63;}
242    goto T65;
243  T65:;  T65:;
244          base[2]= make_fixnum(V37);          base[2]= make_fixnum(V37);
245          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
246          return;          return;
247    goto T63;
248  T63:;  T63:;
249          V37= (V37)+(1);          V37= (V37)+(1);
250          V38= cdr((V38));          V38= cdr((V38));
251          V39= car((V38));          V39= car((V38));
252          goto T58;}          goto T58;}
253    goto T54;
254  T54:;  T54:;
255          base[1]= VV[14];          base[1]= VV[14];
256          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 228  T54:; Line 260  T54:;
260  }  }
261  /*      macro definition for FLAG-P     */  /*      macro definition for FLAG-P     */
262    
263  static L8()  static void L8()
264  {register object *base=vs_base;  {register object *base=vs_base;
265          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
266          vs_reserve(VM8);          vs_reserve(VM8);
# Line 253  static L8() Line 285  static L8()
285  }  }
286  /*      function definition for FIX-OPT */  /*      function definition for FIX-OPT */
287    
288  static L9()  static void L9()
289  {register object *base=vs_base;  {register object *base=vs_base;
290          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
291          vs_reserve(VM9);          vs_reserve(VM9);
# Line 261  static L9() Line 293  static L9()
293          check_arg(1);          check_arg(1);
294          V43=(base[0]);          V43=(base[0]);
295          vs_top=sup;          vs_top=sup;
296    goto TTL;
297  TTL:;  TTL:;
298          {register object V44;          {register object V44;
299          V44= cddr((V43));          V44= cddr((V43));
# Line 269  TTL:; Line 302  TTL:;
302          if((symbol_value(VV[16]))==Cnil){          if((symbol_value(VV[16]))==Cnil){
303          goto T80;}          goto T80;}
304          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[17],(V43))));          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[17],(V43))));
305    goto T80;
306  T80:;  T80:;
307          {object V46;          {object V46;
308          if((car((V44)))==Cnil){          if((car((V44)))==Cnil){
309          goto T87;}          goto T87;}
310          base[2]= small_fixnum(2);          base[2]= small_fixnum(2);
311          goto T85;          goto T85;
312    goto T87;
313  T87:;  T87:;
314          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
315    goto T85;
316  T85:;  T85:;
317          if((cadr((V44)))==Cnil){          if((cadr((V44)))==Cnil){
318          goto T91;}          goto T91;}
319          base[3]= small_fixnum(1);          base[3]= small_fixnum(1);
320          goto T89;          goto T89;
321    goto T91;
322  T91:;  T91:;
323          base[3]= small_fixnum(0);          base[3]= small_fixnum(0);
324    goto T89;
325  T89:;  T89:;
326          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
327          Llogior();          Llogior();
# Line 293  T89:; Line 331  T89:;
331          if(type_of(cdr(V43))!=t_cons)FEwrong_type_argument(Scons,cdr(V43));          if(type_of(cdr(V43))!=t_cons)FEwrong_type_argument(Scons,cdr(V43));
332          (cdr(V43))->c.c_cdr = (V46);          (cdr(V43))->c.c_cdr = (V46);
333          (void)(cdr(V43));}          (void)(cdr(V43));}
334    goto T77;
335  T77:;  T77:;
336          base[1]= (V43);          base[1]= (V43);
337          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 301  T77:; Line 340  T77:;
340  }  }
341  /*      function definition for RESULT-TYPE-FROM-ARGS   */  /*      function definition for RESULT-TYPE-FROM-ARGS   */
342    
343  static L10()  static void L10()
344  {register object *base=vs_base;  {register object *base=vs_base;
345          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
346          vs_reserve(VM10);          vs_reserve(VM10);
# Line 311  static L10() Line 350  static L10()
350          V48=(base[0]);          V48=(base[0]);
351          V49=(base[1]);          V49=(base[1]);
352          vs_top=sup;          vs_top=sup;
353    goto TTL;
354  TTL:;  TTL:;
355          {object V50;          {object V50;
356          V50= Cnil;          V50= Cnil;
# Line 325  TTL:; Line 365  TTL:;
365          object V52;          object V52;
366          V51= VV[20];          V51= VV[20];
367          V52= car((V51));          V52= car((V51));
368    goto T106;
369  T106:;  T106:;
370          if(!(endp((V51)))){          if(!(endp((V51)))){
371          goto T107;}          goto T107;}
372          base[3]= Cnil;          base[3]= Cnil;
373          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
374          return;          return;
375    goto T107;
376  T107:;  T107:;
377          {register object V53;          {register object V53;
378          register object V54;          register object V54;
379          V53= get((V48),(V52),Cnil);          V53= get((V48),(V52),Cnil);
380          V54= car((V53));          V54= car((V53));
381    goto T115;
382  T115:;  T115:;
383          if(!(endp((V53)))){          if(!(endp((V53)))){
384          goto T116;}          goto T116;}
385          goto T111;          goto T111;
386    goto T116;
387  T116:;  T116:;
388          base[5]= (V54);          base[5]= (V54);
389          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 358  T116:; Line 402  T116:;
402          register object V56;          register object V56;
403          V56= car((V54));          V56= car((V54));
404          V55= (V49);          V55= (V49);
405    goto T133;
406  T133:;  T133:;
407          if(((V55))!=Cnil){          if(((V55))!=Cnil){
408          goto T134;}          goto T134;}
409          goto T130;          goto T130;
410    goto T134;
411  T134:;  T134:;
412          if((car((V55)))==(car((V56)))){          if((car((V55)))==(car((V56)))){
413          goto T138;}          goto T138;}
414          if(((*(LnkLI140))(car((V56)),car((V55))))!=Cnil){          if(((*(LnkLI140))(car((V56)),car((V55))))!=Cnil){
415          goto T138;}          goto T138;}
416          goto T122;          goto T122;
417    goto T138;
418  T138:;  T138:;
419          V55= cdr((V55));          V55= cdr((V55));
420          V56= cdr((V56));          V56= cdr((V56));
421          goto T133;}          goto T133;}
422    goto T130;
423  T130:;  T130:;
424          base[5]= cadr((V54));          base[5]= cadr((V54));
425          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
426          return;          return;
427    goto T122;
428  T122:;  T122:;
429          V53= cdr((V53));          V53= cdr((V53));
430          V54= car((V53));          V54= car((V53));
431          goto T115;}          goto T115;}
432    goto T111;
433  T111:;  T111:;
434          V51= cdr((V51));          V51= cdr((V51));
435          V52= car((V51));          V52= car((V51));
436          goto T106;}          goto T106;}
437    goto T96;
438  T96:;  T96:;
439          base[2]= Cnil;          base[2]= Cnil;
440          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 392  T96:; Line 443  T96:;
443  }  }
444  /*      macro definition for FLAGS      */  /*      macro definition for FLAGS      */
445    
446  static L11()  static void L11()
447  {register object *base=vs_base;  {register object *base=vs_base;
448          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
449          vs_reserve(VM11);          vs_reserve(VM11);
# Line 405  static L11() Line 456  static L11()
456          register object V59;          register object V59;
457          V58= base[2];          V58= base[2];
458          V59= car((V58));          V59= car((V58));
459    goto T162;
460  T162:;  T162:;
461          if(!(endp((V58)))){          if(!(endp((V58)))){
462          goto T163;}          goto T163;}
463          goto T158;          goto T158;
464    goto T163;
465  T163:;  T163:;
466          base[5]= base[3];          base[5]= base[3];
467          base[7]= small_fixnum(1);          base[7]= small_fixnum(1);
# Line 428  T163:; Line 481  T163:;
481          V58= cdr((V58));          V58= cdr((V58));
482          V59= car((V58));          V59= car((V58));
483          goto T162;}          goto T162;}
484    goto T158;
485  T158:;  T158:;
486          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
487          return;          return;
488  }  }
489  /*      function definition for C1SYMBOL-FUN    */  /*      function definition for C1SYMBOL-FUN    */
490    
491  static L12()  static void L12()
492  {register object *base=vs_base;  {register object *base=vs_base;
493          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
494          vs_reserve(VM12);          vs_reserve(VM12);
# Line 444  static L12() Line 498  static L12()
498          V60=(base[0]);          V60=(base[0]);
499          V61=(base[1]);          V61=(base[1]);
500          vs_top=sup;          vs_top=sup;
501    goto TTL;
502  TTL:;  TTL:;
503          {object V62;          {object V62;
504          V62= Cnil;          V62= Cnil;
# Line 454  TTL:; Line 509  TTL:;
509          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
510          super_funcall_no_event((V62));          super_funcall_no_event((V62));
511          return;          return;
512    goto T181;
513  T181:;  T181:;
514          {object V63;          {object V63;
515          V62= get((V60),VV[22],Cnil);          V62= get((V60),VV[22],Cnil);
# Line 461  T181:; Line 517  T181:;
517          goto T186;}          goto T186;}
518          V63= Cnil;          V63= Cnil;
519          goto T185;          goto T185;
520    goto T186;
521  T186:;  T186:;
522          V63= (          V63= (
523          (type_of((V62)) == t_sfun ?(*(object (*)())(((V62))->sfn.sfn_self)):          (type_of((V62)) == t_sfun ?(*(object (*)())(((V62))->sfn.sfn_self)):
524          (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));          (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));
525    goto T185;
526  T185:;  T185:;
527          if(((V63))==Cnil){          if(((V63))==Cnil){
528          goto T190;}          goto T190;}
529          base[2]= (V63);          base[2]= (V63);
530          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
531          return;          return;
532    goto T190;
533  T190:;  T190:;
534          V62= (*(LnkLI141))((V60));          V62= (*(LnkLI141))((V60));
535          if(((V62))==Cnil){          if(((V62))==Cnil){
# Line 486  T190:; Line 545  T190:;
545          if(((V66))==Cnil){          if(((V66))==Cnil){
546          goto T201;}          goto T201;}
547          (void)(structure_set((V64),VV[25],2,(V66)));}          (void)(structure_set((V64),VV[25],2,(V66)));}
548    goto T201;
549  T201:;  T201:;
550          {register object V67;          {register object V67;
551          V67= (*(LnkLI144))(caddr((V62)));          V67= (*(LnkLI144))(caddr((V62)));
# Line 497  T201:; Line 557  T201:;
557          object V70;          object V70;
558          V69= (V65);          V69= (V65);
559          V70= car((V69));          V70= car((V69));
560    goto T213;
561  T213:;  T213:;
562          if(!(endp((V69)))){          if(!(endp((V69)))){
563          goto T214;}          goto T214;}
564          goto T209;          goto T209;
565    goto T214;
566  T214:;  T214:;
567          if(!(endp((V67)))){          if(!(endp((V67)))){
568          goto T220;}          goto T220;}
569          V68= make_cons((V70),(V68));          V68= make_cons((V70),(V68));
570          goto T218;          goto T218;
571    goto T220;
572  T220:;  T220:;
573          V71= (*(LnkLI145))(car((V67)),(V70),car((V61)));          V71= (*(LnkLI145))(car((V67)),(V70),car((V61)));
574          V68= make_cons(/* INLINE-ARGS */V71,(V68));          V68= make_cons(/* INLINE-ARGS */V71,(V68));
# Line 515  T220:; Line 578  T220:;
578          {object V73;          {object V73;
579          V73= car((V61));          V73= car((V61));
580          V61= cdr((V61));}          V61= cdr((V61));}
581    goto T218;
582  T218:;  T218:;
583          V69= cdr((V69));          V69= cdr((V69));
584          V70= car((V69));          V70= car((V69));
585          goto T213;}          goto T213;}
586    goto T209;
587  T209:;  T209:;
588          V65= reverse((V68));}}          V65= reverse((V68));}}
589    goto T205;
590  T205:;  T205:;
591          base[4]= list(4,VV[23],(V64),cddr((V62)),(V65));          base[4]= list(4,VV[23],(V64),cddr((V62)),(V65));
592          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
593          return;}          return;}
594    goto T197;
595  T197:;  T197:;
596          V74= (*(LnkLI146))((V62),(V60),(V61));          V74= (*(LnkLI146))((V62),(V60),(V61));
597          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V74);          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V74);
598          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
599          return;          return;
600    goto T193;
601  T193:;  T193:;
602          {object V75;          {object V75;
603          V62= get((V60),VV[26],Cnil);          V62= get((V60),VV[26],Cnil);
# Line 537  T193:; Line 605  T193:;
605          goto T239;}          goto T239;}
606          V75= Cnil;          V75= Cnil;
607          goto T238;          goto T238;
608    goto T239;
609  T239:;  T239:;
610          if(((*(LnkLI147))((V60)))!=Cnil){          if(((*(LnkLI147))((V60)))!=Cnil){
611          goto T242;}          goto T242;}
612          V75= Cnil;          V75= Cnil;
613          goto T238;          goto T238;
614    goto T242;
615  T242:;  T242:;
616          V75= (          V75= (
617          (type_of((V62)) == t_sfun ?(*(object (*)())(((V62))->sfn.sfn_self)):          (type_of((V62)) == t_sfun ?(*(object (*)())(((V62))->sfn.sfn_self)):
618          (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));          (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));
619    goto T238;
620  T238:;  T238:;
621          if(((V75))==Cnil){          if(((V75))==Cnil){
622          goto T245;}          goto T245;}
623          base[2]= (V75);          base[2]= (V75);
624          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
625          return;          return;
626    goto T245;
627  T245:;  T245:;
628          V62= get((V60),VV[27],Cnil);          V62= get((V60),VV[27],Cnil);
629          if(((V62))==Cnil){          if(((V62))==Cnil){
# Line 562  T245:; Line 634  T245:;
634          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
635          super_funcall_no_event((V62));          super_funcall_no_event((V62));
636          return;          return;
637    goto T248;
638  T248:;  T248:;
639          V62= get((V60),VV[28],Cnil);          V62= get((V60),VV[28],Cnil);
640          if(((V62))==Cnil){          if(((V62))==Cnil){
# Line 580  T248:; Line 653  T248:;
653          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
654          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
655          return;          return;
656    goto T255;
657  T255:;  T255:;
658          {object V76;          {object V76;
659          base[2]= (V60);          base[2]= (V60);
# Line 595  T255:; Line 669  T255:;
669          if((V77)==(V78)){          if((V77)==(V78)){
670          goto T268;}          goto T268;}
671          goto T267;          goto T267;
672    goto T268;
673  T268:;  T268:;
674          base[2]= (V60);          base[2]= (V60);
675          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 604  T268:; Line 679  T268:;
679          if((V79)==Cnil){          if((V79)==Cnil){
680          goto T274;}          goto T274;}
681          goto T267;          goto T267;
682    goto T274;
683  T274:;  T274:;
684          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[30],(V60))));          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[30],(V60))));
685    goto T267;
686  T267:;  T267:;
687          if(symbol_value(VV[31])==Cnil){          if(symbol_value(VV[31])==Cnil){
688          goto T278;}          goto T278;}
689          (void)((*(LnkLI32))(VV[32],(V60)));          (void)((*(LnkLI32))(VV[32],(V60)));
690    goto T278;
691  T278:;  T278:;
692          V76= Cnil;          V76= Cnil;
693          if(((V76))==Cnil){          if(((V76))==Cnil){
# Line 617  T278:; Line 695  T278:;
695          base[2]= (V76);          base[2]= (V76);
696          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
697          return;          return;
698    goto T280;
699  T280:;  T280:;
700          base[2]= (V60);          base[2]= (V60);
701          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 629  T280:; Line 708  T280:;
708          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V80);          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V80);
709          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
710          return;          return;
711    goto T283;
712  T283:;  T283:;
713          V62= get((V60),VV[33],Cnil);          V62= get((V60),VV[33],Cnil);
714          if(((V62))==Cnil){          if(((V62))==Cnil){
# Line 642  T283:; Line 722  T283:;
722          base[2]= (*(LnkLI123))(V81);          base[2]= (*(LnkLI123))(V81);
723          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
724          return;          return;
725    goto T288;
726  T288:;  T288:;
727          V62= get((V60),VV[36],Cnil);          V62= get((V60),VV[36],Cnil);
728          if(((V62))==Cnil){          if(((V62))==Cnil){
# Line 662  T288:; Line 743  T288:;
743          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V84);          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V84);
744          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
745          return;          return;
746    goto T307;
747  T307:;  T307:;
748          if((V83!= VV[113]))goto T308;          if((V83!= VV[113]))goto T308;
749          V85= list(3,VV[38],cdr((V62)),car((V61)));          V85= list(3,VV[38],cdr((V62)),car((V61)));
750          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V85);          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V85);
751          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
752          return;          return;
753    goto T308;
754  T308:;  T308:;
755          base[2]= (*(LnkLI149))(car((V61)),car((V62)),cdr((V62)));          base[2]= (*(LnkLI149))(car((V61)),car((V62)),cdr((V62)));
756          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
757          return;}          return;}
758    goto T294;
759  T294:;  T294:;
760          if(!(((V60))==(VV[5]))){          if(!(((V60))==(VV[5]))){
761          goto T310;}          goto T310;}
762          base[2]= (VFUN_NARGS=1,(*(LnkLI135))(VV[39]));          base[2]= (VFUN_NARGS=1,(*(LnkLI135))(VV[39]));
763          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
764          return;          return;
765    goto T310;
766  T310:;  T310:;
767          {object V86;          {object V86;
768          object V87;          object V87;
# Line 692  T310:; Line 777  T310:;
777          goto T320;}          goto T320;}
778          V89= Cnil;          V89= Cnil;
779          goto T315;          goto T315;
780    goto T320;
781  T320:;  T320:;
782          (void)(structure_set((V86),VV[25],2,(V89)));}          (void)(structure_set((V86),VV[25],2,(V89)));}
783    goto T315;
784  T315:;  T315:;
785          {register object V90;          {register object V90;
786          V90= (*(LnkLI151))((V60));          V90= (*(LnkLI151))((V60));
# Line 705  T315:; Line 792  T315:;
792          V91= (V87);          V91= (V87);
793          V92= Cnil;          V92= Cnil;
794          V93= (V61);          V93= (V61);
795    goto T328;
796  T328:;  T328:;
797          if(!(endp((V91)))){          if(!(endp((V91)))){
798          goto T329;}          goto T329;}
799          V87= reverse((V92));          V87= reverse((V92));
800          goto T323;          goto T323;
801    goto T329;
802  T329:;  T329:;
803          if(!(endp((V90)))){          if(!(endp((V90)))){
804          goto T336;}          goto T336;}
805          V92= make_cons(car((V91)),(V92));          V92= make_cons(car((V91)),(V92));
806          goto T334;          goto T334;
807    goto T336;
808  T336:;  T336:;
809          V94= (*(LnkLI145))(car((V90)),car((V91)),car((V93)));          V94= (*(LnkLI145))(car((V90)),car((V91)),car((V93)));
810          V92= make_cons(/* INLINE-ARGS */V94,(V92));          V92= make_cons(/* INLINE-ARGS */V94,(V92));
811          {object V95;          {object V95;
812          V95= car((V90));          V95= car((V90));
813          V90= cdr((V90));}          V90= cdr((V90));}
814    goto T334;
815  T334:;  T334:;
816          V91= cdr((V91));          V91= cdr((V91));
817          V93= cdr((V93));          V93= cdr((V93));
818          goto T328;}}          goto T328;}}
819    goto T323;
820  T323:;  T323:;
821          {register object V96;          {register object V96;
822          V96= get((V60),VV[42],Cnil);          V96= get((V60),VV[42],Cnil);
# Line 734  T323:; Line 826  T323:;
826          object V98;          object V98;
827          V97= (V87);          V97= (V87);
828          V98= (V61);          V98= (V61);
829    goto T353;
830  T353:;  T353:;
831          if(endp((V96))){          if(endp((V96))){
832          goto T355;}          goto T355;}
833          if(!(endp((V97)))){          if(!(endp((V97)))){
834          goto T354;}          goto T354;}
835    goto T355;
836  T355:;  T355:;
837          goto T348;          goto T348;
838    goto T354;
839  T354:;  T354:;
840          (void)((*(LnkLI152))(car((V96)),car((V97)),car((V98))));          (void)((*(LnkLI152))(car((V96)),car((V97)),car((V98))));
841          {object V99;          {object V99;
# Line 749  T354:; Line 844  T354:;
844          V97= cdr((V97));          V97= cdr((V97));
845          V98= cdr((V98));          V98= cdr((V98));
846          goto T353;}}          goto T353;}}
847    goto T348;
848  T348:;  T348:;
849          {object V100= (V60);          {object V100= (V60);
850          if((V100!= VV[153]))goto T370;          if((V100!= VV[153]))goto T370;
# Line 759  T348:; Line 855  T348:;
855          V101= VV[44];          V101= VV[44];
856          if((VV[44])!=Cnil){          if((VV[44])!=Cnil){
857          goto T372;}          goto T372;}
858    goto T373;
859  T373:;  T373:;
860          if(!(type_of((V101))==t_cons)){          if(!(type_of((V101))==t_cons)){
861          goto T369;}          goto T369;}
# Line 766  T373:; Line 863  T373:;
863          goto T380;}          goto T380;}
864          if(!((car((V101)))==(VV[46]))){          if(!((car((V101)))==(VV[46]))){
865          goto T369;}          goto T369;}
866    goto T380;
867  T380:;  T380:;
868          V101= cadr((V101));          V101= cadr((V101));
869          if(((V101))==Cnil){          if(((V101))==Cnil){
870          goto T369;}          goto T369;}
871    goto T372;
872  T372:;  T372:;
873          V102= structure_ref((V86),VV[25],2);          V102= structure_ref((V86),VV[25],2);
874          V101= (*(LnkLI154))(/* INLINE-ARGS */V102,(V101));          V101= (*(LnkLI154))(/* INLINE-ARGS */V102,(V101));
# Line 777  T372:; Line 876  T372:;
876          goto T388;}          goto T388;}
877          V103= make_cons((V60),(V61));          V103= make_cons((V60),(V61));
878          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[47],/* INLINE-ARGS */V103)));          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[47],/* INLINE-ARGS */V103)));
879    goto T388;
880  T388:;  T388:;
881          (void)(structure_set((V86),VV[25],2,(V101)));          (void)(structure_set((V86),VV[25],2,(V101)));
882          goto T369;}          goto T369;}
883    goto T370;
884  T370:;  T370:;
885          if((V100!= VV[155]))goto T391;          if((V100!= VV[155]))goto T391;
886          {object V104;          {object V104;
# Line 789  T370:; Line 890  T370:;
890          V104= VV[44];          V104= VV[44];
891          if((VV[44])!=Cnil){          if((VV[44])!=Cnil){
892          goto T393;}          goto T393;}
893    goto T394;
894  T394:;  T394:;
895          if(!(type_of((V104))==t_cons)){          if(!(type_of((V104))==t_cons)){
896          goto T369;}          goto T369;}
# Line 796  T394:; Line 898  T394:;
898          goto T401;}          goto T401;}
899          if(!((car((V104)))==(VV[46]))){          if(!((car((V104)))==(VV[46]))){
900          goto T369;}          goto T369;}
901    goto T401;
902  T401:;  T401:;
903          V104= cadr((V104));          V104= cadr((V104));
904          if(((V104))==Cnil){          if(((V104))==Cnil){
905          goto T369;}          goto T369;}
906    goto T393;
907  T393:;  T393:;
908          V105= structure_ref((V86),VV[25],2);          V105= structure_ref((V86),VV[25],2);
909          base[4]= (V87);          base[4]= (V87);
# Line 814  T393:; Line 918  T393:;
918          goto T411;}          goto T411;}
919          V109= make_cons((V60),(V61));          V109= make_cons((V60),(V61));
920          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[48],/* INLINE-ARGS */V109)));          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[48],/* INLINE-ARGS */V109)));
921    goto T411;
922  T411:;  T411:;
923          (void)(structure_set((V86),VV[25],2,(V104)));          (void)(structure_set((V86),VV[25],2,(V104)));
924          base[4]= (V87);          base[4]= (V87);
# Line 823  T411:; Line 928  T411:;
928          V110= vs_base[0];          V110= vs_base[0];
929          (void)(structure_set(cadar(V110),VV[25],2,(V104)));          (void)(structure_set(cadar(V110),VV[25],2,(V104)));
930          goto T369;}          goto T369;}
931    goto T391;
932  T391:;}  T391:;}
933    goto T369;
934  T369:;  T369:;
935          {object V111;          {object V111;
936          base[4]= (V60);          base[4]= (V60);
# Line 833  T369:; Line 940  T369:;
940          base[5]= Cnil;          base[5]= Cnil;
941          goto T420;}          goto T420;}
942          base[6]=V112=MMcons(Cnil,Cnil);          base[6]=V112=MMcons(Cnil,Cnil);
943    goto T421;
944  T421:;  T421:;
945          (V112->c.c_car)= structure_ref(cadr((V113->c.c_car)),VV[25],2);          (V112->c.c_car)= structure_ref(cadr((V113->c.c_car)),VV[25],2);
946          if(endp(V113=MMcdr(V113))){          if(endp(V113=MMcdr(V113))){
# Line 840  T421:; Line 948  T421:;
948          goto T420;}          goto T420;}
949          V112=MMcdr(V112)=MMcons(Cnil,Cnil);          V112=MMcdr(V112)=MMcons(Cnil,Cnil);
950          goto T421;}          goto T421;}
951    goto T420;
952  T420:;  T420:;
953          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
954          (void) (*Lnk156)();          (void) (*Lnk156)();
# Line 850  T420:; Line 959  T420:;
959          V115= structure_ref((V86),VV[25],2);          V115= structure_ref((V86),VV[25],2);
960          V111= (*(LnkLI154))((V111),/* INLINE-ARGS */V115);          V111= (*(LnkLI154))((V111),/* INLINE-ARGS */V115);
961          (void)(structure_set((V86),VV[25],2,(V111)));}          (void)(structure_set((V86),VV[25],2,(V111)));}
962    goto T417;
963  T417:;  T417:;
964          base[4]= list(4,VV[49],(V86),(V60),(V87));          base[4]= list(4,VV[49],(V86),(V60),(V87));
965          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 862  static object LI13(V117) Line 972  static object LI13(V117)
972    
973  object V117;  object V117;
974  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
975    goto TTL;
976  TTL:;  TTL:;
977          {register object V118;          {register object V118;
978          register object V119;          register object V119;
# Line 869  TTL:; Line 980  TTL:;
980          V119= Cnil;          V119= Cnil;
981          {register object V120;          {register object V120;
982          V120= (V117);          V120= (V117);
983    goto T430;
984  T430:;  T430:;
985          if(((V120))!=Cnil){          if(((V120))!=Cnil){
986          goto T431;}          goto T431;}
987          {object V121 = (V118);          {object V121 = (V118);
988          VMR13(V121)}          VMR13(V121)}
989    goto T431;
990  T431:;  T431:;
991          base[0]= car((V120));          base[0]= car((V120));
992          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 895  type_of((V119))==t_complex){ Line 1008  type_of((V119))==t_complex){
1008          goto T436;}          goto T436;}
1009          if(!(type_of((V119))==t_character)){          if(!(type_of((V119))==t_character)){
1010          goto T435;}          goto T435;}
1011    goto T436;
1012  T436:;  T436:;
1013          V118= Ct;          V118= Ct;
1014          {register object V122;          {register object V122;
# Line 903  T436:; Line 1017  T436:;
1017          V123= (V119);          V123= (V119);
1018          if(type_of((V122))!=t_cons)FEwrong_type_argument(Scons,(V122));          if(type_of((V122))!=t_cons)FEwrong_type_argument(Scons,(V122));
1019          ((V122))->c.c_car = (V123);}          ((V122))->c.c_car = (V123);}
1020    goto T435;
1021  T435:;  T435:;
1022          V120= cdr((V120));          V120= cdr((V120));
1023          goto T430;}}          goto T430;}}
1024            base[0]=base[0];
1025            return Cnil;
1026  }  }
1027  /*      local entry for function C1LAMBDA-FUN   */  /*      local entry for function C1LAMBDA-FUN   */
1028    
# Line 913  static object LI14(V126,V127) Line 1030  static object LI14(V126,V127)
1030    
1031  register object V126;object V127;  register object V126;object V127;
1032  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1033    goto TTL;
1034  TTL:;  TTL:;
1035          {object V128;          {object V128;
1036          V128= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct));          V128= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct));
# Line 921  TTL:; Line 1039  TTL:;
1039          (void)((*(LnkLI124))((V128),cadr((V126))));          (void)((*(LnkLI124))((V128),cadr((V126))));
1040          {object V129 = list(4,VV[50],(V128),(V126),(V127));          {object V129 = list(4,VV[50],(V128),(V126),(V127));
1041          VMR14(V129)}}          VMR14(V129)}}
1042            base[0]=base[0];
1043            return Cnil;
1044  }  }
1045  /*      function definition for C2EXPR  */  /*      function definition for C2EXPR  */
1046    
1047  static L15()  static void L15()
1048  {register object *base=vs_base;  {register object *base=vs_base;
1049          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
1050          vs_reserve(VM15);          vs_reserve(VM15);
# Line 933  static L15() Line 1053  static L15()
1053          check_arg(1);          check_arg(1);
1054          V130=(base[0]);          V130=(base[0]);
1055          vs_top=sup;          vs_top=sup;
1056    goto TTL;
1057  TTL:;  TTL:;
1058          if(!((car((V130)))==(VV[49]))){          if(!((car((V130)))==(VV[49]))){
1059          goto T460;}          goto T460;}
# Line 942  TTL:; Line 1063  TTL:;
1063          base[1]= (*(LnkLI158))(/* INLINE-ARGS */V131,/* INLINE-ARGS */V132,Cnil,/* INLINE-ARGS */V133);          base[1]= (*(LnkLI158))(/* INLINE-ARGS */V131,/* INLINE-ARGS */V132,Cnil,/* INLINE-ARGS */V133);
1064          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1065          return;          return;
1066    goto T460;
1067  T460:;  T460:;
1068          if((car((V130)))==(VV[51])){          if((car((V130)))==(VV[51])){
1069          goto T462;}          goto T462;}
1070          if(!((car((V130)))==(VV[52]))){          if(!((car((V130)))==(VV[52]))){
1071          goto T463;}          goto T463;}
1072    goto T462;
1073  T462:;  T462:;
1074          base[1]= (*(LnkLI159))(cadr((V130)));          base[1]= (*(LnkLI159))(cadr((V130)));
1075          bds_bind(VV[53],base[1]);          bds_bind(VV[53],base[1]);
# Line 960  T462:; Line 1083  T462:;
1083          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
1084          bds_unwind1;          bds_unwind1;
1085          return;          return;
1086    goto T463;
1087  T463:;  T463:;
1088          {register object V135;          {register object V135;
1089          V135= get(car((V130)),VV[54],Cnil);          V135= get(car((V130)),VV[54],Cnil);
# Line 974  T463:; Line 1098  T463:;
1098          vs_base=base+2;}          vs_base=base+2;}
1099          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
1100          return;          return;
1101    goto T472;
1102  T472:;  T472:;
1103          V135= get(car((V130)),VV[55],Cnil);          V135= get(car((V130)),VV[55],Cnil);
1104          if(((V135))==Cnil){          if(((V135))==Cnil){
# Line 982  T472:; Line 1107  T472:;
1107          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1108          super_funcall_no_event((V135));          super_funcall_no_event((V135));
1109          return;          return;
1110    goto T477;
1111  T477:;  T477:;
1112          base[1]= (*(LnkLI160))();          base[1]= (*(LnkLI160))();
1113          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 995  static object LI16(V140,V141,V142) Line 1121  static object LI16(V140,V141,V142)
1121  object V140;object V141;object V142;  object V140;object V141;object V142;
1122  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1123          bds_check;          bds_check;
1124    goto TTL;
1125  TTL:;  TTL:;
1126          {object V143;          {object V143;
1127          object V144;          object V144;
# Line 1014  TTL:; Line 1141  TTL:;
1141          {object V147 = (*(LnkLI163))();          {object V147 = (*(LnkLI163))();
1142          bds_unwind1;          bds_unwind1;
1143          VMR16(V147)}}          VMR16(V147)}}
1144            base[0]=base[0];
1145            return Cnil;
1146  }  }
1147  /*      local entry for function C2EXPR*        */  /*      local entry for function C2EXPR*        */
1148    
# Line 1022  static object LI17(V149) Line 1151  static object LI17(V149)
1151  object V149;  object V149;
1152  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1153          bds_check;          bds_check;
1154    goto TTL;
1155  TTL:;  TTL:;
1156          setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));          setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));
1157          bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));          bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));
# Line 1032  TTL:; Line 1162  TTL:;
1162          vs_top=sup;          vs_top=sup;
1163          if((cdr((VV[59]->s.s_dbind)))==Cnil){          if((cdr((VV[59]->s.s_dbind)))==Cnil){
1164          goto T497;}          goto T497;}
1165            princ_str("\ngoto T",VV[62]);
1166            (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));
1167            princ_char(59,VV[62]);
1168          princ_str("\nT",VV[62]);          princ_str("\nT",VV[62]);
1169          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));
1170          princ_str(":;",VV[62]);          princ_str(":;",VV[62]);
# Line 1039  TTL:; Line 1172  TTL:;
1172          bds_unwind1;          bds_unwind1;
1173          bds_unwind1;          bds_unwind1;
1174          VMR17(V150)}          VMR17(V150)}
1175    goto T497;
1176  T497:;  T497:;
1177          {object V151 = Cnil;          {object V151 = Cnil;
1178          bds_unwind1;          bds_unwind1;
1179          bds_unwind1;          bds_unwind1;
1180          VMR17(V151)}          VMR17(V151)}
1181            base[0]=base[0];
1182            return Cnil;
1183  }  }
1184  /*      local entry for function C2EXPR-TOP     */  /*      local entry for function C2EXPR-TOP     */
1185    
# Line 1052  static object LI18(V154,V155) Line 1188  static object LI18(V154,V155)
1188  object V154;object V155;  object V154;object V155;
1189  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1190          bds_check;          bds_check;
1191    goto TTL;
1192  TTL:;  TTL:;
1193          bds_bind(VV[63],small_fixnum(0));          bds_bind(VV[63],small_fixnum(0));
1194          bds_bind(VV[64],small_fixnum(0));          bds_bind(VV[64],small_fixnum(0));
# Line 1069  TTL:; Line 1206  TTL:;
1206          princ_str("\n   register object *sup=vs_base+VM",VV[62]);          princ_str("\n   register object *sup=vs_base+VM",VV[62]);
1207          (void)((*(LnkLI165))((VV[67]->s.s_dbind)));          (void)((*(LnkLI165))((VV[67]->s.s_dbind)));
1208          princ_char(59,VV[62]);          princ_char(59,VV[62]);
1209            princ_str("\n   base",VV[62]);
1210            V157= one_minus((VV[65]->s.s_dbind));
1211            (void)((*(LnkLI165))(/* INLINE-ARGS */V157));
1212            princ_str("[0]=base",VV[62]);
1213            V158= one_minus((VV[65]->s.s_dbind));
1214            (void)((*(LnkLI165))(/* INLINE-ARGS */V158));
1215            princ_str("[0];",VV[62]);
1216            princ_str("\n   base[0]=base[0];",VV[62]);
1217          if((symbol_value(VV[69]))==Cnil){          if((symbol_value(VV[69]))==Cnil){
1218          goto T521;}          goto T533;}
1219          princ_str("\n   vs_reserve(VM",VV[62]);          princ_str("\n   vs_reserve(VM",VV[62]);
1220          (void)((*(LnkLI165))((VV[67]->s.s_dbind)));          (void)((*(LnkLI165))((VV[67]->s.s_dbind)));
1221          princ_str(");",VV[62]);          princ_str(");",VV[62]);
1222          goto T519;          goto T531;
1223  T521:;  goto T533;
1224    T533:;
1225          princ_str("\n   vs_check;",VV[62]);          princ_str("\n   vs_check;",VV[62]);
1226  T519:;  goto T531;
1227    T531:;
1228          princ_str("\n   ",VV[62]);          princ_str("\n   ",VV[62]);
1229          (void)((*(LnkLI166))());          (void)((*(LnkLI166))());
1230          base[4]= (V154);          base[4]= (V154);
1231          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1232          (void) (*Lnk164)();          (void) (*Lnk164)();
1233          vs_top=sup;          vs_top=sup;
1234          V157= make_cons((VV[67]->s.s_dbind),(VV[64]->s.s_dbind));          V159= make_cons((VV[67]->s.s_dbind),(VV[64]->s.s_dbind));
1235          setq(VV[70],make_cons(/* INLINE-ARGS */V157,symbol_value(VV[70])));          setq(VV[70],make_cons(/* INLINE-ARGS */V159,symbol_value(VV[70])));
1236          princ_str("\n   }}",VV[62]);          princ_str("\n   }}",VV[62]);
1237          {object V158 = Cnil;          {object V160 = Cnil;
1238          bds_unwind1;          bds_unwind1;
1239          bds_unwind1;          bds_unwind1;
1240          bds_unwind1;          bds_unwind1;
1241          bds_unwind1;          bds_unwind1;
1242          VMR18(V158)}          VMR18(V160)}
1243            base[0]=base[0];
1244            return Cnil;
1245  }  }
1246  /*      local entry for function C2EXPR-TOP*    */  /*      local entry for function C2EXPR-TOP*    */
1247    
1248  static object LI19(V161,V162)  static object LI19(V163,V164)
1249    
1250  object V161;object V162;  object V163;object V164;
1251  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1252          bds_check;          bds_check;
1253    goto TTL;
1254  TTL:;  TTL:;
1255          setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));          setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));
1256          bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));          bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));
1257          bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61])));          bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61])));
1258          (void)((*(LnkLI167))((V161),(V162)));          (void)((*(LnkLI167))((V163),(V164)));
1259          if((cdr((VV[59]->s.s_dbind)))==Cnil){          if((cdr((VV[59]->s.s_dbind)))==Cnil){
1260          goto T539;}          goto T551;}
1261            princ_str("\ngoto T",VV[62]);
1262            (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));
1263            princ_char(59,VV[62]);
1264          princ_str("\nT",VV[62]);          princ_str("\nT",VV[62]);
1265          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));
1266          princ_str(":;",VV[62]);          princ_str(":;",VV[62]);
1267          {object V163 = Cnil;          {object V165 = Cnil;
1268          bds_unwind1;          bds_unwind1;
1269          bds_unwind1;          bds_unwind1;
1270          VMR19(V163)}          VMR19(V165)}
1271  T539:;  goto T551;
1272          {object V164 = Cnil;  T551:;
1273            {object V166 = Cnil;
1274          bds_unwind1;          bds_unwind1;
1275          bds_unwind1;          bds_unwind1;
1276          VMR19(V164)}          VMR19(V166)}
1277            base[0]=base[0];
1278            return Cnil;
1279  }  }
1280  /*      local entry for function C1PROGN        */  /*      local entry for function C1PROGN        */
1281    
1282  static object LI20(V166)  static object LI20(V168)
1283    
1284  register object V166;  register object V168;
1285  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1286    goto TTL;
1287  TTL:;  TTL:;
1288          {register object V167;          {register object V169;
1289          V167= Cnil;          V169= Cnil;
1290          if(!(endp((V166)))){          if(!(endp((V168)))){
1291          goto T546;}          goto T562;}
1292          {object V168 = (*(LnkLI125))();          {object V170 = (*(LnkLI125))();
1293          VMR20(V168)}          VMR20(V170)}
1294  T546:;  goto T562;
1295          if(!(endp(cdr((V166))))){  T562:;
1296          goto T549;}          if(!(endp(cdr((V168))))){
1297          {object V169 = (*(LnkLI123))(car((V166)));          goto T565;}
1298          VMR20(V169)}          {object V171 = (*(LnkLI123))(car((V168)));
1299  T549:;          VMR20(V171)}
1300          {register object V170;  goto T565;
1301          V170= (VFUN_NARGS=0,(*(LnkLI127))());  T565:;
1302          {register object V171;          {register object V172;
1303          register object V172;          V172= (VFUN_NARGS=0,(*(LnkLI127))());
1304          V171= (V166);          {register object V173;
1305          V172= car((V171));          register object V174;
1306  T556:;          V173= (V168);
1307          if(!(endp((V171)))){          V174= car((V173));
1308          goto T557;}  goto T572;
1309          goto T552;  T572:;
1310  T557:;          if(!(endp((V173)))){
1311          V172= (*(LnkLI123))((V172));          goto T573;}
1312          V167= make_cons((V172),(V167));          goto T568;
1313          (void)((*(LnkLI124))((V170),cadr((V172))));  goto T573;
1314          V171= cdr((V171));  T573:;
1315          V172= car((V171));          V174= (*(LnkLI123))((V174));
1316          goto T556;}          V169= make_cons((V174),(V169));
1317  T552:;          (void)((*(LnkLI124))((V172),cadr((V174))));
1318          V173= structure_ref(cadar((V167)),VV[25],2);          V173= cdr((V173));
1319          (void)(structure_set((V170),VV[25],2,/* INLINE-ARGS */V173));          V174= car((V173));
1320          {object V174 = list(3,VV[71],(V170),reverse((V167)));          goto T572;}
1321          VMR20(V174)}}}  goto T568;
1322    T568:;
1323            V175= structure_ref(cadar((V169)),VV[25],2);
1324            (void)(structure_set((V172),VV[25],2,/* INLINE-ARGS */V175));
1325            {object V176 = list(3,VV[71],(V172),reverse((V169)));
1326            VMR20(V176)}}}
1327            base[0]=base[0];
1328            return Cnil;
1329  }  }
1330  /*      local entry for function C1PROGN*       */  /*      local entry for function C1PROGN*       */
1331    
1332  static object LI21(V177,V178)  static object LI21(V179,V180)
1333    
1334  register object V177;object V178;  register object V179;object V180;
1335  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1336    goto TTL;
1337  TTL:;  TTL:;
1338          V177= (*(LnkLI168))((V177));          V179= (*(LnkLI168))((V179));
1339          (void)((*(LnkLI124))((V178),cadr((V177))));          (void)((*(LnkLI124))((V180),cadr((V179))));
1340          {object V179 = (V177);          {object V181 = (V179);
1341          VMR21(V179)}          VMR21(V181)}
1342            return Cnil;
1343  }  }
1344  /*      function definition for C2PROGN */  /*      function definition for C2PROGN */
1345    
1346  static L22()  static void L22()
1347  {register object *base=vs_base;  {register object *base=vs_base;
1348          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1349          vs_reserve(VM22);          vs_reserve(VM22);
1350          bds_check;          bds_check;
1351          {object V180;          {object V182;
1352          check_arg(1);          check_arg(1);
1353          V180=(base[0]);          V182=(base[0]);
1354          vs_top=sup;          vs_top=sup;
1355    goto TTL;
1356  TTL:;  TTL:;
1357          {register object V181;          {register object V183;
1358          V181= (V180);          V183= (V182);
1359  T576:;  goto T592;
1360          if(!(endp(cdr((V181))))){  T592:;
1361          goto T577;}          if(!(endp(cdr((V183))))){
1362          base[1]= car((V181));          goto T593;}
1363            base[1]= car((V183));
1364          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1365          (void) (*Lnk164)();          (void) (*Lnk164)();
1366          return;          return;
1367  T577:;  goto T593;
1368    T593:;
1369          bds_bind(VV[72],VV[73]);          bds_bind(VV[72],VV[73]);
1370          setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));          setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));
1371          bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));          bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));
1372          bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61])));          bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61])));
1373          base[4]= car((V181));          base[4]= car((V183));
1374          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1375          (void) (*Lnk164)();          (void) (*Lnk164)();
1376          vs_top=sup;          vs_top=sup;
# Line 1209  T577:; Line 1378  T577:;
1378          bds_unwind1;          bds_unwind1;
1379          bds_unwind1;          bds_unwind1;
1380          bds_unwind1;          bds_unwind1;
1381          goto T582;}          goto T598;}
1382            princ_str("\ngoto T",VV[62]);
1383            (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));
1384            princ_char(59,VV[62]);
1385          princ_str("\nT",VV[62]);          princ_str("\nT",VV[62]);
1386          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));
1387          princ_str(":;",VV[62]);          princ_str(":;",VV[62]);
1388          bds_unwind1;          bds_unwind1;
1389          bds_unwind1;          bds_unwind1;
1390          bds_unwind1;          bds_unwind1;
1391  T582:;  goto T598;
1392          V181= cdr((V181));  T598:;
1393          goto T576;}          V183= cdr((V183));
1394            goto T592;}
1395          }          }
1396  }  }
1397  /*      local entry for function C1ARGS */  /*      local entry for function C1ARGS */
1398    
1399  static object LI23(V184,V185)  static object LI23(V186,V187)
1400    
1401  object V184;object V185;  object V186;object V187;
1402  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1403    goto TTL;
1404  TTL:;  TTL:;
1405          {object V186;          {object V188;
1406          object V187= (V184);          object V189= (V186);
1407          if(endp(V187)){          if(endp(V189)){
1408          {object V188 = Cnil;          {object V190 = Cnil;
         VMR23(V188)}}  
         base[0]=V186=MMcons(Cnil,Cnil);  
 T596:;  
         (V186->c.c_car)= (*(LnkLI169))((V187->c.c_car),(V185));  
         if(endp(V187=MMcdr(V187))){  
         {object V190 = base[0];  
1409          VMR23(V190)}}          VMR23(V190)}}
1410          V186=MMcdr(V186)=MMcons(Cnil,Cnil);          base[0]=V188=MMcons(Cnil,Cnil);
1411          goto T596;}  goto T616;
1412    T616:;
1413            (V188->c.c_car)= (*(LnkLI169))((V189->c.c_car),(V187));
1414            if(endp(V189=MMcdr(V189))){
1415            {object V192 = base[0];
1416            VMR23(V192)}}
1417            V188=MMcdr(V188)=MMcons(Cnil,Cnil);
1418            goto T616;}
1419            base[0]=base[0];
1420            return Cnil;
1421  }  }
1422  /*      local entry for function C1STRUCTURE-REF        */  /*      local entry for function C1STRUCTURE-REF        */
1423    
1424  static object LI24(V192)  static object LI24(V194)
1425    
1426  register object V192;  register object V194;
1427  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1428    goto TTL;
1429  TTL:;  TTL:;
1430          if((symbol_value(VV[69]))!=Cnil){          if((symbol_value(VV[69]))!=Cnil){
1431          goto T599;}          goto T619;}
1432          if(endp((V192))){          if(endp((V194))){
1433          goto T599;}          goto T619;}
1434          if(endp(cdr((V192)))){          if(endp(cdr((V194)))){
1435          goto T599;}          goto T619;}
1436          if(!(type_of(cadr((V192)))==t_cons)){          if(!(type_of(cadr((V194)))==t_cons)){
1437          goto T599;}          goto T619;}
1438          if(!((caadr((V192)))==(VV[35]))){          if(!((caadr((V194)))==(VV[35]))){
1439          goto T599;}          goto T619;}
1440          if(endp(cdadr((V192)))){          if(endp(cdadr((V194)))){
1441          goto T599;}          goto T619;}
1442          if(!(type_of(cadadr((V192)))==t_symbol)){          if(!(type_of(cadadr((V194)))==t_symbol)){
1443          goto T599;}          goto T619;}
1444          if(!(endp(cddadr((V192))))){          if(!(endp(cddadr((V194))))){
1445          goto T599;}          goto T619;}
1446          if(endp(cddr((V192)))){          if(endp(cddr((V194)))){
1447          goto T599;}          goto T619;}
1448          if(!(type_of(caddr((V192)))==t_fixnum)){          if(!(type_of(caddr((V194)))==t_fixnum)){
1449          goto T599;}          goto T619;}
1450          if(!(endp(cdddr((V192))))){          if(!(endp(cdddr((V194))))){
1451          goto T599;}          goto T619;}
1452          {object V193 = (*(LnkLI149))(car((V192)),cadadr((V192)),caddr((V192)));          {object V195 = (*(LnkLI149))(car((V194)),cadadr((V194)),caddr((V194)));
1453          VMR24(V193)}          VMR24(V195)}
1454  T599:;  goto T619;
1455          {object V194;  T619:;
1456          V194= (VFUN_NARGS=0,(*(LnkLI127))());          {object V196;
1457          {object V195 = list(4,VV[49],(V194),VV[74],(*(LnkLI142))((V192),(V194)));          V196= (VFUN_NARGS=0,(*(LnkLI127))());
1458          VMR24(V195)}}          {object V197 = list(4,VV[49],(V196),VV[74],(*(LnkLI142))((V194),(V196)));
1459            VMR24(V197)}}
1460            return Cnil;
1461  }  }
1462  /*      local entry for function C1STRUCTURE-REF1       */  /*      local entry for function C1STRUCTURE-REF1       */
1463    
1464  static object LI25(V199,V200,V201)  static object LI25(V201,V202,V203)
1465    
1466  object V199;object V200;object V201;  object V201;object V202;object V203;
1467  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1468    goto TTL;
1469  TTL:;  TTL:;
1470          {object V202;          {object V204;
1471          V202= (VFUN_NARGS=0,(*(LnkLI127))());          V204= (VFUN_NARGS=0,(*(LnkLI127))());
1472          if((symbol_value(VV[69]))==Cnil){          if((symbol_value(VV[69]))==Cnil){
1473          goto T624;}          goto T644;}
1474          V203= list(4,VV[74],(V199),list(2,VV[35],(V200)),(V201));          V205= list(4,VV[74],(V201),list(2,VV[35],(V202)),(V203));
1475          {object V204 = (*(LnkLI123))(/* INLINE-ARGS */V203);          {object V206 = (*(LnkLI123))(/* INLINE-ARGS */V205);
1476          VMR25(V204)}          VMR25(V206)}
1477  T624:;  goto T644;
1478          {object V205;  T644:;
1479          object V206;          {object V207;
1480          V205= get((V200),VV[76],Cnil);          object V208;
1481          V207= structure_ref((V205),VV[76],2);          V207= get((V202),VV[76],Cnil);
1482          V206= aref1(/* INLINE-ARGS */V207,fixint((V201)));          V209= structure_ref((V207),VV[76],2);
1483          V208= aref1(symbol_value(VV[75]),fixint((V206)));          V208= aref1(/* INLINE-ARGS */V209,fixint((V203)));
1484          V209= (*(LnkLI170))(/* INLINE-ARGS */V208);          V210= aref1(symbol_value(VV[75]),fixint((V208)));
1485          (void)(structure_set((V202),VV[25],2,/* INLINE-ARGS */V209));          V211= (*(LnkLI170))(/* INLINE-ARGS */V210);
1486          V210= (*(LnkLI169))((V199),(V202));          (void)(structure_set((V204),VV[25],2,/* INLINE-ARGS */V211));
1487          V211= (*(LnkLI171))((V200));          V212= (*(LnkLI169))((V201),(V204));
1488          {object V212 = list(6,VV[77],(V202),/* INLINE-ARGS */V210,/* INLINE-ARGS */V211,(V201),(V205));          V213= (*(LnkLI171))((V202));
1489          VMR25(V212)}}}          {object V214 = list(6,VV[77],(V204),/* INLINE-ARGS */V212,/* INLINE-ARGS */V213,(V203),(V207));
1490            VMR25(V214)}}}
1491            base[0]=base[0];
1492            return Cnil;
1493  }  }
1494  /*      local entry for function COERCE-LOC-STRUCTURE-REF       */  /*      local entry for function COERCE-LOC-STRUCTURE-REF       */
1495    
1496  static object LI26(V215,V216)  static object LI26(V217,V218)
1497    
1498  object V215;object V216;  object V217;object V218;
1499  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1500    goto TTL;
1501  TTL:;  TTL:;
1502          {object V217;          {object V219;
1503          V217= cdr((V215));          V219= cdr((V217));
         {object V218;  
         object V219;  
         V218= cadddr((V217));  
         V219= caddr((V217));  
         if(((V218))==Cnil){  
         goto T633;}  
1504          {object V220;          {object V220;
1505          register object V221;          object V221;
1506          V222= structure_ref((V218),VV[76],2);          V220= cadddr((V219));
1507          V220= aref1(/* INLINE-ARGS */V222,fixint((V219)));          V221= caddr((V219));
1508          V221= aref1(symbol_value(VV[75]),fixint((V220)));          if(((V220))==Cnil){
1509          V223= (*(LnkLI170))((V221));          goto T653;}
1510          V224= (*(LnkLI172))(/* INLINE-ARGS */V223);          {object V222;
1511          if(!((/* INLINE-ARGS */V224)==(VV[78]))){          register object V223;
1512          goto T637;}          V224= structure_ref((V220),VV[76],2);
1513          if(!(eql((V220),small_fixnum(0)))){          V222= aref1(/* INLINE-ARGS */V224,fixint((V221)));
1514          goto T640;}          V223= aref1(symbol_value(VV[75]),fixint((V222)));
1515          goto T637;          V225= (*(LnkLI170))((V223));
1516  T640:;          V226= (*(LnkLI172))(/* INLINE-ARGS */V225);
1517            if(!((/* INLINE-ARGS */V226)==(VV[78]))){
1518            goto T657;}
1519            if(!(eql((V222),small_fixnum(0)))){
1520            goto T660;}
1521            goto T657;
1522    goto T660;
1523    T660:;
1524          base[5]= VV[79];          base[5]= VV[79];
1525          base[6]= (V221);          base[6]= (V223);
1526          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1527          Lerror();          Lerror();
1528          vs_top=sup;          vs_top=sup;
1529  T637:;  goto T657;
1530          V225= car((V215));  T657:;
1531          V226= (*(LnkLI170))((V221));          V227= car((V217));
1532          (void)(structure_set(/* INLINE-ARGS */V225,VV[25],2,/* INLINE-ARGS */V226));          V228= (*(LnkLI170))((V223));
1533          V227= (*(LnkLI170))((V221));          (void)(structure_set(/* INLINE-ARGS */V227,VV[25],2,/* INLINE-ARGS */V228));
1534          V228= (*(LnkLI172))(/* INLINE-ARGS */V227);          V229= (*(LnkLI170))((V223));
1535          V229= make_cons(car((V217)),Cnil);          V230= (*(LnkLI172))(/* INLINE-ARGS */V229);
1536          V230= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V229,VV[81]));          V231= make_cons(car((V219)),Cnil);
1537          V231= list(4,/* INLINE-ARGS */V228,small_fixnum(0),VV[80],list(4,car(/* INLINE-ARGS */V230),VV[82],(V219),(V218)));          V232= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V231,VV[81]));
1538          V232= (*(LnkLI170))((V216));          V233= list(4,/* INLINE-ARGS */V230,small_fixnum(0),VV[80],list(4,car(/* INLINE-ARGS */V232),VV[82],(V221),(V220)));
1539          {object V233 = (*(LnkLI173))(/* INLINE-ARGS */V231,/* INLINE-ARGS */V232);          V234= (*(LnkLI170))((V218));
1540          VMR26(V233)}}          {object V235 = (*(LnkLI173))(/* INLINE-ARGS */V233,/* INLINE-ARGS */V234);
1541  T633:;          VMR26(V235)}}
1542          {object V234 = (*(LnkLI175))();  goto T653;
1543          VMR26(V234)}}}  T653:;
1544            {object V236 = (*(LnkLI175))();
1545            VMR26(V236)}}}
1546            base[0]=base[0];
1547            return Cnil;
1548  }  }
1549  /*      local entry for function C2STRUCTURE-REF        */  /*      local entry for function C2STRUCTURE-REF        */
1550    
1551  static object LI27(V239,V240,V241,V242)  static object LI27(V241,V242,V243,V244)
1552    
1553  object V239;object V240;object V241;object V242;  object V241;object V242;object V243;object V244;
1554  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1555          bds_check;          bds_check;
1556    goto TTL;
1557  TTL:;  TTL:;
1558          bds_bind(VV[63],symbol_value(VV[63]));          bds_bind(VV[63],symbol_value(VV[63]));
1559          bds_bind(VV[56],small_fixnum(0));          bds_bind(VV[56],small_fixnum(0));
1560          {object V243;          {object V245;
1561          object V244;          object V246;
1562          V245= make_cons((V239),Cnil);          V247= make_cons((V241),Cnil);
1563          V246= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V245,VV[83]));          V248= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V247,VV[83]));
1564          V243= car(/* INLINE-ARGS */V246);{object V247;          V245= car(/* INLINE-ARGS */V248);{object V249;
1565          V247= symbol_value(VV[75]);          V249= symbol_value(VV[75]);
1566          V248= structure_ref((V242),VV[76],2);          V250= structure_ref((V244),VV[76],2);
1567          V249= aref1(/* INLINE-ARGS */V248,fixint((V241)));          V251= aref1(/* INLINE-ARGS */V250,fixint((V243)));
1568          V244= aref1(V247,fixint(/* INLINE-ARGS */V249));}          V246= aref1(V249,fixint(/* INLINE-ARGS */V251));}
1569          V250= (*(LnkLI170))((V244));          V252= (*(LnkLI170))((V246));
1570          V251= (*(LnkLI172))(/* INLINE-ARGS */V250);          V253= (*(LnkLI172))(/* INLINE-ARGS */V252);
1571          V252= list(4,/* INLINE-ARGS */V251,small_fixnum(0),VV[80],list(4,(V243),(V240),(V241),(V242)));          V254= list(4,/* INLINE-ARGS */V253,small_fixnum(0),VV[80],list(4,(V245),(V242),(V243),(V244)));
1572          (void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V252)));}          (void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V254)));}
1573          {object V253 = (*(LnkLI163))();          {object V255 = (*(LnkLI163))();
1574          bds_unwind1;          bds_unwind1;
1575          bds_unwind1;          bds_unwind1;
1576          VMR27(V253)}          VMR27(V255)}
1577            base[0]=base[0];
1578            return Cnil;
1579  }  }
1580  /*      local entry for function MY-CALL        */  /*      local entry for function MY-CALL        */
1581    
1582  static object LI28(V258,V259,V260,V261)  static object LI28(V260,V261,V262,V263)
1583    
1584  object V258;object V259;object V260;object V261;  object V260;object V261;object V262;object V263;
1585  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1586    goto TTL;
1587  TTL:;  TTL:;
1588          {object V262;          {object V264;
1589          object V263;          object V265;
1590          V262= structure_ref((V261),VV[76],2);          V264= structure_ref((V263),VV[76],2);
1591          V263= structure_ref((V261),VV[76],8);          V265= structure_ref((V263),VV[76],8);
1592          if((symbol_value(VV[69]))==Cnil){          if((symbol_value(VV[69]))==Cnil){
1593          goto T652;}          goto T672;}
1594          {object V264 = (*(LnkLI175))();          {object V266 = (*(LnkLI175))();
1595          VMR28(V264)}          VMR28(V266)}
1596  T652:;  goto T672;
1597          princ_str("STREF(",VV[62]);{object V265;  T672:;
1598          V265= symbol_value(VV[75]);          princ_str("STREF(",VV[62]);{object V267;
1599          V266= aref1((V262),fixint((V260)));          V267= symbol_value(VV[75]);
1600          V267= aref1(V265,fixint(/* INLINE-ARGS */V266));          V268= aref1((V264),fixint((V262)));
1601          V268= (*(LnkLI176))(/* INLINE-ARGS */V267);          V269= aref1(V267,fixint(/* INLINE-ARGS */V268));
1602          (void)((*(LnkLI165))(/* INLINE-ARGS */V268));}          V270= (*(LnkLI176))(/* INLINE-ARGS */V269);
1603            (void)((*(LnkLI165))(/* INLINE-ARGS */V270));}
1604          princ_char(44,VV[62]);          princ_char(44,VV[62]);
1605          (void)((*(LnkLI165))((V258)));          (void)((*(LnkLI165))((V260)));
1606          princ_char(44,VV[62]);          princ_char(44,VV[62]);
1607          V269= aref1((V263),fixint((V260)));          V271= aref1((V265),fixint((V262)));
1608          (void)((*(LnkLI165))(/* INLINE-ARGS */V269));          (void)((*(LnkLI165))(/* INLINE-ARGS */V271));
1609          princ_char(41,VV[62]);          princ_char(41,VV[62]);
1610          {object V270 = Cnil;          {object V272 = Cnil;
1611          VMR28(V270)}}          VMR28(V272)}}
1612            base[0]=base[0];
1613            return Cnil;
1614  }  }
1615  /*      local entry for function C1STRUCTURE-SET        */  /*      local entry for function C1STRUCTURE-SET        */
1616    
1617  static object LI29(V272)  static object LI29(V274)
1618    
1619  register object V272;  register object V274;
1620  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1621    goto TTL;
1622  TTL:;  TTL:;
1623          {register object V273;          {register object V275;
1624          V273= (VFUN_NARGS=0,(*(LnkLI127))());          V275= (VFUN_NARGS=0,(*(LnkLI127))());
1625          if(endp((V272))){          if(endp((V274))){
1626          goto T663;}          goto T683;}
1627          if((symbol_value(VV[69]))!=Cnil){          if((symbol_value(VV[69]))!=Cnil){
1628          goto T663;}          goto T683;}
1629          if(endp(cdr((V272)))){          if(endp(cdr((V274)))){
1630          goto T663;}          goto T683;}
1631          if(!(type_of(cadr((V272)))==t_cons)){          if(!(type_of(cadr((V274)))==t_cons)){
1632          goto T663;}          goto T683;}
1633          if(!((caadr((V272)))==(VV[35]))){          if(!((caadr((V274)))==(VV[35]))){
1634          goto T663;}          goto T683;}
1635          if(endp(cdadr((V272)))){          if(endp(cdadr((V274)))){
1636          goto T663;}          goto T683;}
1637          if(!(type_of(cadadr((V272)))==t_symbol)){          if(!(type_of(cadadr((V274)))==t_symbol)){
1638          goto T663;}          goto T683;}
1639          if(!(endp(cddadr((V272))))){          if(!(endp(cddadr((V274))))){
1640          goto T663;}          goto T683;}
1641          if(endp(cddr((V272)))){          if(endp(cddr((V274)))){
1642          goto T663;}          goto T683;}
1643          if(!(type_of(caddr((V272)))==t_fixnum)){          if(!(type_of(caddr((V274)))==t_fixnum)){
1644          goto T663;}          goto T683;}
1645          if(endp(cdddr((V272)))){          if(endp(cdddr((V274)))){
1646          goto T663;}          goto T683;}
1647          if(!(endp(cddddr((V272))))){          if(!(endp(cddddr((V274))))){
1648          goto T663;}          goto T683;}
1649          {object V274;          {object V276;
1650          object V275;          object V277;
1651          V274= (*(LnkLI123))(car((V272)));          V276= (*(LnkLI123))(car((V274)));
1652          V275= (*(LnkLI123))(cadddr((V272)));          V277= (*(LnkLI123))(cadddr((V274)));
1653          (void)((*(LnkLI124))((V273),cadr((V274))));          (void)((*(LnkLI124))((V275),cadr((V276))));
1654          (void)((*(LnkLI124))((V273),cadr((V275))));          (void)((*(LnkLI124))((V275),cadr((V277))));
1655          V276= structure_ref(cadr((V275)),VV[25],2);          V278= structure_ref(cadr((V277)),VV[25],2);
1656          (void)(structure_set((V273),VV[25],2,/* INLINE-ARGS */V276));          (void)(structure_set((V275),VV[25],2,/* INLINE-ARGS */V278));
1657          V277= (*(LnkLI171))(cadadr((V272)));          V279= (*(LnkLI171))(cadadr((V274)));
1658          V278= caddr((V272));          V280= caddr((V274));
1659          V279= get(cadadr((V272)),VV[76],Cnil);          V281= get(cadadr((V274)),VV[76],Cnil);
1660          {object V280 = list(7,VV[84],(V273),(V274),/* INLINE-ARGS */V277,/* INLINE-ARGS */V278,(V275),V279);          {object V282 = list(7,VV[84],(V275),(V276),/* INLINE-ARGS */V279,/* INLINE-ARGS */V280,(V277),V281);
1661          VMR29(V280)}}          VMR29(V282)}}
1662  T663:;  goto T683;
1663          {object V281 = list(4,VV[49],(V273),VV[85],(*(LnkLI142))((V272),(V273)));  T683:;
1664          VMR29(V281)}}          {object V283 = list(4,VV[49],(V275),VV[85],(*(LnkLI142))((V274),(V275)));
1665            VMR29(V283)}}
1666            base[0]=base[0];
1667            return Cnil;
1668  }  }
1669  /*      local entry for function C2STRUCTURE-SET        */  /*      local entry for function C2STRUCTURE-SET        */
1670    
1671  static object LI30(V287,V288,V289,V290,V291)  static object LI30(V289,V290,V291,V292,V293)
1672    
1673  object V287;object V288;object V289;object V290;object V291;  object V289;object V290;object V291;object V292;object V293;
1674  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1675          bds_check;          bds_check;
1676    goto TTL;
1677  TTL:;  TTL:;
1678          {object V292;          {object V294;
1679          V292= Cnil;          V294= Cnil;
1680          bds_bind(VV[63],symbol_value(VV[63]));          bds_bind(VV[63],symbol_value(VV[63]));
1681          bds_bind(VV[56],small_fixnum(0));          bds_bind(VV[56],small_fixnum(0));
1682          {object V293;          {object V295;
         object V294;  
         object V295;  
1683          object V296;          object V296;
1684          object V297;          object V297;
1685          object V298;          object V298;
1686          V293= structure_ref((V291),VV[76],2);{object V299;          object V299;
1687          V299= symbol_value(VV[75]);          object V300;
1688          V300= aref1((V293),fixint((V289)));          V295= structure_ref((V293),VV[76],2);{object V301;
1689          V294= aref1(V299,fixint(/* INLINE-ARGS */V300));}          V301= symbol_value(VV[75]);
1690          V295= structure_ref((V291),VV[76],8);          V302= aref1((V295),fixint((V291)));
1691          V296= (*(LnkLI170))((V294));          V296= aref1(V301,fixint(/* INLINE-ARGS */V302));}
1692          V297= Cnil;          V297= structure_ref((V293),VV[76],8);
1693          V298= Cnil;          V298= (*(LnkLI170))((V296));
1694          V301= (VFUN_NARGS=0,(*(LnkLI127))());          V299= Cnil;
1695          V302= list(3,(V287),(V290),list(4,VV[49],/* INLINE-ARGS */V301,VV[86],Cnil));          V300= Cnil;
1696          if(!(((V294))==(Ct))){          V303= (VFUN_NARGS=0,(*(LnkLI127))());
1697          goto T705;}          V304= list(3,(V289),(V292),list(4,VV[49],/* INLINE-ARGS */V303,VV[86],Cnil));
1698          V303= VV[87];          if(!(((V296))==(Ct))){
1699          goto T703;          goto T725;}
1700  T705:;          V305= VV[87];
1701          V303= list(3,Ct,(V296),Ct);          goto T723;
1702  T703:;  goto T725;
1703          V292= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V302,V303));  T725:;
1704          V297= car((V292));          V305= list(3,Ct,(V298),Ct);
1705          V298= cadr((V292));  goto T723;
1706    T723:;
1707            V294= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V304,V305));
1708            V299= car((V294));
1709            V300= cadr((V294));
1710          if((symbol_value(VV[69]))==Cnil){          if((symbol_value(VV[69]))==Cnil){
1711          goto T711;}          goto T731;}
1712          (void)((*(LnkLI175))());          (void)((*(LnkLI175))());
1713  T711:;  goto T731;
1714    T731:;
1715          princ_str("\n   STSET(",VV[62]);          princ_str("\n   STSET(",VV[62]);
1716          V304= (*(LnkLI176))((V294));          V306= (*(LnkLI176))((V296));
1717          (void)((*(LnkLI165))(/* INLINE-ARGS */V304));          (void)((*(LnkLI165))(/* INLINE-ARGS */V306));
1718          princ_char(44,VV[62]);          princ_char(44,VV[62]);
1719          (void)((*(LnkLI165))((V297)));          (void)((*(LnkLI165))((V299)));
1720          princ_char(44,VV[62]);          princ_char(44,VV[62]);
1721          V305= aref1((V295),fixint((V289)));          V307= aref1((V297),fixint((V291)));
1722          (void)((*(LnkLI165))(/* INLINE-ARGS */V305));          (void)((*(LnkLI165))(/* INLINE-ARGS */V307));
1723          princ_str(", ",VV[62]);          princ_str(", ",VV[62]);
1724          (void)((*(LnkLI165))((V298)));          (void)((*(LnkLI165))((V300)));
1725          princ_str(");",VV[62]);          princ_str(");",VV[62]);
1726          V306= (*(LnkLI172))((V296));          V308= (*(LnkLI172))((V298));
1727          V307= list(4,/* INLINE-ARGS */V306,small_fixnum(0),VV[88],make_cons((V298),Cnil));          V309= list(4,/* INLINE-ARGS */V308,small_fixnum(0),VV[88],make_cons((V300),Cnil));
1728          (void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V307)));          (void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V309)));
1729          {object V308 = (*(LnkLI163))();          {object V310 = (*(LnkLI163))();
1730          bds_unwind1;          bds_unwind1;
1731          bds_unwind1;          bds_unwind1;
1732          VMR30(V308)}}}          VMR30(V310)}}}
1733            base[0]=base[0];
1734            return Cnil;
1735  }  }
1736  /*      local entry for function C1CONSTANT-VALUE       */  /*      local entry for function C1CONSTANT-VALUE       */
1737    
1738  static object LI31(V311,V312)  static object LI31(V313,V314)
1739    
1740  register object V311;object V312;  register object V313;object V314;
1741  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1742    goto TTL;
1743  TTL:;  TTL:;
1744          if(!(((V311))==(Cnil))){          if(!(((V313))==(Cnil))){
1745          goto T726;}          goto T746;}
1746          {object V313 = (*(LnkLI125))();          {object V315 = (*(LnkLI125))();
1747          VMR31(V313)}          VMR31(V315)}
1748  T726:;  goto T746;
1749          if(!(((V311))==(Ct))){  T746:;
1750          goto T729;}          if(!(((V313))==(Ct))){
1751          {object V314 = (*(LnkLI126))();          goto T749;}
1752          VMR31(V314)}          {object V316 = (*(LnkLI126))();
1753  T729:;          VMR31(V316)}
1754          if(!(type_of((V311))==t_fixnum)){  goto T749;
1755          goto T732;}  T749:;
1756          V315= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[89]));          if(!(type_of((V313))==t_fixnum)){
1757          V317= (*(LnkLI177))((V311));          goto T752;}
1758          if(number_compare(/* INLINE-ARGS */V317,VV[91])>=0){          V317= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[89]));
1759          goto T735;}          V319= (*(LnkLI177))((V313));
1760          V316= Cnil;          if(number_compare(/* INLINE-ARGS */V319,VV[91])>=0){
1761          goto T734;          goto T755;}
1762  T735:;          V318= Cnil;
1763          V316= (*(LnkLI129))((V311));          goto T754;
1764  T734:;  goto T755;
1765          {object V318 = list(3,VV[1],/* INLINE-ARGS */V315,list(3,VV[90],V316,(V311)));  T755:;
1766          VMR31(V318)}          V318= (*(LnkLI129))((V313));
1767  T732:;  goto T754;
1768          if(!(type_of((V311))==t_character)){  T754:;
1769          goto T738;}          {object V320 = list(3,VV[1],/* INLINE-ARGS */V317,list(3,VV[90],V318,(V313)));
1770          V319= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[44]));          VMR31(V320)}
1771          V320= (*(LnkLI129))((V311));  goto T752;
1772          base[0]= (V311);  T752:;
1773            if(!(type_of((V313))==t_character)){
1774            goto T758;}
1775            V321= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[44]));
1776            V322= (*(LnkLI129))((V313));
1777            base[0]= (V313);
1778          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1779          Lchar_code();          Lchar_code();
1780          vs_top=sup;          vs_top=sup;
1781          V321= vs_base[0];          V323= vs_base[0];
1782          {object V322 = list(3,VV[1],/* INLINE-ARGS */V319,list(3,VV[92],/* INLINE-ARGS */V320,V321));          {object V324 = list(3,VV[1],/* INLINE-ARGS */V321,list(3,VV[92],/* INLINE-ARGS */V322,V323));
1783          VMR31(V322)}          VMR31(V324)}
1784  T738:;  goto T758;
1785          if(!(type_of((V311))==t_longfloat)){  T758:;
1786          goto T743;}          if(!(type_of((V313))==t_longfloat)){
1787          {object V323;          goto T763;}
1788          object V324;          {object V325;
1789          V323= Cnil;          object V326;
1790          V324= Cnil;          V325= Cnil;
1791          {register object x= (V311),V326= symbol_value(VV[93]);          V326= Cnil;
1792          while(!endp(V326))          {register object x= (V313),V328= symbol_value(VV[93]);
1793          if(type_of(V326->c.c_car)==t_cons &&eql(x,V326->c.c_car->c.c_car)){          while(!endp(V328))
1794          V325= (V326->c.c_car);          if(type_of(V328->c.c_car)==t_cons &&eql(x,V328->c.c_car->c.c_car)){
1795          goto T749;          V327= (V328->c.c_car);
1796          }else V326=V326->c.c_cdr;          goto T769;
1797          V325= Cnil;}          }else V328=V328->c.c_cdr;
1798  T749:;          V327= Cnil;}
1799          V323= cadr(V325);  goto T769;
1800          if(((V323))!=Cnil){  T769:;
1801          goto T745;}          V325= cadr(V327);
1802          V324= (*(LnkLI177))((V311));          if(((V325))!=Cnil){
1803            goto T765;}
1804            V326= (*(LnkLI177))((V313));
1805          base[0]= VV[94];          base[0]= VV[94];
1806          base[1]= small_fixnum(2);          base[1]= small_fixnum(2);
1807          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1808          Ldivide();          Ldivide();
1809          vs_top=sup;          vs_top=sup;
1810          V327= vs_base[0];          V329= vs_base[0];
1811          if(!(number_compare((V324),V327)>0)){          if(!(number_compare((V326),V329)>0)){
1812          goto T751;}          goto T771;}
1813          base[0]= (V311);          base[0]= (V313);
1814          base[1]= VV[94];          base[1]= VV[94];
1815          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1816          Ldivide();          Ldivide();
1817          vs_top=sup;          vs_top=sup;
1818          V328= vs_base[0];          V330= vs_base[0];
1819          V329= list(4,VV[5],VV[19],V328,VV[95]);          V331= list(4,VV[5],VV[19],V330,VV[95]);
1820          if(((*(LnkLI123))(/* INLINE-ARGS */V329))!=Cnil){          if(((*(LnkLI123))(/* INLINE-ARGS */V331))!=Cnil){
1821          goto T750;}          goto T770;}
1822  T751:;  goto T771;
1823          V330 = make_longfloat((double)(4.9406564584124650e-324)*(double)(1.0000000e+20));  T771:;
1824          if(!(number_compare((V324),V330)<0)){          V332 = make_longfloat((double)(4.9406564584124650e-324)*(double)(1.0000000e+20));
1825          goto T745;}          if(!(number_compare((V326),V332)<0)){
1826          base[0]= (V311);          goto T765;}
1827            base[0]= (V313);
1828          base[1]= VV[96];          base[1]= VV[96];
1829          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1830          Ldivide();          Ldivide();
1831          vs_top=sup;          vs_top=sup;
1832          V331= vs_base[0];          V333= vs_base[0];
1833          V332= list(4,VV[5],VV[19],V331,VV[98]);          V334= list(4,VV[5],VV[19],V333,VV[98]);
1834          if(((*(LnkLI123))(/* INLINE-ARGS */V332))==Cnil){          if(((*(LnkLI123))(/* INLINE-ARGS */V334))==Cnil){
1835          goto T745;}          goto T765;}
1836  T750:;  goto T770;
         V323= symbol_value(VV[99]);  
         V333= list(2,(V311),(V323));  
         setq(VV[93],make_cons(/* INLINE-ARGS */V333,symbol_value(VV[93])));  
 T745:;  
         V334= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[100]));  
         if((V323)!=Cnil){  
         V335= (V323);  
         goto T770;}  
         V335= (*(LnkLI129))((V311));  
1837  T770:;  T770:;
1838          {object V336 = list(3,VV[1],/* INLINE-ARGS */V334,list(3,VV[101],V335,(V311)));          V325= symbol_value(VV[99]);
1839          VMR31(V336)}}          V335= list(2,(V313),(V325));
1840  T743:;          setq(VV[93],make_cons(/* INLINE-ARGS */V335,symbol_value(VV[93])));
1841          if(!(type_of((V311))==t_shortfloat)){  goto T765;
1842          goto T772;}  T765:;
1843          V337= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[102]));          V336= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[100]));
1844          V338= (*(LnkLI129))((V311));          if((V325)!=Cnil){
1845          {object V339 = list(3,VV[1],/* INLINE-ARGS */V337,list(3,VV[103],/* INLINE-ARGS */V338,(V311)));          V337= (V325);
1846          VMR31(V339)}          goto T790;}
1847  T772:;          V337= (*(LnkLI129))((V313));
1848          if(((V312))==Cnil){  goto T790;
1849          goto T775;}  T790:;
1850          V340= (*(LnkLI128))((V311));          {object V338 = list(3,VV[1],/* INLINE-ARGS */V336,list(3,VV[101],V337,(V313)));
1851          V341= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V340));          VMR31(V338)}}
1852          {object V342 = list(3,VV[1],/* INLINE-ARGS */V341,list(2,VV[3],(*(LnkLI129))((V311))));  goto T763;
1853          VMR31(V342)}  T763:;
1854  T775:;          if(!(type_of((V313))==t_shortfloat)){
1855          {object V343 = Cnil;          goto T792;}
1856          VMR31(V343)}          V339= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[102]));
1857            V340= (*(LnkLI129))((V313));
1858            {object V341 = list(3,VV[1],/* INLINE-ARGS */V339,list(3,VV[103],/* INLINE-ARGS */V340,(V313)));
1859            VMR31(V341)}
1860    goto T792;
1861    T792:;
1862            if(((V314))==Cnil){
1863            goto T795;}
1864            V342= (*(LnkLI128))((V313));
1865            V343= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V342));
1866            {object V344 = list(3,VV[1],/* INLINE-ARGS */V343,list(2,VV[3],(*(LnkLI129))((V313))));
1867            VMR31(V344)}
1868    goto T795;
1869    T795:;
1870            {object V345 = Cnil;
1871            VMR31(V345)}
1872            base[0]=base[0];
1873            return Cnil;
1874  }  }
1875  /*      macro definition for DEFINE-COMPILER-MACRO      */  /*      macro definition for DEFINE-COMPILER-MACRO      */
1876    
1877  static L32()  static void L32()
1878  {register object *base=vs_base;  {register object *base=vs_base;
1879          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
1880          vs_reserve(VM32);          vs_reserve(VM32);
1881          check_arg(2);          check_arg(2);
1882          vs_top=sup;          vs_top=sup;
1883          {object V344=base[0]->c.c_cdr;          {object V346=base[0]->c.c_cdr;
1884          if(endp(V344))invalid_macro_call();          if(endp(V346))invalid_macro_call();
1885          base[2]= (V344->c.c_car);          base[2]= (V346->c.c_car);
1886          V344=V344->c.c_cdr;          V346=V346->c.c_cdr;
1887          if(endp(V344))invalid_macro_call();          if(endp(V346))invalid_macro_call();
1888          base[3]= (V344->c.c_car);          base[3]= (V346->c.c_car);
1889          V344=V344->c.c_cdr;          V346=V346->c.c_cdr;
1890          base[4]= V344;}          base[4]= V346;}
1891          V345= list(2,VV[35],base[2]);          V347= list(2,VV[35],base[2]);
1892          V346= list(2,VV[35],base[2]);          V348= list(2,VV[35],base[2]);
1893          V347= list(2,VV[35],base[3]);          V349= list(2,VV[35],base[3]);
1894          V348= list(4,VV[104],/* INLINE-ARGS */V345,list(2,VV[105],list(4,VV[106],/* INLINE-ARGS */V346,/* INLINE-ARGS */V347,list(2,VV[35],base[4]))),VV[107]);          V350= list(4,VV[104],/* INLINE-ARGS */V347,list(2,VV[105],list(4,VV[106],/* INLINE-ARGS */V348,/* INLINE-ARGS */V349,list(2,VV[35],base[4]))),VV[107]);
1895          base[5]= list(3,VV[71],/* INLINE-ARGS */V348,list(2,VV[35],base[2]));          base[5]= list(3,VV[71],/* INLINE-ARGS */V350,list(2,VV[35],base[2]));
1896          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1897          return;          return;
1898  }  }
1899  /*      local entry for function UNDEF-COMPILER-MACRO   */  /*      local entry for function UNDEF-COMPILER-MACRO   */
1900    
1901  static object LI33(V350)  static object LI33(V352)
1902    
1903  object V350;  object V352;
1904  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
1905    goto TTL;
1906  TTL:;  TTL:;
1907          {object V351 = remprop((V350),VV[33]);          {object V353 = remprop((V352),VV[33]);
1908          VMR33(V351)}          VMR33(V353)}
1909            return Cnil;
1910  }  }
1911  /*      macro definition for DEFINE-INLINE-FUNCTION     */  /*      macro definition for DEFINE-INLINE-FUNCTION     */
1912    
1913  static L34()  static void L34()
1914  {register object *base=vs_base;  {register object *base=vs_base;
1915          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
1916          vs_reserve(VM34);          vs_reserve(VM34);
1917          bds_check;          bds_check;
1918          check_arg(2);          check_arg(2);
1919          vs_top=sup;          vs_top=sup;
1920          {object V352=base[0]->c.c_cdr;          {object V354=base[0]->c.c_cdr;
1921          if(endp(V352))invalid_macro_call();          if(endp(V354))invalid_macro_call();
1922          base[2]= (V352->c.c_car);          base[2]= (V354->c.c_car);
1923          V352=V352->c.c_cdr;          V354=V354->c.c_cdr;
1924          if(endp(V352))invalid_macro_call();          if(endp(V354))invalid_macro_call();
1925          base[3]= (V352->c.c_car);          base[3]= (V354->c.c_car);
1926          V352=V352->c.c_cdr;          V354=V354->c.c_cdr;
1927          base[4]= V352;}          base[4]= V354;}
1928          {register object V353;          {register object V355;
1929          V353= Cnil;          V355= Cnil;
1930          bds_bind(VV[108],symbol_value(VV[108]));          bds_bind(VV[108],symbol_value(VV[108]));
1931          {register object V354;          {register object V356;
1932          register object V355;          register object V357;
1933          V354= base[3];          V356= base[3];
1934          V355= car((V354));          V357= car((V356));
1935  T781:;  goto T801;
1936          if(!(endp((V354)))){  T801:;
1937          goto T782;}          if(!(endp((V356)))){
1938          goto T777;          goto T802;}
1939  T782:;          goto T797;
1940          if(!(type_of((V355))==t_symbol)){  goto T802;
1941          goto T788;}  T802:;
1942          {register object x= (V355),V356= VV[109];          if(!(type_of((V357))==t_symbol)){
1943          while(!endp(V356))          goto T808;}
1944          if(x==(V356->c.c_car)){          {register object x= (V357),V358= VV[109];
1945          goto T788;          while(!endp(V358))
1946          }else V356=V356->c.c_cdr;}{object V358;          if(x==(V358->c.c_car)){
1947          {register object V359;          goto T808;
1948          V359= car((VV[108]->s.s_dbind));          }else V358=V358->c.c_cdr;}{object V360;
1949            {register object V361;
1950            V361= car((VV[108]->s.s_dbind));
1951          (VV[108]->s.s_dbind)= cdr((VV[108]->s.s_dbind));          (VV[108]->s.s_dbind)= cdr((VV[108]->s.s_dbind));
1952          V358= (V359);}          V360= (V361);}
1953          if(V358==Cnil)goto T794;          if(V360==Cnil)goto T814;
1954          V357= V358;          V359= V360;
1955          goto T793;          goto T813;
1956  T794:;}  goto T814;
1957    T814:;}
1958          base[7]= VV[110];          base[7]= VV[110];
1959          base[9]= VV[111];          base[9]= VV[111];
1960          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
# Line 1735  T794:;} Line 1964  T794:;}
1964          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
1965          Lgentemp();          Lgentemp();
1966          vs_top=sup;          vs_top=sup;
1967          V357= vs_base[0];          V359= vs_base[0];
1968  T793:;  goto T813;
1969          V353= make_cons(V357,(V353));  T813:;
1970          goto T786;          V355= make_cons(V359,(V355));
1971  T788:;          goto T806;
1972    goto T808;
1973    T808:;
1974          base[7]= VV[112];          base[7]= VV[112];
1975          base[8]= (V355);          base[8]= (V357);
1976          base[9]= base[2];          base[9]= base[2];
1977          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
1978          Lerror();          Lerror();
1979          vs_top=sup;          vs_top=sup;
1980  T786:;  goto T806;
1981          V354= cdr((V354));  T806:;
1982          V355= car((V354));          V356= cdr((V356));
1983          goto T781;}          V357= car((V356));
1984  T777:;          goto T801;}
1985          {object V360;  goto T797;
1986    T797:;
1987          {object V362;          {object V362;
1988          object V363= base[3];          {object V364;
1989          object V364= (V353);          object V365= base[3];
1990          if(endp(V363)||endp(V364)){          object V366= (V355);
1991          V361= Cnil;          if(endp(V365)||endp(V366)){
1992          goto T811;}          V363= Cnil;
1993          base[6]=V362=MMcons(Cnil,Cnil);          goto T831;}
1994  T812:;          base[6]=V364=MMcons(Cnil,Cnil);
1995          (V362->c.c_car)= list(3,VV[113],list(2,VV[35],(V363->c.c_car)),(V364->c.c_car));  goto T832;
1996          if(endp(V363=MMcdr(V363))||endp(V364=MMcdr(V364))){  T832:;
1997          V361= base[6];          (V364->c.c_car)= list(3,VV[113],list(2,VV[35],(V365->c.c_car)),(V366->c.c_car));
1998          goto T811;}          if(endp(V365=MMcdr(V365))||endp(V366=MMcdr(V366))){
1999          V362=MMcdr(V362)=MMcons(Cnil,Cnil);          V363= base[6];
2000          goto T812;}          goto T831;}
2001  T811:;          V364=MMcdr(V364)=MMcons(Cnil,Cnil);
2002          V360= make_cons(VV[113],V361);          goto T832;}
2003          V367= listA(4,VV[114],base[2],base[3],base[4]);  goto T831;
2004          base[6]= list(3,VV[71],/* INLINE-ARGS */V367,list(4,VV[115],base[2],(V353),list(4,VV[116],VV[117],(V360),list(2,VV[35],base[4]))));  T831:;
2005            V362= make_cons(VV[113],V363);
2006            V369= listA(4,VV[114],base[2],base[3],base[4]);
2007            base[6]= list(3,VV[71],/* INLINE-ARGS */V369,list(4,VV[115],base[2],(V355),list(4,VV[116],VV[117],(V362),list(2,VV[35],base[4]))));
2008          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
2009          bds_unwind1;          bds_unwind1;
2010          return;}}          return;}}
2011  }  }
2012  /*      local entry for function NAME-TO-SD     */  /*      local entry for function NAME-TO-SD     */
2013    
2014  static object LI35(V369)  static object LI35(V371)
2015    
2016  object V369;  object V371;
2017  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
2018    goto TTL;
2019  TTL:;  TTL:;
2020          {object V370;          {object V372;
2021          V370= Cnil;{object V371;          V372= Cnil;{object V373;
2022          if(type_of((V369))==t_symbol){          if(type_of((V371))==t_symbol){
2023          goto T818;}          goto T838;}
2024          V371= Cnil;          V373= Cnil;
2025          goto T817;          goto T837;
2026  T818:;  goto T838;
2027          V370= get((V369),VV[76],Cnil);  T838:;
2028          V371= (V370);          V372= get((V371),VV[76],Cnil);
2029  T817:;          V373= (V372);
2030          if(V371==Cnil)goto T816;  goto T837;
2031          goto T815;  T837:;
2032  T816:;}          if(V373==Cnil)goto T836;
2033            goto T835;
2034    goto T836;
2035    T836:;}
2036          base[0]= VV[118];          base[0]= VV[118];
2037          base[1]= (V369);          base[1]= (V371);
2038          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2039          Lerror();          Lerror();
2040          vs_top=sup;          vs_top=sup;
2041  T815:;  goto T835;
2042          {object V372 = (V370);  T835:;
2043          VMR35(V372)}}          {object V374 = (V372);
2044            VMR35(V374)}}
2045            base[0]=base[0];
2046            return Cnil;
2047  }  }
2048  /*      local entry for function NAME-SD1       */  /*      local entry for function NAME-SD1       */
2049    
2050  static object LI36(V374)  static object LI36(V376)
2051    
2052  object V374;  object V376;
2053  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
2054  TTL:;{object V375;  goto TTL;
2055          V375= get((V374),VV[119],Cnil);  TTL:;{object V377;
2056          if(V375==Cnil)goto T823;          V377= get((V376),VV[119],Cnil);
2057          {object V376 = V375;          if(V377==Cnil)goto T843;
2058          VMR36(V376)}          {object V378 = V377;
 T823:;}  
         V377= list(3,VV[5],VV[119],list(2,VV[35],(V374)));  
         {object V378 = sputprop((V374),VV[120],/* INLINE-ARGS */V377);  
2059          VMR36(V378)}          VMR36(V378)}
2060    goto T843;
2061    T843:;}
2062            V379= list(3,VV[5],VV[119],list(2,VV[35],(V376)));
2063            {object V380 = sputprop((V376),VV[120],/* INLINE-ARGS */V379);
2064            VMR36(V380)}
2065            return Cnil;
2066  }  }
2067  /*      local entry for function CO1STRUCTURE-PREDICATE */  /*      local entry for function CO1STRUCTURE-PREDICATE */
2068    
2069  static object LI37(V381,V382)  static object LI37(V383,V384)
2070    
2071  object V381;object V382;  object V383;object V384;
2072  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
2073    goto TTL;
2074  TTL:;  TTL:;
2075          {object V383;          {object V385;
2076          V383= Cnil;          V385= Cnil;
2077          if(!(type_of((V381))==t_symbol)){          if(!(type_of((V383))==t_symbol)){
2078          goto T827;}          goto T847;}
2079          V383= get((V381),VV[121],Cnil);          V385= get((V383),VV[121],Cnil);
2080          if(((V383))==Cnil){          if(((V385))==Cnil){
2081          goto T827;}          goto T847;}
2082          V384= car((V382));          V386= car((V384));
2083          V385= list(3,VV[122],/* INLINE-ARGS */V384,list(2,VV[35],(V383)));          V387= list(3,VV[122],/* INLINE-ARGS */V386,list(2,VV[35],(V385)));
2084          {object V386 = (*(LnkLI123))(/* INLINE-ARGS */V385);          {object V388 = (*(LnkLI123))(/* INLINE-ARGS */V387);
2085          VMR37(V386)}          VMR37(V388)}
2086  T827:;  goto T847;
2087          {object V387 = Cnil;  T847:;
2088          VMR37(V387)}}          {object V389 = Cnil;
2089  }          VMR37(V389)}}
2090  static object  LnkTLI177(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[177],&LnkLI177,1,ap);} /* ABS */          return Cnil;
2091  static object  LnkTLI176(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[176],&LnkLI176,1,ap);} /* AET-C-TYPE */  }
2092  static object  LnkTLI175(){return call_proc0(VV[175],&LnkLI175);} /* WFS-ERROR */  static object  LnkTLI177(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[177],(void **)&LnkLI177,1,ap);} /* ABS */
2093  static object  LnkTLI174(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[174],&LnkLI174,ap);} /* INLINE-ARGS */  static object  LnkTLI176(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[176],(void **)&LnkLI176,1,ap);} /* AET-C-TYPE */
2094  static object  LnkTLI173(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[173],&LnkLI173,2,ap);} /* COERCE-LOC */  static object  LnkTLI175(){return call_proc0(VV[175],(void **)&LnkLI175);} /* WFS-ERROR */
2095  static object  LnkTLI172(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[172],&LnkLI172,1,ap);} /* INLINE-TYPE */  static object  LnkTLI174(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[174],(void **)&LnkLI174,ap);} /* INLINE-ARGS */
2096  static object  LnkTLI171(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[171],&LnkLI171,1,ap);} /* ADD-SYMBOL */  static object  LnkTLI173(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[173],(void **)&LnkLI173,2,ap);} /* COERCE-LOC */
2097  static object  LnkTLI170(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[170],&LnkLI170,1,ap);} /* TYPE-FILTER */  static object  LnkTLI172(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[172],(void **)&LnkLI172,1,ap);} /* INLINE-TYPE */
2098  static object  LnkTLI169(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[169],&LnkLI169,2,ap);} /* C1EXPR* */  static object  LnkTLI171(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[171],(void **)&LnkLI171,1,ap);} /* ADD-SYMBOL */
2099  static object  LnkTLI168(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[168],&LnkLI168,1,ap);} /* C1PROGN */  static object  LnkTLI170(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[170],(void **)&LnkLI170,1,ap);} /* TYPE-FILTER */
2100  static object  LnkTLI167(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[167],&LnkLI167,2,ap);} /* C2EXPR-TOP */  static object  LnkTLI169(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[169],(void **)&LnkLI169,2,ap);} /* C1EXPR* */
2101  static object  LnkTLI166(){return call_proc0(VV[166],&LnkLI166);} /* RESET-TOP */  static object  LnkTLI168(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[168],(void **)&LnkLI168,1,ap);} /* C1PROGN */
2102  static object  LnkTLI165(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[165],&LnkLI165,1,ap);} /* WT1 */  static object  LnkTLI167(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[167],(void **)&LnkLI167,2,ap);} /* C2EXPR-TOP */
2103  static LnkT164(){ call_or_link(VV[164],&Lnk164);} /* C2EXPR */  static object  LnkTLI166(){return call_proc0(VV[166],(void **)&LnkLI166);} /* RESET-TOP */
2104  static object  LnkTLI163(){return call_proc0(VV[163],&LnkLI163);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI165(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[165],(void **)&LnkLI165,1,ap);} /* WT1 */
2105  static object  LnkTLI162(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[162],&LnkLI162,ap);} /* UNWIND-EXIT */  static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* C2EXPR */
2106  static object  LnkTLI161(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[161],&LnkLI161,2,ap);} /* GET-INLINE-LOC */  static object  LnkTLI163(){return call_proc0(VV[163],(void **)&LnkLI163);} /* CLOSE-INLINE-BLOCKS */
2107  static object  LnkTLI160(){return call_proc0(VV[160],&LnkLI160);} /* BABOON */  static object  LnkTLI162(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[162],(void **)&LnkLI162,ap);} /* UNWIND-EXIT */
2108  static object  LnkTLI159(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[159],&LnkLI159,1,ap);} /* VOLATILE */  static object  LnkTLI161(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[161],(void **)&LnkLI161,2,ap);} /* GET-INLINE-LOC */
2109  static object  LnkTLI158(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[158],&LnkLI158,4,ap);} /* C2CALL-GLOBAL */  static object  LnkTLI160(){return call_proc0(VV[160],(void **)&LnkLI160);} /* BABOON */
2110  static object  LnkTLI157(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[157],&LnkLI157,ap);} /* C1LAMBDA-EXPR */  static object  LnkTLI159(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[159],(void **)&LnkLI159,1,ap);} /* VOLATILE */
2111  static LnkT156(){ call_or_link(VV[156],&Lnk156);} /* RESULT-TYPE-FROM-ARGS */  static object  LnkTLI158(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[158],(void **)&LnkLI158,4,ap);} /* C2CALL-GLOBAL */
2112  static object  LnkTLI154(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[154],&LnkLI154,2,ap);} /* TYPE-AND */  static object  LnkTLI157(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[157],(void **)&LnkLI157,ap);} /* C1LAMBDA-EXPR */
2113  static object  LnkTLI152(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[152],&LnkLI152,3,ap);} /* CHECK-FORM-TYPE */  static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* RESULT-TYPE-FROM-ARGS */
2114  static object  LnkTLI151(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[151],&LnkLI151,1,ap);} /* GET-ARG-TYPES */  static object  LnkTLI154(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[154],(void **)&LnkLI154,2,ap);} /* TYPE-AND */
2115  static object  LnkTLI150(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[150],&LnkLI150,1,ap);} /* GET-RETURN-TYPE */  static object  LnkTLI152(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[152],(void **)&LnkLI152,3,ap);} /* CHECK-FORM-TYPE */
2116  static object  LnkTLI149(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[149],&LnkLI149,3,ap);} /* C1STRUCTURE-REF1 */  static object  LnkTLI151(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[151],(void **)&LnkLI151,1,ap);} /* GET-ARG-TYPES */
2117  static LnkT148(){ call_or_link(VV[148],&Lnk148);} /* CMP-EVAL */  static object  LnkTLI150(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[150],(void **)&LnkLI150,1,ap);} /* GET-RETURN-TYPE */
2118  static object  LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],&LnkLI32,2,ap);} /* RECORD-CALL-INFO */  static object  LnkTLI149(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[149],(void **)&LnkLI149,3,ap);} /* C1STRUCTURE-REF1 */
2119  static object  LnkTLI147(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[147],&LnkLI147,1,ap);} /* INLINE-POSSIBLE */  static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* CMP-EVAL */
2120  static object  LnkTLI146(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[146],&LnkLI146,3,ap);} /* CMP-EXPAND-MACRO */  static object  LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],(void **)&LnkLI32,2,ap);} /* RECORD-CALL-INFO */
2121  static object  LnkTLI145(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[145],&LnkLI145,3,ap);} /* AND-FORM-TYPE */  static object  LnkTLI147(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[147],(void **)&LnkLI147,1,ap);} /* INLINE-POSSIBLE */
2122  static object  LnkTLI144(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[144],&LnkLI144,1,ap);} /* GET-LOCAL-ARG-TYPES */  static object  LnkTLI146(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[146],(void **)&LnkLI146,3,ap);} /* CMP-EXPAND-MACRO */
2123  static object  LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[143],&LnkLI143,1,ap);} /* GET-LOCAL-RETURN-TYPE */  static object  LnkTLI145(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[145],(void **)&LnkLI145,3,ap);} /* AND-FORM-TYPE */
2124  static object  LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[142],&LnkLI142,2,ap);} /* C1ARGS */  static object  LnkTLI144(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[144],(void **)&LnkLI144,1,ap);} /* GET-LOCAL-ARG-TYPES */
2125  static object  LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],&LnkLI141,1,ap);} /* C1LOCAL-FUN */  static object  LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[143],(void **)&LnkLI143,1,ap);} /* GET-LOCAL-RETURN-TYPE */
2126  static object  LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[140],&LnkLI140,2,ap);} /* TYPE>= */  static object  LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[142],(void **)&LnkLI142,2,ap);} /* C1ARGS */
2127  static LnkT139(){ call_or_link(VV[139],&Lnk139);} /* FIX-OPT */  static object  LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],(void **)&LnkLI141,1,ap);} /* C1LOCAL-FUN */
2128  static object  LnkTLI138(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[138],&LnkLI138,ap);} /* CMPWARN */  static object  LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[140],(void **)&LnkLI140,2,ap);} /* TYPE>= */
2129  static LnkT137(){ call_or_link(VV[137],&Lnk137);} /* FLAGS-POS */  static void LnkT139(){ call_or_link(VV[139],(void **)&Lnk139);} /* FIX-OPT */
2130  static object  LnkTLI136(){return call_proc0(VV[136],&LnkLI136);} /* ADD-LOAD-TIME-SHARP-COMMA */  static object  LnkTLI138(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[138],(void **)&LnkLI138,ap);} /* CMPWARN */
2131  static object  LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],&LnkLI135,ap);} /* CMPERR */  static void LnkT137(){ call_or_link(VV[137],(void **)&Lnk137);} /* FLAGS-POS */
2132  static object  LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],&LnkLI134,2,ap);} /* C1LAMBDA-FUN */  static object  LnkTLI136(){return call_proc0(VV[136],(void **)&LnkLI136);} /* ADD-LOAD-TIME-SHARP-COMMA */
2133  static LnkT133(){ call_or_link(VV[133],&Lnk133);} /* C1SYMBOL-FUN */  static object  LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],(void **)&LnkLI135,ap);} /* CMPERR */
2134  static object  LnkTLI132(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[132],&LnkLI132,1,ap);} /* C1VAR */  static object  LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],(void **)&LnkLI134,2,ap);} /* C1LAMBDA-FUN */
2135  static object  LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],&LnkLI131,1,ap);} /* ADD-CONSTANT */  static void LnkT133(){ call_or_link(VV[133],(void **)&Lnk133);} /* C1SYMBOL-FUN */
2136  static object  LnkTLI130(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[130],&LnkLI130,2,ap);} /* C1CONSTANT-VALUE */  static object  LnkTLI132(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[132],(void **)&LnkLI132,1,ap);} /* C1VAR */
2137  static object  LnkTLI129(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[129],&LnkLI129,1,ap);} /* ADD-OBJECT */  static object  LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],(void **)&LnkLI131,1,ap);} /* ADD-CONSTANT */
2138  static object  LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[128],&LnkLI128,1,ap);} /* OBJECT-TYPE */  static object  LnkTLI130(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[130],(void **)&LnkLI130,2,ap);} /* C1CONSTANT-VALUE */
2139  static object  LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[127],&LnkLI127,ap);} /* MAKE-INFO */  static object  LnkTLI129(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[129],(void **)&LnkLI129,1,ap);} /* ADD-OBJECT */
2140  static object  LnkTLI126(){return call_proc0(VV[126],&LnkLI126);} /* C1T */  static object  LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[128],(void **)&LnkLI128,1,ap);} /* OBJECT-TYPE */
2141  static object  LnkTLI125(){return call_proc0(VV[125],&LnkLI125);} /* C1NIL */  static object  LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[127],(void **)&LnkLI127,ap);} /* MAKE-INFO */
2142  static object  LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],&LnkLI124,2,ap);} /* ADD-INFO */  static object  LnkTLI126(){return call_proc0(VV[126],(void **)&LnkLI126);} /* C1T */
2143  static object  LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[123],&LnkLI123,1,ap);} /* C1EXPR */  static object  LnkTLI125(){return call_proc0(VV[125],(void **)&LnkLI125);} /* C1NIL */
2144    static object  LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],(void **)&LnkLI124,2,ap);} /* ADD-INFO */
2145    static object  LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[123],(void **)&LnkLI123,1,ap);} /* C1EXPR */
2146    
2147  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2148  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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