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

Diff of /gcl/cmpnew/cmpenv.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 "cmpenv.h"  #include "cmpenv.h"
4  init_cmpenv(){do_init(VV);}  void init_cmpenv(){do_init(VV);}
5  /*      local entry for function INIT-ENV       */  /*      local entry for function INIT-ENV       */
6    
7  static object LI1()  static object LI1()
8    
9  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
10    goto TTL;
11  TTL:;  TTL:;
12          setq(VV[0],small_fixnum(0));          setq(VV[0],small_fixnum(0));
13          setq(VV[1],small_fixnum(0));          setq(VV[1],small_fixnum(0));
# Line 29  TTL:; Line 30  TTL:;
30          setq(VV[18],Cnil);          setq(VV[18],Cnil);
31          {object V1 = Cnil;          {object V1 = Cnil;
32          VMR1(V1)}          VMR1(V1)}
33            return Cnil;
34  }  }
35  /*      macro definition for NEXT-CFUN  */  /*      macro definition for NEXT-CFUN  */
36    
37  static L2()  static void L2()
38  {register object *base=vs_base;  {register object *base=vs_base;
39          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
40          vs_reserve(VM2);          vs_reserve(VM2);
# Line 50  static object LI3(V4) Line 52  static object LI3(V4)
52    
53  object V4;  object V4;
54  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
55    goto TTL;
56  TTL:;  TTL:;
57          {object V5;          {object V5;
58          {register object x= (V4),V6= symbol_value(VV[5]);          {register object x= (V4),V6= symbol_value(VV[5]);
# Line 59  TTL:; Line 62  TTL:;
62          goto T38;          goto T38;
63          }else V6=V6->c.c_cdr;          }else V6=V6->c.c_cdr;
64          V5= Cnil;}          V5= Cnil;}
65    goto T38;
66  T38:;  T38:;
67          if(((V5))==Cnil){          if(((V5))==Cnil){
68          goto T40;}          goto T40;}
69          {object V7 = cadr((V5));          {object V7 = cadr((V5));
70          VMR3(V7)}          VMR3(V7)}
71    goto T40;
72  T40:;  T40:;
73          (void)((*(LnkLI113))((V4)));          (void)((*(LnkLI113))((V4)));
74          V8= list(2,(V4),symbol_value(VV[2]));          V8= list(2,(V4),symbol_value(VV[2]));
75          setq(VV[5],make_cons(/* INLINE-ARGS */V8,symbol_value(VV[5])));          setq(VV[5],make_cons(/* INLINE-ARGS */V8,symbol_value(VV[5])));
76          {object V9 = symbol_value(VV[2]);          {object V9 = symbol_value(VV[2]);
77          VMR3(V9)}}          VMR3(V9)}}
78            return Cnil;
79  }  }
80  /*      function definition for WT-TO-STRING    */  /*      function definition for WT-TO-STRING    */
81    
82  static L4()  static void L4()
83  {register object *base=vs_base;  {register object *base=vs_base;
84          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
85          vs_reserve(VM4);          vs_reserve(VM4);
# Line 82  static L4() Line 88  static L4()
88          check_arg(1);          check_arg(1);
89          V10=(base[0]);          V10=(base[0]);
90          vs_top=sup;          vs_top=sup;
91    goto TTL;
92  TTL:;  TTL:;
93          vs_base=vs_top;          vs_base=vs_top;
94          (void) (*Lnk114)();          (void) (*Lnk114)();
# Line 103  static object LI5(V12) Line 110  static object LI5(V12)
110    
111  register object V12;  register object V12;
112  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
113    goto TTL;
114  TTL:;  TTL:;
115          {object V13;          {object V13;
116          V13= Cnil;          V13= Cnil;
# Line 124  TTL:; Line 132  TTL:;
132          goto T55;}          goto T55;}
133          V12= cdr((V12));          V12= cdr((V12));
134          goto T53;          goto T53;
135    goto T55;
136  T55:;  T55:;
137          base[0]= (V12);          base[0]= (V12);
138          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 131  T55:; Line 140  T55:;
140          vs_top=sup;          vs_top=sup;
141          V14= vs_base[0];          V14= vs_base[0];
142          V12= list(2,VV[23],V14);          V12= list(2,VV[23],V14);
143    goto T53;
144  T53:;  T53:;
145          (void)((*(LnkLI113))(Cnil));          (void)((*(LnkLI113))(Cnil));
146          V15= list(2,symbol_value(VV[2]),(V12));          V15= list(2,symbol_value(VV[2]),(V12));
147          setq(VV[24],make_cons(/* INLINE-ARGS */V15,symbol_value(VV[24])));          setq(VV[24],make_cons(/* INLINE-ARGS */V15,symbol_value(VV[24])));
148          {object V16 = symbol_value(VV[2]);          {object V16 = symbol_value(VV[2]);
149          VMR5(V16)}          VMR5(V16)}
150    goto T50;
151  T50:;  T50:;
152          {register object x= (V12),V17= symbol_value(VV[5]);          {register object x= (V12),V17= symbol_value(VV[5]);
153          while(!endp(V17))          while(!endp(V17))
# Line 145  T50:; Line 156  T50:;
156          goto T72;          goto T72;
157          }else V17=V17->c.c_cdr;          }else V17=V17->c.c_cdr;
158          V13= Cnil;}          V13= Cnil;}
159    goto T72;
160  T72:;  T72:;
161          if(((V13))==Cnil){          if(((V13))==Cnil){
162          goto T70;}          goto T70;}
163          {object V18 = cadr((V13));          {object V18 = cadr((V13));
164          VMR5(V18)}          VMR5(V18)}
165    goto T70;
166  T70:;  T70:;
167          base[0]= (V12);          base[0]= (V12);
168          base[1]= VV[25];          base[1]= VV[25];
# Line 168  T70:; Line 181  T70:;
181          if(V21==Cnil)goto T82;          if(V21==Cnil)goto T82;
182          V20= V21;          V20= V21;
183          goto T81;          goto T81;
184    goto T82;
185  T82:;}  T82:;}
186          V20= (VFUN_NARGS=1,(*(LnkLI121))(VV[27]));          V20= (VFUN_NARGS=1,(*(LnkLI121))(VV[27]));
187    goto T81;
188  T81:;  T81:;
189          V22= list(2,V19,list(2,VV[26],V20));          V22= list(2,V19,list(2,VV[26],V20));
190          setq(VV[24],make_cons(/* INLINE-ARGS */V22,symbol_value(VV[24])));}          setq(VV[24],make_cons(/* INLINE-ARGS */V22,symbol_value(VV[24])));}
191          {object V23 = symbol_value(VV[2]);          {object V23 = symbol_value(VV[2]);
192          VMR5(V23)}          VMR5(V23)}
193    goto T74;
194  T74:;  T74:;
195          (void)((*(LnkLI113))((V12)));          (void)((*(LnkLI113))((V12)));
196          V24= list(2,(V12),symbol_value(VV[2]));          V24= list(2,(V12),symbol_value(VV[2]));
197          setq(VV[5],make_cons(/* INLINE-ARGS */V24,symbol_value(VV[5])));          setq(VV[5],make_cons(/* INLINE-ARGS */V24,symbol_value(VV[5])));
198          {object V25 = symbol_value(VV[2]);          {object V25 = symbol_value(VV[2]);
199          VMR5(V25)}}          VMR5(V25)}}
200            base[0]=base[0];
201            return Cnil;
202  }  }
203  /*      local entry for function ADD-CONSTANT   */  /*      local entry for function ADD-CONSTANT   */
204    
# Line 188  static object LI6(V27) Line 206  static object LI6(V27)
206    
207  object V27;  object V27;
208  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
209    goto TTL;
210  TTL:;  TTL:;
211          {object V28;          {object V28;
212          V28= Cnil;          V28= Cnil;
# Line 198  TTL:; Line 217  TTL:;
217          goto T92;          goto T92;
218          }else V29=V29->c.c_cdr;          }else V29=V29->c.c_cdr;
219          V28= Cnil;}          V28= Cnil;}
220    goto T92;
221  T92:;  T92:;
222          if(((V28))==Cnil){          if(((V28))==Cnil){
223          goto T90;}          goto T90;}
224          {object V30 = cadr((V28));          {object V30 = cadr((V28));
225          VMR6(V30)}          VMR6(V30)}
226    goto T90;
227  T90:;  T90:;
228          (void)((*(LnkLI113))(Cnil));          (void)((*(LnkLI113))(Cnil));
229          V31= list(2,symbol_value(VV[2]),(V27));          V31= list(2,symbol_value(VV[2]),(V27));
# Line 211  T90:; Line 232  T90:;
232          setq(VV[6],make_cons(/* INLINE-ARGS */V32,symbol_value(VV[6])));          setq(VV[6],make_cons(/* INLINE-ARGS */V32,symbol_value(VV[6])));
233          {object V33 = symbol_value(VV[2]);          {object V33 = symbol_value(VV[2]);
234          VMR6(V33)}}          VMR6(V33)}}
235            return Cnil;
236  }  }
237  /*      macro definition for NEXT-CVAR  */  /*      macro definition for NEXT-CVAR  */
238    
239  static L7()  static void L7()
240  {register object *base=vs_base;  {register object *base=vs_base;
241          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
242          vs_reserve(VM7);          vs_reserve(VM7);
# Line 228  static L7() Line 250  static L7()
250  }  }
251  /*      macro definition for NEXT-CMACRO        */  /*      macro definition for NEXT-CMACRO        */
252    
253  static L8()  static void L8()
254  {register object *base=vs_base;  {register object *base=vs_base;
255          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
256          vs_reserve(VM8);          vs_reserve(VM8);
# Line 246  static object LI9(V37) Line 268  static object LI9(V37)
268    
269  object V37;  object V37;
270  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
271    goto TTL;
272  TTL:;  TTL:;
273          {object V38;          {object V38;
274          register object V39;          register object V39;
# Line 257  TTL:; Line 280  TTL:;
280          register long V42;          register long V42;
281          V42= 0;          V42= 0;
282          V41= (V37);          V41= (V37);
283    goto T105;
284  T105:;  T105:;
285          if(!(endp((V41)))){          if(!(endp((V41)))){
286          goto T106;}          goto T106;}
287          V40= reverse((V39));          V40= reverse((V39));
288          goto T102;          goto T102;
289    goto T106;
290  T106:;  T106:;
291          {register object x= car((V41)),V43= VV[30];          {register object x= car((V41)),V43= VV[30];
292          while(!endp(V43))          while(!endp(V43))
# Line 270  T106:; Line 295  T106:;
295          }else V43=V43->c.c_cdr;}          }else V43=V43->c.c_cdr;}
296          if(!(equal(car((V41)),VV[31]))){          if(!(equal(car((V41)),VV[31]))){
297          goto T110;}          goto T110;}
298    goto T111;
299  T111:;  T111:;
300          V38= Ct;          V38= Ct;
301          V44= make_cons(VV[31],(V39));          V44= make_cons(VV[31],(V39));
302          V40= reverse(/* INLINE-ARGS */V44);          V40= reverse(/* INLINE-ARGS */V44);
303          goto T102;          goto T102;
304    goto T110;
305  T110:;  T110:;
306          if(!((V42)<(9))){          if(!((V42)<(9))){
307          goto T121;}          goto T121;}
# Line 284  T110:; Line 311  T110:;
311          goto T125;}          goto T125;}
312          V45= Ct;          V45= Ct;
313          goto T119;          goto T119;
314    goto T125;
315  T125:;  T125:;
316          V45= (V46);          V45= (V46);
317          goto T119;}          goto T119;}
318    goto T121;
319  T121:;  T121:;
320          if(!((car((V41)))==(VV[31]))){          if(!((car((V41)))==(VV[31]))){
321          goto T128;}          goto T128;}
322          V45= VV[31];          V45= VV[31];
323          goto T119;          goto T119;
324    goto T128;
325  T128:;  T128:;
326          V45= Ct;          V45= Ct;
327    goto T119;
328  T119:;  T119:;
329          V39= make_cons(V45,(V39));          V39= make_cons(V45,(V39));
330          V41= cdr((V41));          V41= cdr((V41));
331          V42= (1)+(V42);          V42= (1)+(V42);
332          goto T105;}          goto T105;}
333    goto T102;
334  T102:;  T102:;
335          if(((V38))==Cnil){          if(((V38))==Cnil){
336          goto T134;}          goto T134;}
337          {register object V47;          {register object V47;
338          V47= (V40);          V47= (V40);
339    goto T138;
340  T138:;  T138:;
341          if(((V47))!=Cnil){          if(((V47))!=Cnil){
342          goto T139;}          goto T139;}
343          goto T134;          goto T134;
344    goto T139;
345  T139:;  T139:;
346          {register object V49;          {register object V49;
347          if(!((car((V47)))==(VV[31]))){          if(!((car((V47)))==(VV[31]))){
348          goto T146;}          goto T146;}
349          V49= VV[31];          V49= VV[31];
350          goto T144;          goto T144;
351    goto T146;
352  T146:;  T146:;
353          V49= Ct;          V49= Ct;
354    goto T144;
355  T144:;  T144:;
356          if(type_of(V47)!=t_cons)FEwrong_type_argument(Scons,V47);          if(type_of(V47)!=t_cons)FEwrong_type_argument(Scons,V47);
357          (V47)->c.c_car = (V49);}          (V47)->c.c_car = (V49);}
358          V47= cdr((V47));          V47= cdr((V47));
359          goto T138;}          goto T138;}
360    goto T134;
361  T134:;  T134:;
362          {object V50 = (V40);          {object V50 = (V40);
363          VMR9(V50)}}          VMR9(V50)}}
364            base[0]=base[0];
365            return Cnil;
366  }  }
367  /*      local entry for function FUNCTION-RETURN-TYPE   */  /*      local entry for function FUNCTION-RETURN-TYPE   */
368    
# Line 331  static object LI10(V52) Line 370  static object LI10(V52)
370    
371  register object V52;  register object V52;
372  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
373    goto TTL;
374  TTL:;  TTL:;
375          if((car((V52)))==(VV[33])){          if((car((V52)))==(VV[33])){
376          goto T153;}          goto T153;}
377          goto T152;          goto T152;
378    goto T153;
379  T153:;  T153:;
380          V52= cdr((V52));          V52= cdr((V52));
381    goto T152;
382  T152:;  T152:;
383          if(!(endp((V52)))){          if(!(endp((V52)))){
384          goto T157;}          goto T157;}
385          {object V53 = Cnil;          {object V53 = Cnil;
386          VMR10(V53)}          VMR10(V53)}
387    goto T157;
388  T157:;  T157:;
389          if(!(type_of(car((V52)))==t_cons)){          if(!(type_of(car((V52)))==t_cons)){
390          goto T160;}          goto T160;}
# Line 349  T157:; Line 392  T157:;
392          goto T160;}          goto T160;}
393          V52= cdr(car((V52)));          V52= cdr(car((V52)));
394          goto TTL;          goto TTL;
395    goto T160;
396  T160:;  T160:;
397          {register object V54;          {register object V54;
398          register object V55;          register object V55;
399          V54= (V52);          V54= (V52);
400          V55= Cnil;          V55= Cnil;
401    goto T167;
402  T167:;  T167:;
403          if(!(endp((V54)))){          if(!(endp((V54)))){
404          goto T168;}          goto T168;}
405          if(!(((V54))==Cnil)){          if(!(((V54))==Cnil)){
406          goto T172;}          goto T172;}
407          goto T171;          goto T171;
408    goto T172;
409  T172:;  T172:;
410          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[34],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[34],(V52))));
411    goto T171;
412  T171:;  T171:;
413          {object V56 = nreverse((V55));          {object V56 = nreverse((V55));
414          VMR10(V56)}          VMR10(V56)}
415    goto T168;
416  T168:;  T168:;
417          {register object V57;          {register object V57;
418          if(!((car((V54)))==(VV[31]))){          if(!((car((V54)))==(VV[31]))){
419          goto T178;}          goto T178;}
420          V57= VV[31];          V57= VV[31];
421          goto T176;          goto T176;
422    goto T178;
423  T178:;  T178:;
424          V57= (*(LnkLI122))(car((V54)));          V57= (*(LnkLI122))(car((V54)));
425    goto T176;
426  T176:;  T176:;
427          if(!(((V57))==(VV[32]))){          if(!(((V57))==(VV[32]))){
428          goto T180;}          goto T180;}
429          V57= Ct;          V57= Ct;
430    goto T180;
431  T180:;  T180:;
432          V55= make_cons((V57),(V55));}          V55= make_cons((V57),(V55));}
433          V54= cdr((V54));          V54= cdr((V54));
434          goto T167;}          goto T167;}
435            return Cnil;
436  }  }
437  /*      local entry for function ADD-FUNCTION-PROCLAMATION      */  /*      local entry for function ADD-FUNCTION-PROCLAMATION      */
438    
# Line 388  static object LI11(V61,V62,V63) Line 440  static object LI11(V61,V62,V63)
440    
441  object V61;register object V62;register object V63;  object V61;register object V62;register object V63;
442  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
443    goto TTL;
444  TTL:;  TTL:;
445          {register object V64;          {register object V64;
446          register object V65;          register object V65;
# Line 406  TTL:; Line 459  TTL:;
459          goto T199;}          goto T199;}
460          if(!((car((V62)))==(VV[31]))){          if(!((car((V62)))==(VV[31]))){
461          goto T200;}          goto T200;}
462    goto T199;
463  T199:;  T199:;
464          V65= VV[35];          V65= VV[35];
465          goto T198;          goto T198;
466    goto T200;
467  T200:;  T200:;
468          V65= (*(LnkLI124))(car((V62)));          V65= (*(LnkLI124))(car((V62)));
469    goto T198;
470  T198:;  T198:;
471          V66= (*(LnkLI125))(cdr((V62)));          V66= (*(LnkLI125))(cdr((V62)));
472          if(!(type_of((V66))==t_cons)){          if(!(type_of((V66))==t_cons)){
# Line 423  T198:; Line 479  T198:;
479          goto T221;}          goto T221;}
480          V69= Cnil;          V69= Cnil;
481          goto T220;          goto T220;
482    goto T221;
483  T221:;  T221:;
484          V69= (V65);          V69= (V65);
485    goto T220;
486  T220:;  T220:;
487          {register object x= VV[31],V68= V69;          {register object x= VV[31],V68= V69;
488          while(!endp(V68))          while(!endp(V68))
# Line 432  T220:; Line 490  T220:;
490          goto T219;          goto T219;
491          }else V68=V68->c.c_cdr;          }else V68=V68->c.c_cdr;
492          goto T218;}          goto T218;}
493    goto T219;
494  T219:;  T219:;
495          V66= Ct;          V66= Ct;
496          goto T216;          goto T216;
497    goto T218;
498  T218:;  T218:;
499          V66= car((V66));          V66= car((V66));
500    goto T216;
501  T216:;  T216:;
502          goto T208;          goto T208;
503    goto T210;
504  T210:;  T210:;
505          V64= Cnil;          V64= Cnil;
506    goto T208;
507  T208:;  T208:;
508          {object V70;          {object V70;
509          if(type_of((V65))==t_cons||((V65))==Cnil){          if(type_of((V65))==t_cons||((V65))==Cnil){
510          goto T226;}          goto T226;}
511          V70= Cnil;          V70= Cnil;
512          goto T225;          goto T225;
513    goto T226;
514  T226:;  T226:;
515          V70= ((length((V65)))<(64)?Ct:Cnil);          V70= ((length((V65)))<(64)?Ct:Cnil);
516    goto T225;
517  T225:;  T225:;
518          if(((V70))==Cnil){          if(((V70))==Cnil){
519          goto T229;}          goto T229;}
520          goto T224;          goto T224;
521    goto T229;
522  T229:;  T229:;
523          V64= Cnil;}          V64= Cnil;}
524    goto T224;
525  T224:;  T224:;
526          {register object V71;          {register object V71;
527          V71= (V61);          V71= (V61);
528    goto T233;
529  T233:;  T233:;
530          if(!(type_of((V71))==t_symbol)){          if(!(type_of((V71))==t_symbol)){
531          goto T237;}          goto T237;}
532          goto T236;          goto T236;
533    goto T237;
534  T237:;  T237:;
535          V61= (V71);          V61= (V71);
536          V63= Cnil;          V63= Cnil;
537          goto TTL;          goto TTL;
538    goto T236;
539  T236:;  T236:;
540          if(!(((V65))==(VV[31]))){          if(!(((V65))==(VV[31]))){
541          goto T245;}          goto T245;}
542          (void)(remprop((V71),VV[36]));          (void)(remprop((V71),VV[36]));
543          goto T243;          goto T243;
544    goto T245;
545  T245:;  T245:;
546          (void)(putprop((V71),(V65),VV[36]));          (void)(putprop((V71),(V65),VV[36]));
547    goto T243;
548  T243:;  T243:;
549          (void)(putprop((V71),(V66),VV[37]));          (void)(putprop((V71),(V66),VV[37]));
550          if(((V64))==Cnil){          if(((V64))==Cnil){
551          goto T250;}          goto T250;}
552          (void)(putprop((V71),Ct,VV[38]));          (void)(putprop((V71),Ct,VV[38]));
553          goto T248;          goto T248;
554    goto T250;
555  T250:;  T250:;
556          (void)(remprop((V71),VV[38]));          (void)(remprop((V71),VV[38]));
557    goto T248;
558  T248:;  T248:;
559          V63= cdr((V63));          V63= cdr((V63));
560          if(!(type_of((V63))==t_cons)){          if(!(type_of((V63))==t_cons)){
561          goto T255;}          goto T255;}
562          goto T254;          goto T254;
563    goto T255;
564  T255:;  T255:;
565          {object V72 = VV[39];          {object V72 = VV[39];
566          VMR11(V72)}          VMR11(V72)}
567    goto T254;
568  T254:;  T254:;
569          V71= car((V63));          V71= car((V63));
570          goto T233;}          goto T233;}
571    goto T192;
572  T192:;  T192:;
573          {object V73 = (VFUN_NARGS=3,(*(LnkLI123))(VV[40],(V61),(V62)));          {object V73 = (VFUN_NARGS=3,(*(LnkLI123))(VV[40],(V61),(V62)));
574          VMR11(V73)}}          VMR11(V73)}}
575            return Cnil;
576  }  }
577  /*      local entry for function ADD-FUNCTION-DECLARATION       */  /*      local entry for function ADD-FUNCTION-DECLARATION       */
578    
# Line 502  static object LI12(V77,V78,V79) Line 580  static object LI12(V77,V78,V79)
580    
581  object V77;object V78;object V79;  object V77;object V78;object V79;
582  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
583    goto TTL;
584  TTL:;  TTL:;
585          if(!(type_of((V77))==t_symbol)){          if(!(type_of((V77))==t_symbol)){
586          goto T261;}          goto T261;}
# Line 511  TTL:; Line 590  TTL:;
590          setq(VV[15],make_cons(/* INLINE-ARGS */V82,symbol_value(VV[15])));          setq(VV[15],make_cons(/* INLINE-ARGS */V82,symbol_value(VV[15])));
591          {object V83 = symbol_value(VV[15]);          {object V83 = symbol_value(VV[15]);
592          VMR12(V83)}          VMR12(V83)}
593    goto T261;
594  T261:;  T261:;
595          {object V84 = (VFUN_NARGS=2,(*(LnkLI123))(VV[41],(V77)));          {object V84 = (VFUN_NARGS=2,(*(LnkLI123))(VV[41],(V77)));
596          VMR12(V84)}          VMR12(V84)}
597            return Cnil;
598  }  }
599  /*      local entry for function GET-ARG-TYPES  */  /*      local entry for function GET-ARG-TYPES  */
600    
# Line 521  static object LI13(V86) Line 602  static object LI13(V86)
602    
603  object V86;  object V86;
604  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
605    goto TTL;
606  TTL:;  TTL:;
607          {object V87;          {object V87;
608          V87= Cnil;          V87= Cnil;
# Line 531  TTL:; Line 613  TTL:;
613          goto T268;          goto T268;
614          }else V88=V88->c.c_cdr;          }else V88=V88->c.c_cdr;
615          V87= Cnil;}          V87= Cnil;}
616    goto T268;
617  T268:;  T268:;
618          if(((V87))==Cnil){          if(((V87))==Cnil){
619          goto T266;}          goto T266;}
620          {object V89 = cadr((V87));          {object V89 = cadr((V87));
621          VMR13(V89)}          VMR13(V89)}
622    goto T266;
623  T266:;  T266:;
624          {object V90 = get((V86),VV[36],Cnil);          {object V90 = get((V86),VV[36],Cnil);
625          VMR13(V90)}}          VMR13(V90)}}
626            return Cnil;
627  }  }
628  /*      local entry for function GET-RETURN-TYPE        */  /*      local entry for function GET-RETURN-TYPE        */
629    
# Line 546  static object LI14(V92) Line 631  static object LI14(V92)
631    
632  register object V92;  register object V92;
633  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
634    goto TTL;
635  TTL:;  TTL:;
636          {object V93;          {object V93;
637          object V94;          object V94;
# Line 557  TTL:; Line 643  TTL:;
643          goto T269;          goto T269;
644          }else V96=V96->c.c_cdr;          }else V96=V96->c.c_cdr;
645          V93= Cnil;}          V93= Cnil;}
646    goto T269;
647  T269:;  T269:;
648          if(((V93))==Cnil){          if(((V93))==Cnil){
649          goto T272;}          goto T272;}
650          V94= caddr((V93));          V94= caddr((V93));
651          goto T270;          goto T270;
652    goto T272;
653  T272:;  T272:;
654          V94= get((V92),VV[37],Cnil);          V94= get((V92),VV[37],Cnil);
655    goto T270;
656  T270:;  T270:;
657          if((get((V92),VV[42],Cnil))==Cnil){          if((get((V92),VV[42],Cnil))==Cnil){
658          goto T276;}          goto T276;}
659          V95= VV[43];          V95= VV[43];
660          goto T274;          goto T274;
661    goto T276;
662  T276:;  T276:;
663          V95= get((V92),VV[44],Cnil);          V95= get((V92),VV[44],Cnil);
664    goto T274;
665  T274:;  T274:;
666          if(((V94))==Cnil){          if(((V94))==Cnil){
667          goto T279;}          goto T279;}
# Line 581  T274:; Line 672  T274:;
672          goto T285;}          goto T285;}
673          {object V97 = (V95);          {object V97 = (V95);
674          VMR14(V97)}          VMR14(V97)}
675    goto T285;
676  T285:;  T285:;
677          {object V98 = (VFUN_NARGS=2,(*(LnkLI128))(VV[45],(V92)));          {object V98 = (VFUN_NARGS=2,(*(LnkLI128))(VV[45],(V92)));
678          VMR14(V98)}          VMR14(V98)}
679    goto T282;
680  T282:;  T282:;
681          {object V99 = (V94);          {object V99 = (V94);
682          VMR14(V99)}          VMR14(V99)}
683    goto T279;
684  T279:;  T279:;
685          {object V100 = (V95);          {object V100 = (V95);
686          VMR14(V100)}}          VMR14(V100)}}
687            base[0]=base[0];
688            return Cnil;
689  }  }
690  /*      local entry for function GET-LOCAL-ARG-TYPES    */  /*      local entry for function GET-LOCAL-ARG-TYPES    */
691    
# Line 597  static object LI15(V102) Line 693  static object LI15(V102)
693    
694  object V102;  object V102;
695  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
696    goto TTL;
697  TTL:;  TTL:;
698          {object V103;          {object V103;
699          V103= Cnil;          V103= Cnil;
# Line 607  TTL:; Line 704  TTL:;
704          goto T292;          goto T292;
705          }else V104=V104->c.c_cdr;          }else V104=V104->c.c_cdr;
706          V103= Cnil;}          V103= Cnil;}
707    goto T292;
708  T292:;  T292:;
709          if(((V103))==Cnil){          if(((V103))==Cnil){
710          goto T290;}          goto T290;}
711          {object V105 = cadr((V103));          {object V105 = cadr((V103));
712          VMR15(V105)}          VMR15(V105)}
713    goto T290;
714  T290:;  T290:;
715          {object V106 = Cnil;          {object V106 = Cnil;
716          VMR15(V106)}}          VMR15(V106)}}
717            return Cnil;
718  }  }
719  /*      local entry for function GET-LOCAL-RETURN-TYPE  */  /*      local entry for function GET-LOCAL-RETURN-TYPE  */
720    
# Line 622  static object LI16(V108) Line 722  static object LI16(V108)
722    
723  object V108;  object V108;
724  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
725    goto TTL;
726  TTL:;  TTL:;
727          {object V109;          {object V109;
728          V109= Cnil;          V109= Cnil;
# Line 632  TTL:; Line 733  TTL:;
733          goto T297;          goto T297;
734          }else V110=V110->c.c_cdr;          }else V110=V110->c.c_cdr;
735          V109= Cnil;}          V109= Cnil;}
736    goto T297;
737  T297:;  T297:;
738          if(((V109))==Cnil){          if(((V109))==Cnil){
739          goto T295;}          goto T295;}
740          {object V111 = caddr((V109));          {object V111 = caddr((V109));
741          VMR16(V111)}          VMR16(V111)}
742    goto T295;
743  T295:;  T295:;
744          {object V112 = Cnil;          {object V112 = Cnil;
745          VMR16(V112)}}          VMR16(V112)}}
746            return Cnil;
747  }  }
748  /*      local entry for function RESET-TOP      */  /*      local entry for function RESET-TOP      */
749    
750  static object LI17()  static object LI17()
751    
752  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
753    goto TTL;
754  TTL:;  TTL:;
755          princ_str("vs_top=sup;",VV[46]);          princ_str("vs_top=sup;",VV[46]);
756          setq(VV[47],Ct);          setq(VV[47],Ct);
757          {object V113 = Ct;          {object V113 = Ct;
758          VMR17(V113)}          VMR17(V113)}
759            return Cnil;
760  }  }
761  /*      macro definition for BASE-USED  */  /*      macro definition for BASE-USED  */
762    
763  static L18()  static void L18()
764  {register object *base=vs_base;  {register object *base=vs_base;
765          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
766          vs_reserve(VM18);          vs_reserve(VM18);
# Line 672  static object LI19(V116) Line 778  static object LI19(V116)
778    
779  object V116;  object V116;
780  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
781    goto TTL;
782  TTL:;  TTL:;
783          if(symbol_value(VV[49])!=Cnil){          if(symbol_value(VV[49])!=Cnil){
784          V117= symbol_value(VV[49]);          V117= symbol_value(VV[49]);
# Line 683  TTL:; Line 790  TTL:;
790          goto T303;          goto T303;
791          }else V119=V119->c.c_cdr;          }else V119=V119->c.c_cdr;
792          V118= Cnil;}          V118= Cnil;}
793    goto T303;
794  T303:;  T303:;
795          if(V118==Cnil)goto T302;          if(V118==Cnil)goto T302;
796          V117= V118;          V117= V118;
797          goto T301;          goto T301;
798    goto T302;
799  T302:;}  T302:;}
800          V117= get((V116),VV[50],Cnil);          V117= get((V116),VV[50],Cnil);
801    goto T301;
802  T301:;  T301:;
803          {object V120 = ((V117)==Cnil?Ct:Cnil);          {object V120 = ((V117)==Cnil?Ct:Cnil);
804          VMR19(V120)}          VMR19(V120)}
805            return Cnil;
806  }  }
807  /*      local entry for function PROCLAIM       */  /*      local entry for function PROCLAIM       */
808    
# Line 699  static object LI20(V122) Line 810  static object LI20(V122)
810    
811  object V122;  object V122;
812  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
813    goto TTL;
814  TTL:;  TTL:;
815          {object V123= car((V122));          {object V123= car((V122));
816          if((V123!= VV[129]))goto T305;          if((V123!= VV[129]))goto T305;
# Line 706  TTL:; Line 818  TTL:;
818          object V125;          object V125;
819          V124= cdr((V122));          V124= cdr((V122));
820          V125= car((V124));          V125= car((V124));
821    goto T309;
822  T309:;  T309:;
823          if(!(endp((V124)))){          if(!(endp((V124)))){
824          goto T310;}          goto T310;}
825          goto T304;          goto T304;
826    goto T310;
827  T310:;  T310:;
828          if(!(type_of((V125))==t_symbol)){          if(!(type_of((V125))==t_symbol)){
829          goto T316;}          goto T316;}
# Line 718  T310:; Line 832  T310:;
832          (void) (*Lnk130)();          (void) (*Lnk130)();
833          vs_top=sup;          vs_top=sup;
834          goto T314;          goto T314;
835    goto T316;
836  T316:;  T316:;
837          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[51],(V125))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[51],(V125))));
838    goto T314;
839  T314:;  T314:;
840          V124= cdr((V124));          V124= cdr((V124));
841          V125= car((V124));          V125= car((V124));
842          goto T309;}          goto T309;}
843    goto T305;
844  T305:;  T305:;
845          if((V123!= VV[131]))goto T324;          if((V123!= VV[131]))goto T324;
846          {register object V126;          {register object V126;
847          register object V127;          register object V127;
848          V126= cdr((V122));          V126= cdr((V122));
849          V127= car((V126));          V127= car((V126));
850    goto T328;
851  T328:;  T328:;
852          if(!(endp((V126)))){          if(!(endp((V126)))){
853          goto T329;}          goto T329;}
854          goto T304;          goto T304;
855    goto T329;
856  T329:;  T329:;
857          if(!(type_of((V127))==t_symbol)){          if(!(type_of((V127))==t_symbol)){
858          goto T333;}          goto T333;}
859          V127= list(2,(V127),small_fixnum(3));          V127= list(2,(V127),small_fixnum(3));
860    goto T333;
861  T333:;  T333:;
862          if(!(type_of((V127))==t_cons)){          if(!(type_of((V127))==t_cons)){
863          goto T338;}          goto T338;}
# Line 759  type_of(V128)==t_complex)){ Line 879  type_of(V128)==t_complex)){
879          vs_top=sup;          vs_top=sup;
880          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
881          goto T339;}          goto T339;}
882    goto T338;
883  T338:;  T338:;
884          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[52],(V127))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[52],(V127))));
885          goto T337;          goto T337;
886    goto T339;
887  T339:;  T339:;
888          {object V129= car((V127));          {object V129= car((V127));
889          if((V129!= VV[85]))goto T350;          if((V129!= VV[85]))goto T350;
# Line 769  T339:; Line 891  T339:;
891          setq(VV[54],(number_compare(cadr((V127)),small_fixnum(2))>=0?Ct:Cnil));          setq(VV[54],(number_compare(cadr((V127)),small_fixnum(2))>=0?Ct:Cnil));
892          setq(VV[49],(number_compare(cadr((V127)),small_fixnum(3))>=0?Ct:Cnil));          setq(VV[49],(number_compare(cadr((V127)),small_fixnum(3))>=0?Ct:Cnil));
893          goto T337;          goto T337;
894    goto T350;
895  T350:;  T350:;
896          if((V129!= VV[86]))goto T356;          if((V129!= VV[86]))goto T356;
897          setq(VV[55],cadr((V127)));          setq(VV[55],cadr((V127)));
898          goto T337;          goto T337;
899    goto T356;
900  T356:;  T356:;
901          if((V129!= VV[132]))goto T358;          if((V129!= VV[132]))goto T358;
902          setq(VV[56],cadr((V127)));          setq(VV[56],cadr((V127)));
903          goto T337;          goto T337;
904    goto T358;
905  T358:;  T358:;
906          if((V129!= VV[133]))goto T360;          if((V129!= VV[133]))goto T360;
907          setq(VV[56],number_minus(small_fixnum(3),cadr((V127))));          setq(VV[56],number_minus(small_fixnum(3),cadr((V127))));
908          goto T337;          goto T337;
909    goto T360;
910  T360:;  T360:;
911          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[57],car((V127)))));}          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[57],car((V127)))));}
912    goto T337;
913  T337:;  T337:;
914          V126= cdr((V126));          V126= cdr((V126));
915          V127= car((V126));          V127= car((V126));
916          goto T328;}          goto T328;}
917    goto T324;
918  T324:;  T324:;
919          if((V123!= VV[134]))goto T367;          if((V123!= VV[134]))goto T367;
920          if(!(type_of(cdr((V122)))==t_cons)){          if(!(type_of(cdr((V122)))==t_cons)){
921          goto T369;}          goto T369;}
922          (void)((*(LnkLI135))(cadr((V122)),cddr((V122))));          (void)((*(LnkLI135))(cadr((V122)),cddr((V122))));
923          goto T304;          goto T304;
924    goto T369;
925  T369:;  T369:;
926          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[58],(V122))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[58],(V122))));
927          goto T304;          goto T304;
928    goto T367;
929  T367:;  T367:;
930          if((V123!= VV[136])          if((V123!= VV[136])
931          && (V123!= VV[137])          && (V123!= VV[137])
# Line 803  T367:; Line 933  T367:;
933          && (V123!= VV[139]))goto T371;          && (V123!= VV[139]))goto T371;
934          (void)((*(LnkLI135))(car((V122)),cdr((V122))));          (void)((*(LnkLI135))(car((V122)),cdr((V122))));
935          goto T304;          goto T304;
936    goto T371;
937  T371:;  T371:;
938          if((V123!= VV[140]))goto T372;          if((V123!= VV[140]))goto T372;
939          if(!(type_of(cdr((V122)))==t_cons)){          if(!(type_of(cdr((V122)))==t_cons)){
# Line 813  T371:; Line 944  T371:;
944          goto T374;}          goto T374;}
945          (void)((*(LnkLI141))(caddr((V122)),cdr(cadr((V122))),cddr((V122))));          (void)((*(LnkLI141))(caddr((V122)),cdr(cadr((V122))),cddr((V122))));
946          goto T304;          goto T304;
947    goto T374;
948  T374:;  T374:;
949          (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[59],(V122))));          (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[59],(V122))));
950          goto T304;          goto T304;
951    goto T372;
952  T372:;  T372:;
953          if((V123!= VV[26]))goto T380;          if((V123!= VV[26]))goto T380;
954          if(!(type_of(cdr((V122)))==t_cons)){          if(!(type_of(cdr((V122)))==t_cons)){
955          goto T382;}          goto T382;}
956          (void)((*(LnkLI141))(cadr((V122)),cddr((V122)),Cnil));          (void)((*(LnkLI141))(cadr((V122)),cddr((V122)),Cnil));
957          goto T304;          goto T304;
958    goto T382;
959  T382:;  T382:;
960          (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[60],(V122))));          (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[60],(V122))));
961          goto T304;          goto T304;
962    goto T380;
963  T380:;  T380:;
964          if((V123!= VV[90]))goto T384;          if((V123!= VV[90]))goto T384;
965          {register object V130;          {register object V130;
966          object V131;          object V131;
967          V130= cdr((V122));          V130= cdr((V122));
968          V131= car((V130));          V131= car((V130));
969    goto T388;
970  T388:;  T388:;
971          if(!(endp((V130)))){          if(!(endp((V130)))){
972          goto T389;}          goto T389;}
973          goto T304;          goto T304;
974    goto T389;
975  T389:;  T389:;
976          if(!(type_of((V131))==t_symbol)){          if(!(type_of((V131))==t_symbol)){
977          goto T395;}          goto T395;}
978          (void)(remprop((V131),VV[50]));          (void)(remprop((V131),VV[50]));
979          goto T393;          goto T393;
980    goto T395;
981  T395:;  T395:;
982          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[61],(V131))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[61],(V131))));
983    goto T393;
984  T393:;  T393:;
985          V130= cdr((V130));          V130= cdr((V130));
986          V131= car((V130));          V131= car((V130));
987          goto T388;}          goto T388;}
988    goto T384;
989  T384:;  T384:;
990          if((V123!= VV[92]))goto T402;          if((V123!= VV[92]))goto T402;
991          {register object V132;          {register object V132;
992          object V133;          object V133;
993          V132= cdr((V122));          V132= cdr((V122));
994          V133= car((V132));          V133= car((V132));
995    goto T406;
996  T406:;  T406:;
997          if(!(endp((V132)))){          if(!(endp((V132)))){
998          goto T407;}          goto T407;}
999          goto T304;          goto T304;
1000    goto T407;
1001  T407:;  T407:;
1002          if(!(type_of((V133))==t_symbol)){          if(!(type_of((V133))==t_symbol)){
1003          goto T413;}          goto T413;}
1004          (void)(putprop((V133),Ct,VV[50]));          (void)(putprop((V133),Ct,VV[50]));
1005          goto T411;          goto T411;
1006    goto T413;
1007  T413:;  T413:;
1008          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[62],(V133))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[62],(V133))));
1009    goto T411;
1010  T411:;  T411:;
1011          V132= cdr((V132));          V132= cdr((V132));
1012          V133= car((V132));          V133= car((V132));
1013          goto T406;}          goto T406;}
1014    goto T402;
1015  T402:;  T402:;
1016          if((V123!= VV[79])          if((V123!= VV[79])
1017          && (V123!= VV[142]))goto T420;          && (V123!= VV[142]))goto T420;
# Line 874  T402:; Line 1019  T402:;
1019          object V135;          object V135;
1020          V134= cdr((V122));          V134= cdr((V122));
1021          V135= car((V134));          V135= car((V134));
1022    goto T424;
1023  T424:;  T424:;
1024          if(!(endp((V134)))){          if(!(endp((V134)))){
1025          goto T425;}          goto T425;}
1026          goto T304;          goto T304;
1027    goto T425;
1028  T425:;  T425:;
1029          if(type_of((V135))==t_symbol){          if(type_of((V135))==t_symbol){
1030          goto T429;}          goto T429;}
1031          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[63],(V135))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[63],(V135))));
1032    goto T429;
1033  T429:;  T429:;
1034          V134= cdr((V134));          V134= cdr((V134));
1035          V135= car((V134));          V135= car((V134));
1036          goto T424;}          goto T424;}
1037    goto T420;
1038  T420:;  T420:;
1039          if((V123!= VV[143]))goto T437;          if((V123!= VV[143]))goto T437;
1040          {register object V136;          {register object V136;
1041          register object V137;          register object V137;
1042          V136= cdr((V122));          V136= cdr((V122));
1043          V137= car((V136));          V137= car((V136));
1044    goto T441;
1045  T441:;  T441:;
1046          if(!(endp((V136)))){          if(!(endp((V136)))){
1047          goto T442;}          goto T442;}
1048          goto T304;          goto T304;
1049    goto T442;
1050  T442:;  T442:;
1051          if(!(type_of((V137))==t_symbol)){          if(!(type_of((V137))==t_symbol)){
1052          goto T448;}          goto T448;}
# Line 906  T442:; Line 1057  T442:;
1057          }else V138=V138->c.c_cdr;}          }else V138=V138->c.c_cdr;}
1058          setq(VV[64],make_cons((V137),symbol_value(VV[64])));          setq(VV[64],make_cons((V137),symbol_value(VV[64])));
1059          goto T446;          goto T446;
1060    goto T448;
1061  T448:;  T448:;
1062          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[65],(V137))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[65],(V137))));
1063    goto T446;
1064  T446:;  T446:;
1065          V136= cdr((V136));          V136= cdr((V136));
1066          V137= car((V136));          V137= car((V136));
1067          goto T441;}          goto T441;}
1068    goto T437;
1069  T437:;  T437:;
1070          if((V123== VV[144])          if((V123== VV[144])
1071          || (V123== VV[145])          || (V123== VV[145])
# Line 956  T437:; Line 1110  T437:;
1110          if((V123!= VV[176])          if((V123!= VV[176])
1111          && (V123!= VV[177])          && (V123!= VV[177])
1112          && (V123!= VV[178]))goto T458;          && (V123!= VV[178]))goto T458;
1113    goto T459;
1114  T459:;  T459:;
1115          (void)((*(LnkLI135))(car((V122)),cdr((V122))));          (void)((*(LnkLI135))(car((V122)),cdr((V122))));
1116          goto T304;          goto T304;
1117    goto T458;
1118  T458:;  T458:;
1119          {register object x= car((V122)),V139= symbol_value(VV[64]);          {register object x= car((V122)),V139= symbol_value(VV[64]);
1120          while(!endp(V139))          while(!endp(V139))
# Line 966  T458:; Line 1122  T458:;
1122          goto T460;          goto T460;
1123          }else V139=V139->c.c_cdr;}          }else V139=V139->c.c_cdr;}
1124          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[66],car((V122)))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[66],car((V122)))));
1125    goto T460;
1126  T460:;  T460:;
1127          base[0]= get(car((V122)),VV[67],Cnil);          base[0]= get(car((V122)),VV[67],Cnil);
1128          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 974  T460:; Line 1131  T460:;
1131          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1132          goto T463;}          goto T463;}
1133          goto T304;          goto T304;
1134    goto T463;
1135  T463:;  T463:;
1136          {register object V140;          {register object V140;
1137          object V141;          object V141;
1138          V140= cdr((V122));          V140= cdr((V122));
1139          V141= car((V140));          V141= car((V140));
1140    goto T469;
1141  T469:;  T469:;
1142          if(!(endp((V140)))){          if(!(endp((V140)))){
1143          goto T470;}          goto T470;}
1144          goto T304;          goto T304;
1145    goto T470;
1146  T470:;  T470:;
1147          V142= get(car((V122)),VV[67],Cnil);          V142= get(car((V122)),VV[67],Cnil);
1148          (void)((          (void)((
# Line 992  T470:; Line 1152  T470:;
1152          V140= cdr((V140));          V140= cdr((V140));
1153          V141= car((V140));          V141= car((V140));
1154          goto T469;}}          goto T469;}}
1155    goto T304;
1156  T304:;  T304:;
1157          {object V144 = Cnil;          {object V144 = Cnil;
1158          VMR20(V144)}          VMR20(V144)}
1159            base[0]=base[0];
1160            return Cnil;
1161  }  }
1162  /*      local entry for function PROCLAIM-VAR   */  /*      local entry for function PROCLAIM-VAR   */
1163    
# Line 1002  static object LI21(V147,V148) Line 1165  static object LI21(V147,V148)
1165    
1166  register object V147;object V148;  register object V147;object V148;
1167  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1168    goto TTL;
1169  TTL:;  TTL:;
1170          V147= (*(LnkLI122))((V147));          V147= (*(LnkLI122))((V147));
1171          {register object V149;          {register object V149;
1172          register object V150;          register object V150;
1173          V149= (V148);          V149= (V148);
1174          V150= car((V149));          V150= car((V149));
1175    goto T486;
1176  T486:;  T486:;
1177          if(!(endp((V149)))){          if(!(endp((V149)))){
1178          goto T487;}          goto T487;}
1179          {object V151 = Cnil;          {object V151 = Cnil;
1180          VMR21(V151)}          VMR21(V151)}
1181    goto T487;
1182  T487:;  T487:;
1183          if(!(type_of((V150))==t_symbol)){          if(!(type_of((V150))==t_symbol)){
1184          goto T493;}          goto T493;}
# Line 1024  T487:; Line 1190  T487:;
1190          goto T500;}          goto T500;}
1191          V152= (*(LnkLI127))((V152),(V147));          V152= (*(LnkLI127))((V152),(V147));
1192          goto T498;          goto T498;
1193    goto T500;
1194  T500:;  T500:;
1195          V152= (V147);          V152= (V147);
1196    goto T498;
1197  T498:;  T498:;
1198          if(((V153))==Cnil){          if(((V153))==Cnil){
1199          goto T502;}          goto T502;}
1200          V154= structure_ref((V153),VV[69],5);          V154= structure_ref((V153),VV[69],5);
1201          V152= (*(LnkLI127))((V152),/* INLINE-ARGS */V154);          V152= (*(LnkLI127))((V152),/* INLINE-ARGS */V154);
1202    goto T502;
1203  T502:;  T502:;
1204          if(((V152))!=Cnil){          if(((V152))!=Cnil){
1205          goto T506;}          goto T506;}
1206          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[70],(V150))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[70],(V150))));
1207    goto T506;
1208  T506:;  T506:;
1209          (void)(putprop((V150),(V152),VV[68]));          (void)(putprop((V150),(V152),VV[68]));
1210          if(((V153))==Cnil){          if(((V153))==Cnil){
1211          goto T491;}          goto T491;}
1212          (void)(structure_set((V153),VV[69],5,(V152)));          (void)(structure_set((V153),VV[69],5,(V152)));
1213          goto T491;}          goto T491;}
1214    goto T493;
1215  T493:;  T493:;
1216          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[71],(V150))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[71],(V150))));
1217    goto T491;
1218  T491:;  T491:;
1219          V149= cdr((V149));          V149= cdr((V149));
1220          V150= car((V149));          V150= car((V149));
1221          goto T486;}          goto T486;}
1222            base[0]=base[0];
1223            return Cnil;
1224  }  }
1225  /*      function definition for C1BODY  */  /*      function definition for C1BODY  */
1226    
1227  static L22()  static void L22()
1228  {register object *base=vs_base;  {register object *base=vs_base;
1229          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1230          vs_reserve(VM22);          vs_reserve(VM22);
# Line 1060  static L22() Line 1234  static L22()
1234          V155=(base[0]);          V155=(base[0]);
1235          V156=(base[1]);          V156=(base[1]);
1236          vs_top=sup;          vs_top=sup;
1237    goto TTL;
1238  TTL:;  TTL:;
1239          {object V157;          {object V157;
1240          object V158;          object V158;
# Line 1073  TTL:; Line 1248  TTL:;
1248          V160= Cnil;          V160= Cnil;
1249          V161= Cnil;          V161= Cnil;
1250          V162= Cnil;          V162= Cnil;
1251    goto T525;
1252  T525:;  T525:;
1253          if(!(endp((V155)))){          if(!(endp((V155)))){
1254          goto T527;}          goto T527;}
1255          goto T523;          goto T523;
1256    goto T527;
1257  T527:;  T527:;
1258          V162= (*(LnkLI180))(car((V155)));          V162= (*(LnkLI180))(car((V155)));
1259          if(!(type_of((V162))==t_string)){          if(!(type_of((V162))==t_string)){
# Line 1087  T527:; Line 1264  T527:;
1264          goto T537;}          goto T537;}
1265          if(((V161))==Cnil){          if(((V161))==Cnil){
1266          goto T536;}          goto T536;}
1267    goto T537;
1268  T537:;  T537:;
1269          goto T523;          goto T523;
1270    goto T536;
1271  T536:;  T536:;
1272          V161= (V162);          V161= (V162);
1273          goto T532;          goto T532;
1274    goto T534;
1275  T534:;  T534:;
1276          if(!(type_of((V162))==t_cons)){          if(!(type_of((V162))==t_cons)){
1277          goto T545;}          goto T545;}
# Line 1101  T534:; Line 1281  T534:;
1281          register object V164;          register object V164;
1282          V163= cdr((V162));          V163= cdr((V162));
1283          V164= car((V163));          V164= car((V163));
1284    goto T552;
1285  T552:;  T552:;
1286          if(!(endp((V163)))){          if(!(endp((V163)))){
1287          goto T553;}          goto T553;}
1288          goto T532;          goto T532;
1289    goto T553;
1290  T553:;  T553:;
1291          if(!(type_of((V164))==t_cons)){          if(!(type_of((V164))==t_cons)){
1292          goto T558;}          goto T558;}
1293          if(type_of(car((V164)))==t_symbol){          if(type_of(car((V164)))==t_symbol){
1294          goto T557;}          goto T557;}
1295    goto T558;
1296  T558:;  T558:;
1297          (void)((VFUN_NARGS=2,(*(LnkLI121))(VV[73],(V164))));          (void)((VFUN_NARGS=2,(*(LnkLI121))(VV[73],(V164))));
1298    goto T557;
1299  T557:;  T557:;
1300          {object V165= car((V164));          {object V165= car((V164));
1301          if((V165!= VV[129]))goto T563;          if((V165!= VV[129]))goto T563;
# Line 1119  T557:; Line 1303  T557:;
1303          object V167;          object V167;
1304          V166= cdr((V164));          V166= cdr((V164));
1305          V167= car((V166));          V167= car((V166));
1306    goto T567;
1307  T567:;  T567:;
1308          if(!(endp((V166)))){          if(!(endp((V166)))){
1309          goto T568;}          goto T568;}
1310          goto T562;          goto T562;
1311    goto T568;
1312  T568:;  T568:;
1313          if(type_of((V167))==t_symbol){          if(type_of((V167))==t_symbol){
1314          goto T572;}          goto T572;}
1315          (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[74],(V164),(V167))));          (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[74],(V164),(V167))));
1316    goto T572;
1317  T572:;  T572:;
1318          V157= make_cons((V167),(V157));          V157= make_cons((V167),(V157));
1319          V166= cdr((V166));          V166= cdr((V166));
1320          V167= car((V166));          V167= car((V166));
1321          goto T567;}          goto T567;}
1322    goto T563;
1323  T563:;  T563:;
1324          if((V165!= VV[142]))goto T582;          if((V165!= VV[142]))goto T582;
1325          {register object V168;          {register object V168;
1326          object V169;          object V169;
1327          V168= cdr((V164));          V168= cdr((V164));
1328          V169= car((V168));          V169= car((V168));
1329    goto T586;
1330  T586:;  T586:;
1331          if(!(endp((V168)))){          if(!(endp((V168)))){
1332          goto T587;}          goto T587;}
1333          goto T562;          goto T562;
1334    goto T587;
1335  T587:;  T587:;
1336          if(type_of((V169))==t_symbol){          if(type_of((V169))==t_symbol){
1337          goto T591;}          goto T591;}
1338          (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[75],(V164),(V169))));          (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[75],(V164),(V169))));
1339    goto T591;
1340  T591:;  T591:;
1341          V158= make_cons((V169),(V158));          V158= make_cons((V169),(V158));
1342          V168= cdr((V168));          V168= cdr((V168));
1343          V169= car((V168));          V169= car((V168));
1344          goto T586;}          goto T586;}
1345    goto T582;
1346  T582:;  T582:;
1347          if((V165!= VV[134]))goto T601;          if((V165!= VV[134]))goto T601;
1348          if(!(endp(cdr((V164))))){          if(!(endp(cdr((V164))))){
1349          goto T602;}          goto T602;}
1350          (void)((VFUN_NARGS=2,(*(LnkLI121))(VV[76],(V164))));          (void)((VFUN_NARGS=2,(*(LnkLI121))(VV[76],(V164))));
1351    goto T602;
1352  T602:;  T602:;
1353          {object V170;          {object V170;
1354          V170= (*(LnkLI122))(cadr((V164)));          V170= (*(LnkLI122))(cadr((V164)));
# Line 1165  T602:; Line 1358  T602:;
1358          object V172;          object V172;
1359          V171= cddr((V164));          V171= cddr((V164));
1360          V172= car((V171));          V172= car((V171));
1361    goto T611;
1362  T611:;  T611:;
1363          if(!(endp((V171)))){          if(!(endp((V171)))){
1364          goto T612;}          goto T612;}
1365          goto T562;          goto T562;
1366    goto T612;
1367  T612:;  T612:;
1368          if(type_of((V172))==t_symbol){          if(type_of((V172))==t_symbol){
1369          goto T616;}          goto T616;}
1370          (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[77],(V164),(V172))));          (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[77],(V164),(V172))));
1371    goto T616;
1372  T616:;  T616:;
1373          V173= make_cons((V172),(V170));          V173= make_cons((V172),(V170));
1374          V159= make_cons(/* INLINE-ARGS */V173,(V159));          V159= make_cons(/* INLINE-ARGS */V173,(V159));
1375          V171= cdr((V171));          V171= cdr((V171));
1376          V172= car((V171));          V172= car((V171));
1377          goto T611;}}          goto T611;}}
1378    goto T601;
1379  T601:;  T601:;
1380          if((V165!= VV[79]))goto T626;          if((V165!= VV[79]))goto T626;
1381          {register object V174;          {register object V174;
1382          object V175;          object V175;
1383          V174= cdr((V164));          V174= cdr((V164));
1384          V175= car((V174));          V175= car((V174));
1385    goto T630;
1386  T630:;  T630:;
1387          if(!(endp((V174)))){          if(!(endp((V174)))){
1388          goto T631;}          goto T631;}
1389          goto T562;          goto T562;
1390    goto T631;
1391  T631:;  T631:;
1392          if(type_of((V175))==t_symbol){          if(type_of((V175))==t_symbol){
1393          goto T635;}          goto T635;}
1394          (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[78],(V164),(V175))));          (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[78],(V164),(V175))));
1395    goto T635;
1396  T635:;  T635:;
1397          V176= make_cons((V175),VV[79]);          V176= make_cons((V175),VV[79]);
1398          V159= make_cons(/* INLINE-ARGS */V176,(V159));          V159= make_cons(/* INLINE-ARGS */V176,(V159));
1399          V174= cdr((V174));          V174= cdr((V174));
1400          V175= car((V174));          V175= car((V174));
1401          goto T630;}          goto T630;}
1402    goto T626;
1403  T626:;  T626:;
1404          if((V165!= VV[181]))goto T645;          if((V165!= VV[181]))goto T645;
1405          {register object V177;          {register object V177;
1406          object V178;          object V178;
1407          V177= cdr((V164));          V177= cdr((V164));
1408          V178= car((V177));          V178= car((V177));
1409    goto T649;
1410  T649:;  T649:;
1411          if(!(endp((V177)))){          if(!(endp((V177)))){
1412          goto T650;}          goto T650;}
1413          goto T562;          goto T562;
1414    goto T650;
1415  T650:;  T650:;
1416          if(type_of((V178))==t_symbol){          if(type_of((V178))==t_symbol){
1417          goto T654;}          goto T654;}
1418          (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[80],(V164),(V178))));          (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[80],(V164),(V178))));
1419    goto T654;
1420  T654:;  T654:;
1421          V179= make_cons((V178),VV[81]);          V179= make_cons((V178),VV[81]);
1422          V159= make_cons(/* INLINE-ARGS */V179,(V159));          V159= make_cons(/* INLINE-ARGS */V179,(V159));
1423          V177= cdr((V177));          V177= cdr((V177));
1424          V178= car((V177));          V178= car((V177));
1425          goto T649;}          goto T649;}
1426    goto T645;
1427  T645:;  T645:;
1428          if((V165== VV[136])          if((V165== VV[136])
1429          || (V165== VV[137])          || (V165== VV[137])
# Line 1264  T645:; Line 1469  T645:;
1469          && (V165!= VV[177])          && (V165!= VV[177])
1470          && (V165!= VV[178])          && (V165!= VV[178])
1471          && (V165!= VV[82]))goto T664;          && (V165!= VV[82]))goto T664;
1472    goto T665;
1473  T665:;  T665:;
1474          {object V180;          {object V180;
1475          if(!((car((V164)))==(VV[82]))){          if(!((car((V164)))==(VV[82]))){
1476          goto T668;}          goto T668;}
1477          V180= car((V164));          V180= car((V164));
1478          goto T666;          goto T666;
1479    goto T668;
1480  T668:;  T668:;
1481          V180= (*(LnkLI122))(car((V164)));          V180= (*(LnkLI122))(car((V164)));
1482    goto T666;
1483  T666:;  T666:;
1484          if(((V180))==Cnil){          if(((V180))==Cnil){
1485          goto T562;}          goto T562;}
# Line 1279  T666:; Line 1487  T666:;
1487          object V182;          object V182;
1488          V181= cdr((V164));          V181= cdr((V164));
1489          V182= car((V181));          V182= car((V181));
1490    goto T675;
1491  T675:;  T675:;
1492          if(!(endp((V181)))){          if(!(endp((V181)))){
1493          goto T676;}          goto T676;}
1494          goto T562;          goto T562;
1495    goto T676;
1496  T676:;  T676:;
1497          if(type_of((V182))==t_symbol){          if(type_of((V182))==t_symbol){
1498          goto T680;}          goto T680;}
1499          (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[83],(V164),(V182))));          (void)((VFUN_NARGS=3,(*(LnkLI121))(VV[83],(V164),(V182))));
1500    goto T680;
1501  T680:;  T680:;
1502          V183= make_cons((V182),(V180));          V183= make_cons((V182),(V180));
1503          V159= make_cons(/* INLINE-ARGS */V183,(V159));          V159= make_cons(/* INLINE-ARGS */V183,(V159));
1504          V181= cdr((V181));          V181= cdr((V181));
1505          V182= car((V181));          V182= car((V181));
1506          goto T675;}}          goto T675;}}
1507    goto T664;
1508  T664:;  T664:;
1509          V160= make_cons((V164),(V160));}          V160= make_cons((V164),(V160));}
1510    goto T562;
1511  T562:;  T562:;
1512          V163= cdr((V163));          V163= cdr((V163));
1513          V164= car((V163));          V164= car((V163));
1514          goto T552;}          goto T552;}
1515    goto T545;
1516  T545:;  T545:;
1517          goto T523;          goto T523;
1518    goto T532;
1519  T532:;  T532:;
1520          {object V184;          {object V184;
1521          V184= car((V155));          V184= car((V155));
1522          V155= cdr((V155));}          V155= cdr((V155));}
1523          goto T525;          goto T525;
1524    goto T523;
1525  T523:;  T523:;
1526          base[2]= (V155);          base[2]= (V155);
1527          base[3]= (V157);          base[3]= (V157);
# Line 1324  static object LI23(V187,V188) Line 1540  static object LI23(V187,V188)
1540  object V187;object V188;  object V187;object V188;
1541  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1542          bds_check;          bds_check;
1543    goto TTL;
1544  TTL:;  TTL:;
1545          {register object V189;          {register object V189;
1546          V189= Cnil;          V189= Cnil;
# Line 1331  TTL:; Line 1548  TTL:;
1548          goto T708;}          goto T708;}
1549          {object V190 = (*(LnkLI182))((V188));          {object V190 = (*(LnkLI182))((V188));
1550          VMR23(V190)}          VMR23(V190)}
1551    goto T708;
1552  T708:;  T708:;
1553          bds_bind(VV[15],symbol_value(VV[15]));          bds_bind(VV[15],symbol_value(VV[15]));
1554          bds_bind(VV[64],symbol_value(VV[64]));          bds_bind(VV[64],symbol_value(VV[64]));
# Line 1341  T708:; Line 1559  T708:;
1559          register object V192;          register object V192;
1560          V191= (V187);          V191= (V187);
1561          V192= car((V191));          V192= car((V191));
1562    goto T714;
1563  T714:;  T714:;
1564          if(!(endp((V191)))){          if(!(endp((V191)))){
1565          goto T715;}          goto T715;}
1566          goto T710;          goto T710;
1567    goto T715;
1568  T715:;  T715:;
1569          {object V193= car((V192));          {object V193= car((V192));
1570          if((V193!= VV[131]))goto T720;          if((V193!= VV[131]))goto T720;
# Line 1352  T715:; Line 1572  T715:;
1572          register object V195;          register object V195;
1573          V194= cdr((V192));          V194= cdr((V192));
1574          V195= car((V194));          V195= car((V194));
1575    goto T724;
1576  T724:;  T724:;
1577          if(!(endp((V194)))){          if(!(endp((V194)))){
1578          goto T725;}          goto T725;}
1579          goto T719;          goto T719;
1580    goto T725;
1581  T725:;  T725:;
1582          if(!(type_of((V195))==t_symbol)){          if(!(type_of((V195))==t_symbol)){
1583          goto T729;}          goto T729;}
1584          V195= list(2,(V195),small_fixnum(3));          V195= list(2,(V195),small_fixnum(3));
1585    goto T729;
1586  T729:;  T729:;
1587          if(!(type_of((V195))==t_cons)){          if(!(type_of((V195))==t_cons)){
1588          goto T734;}          goto T734;}
# Line 1381  type_of(V196)==t_complex)){ Line 1604  type_of(V196)==t_complex)){
1604          vs_top=sup;          vs_top=sup;
1605          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1606          goto T735;}          goto T735;}
1607    goto T734;
1608  T734:;  T734:;
1609          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[84],(V195))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[84],(V195))));
1610          goto T733;          goto T733;
1611    goto T735;
1612  T735:;  T735:;
1613          {object V197= car((V195));          {object V197= car((V195));
1614          if((V197!= VV[85]))goto T746;          if((V197!= VV[85]))goto T746;
# Line 1391  T735:; Line 1616  T735:;
1616          V198= list(2,VV[85],cadr((V195)));          V198= list(2,VV[85],cadr((V195)));
1617          V189= make_cons(/* INLINE-ARGS */V198,(V189));          V189= make_cons(/* INLINE-ARGS */V198,(V189));
1618          goto T733;          goto T733;
1619    goto T746;
1620  T746:;  T746:;
1621          if((V197!= VV[86]))goto T750;          if((V197!= VV[86]))goto T750;
1622          (VV[55]->s.s_dbind)= cadr((V195));          (VV[55]->s.s_dbind)= cadr((V195));
1623          V199= list(2,VV[86],cadr((V195)));          V199= list(2,VV[86],cadr((V195)));
1624          V189= make_cons(/* INLINE-ARGS */V199,(V189));          V189= make_cons(/* INLINE-ARGS */V199,(V189));
1625          goto T733;          goto T733;
1626    goto T750;
1627  T750:;  T750:;
1628          if((V197!= VV[132])          if((V197!= VV[132])
1629          && (V197!= VV[133]))goto T754;          && (V197!= VV[133]))goto T754;
1630          goto T733;          goto T733;
1631    goto T754;
1632  T754:;  T754:;
1633          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[87],car((V195)))));}          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[87],car((V195)))));}
1634    goto T733;
1635  T733:;  T733:;
1636          V194= cdr((V194));          V194= cdr((V194));
1637          V195= car((V194));          V195= car((V194));
1638          goto T724;}          goto T724;}
1639    goto T720;
1640  T720:;  T720:;
1641          if((V193!= VV[140]))goto T760;          if((V193!= VV[140]))goto T760;
1642          if(endp(cdr((V192)))){          if(endp(cdr((V192)))){
# Line 1417  T720:; Line 1647  T720:;
1647          goto T761;}          goto T761;}
1648          if(!(endp(cdadr((V192))))){          if(!(endp(cdadr((V192))))){
1649          goto T762;}          goto T762;}
1650    goto T761;
1651  T761:;  T761:;
1652          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[88],(V192))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[88],(V192))));
1653          goto T719;          goto T719;
1654    goto T762;
1655  T762:;  T762:;
1656          {object V200;          {object V200;
1657          object V201;          object V201;
1658          V200= cddr((V192));          V200= cddr((V192));
1659          V201= car((V200));          V201= car((V200));
1660    goto T773;
1661  T773:;  T773:;
1662          if(!(endp((V200)))){          if(!(endp((V200)))){
1663          goto T774;}          goto T774;}
1664          goto T719;          goto T719;
1665    goto T774;
1666  T774:;  T774:;
1667          (void)((*(LnkLI183))((V201),cadadr((V192)),cddadr((V192))));          (void)((*(LnkLI183))((V201),cadadr((V192)),cddadr((V192))));
1668          V200= cdr((V200));          V200= cdr((V200));
1669          V201= car((V200));          V201= car((V200));
1670          goto T773;}          goto T773;}
1671    goto T760;
1672  T760:;  T760:;
1673          if((V193!= VV[26]))goto T784;          if((V193!= VV[26]))goto T784;
1674          if(endp(cdr((V192)))){          if(endp(cdr((V192)))){
# Line 1442  T760:; Line 1677  T760:;
1677          goto T785;}          goto T785;}
1678          if(type_of(cadr((V192)))==t_symbol){          if(type_of(cadr((V192)))==t_symbol){
1679          goto T786;}          goto T786;}
1680    goto T785;
1681  T785:;  T785:;
1682          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[89],(V192))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[89],(V192))));
1683          goto T719;          goto T719;
1684    goto T786;
1685  T786:;  T786:;
1686          (void)((*(LnkLI183))(cadr((V192)),caddr((V192)),cdddr((V192))));          (void)((*(LnkLI183))(cadr((V192)),caddr((V192)),cdddr((V192))));
1687          goto T719;          goto T719;
1688    goto T784;
1689  T784:;  T784:;
1690          if((V193!= VV[90]))goto T792;          if((V193!= VV[90]))goto T792;
1691          {object V202;          {object V202;
1692          register object V203;          register object V203;
1693          V202= cdr((V192));          V202= cdr((V192));
1694          V203= car((V202));          V203= car((V202));
1695    goto T796;
1696  T796:;  T796:;
1697          if(!(endp((V202)))){          if(!(endp((V202)))){
1698          goto T797;}          goto T797;}
1699          goto T719;          goto T719;
1700    goto T797;
1701  T797:;  T797:;
1702          if(!(type_of((V203))==t_symbol)){          if(!(type_of((V203))==t_symbol)){
1703          goto T803;}          goto T803;}
# Line 1465  T797:; Line 1705  T797:;
1705          V189= make_cons(/* INLINE-ARGS */V204,(V189));          V189= make_cons(/* INLINE-ARGS */V204,(V189));
1706          (VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))((V203),(VV[18]->s.s_dbind)));          (VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))((V203),(VV[18]->s.s_dbind)));
1707          goto T801;          goto T801;
1708    goto T803;
1709  T803:;  T803:;
1710          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[91],(V203))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[91],(V203))));
1711    goto T801;
1712  T801:;  T801:;
1713          V202= cdr((V202));          V202= cdr((V202));
1714          V203= car((V202));          V203= car((V202));
1715          goto T796;}          goto T796;}
1716    goto T792;
1717  T792:;  T792:;
1718          if((V193!= VV[92]))goto T813;          if((V193!= VV[92]))goto T813;
1719          {object V205;          {object V205;
1720          register object V206;          register object V206;
1721          V205= cdr((V192));          V205= cdr((V192));
1722          V206= car((V205));          V206= car((V205));
1723    goto T817;
1724  T817:;  T817:;
1725          if(!(endp((V205)))){          if(!(endp((V205)))){
1726          goto T818;}          goto T818;}
1727          goto T719;          goto T719;
1728    goto T818;
1729  T818:;  T818:;
1730          if(!(type_of((V206))==t_symbol)){          if(!(type_of((V206))==t_symbol)){
1731          goto T824;}          goto T824;}
# Line 1488  T818:; Line 1733  T818:;
1733          V189= make_cons(/* INLINE-ARGS */V207,(V189));          V189= make_cons(/* INLINE-ARGS */V207,(V189));
1734          (VV[18]->s.s_dbind)= make_cons((V206),(VV[18]->s.s_dbind));          (VV[18]->s.s_dbind)= make_cons((V206),(VV[18]->s.s_dbind));
1735          goto T822;          goto T822;
1736    goto T824;
1737  T824:;  T824:;
1738          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[93],(V206))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[93],(V206))));
1739    goto T822;
1740  T822:;  T822:;
1741          V205= cdr((V205));          V205= cdr((V205));
1742          V206= car((V205));          V206= car((V205));
1743          goto T817;}          goto T817;}
1744    goto T813;
1745  T813:;  T813:;
1746          if((V193!= VV[143]))goto T834;          if((V193!= VV[143]))goto T834;
1747          {object V208;          {object V208;
1748          register object V209;          register object V209;
1749          V208= cdr((V192));          V208= cdr((V192));
1750          V209= car((V208));          V209= car((V208));
1751    goto T838;
1752  T838:;  T838:;
1753          if(!(endp((V208)))){          if(!(endp((V208)))){
1754          goto T839;}          goto T839;}
1755          goto T719;          goto T719;
1756    goto T839;
1757  T839:;  T839:;
1758          if(!(type_of((V209))==t_symbol)){          if(!(type_of((V209))==t_symbol)){
1759          goto T845;}          goto T845;}
# Line 1514  T839:; Line 1764  T839:;
1764          }else V210=V210->c.c_cdr;}          }else V210=V210->c.c_cdr;}
1765          (VV[64]->s.s_dbind)= make_cons((V209),(VV[64]->s.s_dbind));          (VV[64]->s.s_dbind)= make_cons((V209),(VV[64]->s.s_dbind));
1766          goto T843;          goto T843;
1767    goto T845;
1768  T845:;  T845:;
1769          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[94],(V209))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[94],(V209))));
1770    goto T843;
1771  T843:;  T843:;
1772          V208= cdr((V208));          V208= cdr((V208));
1773          V209= car((V208));          V209= car((V208));
1774          goto T838;}          goto T838;}
1775    goto T834;
1776  T834:;  T834:;
1777          {register object x= car((V192)),V211= (VV[64]->s.s_dbind);          {register object x= car((V192)),V211= (VV[64]->s.s_dbind);
1778          while(!endp(V211))          while(!endp(V211))
# Line 1527  T834:; Line 1780  T834:;
1780          goto T719;          goto T719;
1781          }else V211=V211->c.c_cdr;}          }else V211=V211->c.c_cdr;}
1782          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[95],car((V192)))));}          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[95],car((V192)))));}
1783    goto T719;
1784  T719:;  T719:;
1785          V191= cdr((V191));          V191= cdr((V191));
1786          V192= car((V191));          V192= car((V191));
1787          goto T714;}          goto T714;}
1788    goto T710;
1789  T710:;  T710:;
1790          V188= (*(LnkLI182))((V188));          V188= (*(LnkLI182))((V188));
1791          {object V212 = list(4,VV[96],cadr((V188)),(V189),(V188));          {object V212 = list(4,VV[96],cadr((V188)),(V189),(V188));
# Line 1540  T710:; Line 1795  T710:;
1795          bds_unwind1;          bds_unwind1;
1796          bds_unwind1;          bds_unwind1;
1797          VMR23(V212)}}          VMR23(V212)}}
1798            base[0]=base[0];
1799            return Cnil;
1800  }  }
1801  /*      function definition for C2DECL-BODY     */  /*      function definition for C2DECL-BODY     */
1802    
1803  static L24()  static void L24()
1804  {register object *base=vs_base;  {register object *base=vs_base;
1805          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
1806          vs_reserve(VM24);          vs_reserve(VM24);
# Line 1554  static L24() Line 1811  static L24()
1811          V213=(base[0]);          V213=(base[0]);
1812          V214=(base[1]);          V214=(base[1]);
1813          vs_top=sup;          vs_top=sup;
1814    goto TTL;
1815  TTL:;  TTL:;
1816          bds_bind(VV[53],symbol_value(VV[53]));          bds_bind(VV[53],symbol_value(VV[53]));
1817          bds_bind(VV[54],symbol_value(VV[54]));          bds_bind(VV[54],symbol_value(VV[54]));
# Line 1564  TTL:; Line 1822  TTL:;
1822          register object V216;          register object V216;
1823          V215= (V213);          V215= (V213);
1824          V216= car((V215));          V216= car((V215));
1825    goto T868;
1826  T868:;  T868:;
1827          if(!(endp((V215)))){          if(!(endp((V215)))){
1828          goto T869;}          goto T869;}
1829          goto T864;          goto T864;
1830    goto T869;
1831  T869:;  T869:;
1832          {object V217= car((V216));          {object V217= car((V216));
1833          if((V217!= VV[85]))goto T874;          if((V217!= VV[85]))goto T874;
# Line 1577  T869:; Line 1837  T869:;
1837          (VV[54]->s.s_dbind)= ((V218)>=(2)?Ct:Cnil);          (VV[54]->s.s_dbind)= ((V218)>=(2)?Ct:Cnil);
1838          (VV[49]->s.s_dbind)= ((V218)>=(3)?Ct:Cnil);          (VV[49]->s.s_dbind)= ((V218)>=(3)?Ct:Cnil);
1839          goto T873;}          goto T873;}
1840    goto T874;
1841  T874:;  T874:;
1842          if((V217!= VV[86]))goto T881;          if((V217!= VV[86]))goto T881;
1843          (VV[55]->s.s_dbind)= cadr((V216));          (VV[55]->s.s_dbind)= cadr((V216));
1844          goto T873;          goto T873;
1845    goto T881;
1846  T881:;  T881:;
1847          if((V217!= VV[92]))goto T883;          if((V217!= VV[92]))goto T883;
1848          (VV[18]->s.s_dbind)= make_cons(cadr((V216)),(VV[18]->s.s_dbind));          (VV[18]->s.s_dbind)= make_cons(cadr((V216)),(VV[18]->s.s_dbind));
1849          goto T873;          goto T873;
1850    goto T883;
1851  T883:;  T883:;
1852          if((V217!= VV[90]))goto T885;          if((V217!= VV[90]))goto T885;
1853          (VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))(cadr((V216)),(VV[18]->s.s_dbind)));          (VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))(cadr((V216)),(VV[18]->s.s_dbind)));
1854          goto T873;          goto T873;
1855    goto T885;
1856  T885:;  T885:;
1857          (void)((*(LnkLI185))());}          (void)((*(LnkLI185))());}
1858    goto T873;
1859  T873:;  T873:;
1860          V215= cdr((V215));          V215= cdr((V215));
1861          V216= car((V215));          V216= car((V215));
1862          goto T868;}          goto T868;}
1863    goto T864;
1864  T864:;  T864:;
1865          base[7]= (V214);          base[7]= (V214);
1866          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
# Line 1613  static object LI25(V222,V223,V224) Line 1879  static object LI25(V222,V223,V224)
1879    
1880  register object V222;object V223;object V224;  register object V222;object V223;object V224;
1881  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1882    goto TTL;
1883  TTL:;  TTL:;
1884          {register object V225;          {register object V225;
1885          register object V226;          register object V226;
1886          V225= (V223);          V225= (V223);
1887          V226= car((V225));          V226= car((V225));
1888    goto T897;
1889  T897:;  T897:;
1890          if(!(endp((V225)))){          if(!(endp((V225)))){
1891          goto T898;}          goto T898;}
1892          goto T893;          goto T893;
1893    goto T898;
1894  T898:;  T898:;
1895          {register object x= car((V226)),V227= (V222);          {register object x= car((V226)),V227= (V222);
1896          while(!endp(V227))          while(!endp(V227))
# Line 1629  T898:; Line 1898  T898:;
1898          goto T902;          goto T902;
1899          }else V227=V227->c.c_cdr;}          }else V227=V227->c.c_cdr;}
1900          (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[97],car((V226)))));          (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[97],car((V226)))));
1901    goto T902;
1902  T902:;  T902:;
1903          V225= cdr((V225));          V225= cdr((V225));
1904          V226= car((V225));          V226= car((V225));
1905          goto T897;}          goto T897;}
1906    goto T893;
1907  T893:;  T893:;
1908          {register object V228;          {register object V228;
1909          register object V229;          register object V229;
1910          V228= (V224);          V228= (V224);
1911          V229= car((V228));          V229= car((V228));
1912    goto T913;
1913  T913:;  T913:;
1914          if(!(endp((V228)))){          if(!(endp((V228)))){
1915          goto T914;}          goto T914;}
1916          {object V230 = Cnil;          {object V230 = Cnil;
1917          VMR25(V230)}          VMR25(V230)}
1918    goto T914;
1919  T914:;  T914:;
1920          {register object x= (V229),V231= (V222);          {register object x= (V229),V231= (V222);
1921          while(!endp(V231))          while(!endp(V231))
# Line 1650  T914:; Line 1923  T914:;
1923          goto T918;          goto T918;
1924          }else V231=V231->c.c_cdr;}          }else V231=V231->c.c_cdr;}
1925          (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[98],(V229))));          (void)((VFUN_NARGS=2,(*(LnkLI128))(VV[98],(V229))));
1926    goto T918;
1927  T918:;  T918:;
1928          V228= cdr((V228));          V228= cdr((V228));
1929          V229= car((V228));          V229= car((V228));
1930          goto T913;}          goto T913;}
1931            base[0]=base[0];
1932            return Cnil;
1933  }  }
1934  /*      local entry for function PROCLAMATION   */  /*      local entry for function PROCLAMATION   */
1935    
# Line 1661  static object LI26(V233) Line 1937  static object LI26(V233)
1937    
1938  object V233;  object V233;
1939  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1940    goto TTL;
1941  TTL:;  TTL:;
1942          {object V234= car((V233));          {object V234= car((V233));
1943          if((V234!= VV[129]))goto T926;          if((V234!= VV[129]))goto T926;
# Line 1668  TTL:; Line 1945  TTL:;
1945          object V236;          object V236;
1946          V235= cdr((V233));          V235= cdr((V233));
1947          V236= car((V235));          V236= car((V235));
1948    goto T930;
1949  T930:;  T930:;
1950          if(!(endp((V235)))){          if(!(endp((V235)))){
1951          goto T931;}          goto T931;}
1952          {object V237 = Ct;          {object V237 = Ct;
1953          VMR26(V237)}          VMR26(V237)}
1954    goto T931;
1955  T931:;  T931:;
1956          if(!(type_of((V236))==t_symbol)){          if(!(type_of((V236))==t_symbol)){
1957          goto T937;}          goto T937;}
# Line 1684  T931:; Line 1963  T931:;
1963          goto T935;}          goto T935;}
1964          {object V238 = Cnil;          {object V238 = Cnil;
1965          VMR26(V238)}          VMR26(V238)}
1966    goto T937;
1967  T937:;  T937:;
1968          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[99],(V236))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[99],(V236))));
1969    goto T935;
1970  T935:;  T935:;
1971          V235= cdr((V235));          V235= cdr((V235));
1972          V236= car((V235));          V236= car((V235));
1973          goto T930;}          goto T930;}
1974    goto T926;
1975  T926:;  T926:;
1976          if((V234!= VV[131]))goto T947;          if((V234!= VV[131]))goto T947;
1977          {register object V239;          {register object V239;
1978          register object V240;          register object V240;
1979          V239= cdr((V233));          V239= cdr((V233));
1980          V240= car((V239));          V240= car((V239));
1981    goto T951;
1982  T951:;  T951:;
1983          if(!(endp((V239)))){          if(!(endp((V239)))){
1984          goto T952;}          goto T952;}
1985          {object V241 = Ct;          {object V241 = Ct;
1986          VMR26(V241)}          VMR26(V241)}
1987    goto T952;
1988  T952:;  T952:;
1989          if(!(type_of((V240))==t_symbol)){          if(!(type_of((V240))==t_symbol)){
1990          goto T956;}          goto T956;}
1991          V240= list(2,(V240),small_fixnum(3));          V240= list(2,(V240),small_fixnum(3));
1992    goto T956;
1993  T956:;  T956:;
1994          if(!(type_of((V240))==t_cons)){          if(!(type_of((V240))==t_cons)){
1995          goto T961;}          goto T961;}
# Line 1726  type_of(V242)==t_complex)){ Line 2011  type_of(V242)==t_complex)){
2011          vs_top=sup;          vs_top=sup;
2012          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2013          goto T962;}          goto T962;}
2014    goto T961;
2015  T961:;  T961:;
2016          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[100],(V240))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[100],(V240))));
2017          goto T960;          goto T960;
2018    goto T962;
2019  T962:;  T962:;
2020          {object V243= car((V240));          {object V243= car((V240));
2021          if((V243!= VV[85]))goto T973;          if((V243!= VV[85]))goto T973;
# Line 1737  T962:; Line 2024  T962:;
2024          goto T978;}          goto T978;}
2025          V245= small_fixnum(0);          V245= small_fixnum(0);
2026          goto T976;          goto T976;
2027    goto T978;
2028  T978:;  T978:;
2029          if((symbol_value(VV[54]))!=Cnil){          if((symbol_value(VV[54]))!=Cnil){
2030          goto T981;}          goto T981;}
2031          V245= small_fixnum(1);          V245= small_fixnum(1);
2032          goto T976;          goto T976;
2033    goto T981;
2034  T981:;  T981:;
2035          if((symbol_value(VV[49]))!=Cnil){          if((symbol_value(VV[49]))!=Cnil){
2036          goto T984;}          goto T984;}
2037          V245= small_fixnum(2);          V245= small_fixnum(2);
2038          goto T976;          goto T976;
2039    goto T984;
2040  T984:;  T984:;
2041          V245= small_fixnum(3);          V245= small_fixnum(3);
2042    goto T976;
2043  T976:;  T976:;
2044          if(number_compare(/* INLINE-ARGS */V244,V245)==0){          if(number_compare(/* INLINE-ARGS */V244,V245)==0){
2045          goto T960;}          goto T960;}
2046          {object V246 = Cnil;          {object V246 = Cnil;
2047          VMR26(V246)}          VMR26(V246)}
2048    goto T973;
2049  T973:;  T973:;
2050          if((V243!= VV[86]))goto T986;          if((V243!= VV[86]))goto T986;
2051          if(number_compare(cadr((V240)),symbol_value(VV[55]))==0){          if(number_compare(cadr((V240)),symbol_value(VV[55]))==0){
2052          goto T960;}          goto T960;}
2053          {object V247 = Cnil;          {object V247 = Cnil;
2054          VMR26(V247)}          VMR26(V247)}
2055    goto T986;
2056  T986:;  T986:;
2057          if((V243!= VV[132]))goto T989;          if((V243!= VV[132]))goto T989;
2058          if(number_compare(cadr((V240)),symbol_value(VV[56]))==0){          if(number_compare(cadr((V240)),symbol_value(VV[56]))==0){
2059          goto T960;}          goto T960;}
2060          {object V248 = Cnil;          {object V248 = Cnil;
2061          VMR26(V248)}          VMR26(V248)}
2062    goto T989;
2063  T989:;  T989:;
2064          if((V243!= VV[133]))goto T992;          if((V243!= VV[133]))goto T992;
2065          V249= number_minus(small_fixnum(3),cadr((V240)));          V249= number_minus(small_fixnum(3),cadr((V240)));
# Line 1773  T989:; Line 2067  T989:;
2067          goto T960;}          goto T960;}
2068          {object V250 = Cnil;          {object V250 = Cnil;
2069          VMR26(V250)}          VMR26(V250)}
2070    goto T992;
2071  T992:;  T992:;
2072          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[101],car((V240)))));}          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[101],car((V240)))));}
2073    goto T960;
2074  T960:;  T960:;
2075          V239= cdr((V239));          V239= cdr((V239));
2076          V240= car((V239));          V240= car((V239));
2077          goto T951;}          goto T951;}
2078    goto T947;
2079  T947:;  T947:;
2080          if((V234!= VV[134]))goto T1000;          if((V234!= VV[134]))goto T1000;
2081          if(!(type_of(cdr((V233)))==t_cons)){          if(!(type_of(cdr((V233)))==t_cons)){
# Line 1791  T947:; Line 2088  T947:;
2088          object V254;          object V254;
2089          V253= cddr((V233));          V253= cddr((V233));
2090          V254= car((V253));          V254= car((V253));
2091    goto T1008;
2092  T1008:;  T1008:;
2093          if(!(endp((V253)))){          if(!(endp((V253)))){
2094          goto T1009;}          goto T1009;}
2095          {object V255 = Ct;          {object V255 = Ct;
2096          VMR26(V255)}          VMR26(V255)}
2097    goto T1009;
2098  T1009:;  T1009:;
2099          if(!(type_of((V254))==t_symbol)){          if(!(type_of((V254))==t_symbol)){
2100          goto T1015;}          goto T1015;}
# Line 1804  T1009:; Line 2103  T1009:;
2103          goto T1017;}          goto T1017;}
2104          if(equal((V252),(V251))){          if(equal((V252),(V251))){
2105          goto T1013;}          goto T1013;}
2106    goto T1017;
2107  T1017:;  T1017:;
2108          {object V256 = Cnil;          {object V256 = Cnil;
2109          VMR26(V256)}          VMR26(V256)}
2110    goto T1015;
2111  T1015:;  T1015:;
2112          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[102],(V254))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[102],(V254))));
2113    goto T1013;
2114  T1013:;  T1013:;
2115          V253= cdr((V253));          V253= cdr((V253));
2116          V254= car((V253));          V254= car((V253));
2117          goto T1008;}}          goto T1008;}}
2118    goto T1002;
2119  T1002:;  T1002:;
2120          {object V257 = (VFUN_NARGS=2,(*(LnkLI123))(VV[103],(V233)));          {object V257 = (VFUN_NARGS=2,(*(LnkLI123))(VV[103],(V233)));
2121          VMR26(V257)}          VMR26(V257)}
2122    goto T1000;
2123  T1000:;  T1000:;
2124          if((V234!= VV[136])          if((V234!= VV[136])
2125          && (V234!= VV[137])          && (V234!= VV[137])
# Line 1829  T1000:; Line 2133  T1000:;
2133          object V261;          object V261;
2134          V260= cdr((V233));          V260= cdr((V233));
2135          V261= car((V260));          V261= car((V260));
2136    goto T1032;
2137  T1032:;  T1032:;
2138          if(!(endp((V260)))){          if(!(endp((V260)))){
2139          goto T1033;}          goto T1033;}
2140          {object V262 = Ct;          {object V262 = Ct;
2141          VMR26(V262)}          VMR26(V262)}
2142    goto T1033;
2143  T1033:;  T1033:;
2144          if(!(type_of((V261))==t_symbol)){          if(!(type_of((V261))==t_symbol)){
2145          goto T1039;}          goto T1039;}
# Line 1842  T1033:; Line 2148  T1033:;
2148          goto T1041;}          goto T1041;}
2149          if(equal((V259),(V258))){          if(equal((V259),(V258))){
2150          goto T1037;}          goto T1037;}
2151    goto T1041;
2152  T1041:;  T1041:;
2153          {object V263 = Cnil;          {object V263 = Cnil;
2154          VMR26(V263)}          VMR26(V263)}
2155    goto T1039;
2156  T1039:;  T1039:;
2157          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[104],(V261))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[104],(V261))));
2158    goto T1037;
2159  T1037:;  T1037:;
2160          V260= cdr((V260));          V260= cdr((V260));
2161          V261= car((V260));          V261= car((V260));
2162          goto T1032;}}          goto T1032;}}
2163    goto T1027;
2164  T1027:;  T1027:;
2165          if((V234!= VV[140]))goto T1051;          if((V234!= VV[140]))goto T1051;
2166          if(endp(cdr((V233)))){          if(endp(cdr((V233)))){
# Line 1861  T1027:; Line 2171  T1027:;
2171          goto T1052;}          goto T1052;}
2172          if(!(endp(cdadr((V233))))){          if(!(endp(cdadr((V233))))){
2173          goto T1053;}          goto T1053;}
2174    goto T1052;
2175  T1052:;  T1052:;
2176          {object V264 = (VFUN_NARGS=2,(*(LnkLI123))(VV[105],(V233)));          {object V264 = (VFUN_NARGS=2,(*(LnkLI123))(VV[105],(V233)));
2177          VMR26(V264)}          VMR26(V264)}
2178    goto T1053;
2179  T1053:;  T1053:;
2180          {register object V265;          {register object V265;
2181          object V266;          object V266;
2182          V265= cddr((V233));          V265= cddr((V233));
2183          V266= car((V265));          V266= car((V265));
2184    goto T1064;
2185  T1064:;  T1064:;
2186          if(!(endp((V265)))){          if(!(endp((V265)))){
2187          goto T1065;}          goto T1065;}
2188          {object V267 = Ct;          {object V267 = Ct;
2189          VMR26(V267)}          VMR26(V267)}
2190    goto T1065;
2191  T1065:;  T1065:;
2192          if((get((V266),VV[38],Cnil))==Cnil){          if((get((V266),VV[38],Cnil))==Cnil){
2193          goto T1070;}          goto T1070;}
# Line 1885  T1065:; Line 2199  T1065:;
2199          V271= get((V266),VV[37],Cnil);          V271= get((V266),VV[37],Cnil);
2200          if(equal(/* INLINE-ARGS */V270,V271)){          if(equal(/* INLINE-ARGS */V270,V271)){
2201          goto T1069;}          goto T1069;}
2202    goto T1070;
2203  T1070:;  T1070:;
2204          {object V272 = Cnil;          {object V272 = Cnil;
2205          VMR26(V272)}          VMR26(V272)}
2206    goto T1069;
2207  T1069:;  T1069:;
2208          V265= cdr((V265));          V265= cdr((V265));
2209          V266= car((V265));          V266= car((V265));
2210          goto T1064;}          goto T1064;}
2211    goto T1051;
2212  T1051:;  T1051:;
2213          if((V234!= VV[26]))goto T1083;          if((V234!= VV[26]))goto T1083;
2214          if(endp(cdr((V233)))){          if(endp(cdr((V233)))){
2215          goto T1084;}          goto T1084;}
2216          if(!(endp(cddr((V233))))){          if(!(endp(cddr((V233))))){
2217          goto T1085;}          goto T1085;}
2218    goto T1084;
2219  T1084:;  T1084:;
2220          {object V273 = (VFUN_NARGS=2,(*(LnkLI123))(VV[106],(V233)));          {object V273 = (VFUN_NARGS=2,(*(LnkLI123))(VV[106],(V233)));
2221          VMR26(V273)}          VMR26(V273)}
2222    goto T1085;
2223  T1085:;  T1085:;
2224          if((get(cadr((V233)),VV[38],Cnil))!=Cnil){          if((get(cadr((V233)),VV[38],Cnil))!=Cnil){
2225          goto T1089;}          goto T1089;}
2226          {object V274 = Cnil;          {object V274 = Cnil;
2227          VMR26(V274)}          VMR26(V274)}
2228    goto T1089;
2229  T1089:;  T1089:;
2230          V275= (*(LnkLI124))(caddr((V233)));          V275= (*(LnkLI124))(caddr((V233)));
2231          V276= get(cadr((V233)),VV[36],Cnil);          V276= get(cadr((V233)),VV[36],Cnil);
# Line 1913  T1089:; Line 2233  T1089:;
2233          goto T1091;}          goto T1091;}
2234          {object V277 = Cnil;          {object V277 = Cnil;
2235          VMR26(V277)}          VMR26(V277)}
2236    goto T1091;
2237  T1091:;  T1091:;
2238          V278= (*(LnkLI125))(cdddr((V233)));          V278= (*(LnkLI125))(cdddr((V233)));
2239          V279= get(cadr((V233)),VV[37],Cnil);          V279= get(cadr((V233)),VV[37],Cnil);
2240          {object V280 = (equal(/* INLINE-ARGS */V278,V279)?Ct:Cnil);          {object V280 = (equal(/* INLINE-ARGS */V278,V279)?Ct:Cnil);
2241          VMR26(V280)}          VMR26(V280)}
2242    goto T1083;
2243  T1083:;  T1083:;
2244          if((V234!= VV[90]))goto T1095;          if((V234!= VV[90]))goto T1095;
2245          {register object V281;          {register object V281;
2246          object V282;          object V282;
2247          V281= cdr((V233));          V281= cdr((V233));
2248          V282= car((V281));          V282= car((V281));
2249    goto T1099;
2250  T1099:;  T1099:;
2251          if(!(endp((V281)))){          if(!(endp((V281)))){
2252          goto T1100;}          goto T1100;}
2253          {object V283 = Ct;          {object V283 = Ct;
2254          VMR26(V283)}          VMR26(V283)}
2255    goto T1100;
2256  T1100:;  T1100:;
2257          if(!(type_of((V282))==t_symbol)){          if(!(type_of((V282))==t_symbol)){
2258          goto T1106;}          goto T1106;}
# Line 1936  T1100:; Line 2260  T1100:;
2260          goto T1104;}          goto T1104;}
2261          {object V284 = Cnil;          {object V284 = Cnil;
2262          VMR26(V284)}          VMR26(V284)}
2263    goto T1106;
2264  T1106:;  T1106:;
2265          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[107],(V282))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[107],(V282))));
2266    goto T1104;
2267  T1104:;  T1104:;
2268          V281= cdr((V281));          V281= cdr((V281));
2269          V282= car((V281));          V282= car((V281));
2270          goto T1099;}          goto T1099;}
2271    goto T1095;
2272  T1095:;  T1095:;
2273          if((V234!= VV[92]))goto T1115;          if((V234!= VV[92]))goto T1115;
2274          {register object V285;          {register object V285;
2275          object V286;          object V286;
2276          V285= cdr((V233));          V285= cdr((V233));
2277          V286= car((V285));          V286= car((V285));
2278    goto T1119;
2279  T1119:;  T1119:;
2280          if(!(endp((V285)))){          if(!(endp((V285)))){
2281          goto T1120;}          goto T1120;}
2282          {object V287 = Ct;          {object V287 = Ct;
2283          VMR26(V287)}          VMR26(V287)}
2284    goto T1120;
2285  T1120:;  T1120:;
2286          if(!(type_of((V286))==t_symbol)){          if(!(type_of((V286))==t_symbol)){
2287          goto T1126;}          goto T1126;}
# Line 1960  T1120:; Line 2289  T1120:;
2289          goto T1124;}          goto T1124;}
2290          {object V288 = Cnil;          {object V288 = Cnil;
2291          VMR26(V288)}          VMR26(V288)}
2292    goto T1126;
2293  T1126:;  T1126:;
2294          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[108],(V286))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[108],(V286))));
2295    goto T1124;
2296  T1124:;  T1124:;
2297          V285= cdr((V285));          V285= cdr((V285));
2298          V286= car((V285));          V286= car((V285));
2299          goto T1119;}          goto T1119;}
2300    goto T1115;
2301  T1115:;  T1115:;
2302          if((V234!= VV[79])          if((V234!= VV[79])
2303          && (V234!= VV[142]))goto T1135;          && (V234!= VV[142]))goto T1135;
# Line 1973  T1115:; Line 2305  T1115:;
2305          object V290;          object V290;
2306          V289= cdr((V233));          V289= cdr((V233));
2307          V290= car((V289));          V290= car((V289));
2308    goto T1139;
2309  T1139:;  T1139:;
2310          if(!(endp((V289)))){          if(!(endp((V289)))){
2311          goto T1140;}          goto T1140;}
2312          {object V291 = Ct;          {object V291 = Ct;
2313          VMR26(V291)}          VMR26(V291)}
2314    goto T1140;
2315  T1140:;  T1140:;
2316          if(type_of((V290))==t_symbol){          if(type_of((V290))==t_symbol){
2317          goto T1144;}          goto T1144;}
2318          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[109],(V290))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[109],(V290))));
2319    goto T1144;
2320  T1144:;  T1144:;
2321          V289= cdr((V289));          V289= cdr((V289));
2322          V290= car((V289));          V290= car((V289));
2323          goto T1139;}          goto T1139;}
2324    goto T1135;
2325  T1135:;  T1135:;
2326          if((V234!= VV[143]))goto T1152;          if((V234!= VV[143]))goto T1152;
2327          {register object V292;          {register object V292;
2328          object V293;          object V293;
2329          V292= cdr((V233));          V292= cdr((V233));
2330          V293= car((V292));          V293= car((V292));
2331    goto T1156;
2332  T1156:;  T1156:;
2333          if(!(endp((V292)))){          if(!(endp((V292)))){
2334          goto T1157;}          goto T1157;}
2335          {object V294 = Ct;          {object V294 = Ct;
2336          VMR26(V294)}          VMR26(V294)}
2337    goto T1157;
2338  T1157:;  T1157:;
2339          if(!(type_of((V293))==t_symbol)){          if(!(type_of((V293))==t_symbol)){
2340          goto T1163;}          goto T1163;}
# Line 2007  T1157:; Line 2345  T1157:;
2345          }else V295=V295->c.c_cdr;}          }else V295=V295->c.c_cdr;}
2346          {object V296 = Cnil;          {object V296 = Cnil;
2347          VMR26(V296)}          VMR26(V296)}
2348    goto T1163;
2349  T1163:;  T1163:;
2350          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[110],(V293))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[110],(V293))));
2351    goto T1161;
2352  T1161:;  T1161:;
2353          V292= cdr((V292));          V292= cdr((V292));
2354          V293= car((V292));          V293= car((V292));
2355          goto T1156;}          goto T1156;}
2356    goto T1152;
2357  T1152:;  T1152:;
2358          if((V234== VV[144])          if((V234== VV[144])
2359          || (V234== VV[145])          || (V234== VV[145])
# Line 2057  T1152:; Line 2398  T1152:;
2398          if((V234!= VV[176])          if((V234!= VV[176])
2399          && (V234!= VV[177])          && (V234!= VV[177])
2400          && (V234!= VV[178]))goto T1172;          && (V234!= VV[178]))goto T1172;
2401    goto T1173;
2402  T1173:;  T1173:;
2403          {object V297;          {object V297;
2404          V297= (*(LnkLI122))(car((V233)));          V297= (*(LnkLI122))(car((V233)));
# Line 2064  T1173:; Line 2406  T1173:;
2406          object V299;          object V299;
2407          V298= cdr((V233));          V298= cdr((V233));
2408          V299= car((V298));          V299= car((V298));
2409    goto T1178;
2410  T1178:;  T1178:;
2411          if(!(endp((V298)))){          if(!(endp((V298)))){
2412          goto T1179;}          goto T1179;}
2413          {object V300 = Ct;          {object V300 = Ct;
2414          VMR26(V300)}          VMR26(V300)}
2415    goto T1179;
2416  T1179:;  T1179:;
2417          if(!(type_of((V299))==t_symbol)){          if(!(type_of((V299))==t_symbol)){
2418          goto T1185;}          goto T1185;}
# Line 2077  T1179:; Line 2421  T1179:;
2421          goto T1183;}          goto T1183;}
2422          {object V302 = Cnil;          {object V302 = Cnil;
2423          VMR26(V302)}          VMR26(V302)}
2424    goto T1185;
2425  T1185:;  T1185:;
2426          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[111],(V299))));          (void)((VFUN_NARGS=2,(*(LnkLI123))(VV[111],(V299))));
2427    goto T1183;
2428  T1183:;  T1183:;
2429          V298= cdr((V298));          V298= cdr((V298));
2430          V299= car((V298));          V299= car((V298));
2431          goto T1178;}}          goto T1178;}}
2432    goto T1172;
2433  T1172:;  T1172:;
2434          {register object x= car((V233)),V303= symbol_value(VV[64]);          {register object x= car((V233)),V303= symbol_value(VV[64]);
2435          while(!endp(V303))          while(!endp(V303))
# Line 2091  T1172:; Line 2438  T1172:;
2438          }else V303=V303->c.c_cdr;}          }else V303=V303->c.c_cdr;}
2439          {object V304 = (VFUN_NARGS=2,(*(LnkLI123))(VV[112],car((V233))));          {object V304 = (VFUN_NARGS=2,(*(LnkLI123))(VV[112],car((V233))));
2440          VMR26(V304)}          VMR26(V304)}
2441    goto T1196;
2442  T1196:;  T1196:;
2443          {object V305 = Cnil;          {object V305 = Cnil;
2444          VMR26(V305)}}          VMR26(V305)}}
2445            base[0]=base[0];
2446            return Cnil;
2447  }  }
2448  static LnkT186(){ call_or_link(VV[186],&Lnk186);} /* C2EXPR */  static void LnkT186(){ call_or_link(VV[186],(void **)&Lnk186);} /* C2EXPR */
2449  static object  LnkTLI185(){return call_proc0(VV[185],&LnkLI185);} /* BABOON */  static object  LnkTLI185(){return call_proc0(VV[185],(void **)&LnkLI185);} /* BABOON */
2450  static object  LnkTLI184(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[184],&LnkLI184,ap);} /* REMOVE */  static object  LnkTLI184(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[184],(void **)&LnkLI184,ap);} /* REMOVE */
2451  static object  LnkTLI183(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[183],&LnkLI183,3,ap);} /* ADD-FUNCTION-DECLARATION */  static object  LnkTLI183(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[183],(void **)&LnkLI183,3,ap);} /* ADD-FUNCTION-DECLARATION */
2452  static object  LnkTLI182(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[182],&LnkLI182,1,ap);} /* C1PROGN */  static object  LnkTLI182(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[182],(void **)&LnkLI182,1,ap);} /* C1PROGN */
2453  static object  LnkTLI180(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[180],&LnkLI180,1,ap);} /* CMP-MACROEXPAND */  static object  LnkTLI180(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[180],(void **)&LnkLI180,1,ap);} /* CMP-MACROEXPAND */
2454  static object  LnkTLI179(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[179],&LnkLI179,1,ap);} /* SCH-GLOBAL */  static object  LnkTLI179(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[179],(void **)&LnkLI179,1,ap);} /* SCH-GLOBAL */
2455  static object  LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],&LnkLI141,3,ap);} /* ADD-FUNCTION-PROCLAMATION */  static object  LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],(void **)&LnkLI141,3,ap);} /* ADD-FUNCTION-PROCLAMATION */
2456  static object  LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[135],&LnkLI135,2,ap);} /* PROCLAIM-VAR */  static object  LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[135],(void **)&LnkLI135,2,ap);} /* PROCLAIM-VAR */
2457  static LnkT130(){ call_or_link(VV[130],&Lnk130);} /* *MAKE-SPECIAL */  static void LnkT130(){ call_or_link(VV[130],(void **)&Lnk130);} /* *MAKE-SPECIAL */
2458  static object  LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[128],&LnkLI128,ap);} /* CMPWARN */  static object  LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[128],(void **)&LnkLI128,ap);} /* CMPWARN */
2459  static object  LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[127],&LnkLI127,2,ap);} /* TYPE-AND */  static object  LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[127],(void **)&LnkLI127,2,ap);} /* TYPE-AND */
2460  static object  LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[126],&LnkLI126,1,ap);} /* SCH-LOCAL-FUN */  static object  LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[126],(void **)&LnkLI126,1,ap);} /* SCH-LOCAL-FUN */
2461  static object  LnkTLI125(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[125],&LnkLI125,1,ap);} /* FUNCTION-RETURN-TYPE */  static object  LnkTLI125(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[125],(void **)&LnkLI125,1,ap);} /* FUNCTION-RETURN-TYPE */
2462  static object  LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],&LnkLI124,1,ap);} /* FUNCTION-ARG-TYPES */  static object  LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],(void **)&LnkLI124,1,ap);} /* FUNCTION-ARG-TYPES */
2463  static object  LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[123],&LnkLI123,ap);} /* WARN */  static object  LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[123],(void **)&LnkLI123,ap);} /* WARN */
2464  static object  LnkTLI122(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[122],&LnkLI122,1,ap);} /* TYPE-FILTER */  static object  LnkTLI122(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[122],(void **)&LnkLI122,1,ap);} /* TYPE-FILTER */
2465  static object  LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[121],&LnkLI121,ap);} /* CMPERR */  static object  LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[121],(void **)&LnkLI121,ap);} /* CMPERR */
2466  static LnkT120(){ call_or_link(VV[120],&Lnk120);} /* COMPILED-FUNCTION-NAME */  static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* COMPILED-FUNCTION-NAME */
2467  static LnkT119(){ call_or_link(VV[119],&Lnk119);} /* TYPEP */  static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* TYPEP */
2468  static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* WT-TO-STRING */  static void LnkT118(){ call_or_link(VV[118],(void **)&Lnk118);} /* WT-TO-STRING */
2469  static LnkT117(){ call_or_link(VV[117],&Lnk117);} /* CONTAINS-SHARP-COMMA */  static void LnkT117(){ call_or_link(VV[117],(void **)&Lnk117);} /* CONTAINS-SHARP-COMMA */
2470  static LnkT116(){ call_or_link(VV[116],&Lnk116);} /* GET-OUTPUT-STREAM-STRING */  static void LnkT116(){ call_or_link(VV[116],(void **)&Lnk116);} /* GET-OUTPUT-STREAM-STRING */
2471  static object  LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[115],&LnkLI115,1,ap);} /* WT-DATA1 */  static object  LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[115],(void **)&LnkLI115,1,ap);} /* WT-DATA1 */
2472  static LnkT114(){ call_or_link(VV[114],&Lnk114);} /* MAKE-STRING-OUTPUT-STREAM */  static void LnkT114(){ call_or_link(VV[114],(void **)&Lnk114);} /* MAKE-STRING-OUTPUT-STREAM */
2473  static object  LnkTLI113(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[113],&LnkLI113,1,ap);} /* PUSH-DATA-INCF */  static object  LnkTLI113(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[113],(void **)&LnkLI113,1,ap);} /* PUSH-DATA-INCF */
2474    
2475  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2476  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