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

Diff of /gcl/lsp/debug.c

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

revision 1.4 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.5 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "debug.h"  #include "debug.h"
4  init_debug(){do_init(VV);}  void init_debug(){do_init(VV);}
5  /*      function definition for SHOW-BREAK-VARIABLES    */  /*      function definition for SHOW-BREAK-VARIABLES    */
6    
7  static L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_reserve(VM1);
# Line 14  static L1() Line 14  static L1()
14          V1=(base[0]);          V1=(base[0]);
15          vs_top=sup;          vs_top=sup;
16          goto T2;          goto T2;
17    goto T1;
18  T1:;  T1:;
19          V1= small_fixnum(1);          V1= small_fixnum(1);
20    goto T2;
21  T2:;  T2:;
22    goto T5;
23  T5:;  T5:;
24          {register object V2;          {register object V2;
25          register object V3;          register object V3;
26          V2= reverse(car(symbol_value(VV[0])));          V2= reverse(car(symbol_value(VV[0])));
27          V3= car((V2));          V3= car((V2));
28    goto T11;
29  T11:;  T11:;
30          if(!(endp((V2)))){          if(!(endp((V2)))){
31          goto T12;}          goto T12;}
32          goto T7;          goto T7;
33    goto T12;
34  T12:;  T12:;
35          base[3]= symbol_value(VV[1]);          base[3]= symbol_value(VV[1]);
36          base[4]= VV[2];          base[4]= VV[2];
# Line 37  T12:; Line 42  T12:;
42          V2= cdr((V2));          V2= cdr((V2));
43          V3= car((V2));          V3= car((V2));
44          goto T11;}          goto T11;}
45    goto T7;
46  T7:;  T7:;
47          V1= number_plus((V1),small_fixnum(-1));          V1= number_plus((V1),small_fixnum(-1));
48          if(!((fix((V1)))>(0))){          if(!((fix((V1)))>(0))){
49          goto T27;}          goto T27;}
50          goto T26;          goto T26;
51    goto T27;
52  T27:;  T27:;
53          vs_base=vs_top=base+1;          vs_base=vs_top=base+1;
54          vs_base[0]=Cnil;          vs_base[0]=Cnil;
55          return;          return;
56    goto T26;
57  T26:;  T26:;
58          vs_base=vs_top;          vs_base=vs_top;
59          (void) (*Lnk110)();          (void) (*Lnk110)();
# Line 59  static object LI2(V5) Line 67  static object LI2(V5)
67    
68  object V5;  object V5;
69  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
70    goto TTL;
71  TTL:;  TTL:;
72          {object V6;          {object V6;
73          base[1]= (V5);          base[1]= (V5);
# Line 85  TTL:; Line 94  TTL:;
94          V9= vs_base[0];          V9= vs_base[0];
95          V7= reverse(V9);          V7= reverse(V9);
96          V8= car((V7));          V8= car((V7));
97    goto T43;
98  T43:;  T43:;
99          if(!(endp((V7)))){          if(!(endp((V7)))){
100          goto T44;}          goto T44;}
101          {object V10 = Cnil;          {object V10 = Cnil;
102          VMR2(V10)}          VMR2(V10)}
103    goto T44;
104  T44:;  T44:;
105          base[2]= symbol_value(VV[1]);          base[2]= symbol_value(VV[1]);
106          base[3]= VV[3];          base[3]= VV[3];
# Line 101  T44:; Line 112  T44:;
112          V7= cdr((V7));          V7= cdr((V7));
113          V8= car((V7));          V8= car((V7));
114          goto T43;}          goto T43;}
115    goto T35;
116  T35:;  T35:;
117          {object V11 = Cnil;          {object V11 = Cnil;
118          VMR2(V11)}}          VMR2(V11)}}
119            base[0]=base[0];
120            return Cnil;
121  }  }
122  /*      function definition for SEARCH-STACK    */  /*      function definition for SEARCH-STACK    */
123    
124  static L3()  static void L3()
125  {register object *base=vs_base;  {register object *base=vs_base;
126          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
127          vs_reserve(VM3);          vs_reserve(VM3);
# Line 115  static L3() Line 129  static L3()
129          check_arg(1);          check_arg(1);
130          V12=(base[0]);          V12=(base[0]);
131          vs_top=sup;          vs_top=sup;
132    goto TTL;
133  TTL:;  TTL:;
134          {object V13;          {object V13;
135          V13= Cnil;          V13= Cnil;
# Line 122  TTL:; Line 137  TTL:;
137          goto T62;}          goto T62;}
138          V13= symbol_name((V12));          V13= symbol_name((V12));
139          goto T60;          goto T60;
140    goto T62;
141  T62:;  T62:;
142          V13= (V12);          V13= (V12);
143    goto T60;
144  T60:;  T60:;
145          {register long V14;          {register long V14;
146          register long V15;          register long V15;
# Line 135  T60:; Line 152  T60:;
152          V17= (type_of((V16))==t_fixnum?Ct:Cnil);          V17= (type_of((V16))==t_fixnum?Ct:Cnil);
153          if(V17==Cnil)goto T67;          if(V17==Cnil)goto T67;
154          goto T66;          goto T66;
155    goto T67;
156  T67:;}  T67:;}
157          (void)((*(LnkLI114))());          (void)((*(LnkLI114))());
158    goto T66;
159  T66:;  T66:;
160          V14= fix((V16));}          V14= fix((V16));}
161          V15= 2;          V15= 2;
# Line 144  T66:; Line 163  T66:;
163          V18= Cnil;          V18= Cnil;
164          {register object V19;          {register object V19;
165          V19= Cnil;          V19= Cnil;
166    goto T71;
167  T71:;  T71:;
168          if((V14)<=(V15)){          if((V14)<=(V15)){
169          goto T74;}          goto T74;}
170          goto T73;          goto T73;
171    goto T74;
172  T74:;  T74:;
173          goto T72;          goto T72;
174    goto T73;
175  T73:;  T73:;
176          {register object V20;          {register object V20;
177          base[1]= make_fixnum(V14);          base[1]= make_fixnum(V14);
# Line 170  T73:; Line 192  T73:;
192          vs_top=sup;          vs_top=sup;
193          V19= vs_base[0];          V19= vs_base[0];
194          goto T80;          goto T80;
195    goto T82;
196  T82:;  T82:;
197          if(!(type_of((V18))==t_symbol)){          if(!(type_of((V18))==t_symbol)){
198          goto T88;}          goto T88;}
199          V19= (V18);          V19= (V18);
200          goto T80;          goto T80;
201    goto T88;
202  T88:;  T88:;
203          if(!(type_of((V18))==t_cons||((V18))==Cnil)){          if(!(type_of((V18))==t_cons||((V18))==Cnil)){
204          goto T92;}          goto T92;}
# Line 184  T88:; Line 208  T88:;
208          goto T95;          goto T95;
209          }else V21=V21->c.c_cdr;          }else V21=V21->c.c_cdr;
210          goto T92;}          goto T92;}
211    goto T95;
212  T95:;  T95:;
213          V19= cadr((V18));          V19= cadr((V18));
214          goto T80;          goto T80;
215    goto T92;
216  T92:;  T92:;
217          V19= VV[5];          V19= VV[5];
218    goto T80;
219  T80:;  T80:;
220          V22= symbol_name((V19));          V22= symbol_name((V19));
221          if(((VFUN_NARGS=4,(*(LnkLI117))((V13),/* INLINE-ARGS */V22,VV[6],VV[7])))==Cnil){          if(((VFUN_NARGS=4,(*(LnkLI117))((V13),/* INLINE-ARGS */V22,VV[6],VV[7])))==Cnil){
# Line 201  T80:; Line 228  T80:;
228          vs_base=vs_top;          vs_base=vs_top;
229          (void) (*Lnk119)();          (void) (*Lnk119)();
230          return;          return;
231    goto T98;
232  T98:;  T98:;
233          V14= (V14)-(1);          V14= (V14)-(1);
234          goto T71;          goto T71;
235    goto T72;
236  T72:;  T72:;
237          base[1]= symbol_value(VV[1]);          base[1]= symbol_value(VV[1]);
238          base[2]= VV[8];          base[2]= VV[8];
# Line 221  T72:; Line 250  T72:;
250  }  }
251  /*      function definition for BREAK-LOCALS    */  /*      function definition for BREAK-LOCALS    */
252    
253  static L4()  static void L4()
254  {register object *base=vs_base;  {register object *base=vs_base;
255          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
256          vs_reserve(VM4);          vs_reserve(VM4);
# Line 232  static L4() Line 261  static L4()
261          V23=(base[0]);          V23=(base[0]);
262          vs_top=sup;          vs_top=sup;
263          goto T112;          goto T112;
264    goto T111;
265  T111:;  T111:;
266          V23= small_fixnum(1);          V23= small_fixnum(1);
267    goto T112;
268  T112:;  T112:;
269          {object V24;          {object V24;
270          object V25;          object V25;
# Line 266  T112:; Line 297  T112:;
297          V32= (type_of((V23))==t_fixnum?Ct:Cnil);          V32= (type_of((V23))==t_fixnum?Ct:Cnil);
298          if(V32==Cnil)goto T128;          if(V32==Cnil)goto T128;
299          goto T127;          goto T127;
300    goto T128;
301  T128:;}  T128:;}
302          (void)((*(LnkLI114))());          (void)((*(LnkLI114))());
303    goto T127;
304  T127:;  T127:;
305          V31= fix((V23));          V31= fix((V23));
306          {register long V33;          {register long V33;
# Line 275  T127:; Line 308  T127:;
308          V35= (type_of((V26))==t_fixnum?Ct:Cnil);          V35= (type_of((V26))==t_fixnum?Ct:Cnil);
309          if(V35==Cnil)goto T132;          if(V35==Cnil)goto T132;
310          goto T131;          goto T131;
311    goto T132;
312  T132:;}  T132:;}
313          (void)((*(LnkLI114))());          (void)((*(LnkLI114))());
314    goto T131;
315  T131:;  T131:;
316          V33= fix((V26));          V33= fix((V26));
317          V34= 2;          V34= 2;
318    goto T136;
319  T136:;  T136:;
320          if((V33)<=(V34)){          if((V33)<=(V34)){
321          goto T139;}          goto T139;}
322          goto T138;          goto T138;
323    goto T139;
324  T139:;  T139:;
325          goto T137;          goto T137;
326    goto T138;
327  T138:;  T138:;
328          if((V30)>=(V31)){          if((V30)>=(V31)){
329          goto T142;}          goto T142;}
330          goto T141;          goto T141;
331    goto T142;
332  T142:;  T142:;
333          goto T137;          goto T137;
334    goto T141;
335  T141:;  T141:;
336          bds_bind(VV[9],make_fixnum(V33));          bds_bind(VV[9],make_fixnum(V33));
337          vs_base=vs_top;          vs_base=vs_top;
# Line 303  T141:; Line 343  T141:;
343          V30= (V30)+(1);          V30= (V30)+(1);
344          V33= (V33)-(1);          V33= (V33)-(1);
345          goto T136;          goto T136;
346    goto T137;
347  T137:;  T137:;
348          base[6]= Cnil;          base[6]= Cnil;
349          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
# Line 316  T137:; Line 357  T137:;
357          bds_unwind1;          bds_unwind1;
358          bds_unwind1;          bds_unwind1;
359          return;}}          return;}}
360    goto T123;
361  T123:;  T123:;
362          base[6]= (V27);          base[6]= (V27);
363          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
# Line 329  T123:; Line 371  T123:;
371          vs_top=sup;          vs_top=sup;
372          V28= vs_base[0];          V28= vs_base[0];
373          goto T152;          goto T152;
374    goto T154;
375  T154:;  T154:;
376          V28= (V27);          V28= (V27);
377    goto T152;
378  T152:;  T152:;
379          if(!(type_of((V28))==t_symbol)){          if(!(type_of((V28))==t_symbol)){
380          goto T160;}          goto T160;}
381          V29= get((V28),VV[14],Cnil);          V29= get((V28),VV[14],Cnil);
382    goto T160;
383  T160:;  T160:;
384          {object V36;          {object V36;
385          base[6]= make_fixnum((1)+(fix(symbol_value(VV[9]))));          base[6]= make_fixnum((1)+(fix(symbol_value(VV[9]))));
# Line 357  T160:; Line 402  T160:;
402          V39= (type_of((V25))==t_fixnum?Ct:Cnil);          V39= (type_of((V25))==t_fixnum?Ct:Cnil);
403          if(V39==Cnil)goto T178;          if(V39==Cnil)goto T178;
404          goto T177;          goto T177;
405    goto T178;
406  T178:;}  T178:;}
407          (void)((*(LnkLI114))());          (void)((*(LnkLI114))());
408    goto T177;
409  T177:;  T177:;
410          V37= fix((V25));{object V40;          V37= fix((V25));{object V40;
411          V40= (type_of((V36))==t_fixnum?Ct:Cnil);          V40= (type_of((V36))==t_fixnum?Ct:Cnil);
412          if(V40==Cnil)goto T182;          if(V40==Cnil)goto T182;
413          goto T181;          goto T181;
414    goto T182;
415  T182:;}  T182:;}
416          (void)((*(LnkLI114))());          (void)((*(LnkLI114))());
417    goto T181;
418  T181:;  T181:;
419          V38= fix((V36));          V38= fix((V36));
420          {register long V41;          {register long V41;
421          V41= 0;          V41= 0;
422          {register object V42;          {register object V42;
423          V42= Cnil;          V42= Cnil;
424    goto T186;
425  T186:;  T186:;
426          if((V37)>=(V38)){          if((V37)>=(V38)){
427          goto T189;}          goto T189;}
428          goto T188;          goto T188;
429    goto T189;
430  T189:;  T189:;
431          goto T187;          goto T187;
432    goto T188;
433  T188:;  T188:;
434          V42= Cnil;          V42= Cnil;
435          {register object x= small_fixnum(0),V43= (V29);          {register object x= small_fixnum(0),V43= (V29);
# Line 386  T188:; Line 438  T188:;
438          goto T196;          goto T196;
439          }else V43=V43->c.c_cdr;          }else V43=V43->c.c_cdr;
440          goto T195;}          goto T195;}
441    goto T196;
442  T196:;  T196:;
443          base[6]= (V29);          base[6]= (V29);
444          base[7]= make_fixnum(V41);          base[7]= make_fixnum(V41);
# Line 394  T196:; Line 447  T196:;
447          vs_top=sup;          vs_top=sup;
448          V42= vs_base[0];          V42= vs_base[0];
449          goto T193;          goto T193;
450    goto T195;
451  T195:;  T195:;
452          V42= nth(V41,(V29));          V42= nth(V41,(V29));
453    goto T193;
454  T193:;  T193:;
455          if(((V42))==Cnil){          if(((V42))==Cnil){
456          goto T203;}          goto T203;}
# Line 412  T193:; Line 467  T193:;
467          Lformat();          Lformat();
468          vs_top=sup;          vs_top=sup;
469          goto T201;          goto T201;
470    goto T203;
471  T203:;  T203:;
472          base[6]= symbol_value(VV[1]);          base[6]= symbol_value(VV[1]);
473          base[7]= VV[17];          base[7]= VV[17];
# Line 424  T203:; Line 480  T203:;
480          vs_top=(vs_base=base+6)+4;          vs_top=(vs_base=base+6)+4;
481          Lformat();          Lformat();
482          vs_top=sup;          vs_top=sup;
483    goto T201;
484  T201:;  T201:;
485          V37= (V37)+(1);          V37= (V37)+(1);
486          if(!((V41)<(2147483646))){          if(!((V41)<(2147483646))){
487          goto T219;}          goto T219;}
488          goto T218;          goto T218;
489    goto T219;
490  T219:;  T219:;
491          (void)((*(LnkLI114))());          (void)((*(LnkLI114))());
492    goto T218;
493  T218:;  T218:;
494          V41= (V41)+(1);          V41= (V41)+(1);
495          goto T186;          goto T186;
496    goto T187;
497  T187:;  T187:;
498          base[6]= Cnil;          base[6]= Cnil;
499          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
# Line 447  T187:; Line 507  T187:;
507          bds_unwind1;          bds_unwind1;
508          bds_unwind1;          bds_unwind1;
509          return;}}}          return;}}}
510    goto T174;
511  T174:;  T174:;
512          if(!(type_of((V28))==t_cons||((V28))==Cnil)){          if(!(type_of((V28))==t_cons||((V28))==Cnil)){
513          goto T225;}          goto T225;}
# Line 456  T174:; Line 517  T174:;
517          bds_unwind1;          bds_unwind1;
518          bds_unwind1;          bds_unwind1;
519          return;          return;
520    goto T225;
521  T225:;  T225:;
522          base[6]= symbol_value(VV[1]);          base[6]= symbol_value(VV[1]);
523          base[7]= VV[19];          base[7]= VV[19];
# Line 465  T225:; Line 527  T225:;
527          bds_unwind1;          bds_unwind1;
528          bds_unwind1;          bds_unwind1;
529          return;          return;
530    goto T167;
531  T167:;  T167:;
532          base[6]= Cnil;          base[6]= Cnil;
533          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
# Line 476  T167:; Line 539  T167:;
539  }  }
540  /*      function definition for LOC     */  /*      function definition for LOC     */
541    
542  static L5()  static void L5()
543  {register object *base=vs_base;  {register object *base=vs_base;
544          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
545          vs_reserve(VM5);          vs_reserve(VM5);
# Line 486  static L5() Line 549  static L5()
549          V44=(base[0]);          V44=(base[0]);
550          vs_top=sup;          vs_top=sup;
551          goto T230;          goto T230;
552    goto T229;
553  T229:;  T229:;
554          V44= small_fixnum(0);          V44= small_fixnum(0);
555    goto T230;
556  T230:;  T230:;
557          {object V45;          {object V45;
558          base[1]= symbol_value(VV[9]);          base[1]= symbol_value(VV[9]);
# Line 509  T230:; Line 574  T230:;
574          V46= vs_base[0];          V46= vs_base[0];
575          if((fix((V44)))<((fix(V46))-(fix((V45))))){          if((fix((V44)))<((fix(V46))-(fix((V45))))){
576          goto T234;}          goto T234;}
577    goto T235;
578  T235:;  T235:;
579          base[1]= VV[20];          base[1]= VV[20];
580          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
581          Lerror();          Lerror();
582          vs_top=sup;          vs_top=sup;
583    goto T234;
584  T234:;  T234:;
585          base[1]= make_fixnum((fix((V44)))+(fix((V45))));          base[1]= make_fixnum((fix((V44)))+(fix((V45))));
586          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 523  T234:; Line 590  T234:;
590  }  }
591  /*      macro definition for MV-SETQ    */  /*      macro definition for MV-SETQ    */
592    
593  static L6()  static void L6()
594  {register object *base=vs_base;  {register object *base=vs_base;
595          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
596          vs_reserve(VM6);          vs_reserve(VM6);
# Line 544  static L6() Line 611  static L6()
611          V52= cdr(base[2]);          V52= cdr(base[2]);
612          V53= small_fixnum(0);          V53= small_fixnum(0);
613          V54= Cnil;          V54= Cnil;
614    goto T247;
615  T247:;  T247:;
616          if(((V52))!=Cnil){          if(((V52))!=Cnil){
617          goto T248;}          goto T248;}
618          V51= reverse((V54));          V51= reverse((V54));
619          goto T244;          goto T244;
620    goto T248;
621  T248:;  T248:;
622          V55= car((V52));          V55= car((V52));
623          V56= list(3,VV[22],/* INLINE-ARGS */V55,list(2,VV[23],(V53)));          V56= list(3,VV[22],/* INLINE-ARGS */V55,list(2,VV[23],(V53)));
# Line 556  T248:; Line 625  T248:;
625          V52= cdr((V52));          V52= cdr((V52));
626          V53= one_plus((V53));          V53= one_plus((V53));
627          goto T247;}          goto T247;}
628    goto T244;
629  T244:;  T244:;
630          base[4]= listA(3,VV[21],/* INLINE-ARGS */V50,V51);          base[4]= listA(3,VV[21],/* INLINE-ARGS */V50,V51);
631          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 563  T244:; Line 633  T244:;
633  }  }
634  /*      macro definition for MV-VALUES  */  /*      macro definition for MV-VALUES  */
635    
636  static L7()  static void L7()
637  {register object *base=vs_base;  {register object *base=vs_base;
638          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
639          vs_reserve(VM7);          vs_reserve(VM7);
# Line 578  static L7() Line 648  static L7()
648          V60= cdr(base[2]);          V60= cdr(base[2]);
649          V61= small_fixnum(0);          V61= small_fixnum(0);
650          V62= Cnil;          V62= Cnil;
651    goto T261;
652  T261:;  T261:;
653          if(((V60))!=Cnil){          if(((V60))!=Cnil){
654          goto T262;}          goto T262;}
655          V59= reverse((V62));          V59= reverse((V62));
656          goto T258;          goto T258;
657    goto T262;
658  T262:;  T262:;
659          V63= list(3,VV[24],(V61),car((V60)));          V63= list(3,VV[24],(V61),car((V60)));
660          V62= make_cons(/* INLINE-ARGS */V63,(V62));          V62= make_cons(/* INLINE-ARGS */V63,(V62));
661          V60= cdr((V60));          V60= cdr((V60));
662          V61= one_plus((V61));          V61= one_plus((V61));
663          goto T261;}          goto T261;}
664    goto T258;
665  T258:;  T258:;
666          base[3]= listA(3,VV[21],/* INLINE-ARGS */V58,V59);          base[3]= listA(3,VV[21],/* INLINE-ARGS */V58,V59);
667          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 596  T258:; Line 669  T258:;
669  }  }
670  /*      function definition for DBL     */  /*      function definition for DBL     */
671    
672  static L8()  static void L8()
673  {register object *base=vs_base;  {register object *base=vs_base;
674          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
675          vs_reserve(VM8);          vs_reserve(VM8);
676          check_arg(0);          check_arg(0);
677          vs_top=sup;          vs_top=sup;
678    goto TTL;
679  TTL:;  TTL:;
680          base[0]= Cnil;          base[0]= Cnil;
681          base[1]= Cnil;          base[1]= Cnil;
# Line 611  TTL:; Line 685  TTL:;
685  }  }
686  /*      function definition for MAKE-INSTREAM   */  /*      function definition for MAKE-INSTREAM   */
687    
688  static L9()  static void L9()
689  {register object *base=vs_base;  {register object *base=vs_base;
690          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
691          vs_reserve(VM9);          vs_reserve(VM9);
# Line 637  static L9() Line 711  static L9()
711  }  }
712  /*      function definition for CLEANUP */  /*      function definition for CLEANUP */
713    
714  static L10()  static void L10()
715  {register object *base=vs_base;  {register object *base=vs_base;
716          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
717          vs_reserve(VM10);          vs_reserve(VM10);
718          check_arg(0);          check_arg(0);
719          vs_top=sup;          vs_top=sup;
720    goto TTL;
721  TTL:;  TTL:;
722          {register object V67;          {register object V67;
723          register object V68;          register object V68;
724          V67= symbol_value(VV[26]);          V67= symbol_value(VV[26]);
725          V68= car((V67));          V68= car((V67));
726    goto T282;
727  T282:;  T282:;
728          if(!(endp((V67)))){          if(!(endp((V67)))){
729          goto T283;}          goto T283;}
730          base[1]= Cnil;          base[1]= Cnil;
731          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
732          return;          return;
733    goto T283;
734  T283:;  T283:;
735          base[1]= structure_ref((V68),VV[25],0);          base[1]= structure_ref((V68),VV[25],0);
736          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 662  T283:; Line 739  T283:;
739          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
740          goto T287;}          goto T287;}
741          setq(VV[26],(VFUN_NARGS=2,(*(LnkLI123))((V68),symbol_value(VV[26]))));          setq(VV[26],(VFUN_NARGS=2,(*(LnkLI123))((V68),symbol_value(VV[26]))));
742    goto T287;
743  T287:;  T287:;
744          V67= cdr((V67));          V67= cdr((V67));
745          V68= car((V67));          V68= car((V67));
# Line 669  T287:; Line 747  T287:;
747  }  }
748  /*      function definition for GET-INSTREAM    */  /*      function definition for GET-INSTREAM    */
749    
750  static L11()  static void L11()
751  {register object *base=vs_base;  {register object *base=vs_base;
752          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
753          vs_reserve(VM11);          vs_reserve(VM11);
# Line 677  static L11() Line 755  static L11()
755          check_arg(1);          check_arg(1);
756          V69=(base[0]);          V69=(base[0]);
757          vs_top=sup;          vs_top=sup;
758    goto TTL;
759  TTL:;{object V70;  TTL:;{object V70;
760          {register object V71;          {register object V71;
761          register object V72;          register object V72;
762          V71= symbol_value(VV[26]);          V71= symbol_value(VV[26]);
763          V72= car((V71));          V72= car((V71));
764    goto T302;
765  T302:;  T302:;
766          if(!(endp((V71)))){          if(!(endp((V71)))){
767          goto T303;}          goto T303;}
768          V70= Cnil;          V70= Cnil;
769          goto T298;          goto T298;
770    goto T303;
771  T303:;  T303:;
772          V73= structure_ref((V72),VV[25],0);          V73= structure_ref((V72),VV[25],0);
773          if(!(((V69))==(/* INLINE-ARGS */V73))){          if(!(((V69))==(/* INLINE-ARGS */V73))){
774          goto T307;}          goto T307;}
775          V70= (V72);          V70= (V72);
776          goto T298;          goto T298;
777    goto T307;
778  T307:;  T307:;
779          V71= cdr((V71));          V71= cdr((V71));
780          V72= car((V71));          V72= car((V71));
781          goto T302;}          goto T302;}
782    goto T298;
783  T298:;  T298:;
784          if(V70==Cnil)goto T297;          if(V70==Cnil)goto T297;
785          base[1]= V70;          base[1]= V70;
786          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
787          return;          return;
788    goto T297;
789  T297:;}  T297:;}
790          base[1]= VV[27];          base[1]= VV[27];
791          base[2]= (V69);          base[2]= (V69);
# Line 718  T297:;} Line 802  T297:;}
802          vs_top=sup;          vs_top=sup;
803          base[4]= vs_base[0];          base[4]= vs_base[0];
804          goto T320;          goto T320;
805    goto T322;
806  T322:;  T322:;
807          base[4]= Cnil;          base[4]= Cnil;
808    goto T320;
809  T320:;  T320:;
810          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
811          (void) (*Lnk125)();          (void) (*Lnk125)();
# Line 733  T320:; Line 819  T320:;
819  }  }
820  /*      function definition for NEWLINE */  /*      function definition for NEWLINE */
821    
822  static L12()  static void L12()
823  {register object *base=vs_base;  {register object *base=vs_base;
824          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
825          vs_reserve(VM12);          vs_reserve(VM12);
# Line 743  static L12() Line 829  static L12()
829          V75=(base[0]);          V75=(base[0]);
830          V76=(base[1]);          V76=(base[1]);
831          vs_top=sup;          vs_top=sup;
832    goto TTL;
833  TTL:;  TTL:;
834          {object V77;          {object V77;
835          base[2]= (V75);          base[2]= (V75);
# Line 764  TTL:; Line 851  TTL:;
851          goto T333;}          goto T333;}
852          setq(VV[29],VV[31]);          setq(VV[29],VV[31]);
853          goto T331;          goto T331;
854    goto T333;
855  T333:;  T333:;
856          setq(VV[29],Ct);          setq(VV[29],Ct);
857    goto T331;
858  T331:;  T331:;
859          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
860          vs_base[0]=Cnil;          vs_base[0]=Cnil;
# Line 774  T331:; Line 863  T331:;
863  }  }
864  /*      function definition for QUOTATION-READER        */  /*      function definition for QUOTATION-READER        */
865    
866  static L13()  static void L13()
867  {register object *base=vs_base;  {register object *base=vs_base;
868          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
869          vs_reserve(VM13);          vs_reserve(VM13);
# Line 784  static L13() Line 873  static L13()
873          V81=(base[0]);          V81=(base[0]);
874          V82=(base[1]);          V82=(base[1]);
875          vs_top=sup;          vs_top=sup;
876    goto TTL;
877  TTL:;  TTL:;
878          {object V83;          {object V83;
879          object V84;          object V84;
# Line 807  TTL:; Line 897  TTL:;
897  }  }
898  /*      function definition for NEW-SEMI-COLON-READER   */  /*      function definition for NEW-SEMI-COLON-READER   */
899    
900  static L14()  static void L14()
901  {register object *base=vs_base;  {register object *base=vs_base;
902          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
903          vs_reserve(VM14);          vs_reserve(VM14);
# Line 818  static L14() Line 908  static L14()
908          V89=(base[0]);          V89=(base[0]);
909          V90=(base[1]);          V90=(base[1]);
910          vs_top=sup;          vs_top=sup;
911    goto TTL;
912  TTL:;  TTL:;
913          {register object V91;          {register object V91;
914          object V92;          object V92;
# Line 872  TTL:; Line 963  TTL:;
963          V96= structure_set((V91),VV[25],1,caddr((V95)));          V96= structure_set((V91),VV[25],1,caddr((V95)));
964          bds_unwind1;          bds_unwind1;
965          goto T352;}          goto T352;}
966    goto T354;
967  T354:;  T354:;
968          (void)((          (void)((
969          (type_of(symbol_value(VV[38])) == t_sfun ?(*(object (*)())((symbol_value(VV[38]))->sfn.sfn_self)):          (type_of(symbol_value(VV[38])) == t_sfun ?(*(object (*)())((symbol_value(VV[38]))->sfn.sfn_self)):
970          (fcall.fun=(symbol_value(VV[38])),fcall.argd=2,fcalln))((V89),(V90))));          (fcall.fun=(symbol_value(VV[38])),fcall.argd=2,fcalln))((V89),(V90))));
971    goto T352;
972  T352:;  T352:;
973          base[2]= Cnil;          base[2]= Cnil;
974          base[3]= (V89);          base[3]= (V89);
# Line 888  T352:; Line 981  T352:;
981          goto T375;}          goto T375;}
982          setq(VV[29],VV[31]);          setq(VV[29],VV[31]);
983          goto T373;          goto T373;
984    goto T375;
985  T375:;  T375:;
986          setq(VV[29],Ct);          setq(VV[29],Ct);
987    goto T373;
988  T373:;  T373:;
989          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
990          vs_base[0]=Cnil;          vs_base[0]=Cnil;
# Line 898  T373:; Line 993  T373:;
993  }  }
994  /*      function definition for SETUP-LINEINFO  */  /*      function definition for SETUP-LINEINFO  */
995    
996  static L15()  static void L15()
997  {register object *base=vs_base;  {register object *base=vs_base;
998          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
999          vs_reserve(VM15);          vs_reserve(VM15);
1000          check_arg(0);          check_arg(0);
1001          vs_top=sup;          vs_top=sup;
1002    goto TTL;
1003  TTL:;  TTL:;
1004          base[0]= VV[33];          base[0]= VV[33];
1005          base[1]= symbol_function(VV[129]);          base[1]= symbol_function(VV[129]);
# Line 936  TTL:; Line 1032  TTL:;
1032  }  }
1033  /*      function definition for NLOAD   */  /*      function definition for NLOAD   */
1034    
1035  static L16()  static void L16()
1036  {register object *base=vs_base;  {register object *base=vs_base;
1037          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
1038          vs_reserve(VM16);          vs_reserve(VM16);
# Line 982  static L16() Line 1078  static L16()
1078  }  }
1079  /*      function definition for LEFT-PARENTHESIS-READER */  /*      function definition for LEFT-PARENTHESIS-READER */
1080    
1081  static L17()  static void L17()
1082  {register object *base=vs_base;  {register object *base=vs_base;
1083          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
1084          vs_reserve(VM17);          vs_reserve(VM17);
# Line 992  static L17() Line 1088  static L17()
1088          V101=(base[0]);          V101=(base[0]);
1089          V102=(base[1]);          V102=(base[1]);
1090          vs_top=sup;          vs_top=sup;
1091    goto TTL;
1092  TTL:;  TTL:;
1093          {object V103;          {object V103;
1094          register object V104;          register object V104;
# Line 1000  TTL:; Line 1097  TTL:;
1097          if(!((symbol_value(VV[29]))==(Ct))){          if(!((symbol_value(VV[29]))==(Ct))){
1098          goto T411;}          goto T411;}
1099          setq(VV[29],Cnil);          setq(VV[29],Cnil);
1100    goto T411;
1101  T411:;  T411:;
1102          if(((V104))==Cnil){          if(((V104))==Cnil){
1103          goto T415;}          goto T415;}
# Line 1009  T411:; Line 1107  T411:;
1107          vs_top=sup;          vs_top=sup;
1108          V104= vs_base[0];          V104= vs_base[0];
1109          V103= structure_ref((V104),VV[25],1);          V103= structure_ref((V104),VV[25],1);
1110    goto T415;
1111  T415:;  T415:;
1112          {object V105;          {object V105;
1113          V105= (          V105= (
# Line 1031  T415:; Line 1130  T415:;
1130          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1131          siLhash_set();          siLhash_set();
1132          vs_top=sup;}          vs_top=sup;}
1133    goto T423;
1134  T423:;  T423:;
1135          base[2]= (V105);          base[2]= (V105);
1136          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1039  T423:; Line 1139  T423:;
1139  }  }
1140  /*      function definition for WALK-THROUGH    */  /*      function definition for WALK-THROUGH    */
1141    
1142  static L18()  static void L18()
1143  {register object *base=vs_base;  {register object *base=vs_base;
1144          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
1145          vs_reserve(VM18);          vs_reserve(VM18);
# Line 1047  static L18() Line 1147  static L18()
1147          check_arg(1);          check_arg(1);
1148          V110=(base[0]);          V110=(base[0]);
1149          vs_top=sup;          vs_top=sup;
1150    goto TTL;
1151  TTL:;  TTL:;
1152          {register object V111;          {register object V111;
1153          V111= Cnil;          V111= Cnil;
1154    goto T435;
1155  T435:;  T435:;
1156          if(!(type_of((V110))==t_cons)){          if(!(type_of((V110))==t_cons)){
1157          goto T436;}          goto T436;}
# Line 1083  T435:; Line 1185  T435:;
1185          siLhash_set();          siLhash_set();
1186          vs_top=sup;          vs_top=sup;
1187          goto T439;}          goto T439;}
1188    goto T446;
1189  T446:;  T446:;
1190          V115= make_cons((V111),(V110));          V115= make_cons((V111),(V110));
1191          (void)((VFUN_NARGS=2,(*(LnkLI135))(/* INLINE-ARGS */V115,symbol_value(VV[47]))));          (void)((VFUN_NARGS=2,(*(LnkLI135))(/* INLINE-ARGS */V115,symbol_value(VV[47]))));
1192    goto T439;
1193  T439:;  T439:;
1194          base[1]= car((V110));          base[1]= car((V110));
1195          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1093  T439:; Line 1197  T439:;
1197          vs_top=sup;          vs_top=sup;
1198          V110= cdr((V110));          V110= cdr((V110));
1199          goto T435;          goto T435;
1200    goto T436;
1201  T436:;  T436:;
1202          base[1]= Cnil;          base[1]= Cnil;
1203          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1101  T436:; Line 1206  T436:;
1206  }  }
1207  /*      function definition for COMPILER-DEF-HOOK       */  /*      function definition for COMPILER-DEF-HOOK       */
1208    
1209  static L19()  static void L19()
1210  {register object *base=vs_base;  {register object *base=vs_base;
1211          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
1212          vs_reserve(VM19);          vs_reserve(VM19);
# Line 1111  static L19() Line 1216  static L19()
1216          V116=(base[0]);          V116=(base[0]);
1217          V117=(base[1]);          V117=(base[1]);
1218          vs_top=sup;          vs_top=sup;
1219    goto TTL;
1220  TTL:;  TTL:;
1221          {object V118;          {object V118;
1222          register long V119;          register long V119;
# Line 1123  TTL:; Line 1229  TTL:;
1229          base[2]= remprop((V116),VV[49]);          base[2]= remprop((V116),VV[49]);
1230          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1231          return;          return;
1232    goto T467;
1233  T467:;  T467:;
1234          if(!((symbol_value(VV[35]))==(symbol_value(VV[39])))){          if(!((symbol_value(VV[35]))==(symbol_value(VV[39])))){
1235          goto T470;}          goto T470;}
# Line 1139  T467:; Line 1246  T467:;
1246          register long V122;          register long V122;
1247          V121= make_fixnum(length((V118)));          V121= make_fixnum(length((V118)));
1248          V122= 0;          V122= 0;
1249    goto T481;
1250  T481:;  T481:;
1251          V123 = make_fixnum(V122);          V123 = make_fixnum(V122);
1252          if(!(number_compare(V123,(V121))>=0)){          if(!(number_compare(V123,(V121))>=0)){
1253          goto T482;}          goto T482;}
1254          goto T477;          goto T477;
1255    goto T482;
1256  T482:;  T482:;
1257          {register long V124;          {register long V124;
1258          V125= aref1((V118),V122);          V125= aref1((V118),V122);
# Line 1151  T482:; Line 1260  T482:;
1260          if(!((V124)>(V120))){          if(!((V124)>(V120))){
1261          goto T488;}          goto T488;}
1262          V120= V124;          V120= V124;
1263    goto T488;
1264  T488:;  T488:;
1265          if(!((V124)<(V119))){          if(!((V124)<(V119))){
1266          goto T486;}          goto T486;}
1267          V119= V124;}          V119= V124;}
1268    goto T486;
1269  T486:;  T486:;
1270          V122= (V122)+1;          V122= (V122)+1;
1271          goto T481;}          goto T481;}
1272    goto T477;
1273  T477:;  T477:;
1274          if(!((length(symbol_value(VV[47])))>(0))){          if(!((length(symbol_value(VV[47])))>(0))){
1275          goto T499;}          goto T499;}
# Line 1176  T477:; Line 1288  T477:;
1288          register object V134;          register object V134;
1289          V133= make_fixnum(length((V118)));          V133= make_fixnum(length((V118)));
1290          V134= small_fixnum(0);          V134= small_fixnum(0);
1291    goto T510;
1292  T510:;  T510:;
1293          if(!(number_compare((V134),(V133))>=0)){          if(!(number_compare((V134),(V133))>=0)){
1294          goto T511;}          goto T511;}
1295          goto T506;          goto T506;
1296    goto T511;
1297  T511:;  T511:;
1298          {object V135;          {object V135;
1299          V135= aref1((V118),fixint((V134)));          V135= aref1((V118),fixint((V134)));
1300          (void)(aset1((V126),(fix(cdar((V135))))-(V119),cdr((V135))));}          (void)(aset1((V126),(fix(cdar((V135))))-(V119),cdr((V135))));}
1301          V134= one_plus((V134));          V134= one_plus((V134));
1302          goto T510;}          goto T510;}
1303    goto T506;
1304  T506:;  T506:;
1305          (void)(sputprop((V116),VV[49],(V126)));          (void)(sputprop((V116),VV[49],(V126)));
1306          if(((V127))==Cnil){          if(((V127))==Cnil){
# Line 1199  T506:; Line 1314  T506:;
1314          object V140;          object V140;
1315          V139= (V136);          V139= (V136);
1316          V140= car((V139));          V140= car((V139));
1317    goto T529;
1318  T529:;  T529:;
1319          if(!(endp((V139)))){          if(!(endp((V139)))){
1320          goto T530;}          goto T530;}
1321          base[3]= Cnil;          base[3]= Cnil;
1322          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1323          return;          return;
1324    goto T530;
1325  T530:;  T530:;
1326          {object V141;          {object V141;
1327          object V142;          object V142;
# Line 1231  T530:; Line 1348  T530:;
1348          V139= cdr((V139));          V139= cdr((V139));
1349          V140= car((V139));          V140= car((V139));
1350          goto T529;}}          goto T529;}}
1351    goto T522;
1352  T522:;  T522:;
1353          base[2]= Cnil;          base[2]= Cnil;
1354          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1355          return;}          return;}
1356    goto T499;
1357  T499:;  T499:;
1358          {object V149;          {object V149;
1359          V149= get((V116),VV[52],Cnil);          V149= get((V116),VV[52],Cnil);
# Line 1243  T499:; Line 1362  T499:;
1362          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1363          (void) (*Lnk139)();          (void) (*Lnk139)();
1364          return;}          return;}
1365    goto T470;
1366  T470:;  T470:;
1367          base[2]= Cnil;          base[2]= Cnil;
1368          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1251  T470:; Line 1371  T470:;
1371  }  }
1372  /*      function definition for INSTREAM-NAME   */  /*      function definition for INSTREAM-NAME   */
1373    
1374  static L20()  static void L20()
1375  {register object *base=vs_base;  {register object *base=vs_base;
1376          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1377          vs_reserve(VM20);          vs_reserve(VM20);
# Line 1259  static L20() Line 1379  static L20()
1379          check_arg(1);          check_arg(1);
1380          V150=(base[0]);          V150=(base[0]);
1381          vs_top=sup;          vs_top=sup;
1382    goto TTL;
1383  TTL:;{object V151;  TTL:;{object V151;
1384          V151= structure_ref((V150),VV[25],2);          V151= structure_ref((V150),VV[25],2);
1385          if(V151==Cnil)goto T551;          if(V151==Cnil)goto T551;
1386          base[1]= V151;          base[1]= V151;
1387          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1388          return;          return;
1389    goto T551;
1390  T551:;}  T551:;}
1391          base[1]= structure_ref((V150),VV[25],0);          base[1]= structure_ref((V150),VV[25],0);
1392          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1277  static object stream_name(str) object st Line 1399  static object stream_name(str) object st
1399      return str->sm.sm_object1; else return Cnil; }      return str->sm.sm_object1; else return Cnil; }
1400  /*      function definition for STREAM-NAME     */  /*      function definition for STREAM-NAME     */
1401    
1402  static L21()  static void L21()
1403  {       object *old_base=vs_base;  {       object *old_base=vs_base;
1404          object x;          object x;
1405          check_arg(1);          check_arg(1);
# Line 1290  static L21() Line 1412  static L21()
1412  static object closedp(str) object str;{return (str->sm.sm_fp==0 ? Ct :Cnil); }  static object closedp(str) object str;{return (str->sm.sm_fp==0 ? Ct :Cnil); }
1413  /*      function definition for CLOSEDP */  /*      function definition for CLOSEDP */
1414    
1415  static L22()  static void L22()
1416  {       object *old_base=vs_base;  {       object *old_base=vs_base;
1417          object x;          object x;
1418          check_arg(1);          check_arg(1);
# Line 1302  static L22() Line 1424  static L22()
1424  }  }
1425  /*      function definition for FIND-LINE-IN-FUN        */  /*      function definition for FIND-LINE-IN-FUN        */
1426    
1427  static L23()  static void L23()
1428  {register object *base=vs_base;  {register object *base=vs_base;
1429          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1430          vs_reserve(VM21);          vs_reserve(VM21);
# Line 1316  static L23() Line 1438  static L23()
1438          V154=(base[2]);          V154=(base[2]);
1439          V155=(base[3]);          V155=(base[3]);
1440          vs_top=sup;          vs_top=sup;
1441    goto TTL;
1442  TTL:;  TTL:;
1443          {object V156;          {object V156;
1444          V156= Cnil;          V156= Cnil;
# Line 1330  TTL:; Line 1453  TTL:;
1453          register object V159;          register object V159;
1454          V158= make_fixnum(length((V157)));          V158= make_fixnum(length((V157)));
1455          V159= small_fixnum(0);          V159= small_fixnum(0);
1456    goto T566;
1457  T566:;  T566:;
1458          if(!(number_compare((V159),(V158))>=0)){          if(!(number_compare((V159),(V158))>=0)){
1459          goto T567;}          goto T567;}
1460          base[5]= Cnil;          base[5]= Cnil;
1461          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1462          return;          return;
1463    goto T567;
1464  T567:;  T567:;
1465          V160= aref1((V157),fixint((V159)));          V160= aref1((V157),fixint((V159)));
1466          if(!(((V152))==(/* INLINE-ARGS */V160))){          if(!(((V152))==(/* INLINE-ARGS */V160))){
# Line 1353  T567:; Line 1478  T567:;
1478          base[5]= VV[55];          base[5]= VV[55];
1479          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1480          return;          return;
1481    goto T574;
1482  T574:;  T574:;
1483          base[6]= (V154);          base[6]= (V154);
1484          base[7]= (V157);          base[7]= (V157);
# Line 1369  T574:; Line 1495  T574:;
1495          base[5]= VV[55];          base[5]= VV[55];
1496          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1497          return;          return;
1498    goto T571;
1499  T571:;  T571:;
1500          V159= one_plus((V159));          V159= one_plus((V159));
1501          goto T566;}          goto T566;}
1502    goto T561;
1503  T561:;  T561:;
1504          base[4]= Cnil;          base[4]= Cnil;
1505          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1506          return;}          return;}
1507    goto T558;
1508  T558:;  T558:;
1509          base[4]= Cnil;          base[4]= Cnil;
1510          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 1384  T558:; Line 1513  T558:;
1513  }  }
1514  /*      function definition for CURRENT-STEP-FUN        */  /*      function definition for CURRENT-STEP-FUN        */
1515    
1516  static L24()  static void L24()
1517  {register object *base=vs_base;  {register object *base=vs_base;
1518          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1519          vs_reserve(VM22);          vs_reserve(VM22);
# Line 1394  static L24() Line 1523  static L24()
1523          V163=(base[0]);          V163=(base[0]);
1524          vs_top=sup;          vs_top=sup;
1525          goto T594;          goto T594;
1526    goto T593;
1527  T593:;  T593:;
1528          vs_base=vs_top;          vs_base=vs_top;
1529          (void) (*Lnk113)();          (void) (*Lnk113)();
1530          vs_top=sup;          vs_top=sup;
1531          V163= vs_base[0];          V163= vs_base[0];
1532    goto T594;
1533  T594:;  T594:;
1534          {register object V164;          {register object V164;
1535          V164= one_minus((V163));          V164= one_minus((V163));
1536    goto T598;
1537  T598:;  T598:;
1538          if(!((fix((V164)))<=(0))){          if(!((fix((V164)))<=(0))){
1539          goto T599;}          goto T599;}
1540          base[1]= Cnil;          base[1]= Cnil;
1541          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1542          return;          return;
1543    goto T599;
1544  T599:;  T599:;
1545          {register object V165;          {register object V165;
1546          base[1]= (V164);          base[1]= (V164);
# Line 1420  T599:; Line 1553  T599:;
1553          base[1]= (V165);          base[1]= (V165);
1554          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1555          return;}          return;}
1556    goto T603;
1557  T603:;  T603:;
1558          V164= make_fixnum((fix((V164)))-(1));          V164= make_fixnum((fix((V164)))-(1));
1559          goto T598;}          goto T598;}
# Line 1427  T603:; Line 1561  T603:;
1561  }  }
1562  /*      function definition for INIT-BREAK-POINTS       */  /*      function definition for INIT-BREAK-POINTS       */
1563    
1564  static L25()  static void L25()
1565  {register object *base=vs_base;  {register object *base=vs_base;
1566          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
1567          vs_reserve(VM23);          vs_reserve(VM23);
1568          check_arg(0);          check_arg(0);
1569          vs_top=sup;          vs_top=sup;
1570    goto TTL;
1571  TTL:;  TTL:;
1572          base[0]= symbol_value(VV[57]);          base[0]= symbol_value(VV[57]);
1573          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
# Line 1446  TTL:; Line 1581  TTL:;
1581  }  }
1582  /*      function definition for STEP-INTO       */  /*      function definition for STEP-INTO       */
1583    
1584  static L26()  static void L26()
1585  {register object *base=vs_base;  {register object *base=vs_base;
1586          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
1587          vs_reserve(VM24);          vs_reserve(VM24);
# Line 1456  static L26() Line 1591  static L26()
1591          V166=(base[0]);          V166=(base[0]);
1592          vs_top=sup;          vs_top=sup;
1593          goto T616;          goto T616;
1594    goto T615;
1595  T615:;  T615:;
1596          V166= small_fixnum(1);          V166= small_fixnum(1);
1597    goto T616;
1598  T616:;  T616:;
1599          if(symbol_value(VV[53])!=Cnil){          if(symbol_value(VV[53])!=Cnil){
1600          goto T618;}          goto T618;}
1601          vs_base=vs_top;          vs_base=vs_top;
1602          (void) (*Lnk141)();          (void) (*Lnk141)();
1603          vs_top=sup;          vs_top=sup;
1604    goto T618;
1605  T618:;  T618:;
1606          setq(VV[58],VV[59]);          setq(VV[58],VV[59]);
1607          base[1]= VV[60];          base[1]= VV[60];
# Line 1473  T618:; Line 1611  T618:;
1611  }  }
1612  /*      function definition for STEP-NEXT       */  /*      function definition for STEP-NEXT       */
1613    
1614  static L27()  static void L27()
1615  {register object *base=vs_base;  {register object *base=vs_base;
1616          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
1617          vs_reserve(VM25);          vs_reserve(VM25);
# Line 1483  static L27() Line 1621  static L27()
1621          V167=(base[0]);          V167=(base[0]);
1622          vs_top=sup;          vs_top=sup;
1623          goto T622;          goto T622;
1624    goto T621;
1625  T621:;  T621:;
1626          V167= small_fixnum(1);          V167= small_fixnum(1);
1627    goto T622;
1628  T622:;  T622:;
1629          {object V168;          {object V168;
1630          vs_base=vs_top;          vs_base=vs_top;
# Line 1497  T622:; Line 1637  T622:;
1637          vs_base=vs_top;          vs_base=vs_top;
1638          (void) (*Lnk141)();          (void) (*Lnk141)();
1639          vs_top=sup;          vs_top=sup;
1640    goto T627;
1641  T627:;  T627:;
1642          setq(VV[58],VV[62]);          setq(VV[58],VV[62]);
1643          base[1]= VV[60];          base[1]= VV[60];
# Line 1506  T627:; Line 1647  T627:;
1647  }  }
1648  /*      function definition for MAYBE-BREAK     */  /*      function definition for MAYBE-BREAK     */
1649    
1650  static L28()  static void L28()
1651  {register object *base=vs_base;  {register object *base=vs_base;
1652          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
1653          vs_reserve(VM26);          vs_reserve(VM26);
# Line 1520  static L28() Line 1661  static L28()
1661          V171=(base[2]);          V171=(base[2]);
1662          V172=(base[3]);          V172=(base[3]);
1663          vs_top=sup;          vs_top=sup;
1664    goto TTL;
1665  TTL:;  TTL:;
1666          {object V173;          {object V173;
1667          V173= Cnil;          V173= Cnil;
# Line 1530  TTL:; Line 1672  TTL:;
1672          if(!((length(symbol_value(VV[53])))>(0))){          if(!((length(symbol_value(VV[53])))>(0))){
1673          goto T638;}          goto T638;}
1674          goto T637;          goto T637;
1675    goto T638;
1676  T638:;  T638:;
1677          setq(VV[53],Cnil);          setq(VV[53],Cnil);
1678    goto T637;
1679  T637:;  T637:;
1680          base[5]= (V171);          base[5]= (V171);
1681          base[6]= (V170);          base[6]= (V170);
# Line 1547  T637:; Line 1691  T637:;
1691          base[4]= Ct;          base[4]= Ct;
1692          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1693          return;          return;
1694    goto T632;
1695  T632:;  T632:;
1696          base[4]= Cnil;          base[4]= Cnil;
1697          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 1555  T632:; Line 1700  T632:;
1700  }  }
1701  /*      function definition for BREAK-STEP-INTO */  /*      function definition for BREAK-STEP-INTO */
1702    
1703  static L29()  static void L29()
1704  {register object *base=vs_base;  {register object *base=vs_base;
1705          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
1706          vs_reserve(VM27);          vs_reserve(VM27);
# Line 1565  static L29() Line 1710  static L29()
1710          V174=(base[0]);          V174=(base[0]);
1711          V175=(base[1]);          V175=(base[1]);
1712          vs_top=sup;          vs_top=sup;
1713    goto TTL;
1714  TTL:;  TTL:;
1715          {object V176;          {object V176;
1716          vs_base=vs_top;          vs_base=vs_top;
# Line 1584  TTL:; Line 1730  TTL:;
1730  }  }
1731  /*      function definition for BREAK-STEP-NEXT */  /*      function definition for BREAK-STEP-NEXT */
1732    
1733  static L30()  static void L30()
1734  {register object *base=vs_base;  {register object *base=vs_base;
1735          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
1736          vs_reserve(VM28);          vs_reserve(VM28);
# Line 1594  static L30() Line 1740  static L30()
1740          V178=(base[0]);          V178=(base[0]);
1741          V179=(base[1]);          V179=(base[1]);
1742          vs_top=sup;          vs_top=sup;
1743    goto TTL;
1744  TTL:;  TTL:;
1745          {object V180;          {object V180;
1746          vs_base=vs_top;          vs_base=vs_top;
# Line 1611  TTL:; Line 1758  TTL:;
1758          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1759          (void) (*Lnk144)();          (void) (*Lnk144)();
1760          return;}          return;}
1761    goto T655;
1762  T655:;  T655:;
1763          base[2]= Cnil;          base[2]= Cnil;
1764          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1619  T655:; Line 1767  T655:;
1767  }  }
1768  /*      function definition for *BREAK-POINTS*  */  /*      function definition for *BREAK-POINTS*  */
1769    
1770  static L31()  static void L31()
1771  {register object *base=vs_base;  {register object *base=vs_base;
1772          register object *sup=base+VM29; VC29          register object *sup=base+VM29; VC29
1773          vs_reserve(VM29);          vs_reserve(VM29);
# Line 1629  static L31() Line 1777  static L31()
1777          V182=(base[0]);          V182=(base[0]);
1778          V183=(base[1]);          V183=(base[1]);
1779          vs_top=sup;          vs_top=sup;
1780    goto TTL;
1781  TTL:;  TTL:;
1782          {object V184;          {object V184;
1783          V184= (VFUN_NARGS=4,(*(LnkLI143))((V182),symbol_value(VV[53]),VV[63],VV[64]));          V184= (VFUN_NARGS=4,(*(LnkLI143))((V182),symbol_value(VV[53]),VV[63],VV[64]));
# Line 1647  TTL:; Line 1796  TTL:;
1796  }  }
1797  /*      function definition for DWIM    */  /*      function definition for DWIM    */
1798    
1799  static L32()  static void L32()
1800  {register object *base=vs_base;  {register object *base=vs_base;
1801          register object *sup=base+VM30; VC30          register object *sup=base+VM30; VC30
1802          vs_reserve(VM30);          vs_reserve(VM30);
# Line 1655  static L32() Line 1804  static L32()
1804          check_arg(1);          check_arg(1);
1805          V185=(base[0]);          V185=(base[0]);
1806          vs_top=sup;          vs_top=sup;
1807    goto TTL;
1808  TTL:;  TTL:;
1809          {register object V186;          {register object V186;
1810          register object V187;          register object V187;
# Line 1663  TTL:; Line 1813  TTL:;
1813          vs_top=sup;          vs_top=sup;
1814          V186= vs_base[0];          V186= vs_base[0];
1815          V187= car((V186));          V187= car((V186));
1816    goto T673;
1817  T673:;  T673:;
1818          if(!(endp((V186)))){          if(!(endp((V186)))){
1819          goto T674;}          goto T674;}
1820          goto T669;          goto T669;
1821    goto T674;
1822  T674:;  T674:;
1823          {register object V188;          {register object V188;
1824          register object V189;          register object V189;
# Line 1681  T674:; Line 1833  T674:;
1833          V189= vs_base[0];          V189= vs_base[0];
1834          vs_top=sup;          vs_top=sup;
1835          goto T684;          goto T684;
1836    goto T682;
1837  T682:;  T682:;
1838          V188= Cnil;          V188= Cnil;
1839    goto T683;
1840  T683:;  T683:;
1841          V189= Cnil;          V189= Cnil;
1842    goto T684;
1843  T684:;  T684:;
1844          if((get((V188),VV[49],Cnil))==Cnil){          if((get((V188),VV[49],Cnil))==Cnil){
1845          goto T686;}          goto T686;}
1846          base[3]= (V188);          base[3]= (V188);
1847          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1848          return;          return;
1849    goto T686;
1850  T686:;  T686:;
1851          if((V189)!=Cnil){          if((V189)!=Cnil){
1852          goto T678;}          goto T678;}
# Line 1698  T686:; Line 1854  T686:;
1854          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1855          Lunintern();          Lunintern();
1856          vs_top=sup;}          vs_top=sup;}
1857    goto T678;
1858  T678:;  T678:;
1859          V186= cdr((V186));          V186= cdr((V186));
1860          V187= car((V186));          V187= car((V186));
1861          goto T673;}          goto T673;}
1862    goto T669;
1863  T669:;  T669:;
1864          base[1]= Ct;          base[1]= Ct;
1865          base[2]= VV[66];          base[2]= VV[66];
# Line 1713  T669:; Line 1871  T669:;
1871  }  }
1872  /*      function definition for BREAK-FUNCTION  */  /*      function definition for BREAK-FUNCTION  */
1873    
1874  static L33()  static void L33()
1875  {register object *base=vs_base;  {register object *base=vs_base;
1876          register object *sup=base+VM31; VC31          register object *sup=base+VM31; VC31
1877          vs_reserve(VM31);          vs_reserve(VM31);
# Line 1731  static L33() Line 1889  static L33()
1889          V192=(base[2]);          V192=(base[2]);
1890          vs_top=sup;          vs_top=sup;
1891          goto T699;          goto T699;
1892    goto T697;
1893  T697:;  T697:;
1894          V191= small_fixnum(1);          V191= small_fixnum(1);
1895    goto T698;
1896  T698:;  T698:;
1897          V192= Cnil;          V192= Cnil;
1898    goto T699;
1899  T699:;  T699:;
1900          {object V193;          {object V193;
1901          V193= Cnil;          V193= Cnil;
# Line 1755  T699:; Line 1916  T699:;
1916          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1917          (void) (*Lnk146)();          (void) (*Lnk146)();
1918          return;          return;
1919    goto T704;
1920  T704:;  T704:;
1921          if(!(type_of((V194))==t_array||          if(!(type_of((V194))==t_array||
1922  type_of((V194))==t_vector||  type_of((V194))==t_vector||
# Line 1762  type_of((V194))==t_string|| Line 1924  type_of((V194))==t_string||
1924  type_of((V194))==t_bitvector)){  type_of((V194))==t_bitvector)){
1925          goto T716;}          goto T716;}
1926          goto T715;          goto T715;
1927    goto T716;
1928  T716:;  T716:;
1929          base[3]= Ct;          base[3]= Ct;
1930          base[4]= VV[67];          base[4]= VV[67];
# Line 1772  T716:; Line 1935  T716:;
1935          base[3]= Cnil;          base[3]= Cnil;
1936          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1937          return;          return;
1938    goto T715;
1939  T715:;  T715:;
1940          {object V195;          {object V195;
1941          V196= aref1((V194),0);          V196= aref1((V194),0);
# Line 1779  T715:; Line 1943  T715:;
1943          if(((V192))==Cnil){          if(((V192))==Cnil){
1944          goto T723;}          goto T723;}
1945          V191= make_fixnum((fix((V191)))-(fix((V195))));          V191= make_fixnum((fix((V191)))-(fix((V195))));
1946    goto T723;
1947  T723:;{object V197;  T723:;{object V197;
1948          if((fix((V191)))>=(1)){          if((fix((V191)))>=(1)){
1949          goto T730;}          goto T730;}
1950          V197= Cnil;          V197= Cnil;
1951          goto T729;          goto T729;
1952    goto T730;
1953  T730:;  T730:;
1954          V197= ((fix((V191)))<(length((V194)))?Ct:Cnil);          V197= ((fix((V191)))<(length((V194)))?Ct:Cnil);
1955    goto T729;
1956  T729:;  T729:;
1957          if(V197==Cnil)goto T728;          if(V197==Cnil)goto T728;
1958          goto T727;          goto T727;
1959    goto T728;
1960  T728:;}{object V198;  T728:;}{object V198;
1961          base[3]= Ct;          base[3]= Ct;
1962          base[4]= VV[68];          base[4]= VV[68];
# Line 1799  T728:;}{object V198; Line 1967  T728:;}{object V198;
1967          V198= vs_base[0];          V198= vs_base[0];
1968          if(V198==Cnil)goto T732;          if(V198==Cnil)goto T732;
1969          goto T727;          goto T727;
1970    goto T732;
1971  T732:;}  T732:;}
1972          base[3]= Cnil;          base[3]= Cnil;
1973          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1974          return;          return;
1975    goto T727;
1976  T727:;  T727:;
1977          if(!(eql((V191),small_fixnum(1)))){          if(!(eql((V191),small_fixnum(1)))){
1978          goto T737;}          goto T737;}
# Line 1819  T727:; Line 1989  T727:;
1989          if((caddr((V199)))==Cnil){          if((caddr((V199)))==Cnil){
1990          goto T737;}          goto T737;}
1991          V191= small_fixnum(2);}          V191= small_fixnum(2);}
1992    goto T737;
1993  T737:;  T737:;
1994          {register object V200;          {register object V200;
1995          register object V201;          register object V201;
1996          V200= make_fixnum((length((V194)))-(fix((V191))));          V200= make_fixnum((length((V194)))-(fix((V191))));
1997          V201= small_fixnum(0);          V201= small_fixnum(0);
1998    goto T753;
1999  T753:;  T753:;
2000          if(!(number_compare((V201),(V200))>=0)){          if(!(number_compare((V201),(V200))>=0)){
2001          goto T754;}          goto T754;}
2002          goto T749;          goto T749;
2003    goto T754;
2004  T754:;  T754:;
2005          V202= aref1((V194),fixint((V201)));          V202= aref1((V194),fixint((V201)));
2006          if((/* INLINE-ARGS */V202)==(VV[51])){          if((/* INLINE-ARGS */V202)==(VV[51])){
# Line 1849  T754:; Line 2022  T754:;
2022          vs_base=vs_top=base+4;          vs_base=vs_top=base+4;
2023          vs_base[0]=Cnil;          vs_base[0]=Cnil;
2024          return;          return;
2025    goto T758;
2026  T758:;  T758:;
2027          V201= one_plus((V201));          V201= one_plus((V201));
2028          goto T753;}          goto T753;}
2029    goto T749;
2030  T749:;  T749:;
2031          base[3]= Ct;          base[3]= Ct;
2032          base[4]= VV[70];          base[4]= VV[70];
# Line 1862  T749:; Line 2037  T749:;
2037  }  }
2038  /*      function definition for INSERT-BREAK-POINT      */  /*      function definition for INSERT-BREAK-POINT      */
2039    
2040  static L34()  static void L34()
2041  {register object *base=vs_base;  {register object *base=vs_base;
2042          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
2043          vs_reserve(VM32);          vs_reserve(VM32);
# Line 1870  static L34() Line 2045  static L34()
2045          check_arg(1);          check_arg(1);
2046          V203=(base[0]);          V203=(base[0]);
2047          vs_top=sup;          vs_top=sup;
2048    goto TTL;
2049  TTL:;  TTL:;
2050          {register object V204;          {register object V204;
2051          V204= Cnil;          V204= Cnil;
# Line 1878  TTL:; Line 2054  TTL:;
2054          vs_base=vs_top;          vs_base=vs_top;
2055          (void) (*Lnk141)();          (void) (*Lnk141)();
2056          vs_top=sup;          vs_top=sup;
2057    goto T773;
2058  T773:;{object V205;  T773:;{object V205;
2059          V205= (VFUN_NARGS=2,(*(LnkLI143))(Cnil,symbol_value(VV[53])));          V205= (VFUN_NARGS=2,(*(LnkLI143))(Cnil,symbol_value(VV[53])));
2060          if(V205==Cnil)goto T776;          if(V205==Cnil)goto T776;
2061          V204= V205;          V204= V205;
2062          goto T775;          goto T775;
2063    goto T776;
2064  T776:;}  T776:;}
2065          {object V206;          {object V206;
2066          V206= make_fixnum(length(symbol_value(VV[53])));          V206= make_fixnum(length(symbol_value(VV[53])));
2067          (void)((VFUN_NARGS=2,(*(LnkLI135))(Cnil,symbol_value(VV[53]))));          (void)((VFUN_NARGS=2,(*(LnkLI135))(Cnil,symbol_value(VV[53]))));
2068          V204= (V206);}          V204= (V206);}
2069    goto T775;
2070  T775:;  T775:;
2071          {object V207;          {object V207;
2072          {object V208= cdr(cdr(cdr((V203))));          {object V208= cdr(cdr(cdr((V203))));
# Line 1906  T775:; Line 2085  T775:;
2085  }  }
2086  /*      function definition for SHORT-NAME      */  /*      function definition for SHORT-NAME      */
2087    
2088  static L35()  static void L35()
2089  {register object *base=vs_base;  {register object *base=vs_base;
2090          register object *sup=base+VM33; VC33          register object *sup=base+VM33; VC33
2091          vs_reserve(VM33);          vs_reserve(VM33);
# Line 1914  static L35() Line 2093  static L35()
2093          check_arg(1);          check_arg(1);
2094          V213=(base[0]);          V213=(base[0]);
2095          vs_top=sup;          vs_top=sup;
2096    goto TTL;
2097  TTL:;  TTL:;
2098          {object V214;          {object V214;
2099          V214= (VFUN_NARGS=4,(*(LnkLI143))(VV[71],(V213),VV[72],Ct));          V214= (VFUN_NARGS=4,(*(LnkLI143))(VV[71],(V213),VV[72],Ct));
# Line 1924  TTL:; Line 2104  TTL:;
2104          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2105          Lsubseq();          Lsubseq();
2106          return;          return;
2107    goto T787;
2108  T787:;  T787:;
2109          base[1]= (V213);          base[1]= (V213);
2110          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1932  T787:; Line 2113  T787:;
2113  }  }
2114  /*      function definition for SHOW-BREAK-POINT        */  /*      function definition for SHOW-BREAK-POINT        */
2115    
2116  static L36()  static void L36()
2117  {register object *base=vs_base;  {register object *base=vs_base;
2118          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
2119          vs_reserve(VM34);          vs_reserve(VM34);
# Line 1940  static L36() Line 2121  static L36()
2121          check_arg(1);          check_arg(1);
2122          V215=(base[0]);          V215=(base[0]);
2123          vs_top=sup;          vs_top=sup;
2124    goto TTL;
2125  TTL:;  TTL:;
2126          {object V216;          {object V216;
2127          V216= Cnil;          V216= Cnil;
# Line 1951  TTL:; Line 2133  TTL:;
2133          goto T796;}          goto T796;}
2134          V216= Ct;          V216= Ct;
2135          V217= cdr((V217));          V217= cdr((V217));
2136    goto T796;
2137  T796:;  T796:;
2138          base[1]= Ct;          base[1]= Ct;
2139          base[2]= VV[73];          base[2]= VV[73];
# Line 1979  T796:; Line 2162  T796:;
2162          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
2163          Lformat();          Lformat();
2164          return;}          return;}
2165    goto T794;
2166  T794:;  T794:;
2167          base[1]= Cnil;          base[1]= Cnil;
2168          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1987  T794:; Line 2171  T794:;
2171  }  }
2172  /*      function definition for ITERATE-OVER-BKPTS      */  /*      function definition for ITERATE-OVER-BKPTS      */
2173    
2174  static L37()  static void L37()
2175  {register object *base=vs_base;  {register object *base=vs_base;
2176          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
2177          vs_reserve(VM35);          vs_reserve(VM35);
# Line 1997  static L37() Line 2181  static L37()
2181          V219=(base[0]);          V219=(base[0]);
2182          V220=(base[1]);          V220=(base[1]);
2183          vs_top=sup;          vs_top=sup;
2184    goto TTL;
2185  TTL:;  TTL:;
2186          {register object V221;          {register object V221;
2187          register object V222;          register object V222;
2188          V221= make_fixnum(length(symbol_value(VV[53])));          V221= make_fixnum(length(symbol_value(VV[53])));
2189          V222= small_fixnum(0);          V222= small_fixnum(0);
2190    goto T820;
2191  T820:;  T820:;
2192          if(!(number_compare((V222),(V221))>=0)){          if(!(number_compare((V222),(V221))>=0)){
2193          goto T821;}          goto T821;}
2194          base[3]= Cnil;          base[3]= Cnil;
2195          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2196          return;          return;
2197    goto T821;
2198  T821:;  T821:;
2199          {register object x= (V222),V223= (V219);          {register object x= (V222),V223= (V219);
2200          while(!endp(V223))          while(!endp(V223))
# Line 2016  T821:; Line 2203  T821:;
2203          }else V223=V223->c.c_cdr;}          }else V223=V223->c.c_cdr;}
2204          if(((V219))!=Cnil){          if(((V219))!=Cnil){
2205          goto T825;}          goto T825;}
2206    goto T826;
2207  T826:;  T826:;
2208          {register object V224;          {register object V224;
2209          V224= aref1(symbol_value(VV[53]),fixint((V222)));{object V225;          V224= aref1(symbol_value(VV[53]),fixint((V222)));{object V225;
# Line 2035  T826:; Line 2223  T826:;
2223          V230= get(V231,VV[52],Cnil);          V230= get(V231,VV[52],Cnil);
2224          V233= (VFUN_NARGS=2,(*(LnkLI123))((V222),V230));          V233= (VFUN_NARGS=2,(*(LnkLI123))((V222),V230));
2225          (void)(sputprop(V228,VV[52],/* INLINE-ARGS */V233));          (void)(sputprop(V228,VV[52],/* INLINE-ARGS */V233));
2226    goto T833;
2227  T833:;  T833:;
2228          V226= Cnil;          V226= Cnil;
2229          goto T831;          goto T831;
2230    goto T832;
2231  T832:;  T832:;
2232          if((V227!= VV[151]))goto T839;          if((V227!= VV[151]))goto T839;
2233          if(!((car((V224)))==(Cnil))){          if(!((car((V224)))==(Cnil))){
2234          goto T841;}          goto T841;}
2235          V226= cdr((V224));          V226= cdr((V224));
2236          goto T831;          goto T831;
2237    goto T841;
2238  T841:;  T841:;
2239          V226= Cnil;          V226= Cnil;
2240          goto T831;          goto T831;
2241    goto T839;
2242  T839:;  T839:;
2243          if((V227!= VV[152]))goto T843;          if((V227!= VV[152]))goto T843;
2244          if(((V224))==Cnil){          if(((V224))==Cnil){
# Line 2055  T839:; Line 2247  T839:;
2247          goto T845;}          goto T845;}
2248          V226= make_cons(Cnil,(V224));          V226= make_cons(Cnil,(V224));
2249          goto T831;          goto T831;
2250    goto T845;
2251  T845:;  T845:;
2252          V226= (V224);          V226= (V224);
2253          goto T831;          goto T831;
2254    goto T843;
2255  T843:;  T843:;
2256          if((V227!= VV[153]))goto T849;          if((V227!= VV[153]))goto T849;
2257          if(((V224))==Cnil){          if(((V224))==Cnil){
# Line 2067  T843:; Line 2261  T843:;
2261          (void) (*Lnk148)();          (void) (*Lnk148)();
2262          vs_top=sup;          vs_top=sup;
2263          princ_char(10,Cnil);          princ_char(10,Cnil);
2264    goto T850;
2265  T850:;  T850:;
2266          V226= (V224);          V226= (V224);
2267          goto T831;          goto T831;
2268    goto T849;
2269  T849:;  T849:;
2270          V226= Cnil;}          V226= Cnil;}
2271    goto T831;
2272  T831:;  T831:;
2273          (void)(aset1(V225,fixint((V222)),V226));}}          (void)(aset1(V225,fixint((V222)),V226));}}
2274    goto T825;
2275  T825:;  T825:;
2276          V222= one_plus((V222));          V222= one_plus((V222));
2277          goto T820;}          goto T820;}
# Line 2081  T825:; Line 2279  T825:;
2279  }  }
2280  /*      function definition for COMPLETE-PROP   */  /*      function definition for COMPLETE-PROP   */
2281    
2282  static L38()  static void L38()
2283  {register object *base=vs_base;  {register object *base=vs_base;
2284          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
2285          vs_reserve(VM36);          vs_reserve(VM36);
# Line 2099  static L38() Line 2297  static L38()
2297          V237=(base[3]);          V237=(base[3]);
2298          vs_top=sup;          vs_top=sup;
2299          goto T859;          goto T859;
2300    goto T858;
2301  T858:;  T858:;
2302          V237= Cnil;          V237= Cnil;
2303    goto T859;
2304  T859:;  T859:;
2305          if(!(type_of((V234))==t_symbol)){          if(!(type_of((V234))==t_symbol)){
2306          goto T861;}          goto T861;}
# Line 2121  T859:; Line 2321  T859:;
2321          base[4]= (V234);          base[4]= (V234);
2322          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2323          return;          return;
2324    goto T861;
2325  T861:;  T861:;
2326          {object V240;          {object V240;
2327          register object V241;          register object V241;
# Line 2143  T861:; Line 2344  T861:;
2344          goto T877;}          goto T877;}
2345          V242= (V245);          V242= (V245);
2346          goto T873;          goto T873;
2347    goto T877;
2348  T877:;  T877:;
2349          base[4]= coerce_to_string((V245));          base[4]= coerce_to_string((V245));
2350          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2351          Lfind_package();          Lfind_package();
2352          vs_top=sup;          vs_top=sup;
2353          V242= vs_base[0];}          V242= vs_base[0];}
2354    goto T873;
2355  T873:;  T873:;
2356          V243= Cnil;          V243= Cnil;
2357          V244= Cnil;          V244= Cnil;
# Line 2164  T873:; Line 2367  T873:;
2367          V247= fix(vs_base[0]);          V247= fix(vs_base[0]);
2368          vs_top=sup;          vs_top=sup;
2369          goto T885;          goto T885;
2370    goto T883;
2371  T883:;  T883:;
2372          V246= fix(Cnil);          V246= fix(Cnil);
2373    goto T884;
2374  T884:;  T884:;
2375          V247= fix(Cnil);          V247= fix(Cnil);
2376    goto T885;
2377  T885:;  T885:;
2378          {object V248;          {object V248;
2379          register object V249;          register object V249;
# Line 2175  T885:; Line 2381  T885:;
2381          V251 = make_fixnum(V246);          V251 = make_fixnum(V246);
2382          V248= number_plus(V250,V251);          V248= number_plus(V250,V251);
2383          V249= small_fixnum(0);          V249= small_fixnum(0);
2384    goto T889;
2385  T889:;  T889:;
2386          if(!(number_compare((V249),(V248))>=0)){          if(!(number_compare((V249),(V248))>=0)){
2387          goto T890;}          goto T890;}
2388          V243= Cnil;          V243= Cnil;
2389          goto T872;          goto T872;
2390    goto T890;
2391  T890:;  T890:;
2392          V252 = make_fixnum(V247);          V252 = make_fixnum(V247);
2393          if(!(number_compare((V249),V252)<0)){          if(!(number_compare((V249),V252)<0)){
# Line 2191  T890:; Line 2399  T890:;
2399          vs_top=sup;          vs_top=sup;
2400          V244= vs_base[0];          V244= vs_base[0];
2401          goto T899;          goto T899;
2402    goto T901;
2403  T901:;  T901:;
2404          base[5]= (V242);          base[5]= (V242);
2405          V253 = make_fixnum(V247);          V253 = make_fixnum(V247);
# Line 2199  T901:; Line 2408  T901:;
2408          siLpackage_external();          siLpackage_external();
2409          vs_top=sup;          vs_top=sup;
2410          V244= vs_base[0];          V244= vs_base[0];
2411    goto T899;
2412  T899:;  T899:;
2413    goto T897;
2414  T897:;  T897:;
2415          if(((V244))!=Cnil){          if(((V244))!=Cnil){
2416          goto T907;}          goto T907;}
2417          goto T898;          goto T898;
2418    goto T907;
2419  T907:;  T907:;
2420          V243= car((V244));          V243= car((V244));
2421          if((get((V243),(V236),Cnil))==Cnil){          if((get((V243),(V236),Cnil))==Cnil){
# Line 2226  T907:; Line 2438  T907:;
2438          if(type_of((V255))!=t_cons)FEwrong_type_argument(Scons,(V255));          if(type_of((V255))!=t_cons)FEwrong_type_argument(Scons,(V255));
2439          ((V255))->c.c_cdr = (V256);          ((V255))->c.c_cdr = (V256);
2440          goto T912;}          goto T912;}
2441    goto T921;
2442  T921:;  T921:;
2443          V241= make_cons((V243),Cnil);          V241= make_cons((V243),Cnil);
2444          V240= (V241);          V240= (V241);
2445    goto T912;
2446  T912:;  T912:;
2447          V244= cdr((V244));          V244= cdr((V244));
2448          goto T897;          goto T897;
2449    goto T898;
2450  T898:;  T898:;
2451          goto T895;          goto T895;
2452    goto T895;
2453  T895:;  T895:;
2454          V249= one_plus((V249));          V249= one_plus((V249));
2455          goto T889;}}}          goto T889;}}}
2456    goto T872;
2457  T872:;  T872:;
2458          if(((V237))==Cnil){          if(((V237))==Cnil){
2459          goto T936;}          goto T936;}
2460          base[4]= (V240);          base[4]= (V240);
2461          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2462          return;          return;
2463    goto T936;
2464  T936:;  T936:;
2465          if(!((length((V240)))>(1))){          if(!((length((V240)))>(1))){
2466          goto T939;}          goto T939;}
# Line 2254  T936:; Line 2472  T936:;
2472          Lformat();          Lformat();
2473          vs_top=sup;          vs_top=sup;
2474          goto T934;          goto T934;
2475    goto T939;
2476  T939:;  T939:;
2477          if(((V240))!=Cnil){          if(((V240))!=Cnil){
2478          goto T946;}          goto T946;}
# Line 2264  T939:; Line 2483  T939:;
2483          Lformat();          Lformat();
2484          vs_top=sup;          vs_top=sup;
2485          goto T934;          goto T934;
2486    goto T946;
2487  T946:;  T946:;
2488          base[4]= car((V240));          base[4]= car((V240));
2489          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2490          return;          return;
2491    goto T934;
2492  T934:;  T934:;
2493          base[4]= Cnil;          base[4]= Cnil;
2494          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 2279  T934:; Line 2500  T934:;
2500  }  }
2501  /*      function definition for DISPLAY-ENV     */  /*      function definition for DISPLAY-ENV     */
2502    
2503  static L39()  static void L39()
2504  {register object *base=vs_base;  {register object *base=vs_base;
2505          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
2506          vs_reserve(VM37);          vs_reserve(VM37);
# Line 2289  static L39() Line 2510  static L39()
2510          V257=(base[0]);          V257=(base[0]);
2511          V258=(base[1]);          V258=(base[1]);
2512          vs_top=sup;          vs_top=sup;
2513    goto TTL;
2514  TTL:;  TTL:;
2515          {register object V259;          {register object V259;
2516          V259= reverse((V258));          V259= reverse((V258));
2517    goto T954;
2518  T954:;  T954:;
2519          if(!(type_of((V259))==t_cons)){          if(!(type_of((V259))==t_cons)){
2520          goto T956;}          goto T956;}
# Line 2302  T954:; Line 2525  T954:;
2525          V260= vs_base[0];          V260= vs_base[0];
2526          if(!((fix(V260))>(fix((V257))))){          if(!((fix(V260))>(fix((V257))))){
2527          goto T955;}          goto T955;}
2528    goto T956;
2529  T956:;  T956:;
2530          base[2]= Cnil;          base[2]= Cnil;
2531          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2532          return;          return;
2533    goto T955;
2534  T955:;{object V261;  T955:;{object V261;
2535          if(type_of(car((V259)))==t_cons){          if(type_of(car((V259)))==t_cons){
2536          goto T966;}          goto T966;}
2537          V261= Cnil;          V261= Cnil;
2538          goto T965;          goto T965;
2539    goto T966;
2540  T966:;  T966:;
2541          {object V262= cdar((V259));          {object V262= cdar((V259));
2542          V261= (type_of(V262)==t_cons||(V262)==Cnil?Ct:Cnil);}          V261= (type_of(V262)==t_cons||(V262)==Cnil?Ct:Cnil);}
2543    goto T965;
2544  T965:;  T965:;
2545          if(V261==Cnil)goto T964;          if(V261==Cnil)goto T964;
2546          goto T963;          goto T963;
2547    goto T964;
2548  T964:;}  T964:;}
2549          base[2]= Cnil;          base[2]= Cnil;
2550          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2551          return;          return;
2552    goto T963;
2553  T963:;  T963:;
2554          base[2]= symbol_value(VV[77]);          base[2]= symbol_value(VV[77]);
2555          base[3]= VV[78];          base[3]= VV[78];
# Line 2336  T963:; Line 2565  T963:;
2565  }  }
2566  /*      function definition for APPLY-DISPLAY-FUN       */  /*      function definition for APPLY-DISPLAY-FUN       */
2567    
2568  static L40()  static void L40()
2569  {register object *base=vs_base;  {register object *base=vs_base;
2570          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
2571          vs_reserve(VM38);          vs_reserve(VM38);
# Line 2349  static L40() Line 2578  static L40()
2578          V264=(base[1]);          V264=(base[1]);
2579          V265=(base[2]);          V265=(base[2]);
2580          vs_top=sup;          vs_top=sup;
2581    goto TTL;
2582  TTL:;  TTL:;
2583          bds_bind(VV[13],symbol_value(VV[10]));          bds_bind(VV[13],symbol_value(VV[10]));
2584          bds_bind(VV[11],symbol_value(VV[10]));          bds_bind(VV[11],symbol_value(VV[10]));
# Line 2385  TTL:; Line 2615  TTL:;
2615          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2616          Lformat();          Lformat();
2617          vs_top=sup;          vs_top=sup;
2618    goto T985;
2619  T985:;  T985:;
2620          base[8]= symbol_value(VV[77]);          base[8]= symbol_value(VV[77]);
2621          base[9]= VV[84];          base[9]= VV[84];
# Line 2403  T985:; Line 2634  T985:;
2634  }  }
2635  /*      function definition for GET-LINE-OF-FORM        */  /*      function definition for GET-LINE-OF-FORM        */
2636    
2637  static L41()  static void L41()
2638  {register object *base=vs_base;  {register object *base=vs_base;
2639          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
2640          vs_reserve(VM39);          vs_reserve(VM39);
# Line 2413  static L41() Line 2644  static L41()
2644          V267=(base[0]);          V267=(base[0]);
2645          V268=(base[1]);          V268=(base[1]);
2646          vs_top=sup;          vs_top=sup;
2647    goto TTL;
2648  TTL:;  TTL:;
2649          {object V269;          {object V269;
2650          V269= (VFUN_NARGS=2,(*(LnkLI143))((V267),(V268)));          V269= (VFUN_NARGS=2,(*(LnkLI143))((V267),(V268)));
# Line 2422  TTL:; Line 2654  TTL:;
2654          base[2]= make_fixnum((fix((V269)))+(fix(cdr(/* INLINE-ARGS */V270))));          base[2]= make_fixnum((fix((V269)))+(fix(cdr(/* INLINE-ARGS */V270))));
2655          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2656          return;          return;
2657    goto T999;
2658  T999:;  T999:;
2659          base[2]= Cnil;          base[2]= Cnil;
2660          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 2430  T999:; Line 2663  T999:;
2663  }  }
2664  /*      function definition for GET-NEXT-VISIBLE-FUN    */  /*      function definition for GET-NEXT-VISIBLE-FUN    */
2665    
2666  static L42()  static void L42()
2667  {register object *base=vs_base;  {register object *base=vs_base;
2668          register object *sup=base+VM40; VC40          register object *sup=base+VM40; VC40
2669          vs_reserve(VM40);          vs_reserve(VM40);
# Line 2438  static L42() Line 2671  static L42()
2671          check_arg(1);          check_arg(1);
2672          V271=(base[0]);          V271=(base[0]);
2673          vs_top=sup;          vs_top=sup;
2674    goto TTL;
2675  TTL:;  TTL:;
2676          {register object V272;          {register object V272;
2677          V272= (V271);          V272= (V271);
2678    goto T1002;
2679  T1002:;  T1002:;
2680          if(!((fix((V272)))<(fix(symbol_value(VV[85]))))){          if(!((fix((V272)))<(fix(symbol_value(VV[85]))))){
2681          goto T1003;}          goto T1003;}
# Line 2450  T1002:; Line 2685  T1002:;
2685          base[1]= (V273);          base[1]= (V273);
2686          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2687          return;}          return;}
2688    goto T1003;
2689  T1003:;  T1003:;
2690          {register object V274;          {register object V274;
2691          base[1]= (V272);          base[1]= (V272);
# Line 2466  T1003:; Line 2702  T1003:;
2702          if(((V275))==Cnil){          if(((V275))==Cnil){
2703          goto T1014;}          goto T1014;}
2704          goto T1008;          goto T1008;
2705    goto T1014;
2706  T1014:;  T1014:;
2707          {register object V276;          {register object V276;
2708          V276= get((V274),VV[86],Cnil);          V276= get((V274),VV[86],Cnil);
2709          if(((V276))==Cnil){          if(((V276))==Cnil){
2710          goto T1018;}          goto T1018;}
2711          goto T1008;          goto T1008;
2712    goto T1018;
2713  T1018:;  T1018:;
2714          base[1]= (V274);          base[1]= (V274);
2715          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2485  T1018:; Line 2723  T1018:;
2723          base[1]= (V277);          base[1]= (V277);
2724          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2725          return;}}}}          return;}}}}
2726    goto T1008;
2727  T1008:;  T1008:;
2728          V272= make_fixnum((fix((V272)))-(1));          V272= make_fixnum((fix((V272)))-(1));
2729          goto T1002;}          goto T1002;}
# Line 2492  T1008:; Line 2731  T1008:;
2731  }  }
2732  /*      function definition for DBL-WHAT-FRAME  */  /*      function definition for DBL-WHAT-FRAME  */
2733    
2734  static L43()  static void L43()
2735  {register object *base=vs_base;  {register object *base=vs_base;
2736          register object *sup=base+VM41; VC41          register object *sup=base+VM41; VC41
2737          vs_reserve(VM41);          vs_reserve(VM41);
# Line 2500  static L43() Line 2739  static L43()
2739          check_arg(1);          check_arg(1);
2740          V278=fix(base[0]);          V278=fix(base[0]);
2741          vs_top=sup;          vs_top=sup;
2742    goto TTL;
2743  TTL:;  TTL:;
2744          {register long V279;          {register long V279;
2745          register long V280;          register long V280;
# Line 2507  TTL:; Line 2747  TTL:;
2747          V279= fix(symbol_value(VV[87]));          V279= fix(symbol_value(VV[87]));
2748          V280= 0;          V280= 0;
2749          V281= Cnil;          V281= Cnil;
2750    goto T1031;
2751  T1031:;  T1031:;
2752          {register object V282;          {register object V282;
2753          base[1]= make_fixnum(V279);          base[1]= make_fixnum(V279);
# Line 2521  T1031:; Line 2762  T1031:;
2762          base[1]= make_fixnum(V280);          base[1]= make_fixnum(V280);
2763          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2764          return;          return;
2765    goto T1039;
2766  T1039:;  T1039:;
2767          V280= (V280)+(1);          V280= (V280)+(1);
2768          V279= (V279)-(1);          V279= (V279)-(1);
# Line 2529  T1039:; Line 2771  T1039:;
2771  }  }
2772  /*      function definition for DBL-UP  */  /*      function definition for DBL-UP  */
2773    
2774  static L44()  static void L44()
2775  {register object *base=vs_base;  {register object *base=vs_base;
2776          register object *sup=base+VM42; VC42          register object *sup=base+VM42; VC42
2777          vs_reserve(VM42);          vs_reserve(VM42);
# Line 2539  static L44() Line 2781  static L44()
2781          V283=(base[0]);          V283=(base[0]);
2782          V284=(base[1]);          V284=(base[1]);
2783          vs_top=sup;          vs_top=sup;
2784    goto TTL;
2785  TTL:;  TTL:;
2786          {object V285;          {object V285;
2787          object V286;          object V286;
# Line 2581  TTL:; Line 2824  TTL:;
2824          vs_top=(vs_base=base+2)+7;          vs_top=(vs_base=base+2)+7;
2825          (void) (*Lnk160)();          (void) (*Lnk160)();
2826          return;          return;
2827    goto T1055;
2828  T1055:;  T1055:;
2829          V283= make_fixnum((fix((V285)))+(fix((V283))));          V283= make_fixnum((fix((V285)))+(fix((V283))));
2830          if(!((fix((V283)))>=(0))){          if(!((fix((V283)))>=(0))){
2831          goto T1083;}          goto T1083;}
2832          goto T1082;          goto T1082;
2833    goto T1083;
2834  T1083:;  T1083:;
2835          V283= small_fixnum(0);          V283= small_fixnum(0);
2836    goto T1082;
2837  T1082:;  T1082:;
2838          V284= symbol_value(VV[87]);          V284= symbol_value(VV[87]);
2839          goto TTL;}          goto TTL;}
# Line 2595  T1082:; Line 2841  T1082:;
2841  }  }
2842  /*      function definition for NEXT-STACK-FRAME        */  /*      function definition for NEXT-STACK-FRAME        */
2843    
2844  static L45()  static void L45()
2845  {register object *base=vs_base;  {register object *base=vs_base;
2846          register object *sup=base+VM43; VC43          register object *sup=base+VM43; VC43
2847          vs_reserve(VM43);          vs_reserve(VM43);
# Line 2603  static L45() Line 2849  static L45()
2849          check_arg(1);          check_arg(1);
2850          V291=(base[0]);          V291=(base[0]);
2851          vs_top=sup;          vs_top=sup;
2852    goto TTL;
2853  TTL:;  TTL:;
2854          {register object V292;          {register object V292;
2855          register object V293;          register object V293;
# Line 2623  TTL:; Line 2870  TTL:;
2870          base[1]= Cnil;          base[1]= Cnil;
2871          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2872          return;          return;
2873    goto T1095;
2874  T1095:;  T1095:;
2875          {object V298;          {object V298;
2876          V298= Cnil;          V298= Cnil;
# Line 2641  T1095:; Line 2889  T1095:;
2889          goto T1110;}          goto T1110;}
2890          V300= Cnil;          V300= Cnil;
2891          goto T1109;          goto T1109;
2892    goto T1110;
2893  T1110:;  T1110:;
2894          {register object V301;          {register object V301;
2895          register object V302;          register object V302;
2896          V301= make_fixnum((fix((V291)))+(1));          V301= make_fixnum((fix((V291)))+(1));
2897          V302= Cnil;          V302= Cnil;
2898    goto T1115;
2899  T1115:;  T1115:;
2900          if(!(number_compare((V301),(V294))<=0)){          if(!(number_compare((V301),(V294))<=0)){
2901          goto T1116;}          goto T1116;}
2902          V300= Cnil;          V300= Cnil;
2903          goto T1109;          goto T1109;
2904    goto T1116;
2905  T1116:;  T1116:;
2906          base[1]= (V301);          base[1]= (V301);
2907          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2700  T1116:; Line 2951  T1116:;
2951          base[1]= (V303);          base[1]= (V303);
2952          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2953          return;}          return;}
2954    goto T1123;
2955  T1123:;  T1123:;
2956          V301= make_fixnum((fix((V301)))-(1));          V301= make_fixnum((fix((V301)))-(1));
2957          goto T1115;}          goto T1115;}
2958    goto T1109;
2959  T1109:;  T1109:;
2960          if(((V300))==Cnil){          if(((V300))==Cnil){
2961          goto T1146;}          goto T1146;}
2962          base[1]= (V300);          base[1]= (V300);
2963          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2964          return;          return;
2965    goto T1146;
2966  T1146:;  T1146:;
2967          base[1]= (V296);          base[1]= (V296);
2968          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2719  T1146:; Line 2973  T1146:;
2973          base[1]= Cnil;          base[1]= Cnil;
2974          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2975          return;          return;
2976    goto T1149;
2977  T1149:;  T1149:;
2978          {object V309;          {object V309;
2979          V309= get((V296),VV[86],Cnil);          V309= get((V296),VV[86],Cnil);
# Line 2727  T1149:; Line 2982  T1149:;
2982          base[1]= (V309);          base[1]= (V309);
2983          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2984          return;          return;
2985    goto T1154;
2986  T1154:;  T1154:;
2987          base[1]= (V296);          base[1]= (V296);
2988          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2745  T1154:; Line 3001  T1154:;
3001          goto T1166;}          goto T1166;}
3002          V311= Cnil;          V311= Cnil;
3003          goto T1164;          goto T1164;
3004    goto T1166;
3005  T1166:;  T1166:;
3006          {object V312;          {object V312;
3007          base[1]= (V294);          base[1]= (V294);
# Line 2768  T1166:; Line 3025  T1166:;
3025          vs_top=sup;          vs_top=sup;
3026          V315= vs_base[0];          V315= vs_base[0];
3027          V311= list(3,V313,V314,V315);}          V311= list(3,V313,V314,V315);}
3028    goto T1164;
3029  T1164:;  T1164:;
3030          (void)((MVloc[(3)]=(V311)));          (void)((MVloc[(3)]=(V311)));
3031          base[1]= V294;          base[1]= V294;
3032          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3033          return;          return;
3034    goto T1157;
3035  T1157:;  T1157:;
3036          base[1]= Cnil;          base[1]= Cnil;
3037          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2781  T1157:; Line 3040  T1157:;
3040  }  }
3041  /*      function definition for NTH-STACK-FRAME */  /*      function definition for NTH-STACK-FRAME */
3042    
3043  static L46()  static void L46()
3044  {register object *base=vs_base;  {register object *base=vs_base;
3045          register object *sup=base+VM44; VC44          register object *sup=base+VM44; VC44
3046          vs_reserve(VM44);          vs_reserve(VM44);
# Line 2795  static L46() Line 3054  static L46()
3054          V317=(base[1]);          V317=(base[1]);
3055          vs_top=sup;          vs_top=sup;
3056          goto T1178;          goto T1178;
3057    goto T1177;
3058  T1177:;  T1177:;
3059          V317= symbol_value(VV[87]);          V317= symbol_value(VV[87]);
3060    goto T1178;
3061  T1178:;  T1178:;
3062          {register object V318;          {register object V318;
3063          object V319;          object V319;
# Line 2811  T1178:; Line 3072  T1178:;
3072          if(!((fix((V316)))>=(0))){          if(!((fix((V316)))>=(0))){
3073          goto T1186;}          goto T1186;}
3074          goto T1185;          goto T1185;
3075    goto T1186;
3076  T1186:;  T1186:;
3077          V316= small_fixnum(0);          V316= small_fixnum(0);
3078    goto T1185;
3079  T1185:;  T1185:;
3080          {object V323;          {object V323;
3081          register object V324;          register object V324;
3082          V323= make_fixnum((fix((V316)))+(1));          V323= make_fixnum((fix((V316)))+(1));
3083          V324= small_fixnum(0);          V324= small_fixnum(0);
3084    goto T1193;
3085  T1193:;  T1193:;
3086          if(!(number_compare((V324),(V323))>=0)){          if(!(number_compare((V324),(V323))>=0)){
3087          goto T1194;}          goto T1194;}
3088          goto T1189;          goto T1189;
3089    goto T1194;
3090  T1194:;  T1194:;
3091          base[3]= (V317);          base[3]= (V317);
3092          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 2839  T1194:; Line 3104  T1194:;
3104          V321= (MVloc[(3)]);}          V321= (MVloc[(3)]);}
3105          V317= make_fixnum((fix((V322)))-(1));          V317= make_fixnum((fix((V322)))-(1));
3106          goto T1201;          goto T1201;
3107    goto T1203;
3108  T1203:;  T1203:;
3109          V316= make_fixnum((fix((V324)))-(1));          V316= make_fixnum((fix((V324)))-(1));
3110          goto T1189;          goto T1189;
3111    goto T1201;
3112  T1201:;  T1201:;
3113          V324= one_plus((V324));          V324= one_plus((V324));
3114          goto T1193;}          goto T1193;}
3115    goto T1189;
3116  T1189:;  T1189:;
3117          V317= make_fixnum((fix((V317)))+(1));          V317= make_fixnum((fix((V317)))+(1));
3118          base[2]= (V317);          base[2]= (V317);
# Line 2864  T1189:; Line 3132  T1189:;
3132  }  }
3133  /*      function definition for DBL-BACKTRACE   */  /*      function definition for DBL-BACKTRACE   */
3134    
3135  static L47()  static void L47()
3136  {register object *base=vs_base;  {register object *base=vs_base;
3137          register object *sup=base+VM45; VC45          register object *sup=base+VM45; VC45
3138          vs_reserve(VM45);          vs_reserve(VM45);
# Line 2878  static L47() Line 3146  static L47()
3146          V328=(base[1]);          V328=(base[1]);
3147          vs_top=sup;          vs_top=sup;
3148          goto T1233;          goto T1233;
3149    goto T1231;
3150  T1231:;  T1231:;
3151          V327= small_fixnum(1000);          V327= small_fixnum(1000);
3152    goto T1232;
3153  T1232:;  T1232:;
3154          V328= symbol_value(VV[87]);          V328= symbol_value(VV[87]);
3155    goto T1233;
3156  T1233:;  T1233:;
3157          {register object V329;          {register object V329;
3158          register object V330;          register object V330;
# Line 2893  T1233:; Line 3164  T1233:;
3164          V331= Cnil;          V331= Cnil;
3165          V332= Cnil;          V332= Cnil;
3166          V333= small_fixnum(0);          V333= small_fixnum(0);
3167    goto T1243;
3168  T1243:;  T1243:;
3169          {object V334;          {object V334;
3170          base[2]= (V328);          base[2]= (V328);
# Line 2908  T1243:; Line 3180  T1243:;
3180          if((V329)!=Cnil){          if((V329)!=Cnil){
3181          goto T1257;}          goto T1257;}
3182          goto T1241;          goto T1241;
3183    goto T1257;
3184  T1257:;  T1257:;
3185          base[2]= (V333);          base[2]= (V333);
3186          base[3]= Cnil;          base[3]= Cnil;
# Line 2926  T1257:; Line 3199  T1257:;
3199          vs_base[0]=Cnil;          vs_base[0]=Cnil;
3200          vs_top=sup;          vs_top=sup;
3201          goto T1241;          goto T1241;
3202    goto T1268;
3203  T1268:;  T1268:;
3204          V328= make_fixnum((fix((V328)))-(1));          V328= make_fixnum((fix((V328)))-(1));
3205          goto T1243;          goto T1243;
3206    goto T1241;
3207  T1241:;  T1241:;
3208          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
3209          vs_base[0]=Cnil;          vs_base[0]=Cnil;
# Line 2937  T1241:; Line 3212  T1241:;
3212  }  }
3213  /*      function definition for DISPLAY-COMPILED-ENV    */  /*      function definition for DISPLAY-COMPILED-ENV    */
3214    
3215  static L48()  static void L48()
3216  {register object *base=vs_base;  {register object *base=vs_base;
3217          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
3218          vs_reserve(VM46);          vs_reserve(VM46);
# Line 2947  static L48() Line 3222  static L48()
3222          V335=(base[0]);          V335=(base[0]);
3223          V336=(base[1]);          V336=(base[1]);
3224          vs_top=sup;          vs_top=sup;
3225    goto TTL;
3226  TTL:;  TTL:;
3227          {register object V337;          {register object V337;
3228          register object V338;          register object V338;
# Line 2979  TTL:; Line 3255  TTL:;
3255          V343= vs_base[0];          V343= vs_base[0];
3256          V342= get(V343,VV[14],Cnil);          V342= get(V343,VV[14],Cnil);
3257          V341= (V337);          V341= (V337);
3258    goto T1286;
3259  T1286:;  T1286:;
3260          if((fix((V341)))>=(fix((V338)))){          if((fix((V341)))>=(fix((V338)))){
3261          goto T1288;}          goto T1288;}
# Line 2989  T1286:; Line 3266  T1286:;
3266          V344= vs_base[0];          V344= vs_base[0];
3267          if(!((fix(V344))>(fix((V335))))){          if(!((fix(V344))>(fix((V335))))){
3268          goto T1287;}          goto T1287;}
3269    goto T1288;
3270  T1288:;  T1288:;
3271          base[4]= Cnil;          base[4]= Cnil;
3272          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3273          return;          return;
3274    goto T1287;
3275  T1287:;  T1287:;
3276          base[4]= symbol_value(VV[77]);          base[4]= symbol_value(VV[77]);
3277          base[5]= VV[89];{object V345;          base[5]= VV[89];{object V345;
# Line 3000  T1287:; Line 3279  T1287:;
3279          if(V345==Cnil)goto T1299;          if(V345==Cnil)goto T1299;
3280          base[6]= V345;          base[6]= V345;
3281          goto T1298;          goto T1298;
3282    goto T1299;
3283  T1299:;}  T1299:;}
3284          base[6]= VV[90];          base[6]= VV[90];
3285    goto T1298;
3286  T1298:;  T1298:;
3287          if((car((V342)))!=Cnil){          if((car((V342)))!=Cnil){
3288          goto T1303;}          goto T1303;}
3289          base[7]= make_fixnum((fix((V341)))-(fix((V337))));          base[7]= make_fixnum((fix((V341)))-(fix((V337))));
3290          goto T1301;          goto T1301;
3291    goto T1303;
3292  T1303:;  T1303:;
3293          base[7]= Cnil;          base[7]= Cnil;
3294    goto T1301;
3295  T1301:;  T1301:;
3296          base[9]= (V341);          base[9]= (V341);
3297          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
# Line 3026  T1301:; Line 3309  T1301:;
3309  }  }
3310  /*      function definition for COMPUTING-ARGS-P        */  /*      function definition for COMPUTING-ARGS-P        */
3311    
3312  static L49()  static void L49()
3313  {register object *base=vs_base;  {register object *base=vs_base;
3314          register object *sup=base+VM47; VC47          register object *sup=base+VM47; VC47
3315          vs_reserve(VM47);          vs_reserve(VM47);
# Line 3034  static L49() Line 3317  static L49()
3317          check_arg(1);          check_arg(1);
3318          V346=(base[0]);          V346=(base[0]);
3319          vs_top=sup;          vs_top=sup;
3320    goto TTL;
3321  TTL:;  TTL:;
3322          base[1]= (V346);          base[1]= (V346);
3323          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 3045  TTL:; Line 3329  TTL:;
3329          base[1]= Cnil;          base[1]= Cnil;
3330          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3331          return;          return;
3332    goto T1312;
3333  T1312:;  T1312:;
3334          if(number_compare((V346),small_fixnum(3))>0){          if(number_compare((V346),small_fixnum(3))>0){
3335          goto T1316;}          goto T1316;}
3336          base[1]= Cnil;          base[1]= Cnil;
3337          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3338          return;          return;
3339    goto T1316;
3340  T1316:;  T1316:;
3341          base[1]= (V346);          base[1]= (V346);
3342          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 3064  T1316:; Line 3350  T1316:;
3350          goto T1318;          goto T1318;
3351          }else V349=V349->c.c_cdr;          }else V349=V349->c.c_cdr;
3352          V348= Cnil;}          V348= Cnil;}
3353    goto T1318;
3354  T1318:;  T1318:;
3355          base[1]= ((V348)==Cnil?Ct:Cnil);          base[1]= ((V348)==Cnil?Ct:Cnil);
3356          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 3072  T1318:; Line 3359  T1318:;
3359  }  }
3360  /*      function definition for PRINT-STACK-FRAME       */  /*      function definition for PRINT-STACK-FRAME       */
3361    
3362  static L50()  static void L50()
3363  {register object *base=vs_base;  {register object *base=vs_base;
3364          register object *sup=base+VM48; VC48          register object *sup=base+VM48; VC48
3365          vs_reserve(VM48);          vs_reserve(VM48);
# Line 3100  static L50() Line 3387  static L50()
3387          V357=(base[6]);          V357=(base[6]);
3388          vs_top=sup;          vs_top=sup;
3389          goto T1324;          goto T1324;
3390    goto T1321;
3391  T1321:;  T1321:;
3392          V355= Cnil;          V355= Cnil;
3393    goto T1322;
3394  T1322:;  T1322:;
3395          V356= Cnil;          V356= Cnil;
3396    goto T1323;
3397  T1323:;  T1323:;
3398          V357= Cnil;          V357= Cnil;
3399    goto T1324;
3400  T1324:;  T1324:;
3401          if(((V352))==Cnil){          if(((V352))==Cnil){
3402          goto T1328;}          goto T1328;}
# Line 3118  T1324:; Line 3409  T1324:;
3409          vs_top=(vs_base=base+7)+4;          vs_top=(vs_base=base+7)+4;
3410          Lformat();          Lformat();
3411          vs_top=sup;          vs_top=sup;
3412    goto T1328;
3413  T1328:;  T1328:;
3414          {object V358;          {object V358;
3415          base[7]= (V353);          base[7]= (V353);
# Line 3132  T1328:; Line 3424  T1328:;
3424          base[10]= Cnil;          base[10]= Cnil;
3425          goto T1343;}          goto T1343;}
3426          base[10]= VV[94];          base[10]= VV[94];
3427    goto T1343;
3428  T1343:;  T1343:;
3429          base[11]= (V354);          base[11]= (V354);
3430          base[13]= (V353);          base[13]= (V353);
# Line 3157  T1343:; Line 3450  T1343:;
3450          vs_top=sup;          vs_top=sup;
3451          base[12]= vs_base[0];          base[12]= vs_base[0];
3452          goto T1345;          goto T1345;
3453    goto T1347;
3454  T1347:;  T1347:;
3455          base[13]= VV[96];          base[13]= VV[96];
3456          base[14]= small_fixnum(80);          base[14]= small_fixnum(80);
# Line 3165  T1347:; Line 3459  T1347:;
3459          (void) (*Lnk166)();          (void) (*Lnk166)();
3460          vs_top=sup;          vs_top=sup;
3461          base[12]= vs_base[0];          base[12]= vs_base[0];
3462    goto T1345;
3463  T1345:;  T1345:;
3464          vs_top=(vs_base=base+7)+6;          vs_top=(vs_base=base+7)+6;
3465          Lformat();          Lformat();
# Line 3178  T1345:; Line 3473  T1345:;
3473          vs_top=(vs_base=base+7)+4;          vs_top=(vs_base=base+7)+4;
3474          Lformat();          Lformat();
3475          vs_top=sup;          vs_top=sup;
3476    goto T1359;
3477  T1359:;  T1359:;
3478          base[7]= symbol_value(VV[1]);          base[7]= symbol_value(VV[1]);
3479          base[8]= VV[98];          base[8]= VV[98];
# Line 3189  T1359:; Line 3485  T1359:;
3485  }  }
3486  /*      function definition for MAKE-BREAK-POINT        */  /*      function definition for MAKE-BREAK-POINT        */
3487    
3488  static L51()  static void L51()
3489  {register object *base=vs_base;  {register object *base=vs_base;
3490          register object *sup=base+VM49; VC49          register object *sup=base+VM49; VC49
3491          vs_reserve(VM49);          vs_reserve(VM49);
# Line 3201  static L51() Line 3497  static L51()
3497          V361=(base[1]);          V361=(base[1]);
3498          V362=(base[2]);          V362=(base[2]);
3499          vs_top=sup;          vs_top=sup;
3500    goto TTL;
3501  TTL:;  TTL:;
3502          V363= aref1((V361),fixint((V362)));          V363= aref1((V361),fixint((V362)));
3503          V364= aref1((V361),0);          V364= aref1((V361),0);
# Line 3214  TTL:; Line 3511  TTL:;
3511  }  }
3512  /*      function definition for RELATIVE-LINE   */  /*      function definition for RELATIVE-LINE   */
3513    
3514  static L52()  static void L52()
3515  {register object *base=vs_base;  {register object *base=vs_base;
3516          register object *sup=base+VM50; VC50          register object *sup=base+VM50; VC50
3517          vs_reserve(VM50);          vs_reserve(VM50);
# Line 3224  static L52() Line 3521  static L52()
3521          V368=(base[0]);          V368=(base[0]);
3522          V369=(base[1]);          V369=(base[1]);
3523          vs_top=sup;          vs_top=sup;
3524    goto TTL;
3525  TTL:;  TTL:;
3526          {object V370;          {object V370;
3527          V370= get((V368),VV[49],Cnil);          V370= get((V368),VV[49],Cnil);
# Line 3233  TTL:; Line 3531  TTL:;
3531          base[2]= make_fixnum((fix((V369)))-(fix(cdr(/* INLINE-ARGS */V371))));          base[2]= make_fixnum((fix((V369)))-(fix(cdr(/* INLINE-ARGS */V371))));
3532          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3533          return;          return;
3534    goto T1371;
3535  T1371:;  T1371:;
3536          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
3537          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 3241  T1371:; Line 3540  T1371:;
3540  }  }
3541  /*      function definition for SAFE-EVAL       */  /*      function definition for SAFE-EVAL       */
3542    
3543  static L53()  static void L53()
3544  {register object *base=vs_base;  {register object *base=vs_base;
3545          register object *sup=base+VM51; VC51          register object *sup=base+VM51; VC51
3546          vs_reserve(VM51);          vs_reserve(VM51);
# Line 3252  static L53() Line 3551  static L53()
3551          V372=(base[0]);          V372=(base[0]);
3552          V373=(base[1]);          V373=(base[1]);
3553          vs_top=sup;          vs_top=sup;
3554    goto TTL;
3555  TTL:;  TTL:;
3556          bds_bind(VV[99],Cnil);          bds_bind(VV[99],Cnil);
3557          bds_bind(VV[100],symbol_value(VV[101]));          bds_bind(VV[100],symbol_value(VV[101]));
# Line 3275  TTL:; Line 3575  TTL:;
3575          bds_unwind1;          bds_unwind1;
3576          bds_unwind1;          bds_unwind1;
3577          return;          return;
3578    goto T1373;
3579  T1373:;  T1373:;
3580          {object V375;          {object V375;
3581          object V376;          object V376;
# Line 3289  T1373:; Line 3590  T1373:;
3590          V376= vs_base[0];          V376= vs_base[0];
3591          vs_top=sup;          vs_top=sup;
3592          goto T1385;          goto T1385;
3593    goto T1383;
3594  T1383:;  T1383:;
3595          V375= Cnil;          V375= Cnil;
3596    goto T1384;
3597  T1384:;  T1384:;
3598          V376= Cnil;          V376= Cnil;
3599    goto T1385;
3600  T1385:;  T1385:;
3601          if(((V375))==Cnil){          if(((V375))==Cnil){
3602          goto T1387;}          goto T1387;}
# Line 3302  T1385:; Line 3606  T1385:;
3606          bds_unwind1;          bds_unwind1;
3607          bds_unwind1;          bds_unwind1;
3608          return;          return;
3609    goto T1387;
3610  T1387:;  T1387:;
3611          base[5]= (V376);          base[5]= (V376);
3612          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 3313  T1387:; Line 3618  T1387:;
3618  }  }
3619  /*      function definition for SET-BACK        */  /*      function definition for SET-BACK        */
3620    
3621  static L54()  static void L54()
3622  {register object *base=vs_base;  {register object *base=vs_base;
3623          register object *sup=base+VM52; VC52          register object *sup=base+VM52; VC52
3624          vs_reserve(VM52);          vs_reserve(VM52);
# Line 3323  static L54() Line 3628  static L54()
3628          V378=(base[0]);          V378=(base[0]);
3629          V379=(base[1]);          V379=(base[1]);
3630          vs_top=sup;          vs_top=sup;
3631    goto TTL;
3632  TTL:;  TTL:;
3633          {object V380;          {object V380;
3634          V380= symbol_value(VV[9]);          V380= symbol_value(VV[9]);
# Line 3332  TTL:; Line 3638  TTL:;
3638          goto T1396;}          goto T1396;}
3639          setq(VV[0],(V379));          setq(VV[0],(V379));
3640          goto T1394;          goto T1394;
3641    goto T1396;
3642  T1396:;  T1396:;
3643          base[3]= (V380);          base[3]= (V380);
3644          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 3343  T1396:; Line 3650  T1396:;
3650          vs_top=sup;          vs_top=sup;
3651          V381= vs_base[0];          V381= vs_base[0];
3652          (void)(make_cons(V381,Cnil));          (void)(make_cons(V381,Cnil));
3653    goto T1394;
3654  T1394:;  T1394:;
3655          if(((V378))==Cnil){          if(((V378))==Cnil){
3656          goto T1402;}          goto T1402;}
# Line 3360  T1394:; Line 3668  T1394:;
3668          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
3669          Lformat();          Lformat();
3670          vs_top=sup;          vs_top=sup;
3671    goto T1402;
3672  T1402:;  T1402:;
3673          {register object V382;          {register object V382;
3674          register object V383;          register object V383;
3675          V382= symbol_value(VV[108]);          V382= symbol_value(VV[108]);
3676          V383= car((V382));          V383= car((V382));
3677    goto T1417;
3678  T1417:;  T1417:;
3679          if(!(endp((V382)))){          if(!(endp((V382)))){
3680          goto T1418;}          goto T1418;}
3681          base[3]= Cnil;          base[3]= Cnil;
3682          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3683          return;          return;
3684    goto T1418;
3685  T1418:;  T1418:;
3686          {register object V384;          {register object V384;
3687          base[3]= (V383);          base[3]= (V383);
# Line 3382  T1418:; Line 3693  T1418:;
3693          if(!(((V384))==(VV[102]))){          if(!(((V384))==(VV[102]))){
3694          goto T1426;}          goto T1426;}
3695          goto T1422;          goto T1422;
3696    goto T1426;
3697  T1426:;  T1426:;
3698          base[3]= Ct;          base[3]= Ct;
3699          base[4]= VV[109];          base[4]= VV[109];
# Line 3390  T1426:; Line 3702  T1426:;
3702          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
3703          Lformat();          Lformat();
3704          vs_top=sup;}          vs_top=sup;}
3705    goto T1422;
3706  T1422:;  T1422:;
3707          V382= cdr((V382));          V382= cdr((V382));
3708          V383= car((V382));          V383= car((V382));
3709          goto T1417;}}          goto T1417;}}
3710          }          }
3711  }  }
3712  static LnkT168(){ call_or_link(VV[168],&Lnk168);} /* SAFE-EVAL */  static void LnkT168(){ call_or_link(VV[168],(void **)&Lnk168);} /* SAFE-EVAL */
3713  static LnkT167(){ call_or_link(VV[167],&Lnk167);} /* ERROR-SET */  static void LnkT167(){ call_or_link(VV[167],(void **)&Lnk167);} /* ERROR-SET */
3714  static LnkT166(){ call_or_link(VV[166],&Lnk166);} /* APPLY-DISPLAY-FUN */  static void LnkT166(){ call_or_link(VV[166],(void **)&Lnk166);} /* APPLY-DISPLAY-FUN */
3715  static LnkT165(){ call_or_link(VV[165],&Lnk165);} /* COMPUTING-ARGS-P */  static void LnkT165(){ call_or_link(VV[165],(void **)&Lnk165);} /* COMPUTING-ARGS-P */
3716  static LnkT164(){ call_or_link(VV[164],&Lnk164);} /* VS-TOP */  static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* VS-TOP */
3717  static LnkT163(){ call_or_link(VV[163],&Lnk163);} /* NEXT-STACK-FRAME */  static void LnkT163(){ call_or_link(VV[163],(void **)&Lnk163);} /* NEXT-STACK-FRAME */
3718  static LnkT162(){ call_or_link(VV[162],&Lnk162);} /* IHS-NOT-INTERPRETED-ENV */  static void LnkT162(){ call_or_link(VV[162],(void **)&Lnk162);} /* IHS-NOT-INTERPRETED-ENV */
3719  static LnkT161(){ call_or_link(VV[161],&Lnk161);} /* GET-LINE-OF-FORM */  static void LnkT161(){ call_or_link(VV[161],(void **)&Lnk161);} /* GET-LINE-OF-FORM */
3720  static LnkT160(){ call_or_link(VV[160],&Lnk160);} /* PRINT-STACK-FRAME */  static void LnkT160(){ call_or_link(VV[160],(void **)&Lnk160);} /* PRINT-STACK-FRAME */
3721  static object  LnkTLI159(){return call_proc0(VV[159],&LnkLI159);} /* SET-ENV */  static object  LnkTLI159(){return call_proc0(VV[159],(void **)&LnkLI159);} /* SET-ENV */
3722  static LnkT158(){ call_or_link(VV[158],&Lnk158);} /* NTH-STACK-FRAME */  static void LnkT158(){ call_or_link(VV[158],(void **)&Lnk158);} /* NTH-STACK-FRAME */
3723  static LnkT157(){ call_or_link(VV[157],&Lnk157);} /* DBL-WHAT-FRAME */  static void LnkT157(){ call_or_link(VV[157],(void **)&Lnk157);} /* DBL-WHAT-FRAME */
3724  static LnkT156(){ call_or_link(VV[156],&Lnk156);} /* GET-NEXT-VISIBLE-FUN */  static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* GET-NEXT-VISIBLE-FUN */
3725  static LnkT155(){ call_or_link(VV[155],&Lnk155);} /* STRING-MATCH */  static void LnkT155(){ call_or_link(VV[155],(void **)&Lnk155);} /* STRING-MATCH */
3726  static LnkT154(){ call_or_link(VV[154],&Lnk154);} /* PACKAGE-SIZE */  static void LnkT154(){ call_or_link(VV[154],(void **)&Lnk154);} /* PACKAGE-SIZE */
3727  static LnkT150(){ call_or_link(VV[150],&Lnk150);} /* RELATIVE-LINE */  static void LnkT150(){ call_or_link(VV[150],(void **)&Lnk150);} /* RELATIVE-LINE */
3728  static LnkT149(){ call_or_link(VV[149],&Lnk149);} /* SHORT-NAME */  static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* SHORT-NAME */
3729  static LnkT148(){ call_or_link(VV[148],&Lnk148);} /* SHOW-BREAK-POINT */  static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* SHOW-BREAK-POINT */
3730  static LnkT147(){ call_or_link(VV[147],&Lnk147);} /* INSERT-BREAK-POINT */  static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* INSERT-BREAK-POINT */
3731  static LnkT146(){ call_or_link(VV[146],&Lnk146);} /* BREAK-FUNCTION */  static void LnkT146(){ call_or_link(VV[146],(void **)&Lnk146);} /* BREAK-FUNCTION */
3732  static LnkT145(){ call_or_link(VV[145],&Lnk145);} /* DWIM */  static void LnkT145(){ call_or_link(VV[145],(void **)&Lnk145);} /* DWIM */
3733  static LnkT144(){ call_or_link(VV[144],&Lnk144);} /* MAYBE-BREAK */  static void LnkT144(){ call_or_link(VV[144],(void **)&Lnk144);} /* MAYBE-BREAK */
3734  static object  LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[143],&LnkLI143,ap);} /* POSITION */  static object  LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[143],(void **)&LnkLI143,ap);} /* POSITION */
3735  static LnkT142(){ call_or_link(VV[142],&Lnk142);} /* CURRENT-STEP-FUN */  static void LnkT142(){ call_or_link(VV[142],(void **)&Lnk142);} /* CURRENT-STEP-FUN */
3736  static LnkT141(){ call_or_link(VV[141],&Lnk141);} /* INIT-BREAK-POINTS */  static void LnkT141(){ call_or_link(VV[141],(void **)&Lnk141);} /* INIT-BREAK-POINTS */
3737  static LnkT140(){ call_or_link(VV[140],&Lnk140);} /* IHS-FNAME */  static void LnkT140(){ call_or_link(VV[140],(void **)&Lnk140);} /* IHS-FNAME */
3738  static LnkT139(){ call_or_link(VV[139],&Lnk139);} /* ITERATE-OVER-BKPTS */  static void LnkT139(){ call_or_link(VV[139],(void **)&Lnk139);} /* ITERATE-OVER-BKPTS */
3739  static LnkT138(){ call_or_link(VV[138],&Lnk138);} /* MAKE-BREAK-POINT */  static void LnkT138(){ call_or_link(VV[138],(void **)&Lnk138);} /* MAKE-BREAK-POINT */
3740  static object  LnkTLI137(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[137],&LnkLI137,ap);} /* MAKE-ARRAY */  static object  LnkTLI137(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[137],(void **)&LnkLI137,ap);} /* MAKE-ARRAY */
3741  static LnkT136(){ call_or_link(VV[136],&Lnk136);} /* WALK-THROUGH */  static void LnkT136(){ call_or_link(VV[136],(void **)&Lnk136);} /* WALK-THROUGH */
3742  static object  LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],&LnkLI135,ap);} /* VECTOR-PUSH-EXTEND */  static object  LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],(void **)&LnkLI135,ap);} /* VECTOR-PUSH-EXTEND */
3743  static LnkT134(){ call_or_link(VV[134],&Lnk134);} /* INSTREAM-NAME */  static void LnkT134(){ call_or_link(VV[134],(void **)&Lnk134);} /* INSTREAM-NAME */
3744  static LnkT133(){ call_or_link(VV[133],&Lnk133);} /* LOAD */  static void LnkT133(){ call_or_link(VV[133],(void **)&Lnk133);} /* LOAD */
3745  static LnkT132(){ call_or_link(VV[132],&Lnk132);} /* SETUP-LINEINFO */  static void LnkT132(){ call_or_link(VV[132],(void **)&Lnk132);} /* SETUP-LINEINFO */
3746  static LnkT131(){ call_or_link(VV[131],&Lnk131);} /* CLEANUP */  static void LnkT131(){ call_or_link(VV[131],(void **)&Lnk131);} /* CLEANUP */
3747  static LnkT128(){ call_or_link(VV[128],&Lnk128);} /* READ-FROM-STRING */  static void LnkT128(){ call_or_link(VV[128],(void **)&Lnk128);} /* READ-FROM-STRING */
3748  static object  LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[127],&LnkLI127,ap);} /* COUNT */  static object  LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[127],(void **)&LnkLI127,ap);} /* COUNT */
3749  static LnkT126(){ call_or_link(VV[126],&Lnk126);} /* GET-INSTREAM */  static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* GET-INSTREAM */
3750  static LnkT125(){ call_or_link(VV[125],&Lnk125);} /* MAKE-INSTREAM */  static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* MAKE-INSTREAM */
3751  static LnkT124(){ call_or_link(VV[124],&Lnk124);} /* STREAM-NAME */  static void LnkT124(){ call_or_link(VV[124],(void **)&Lnk124);} /* STREAM-NAME */
3752  static object  LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[123],&LnkLI123,ap);} /* DELETE */  static object  LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[123],(void **)&LnkLI123,ap);} /* DELETE */
3753  static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* CLOSEDP */  static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* CLOSEDP */
3754  static LnkT121(){ call_or_link(VV[121],&Lnk121);} /* BREAK-LEVEL */  static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* BREAK-LEVEL */
3755  static object  LnkTLI120(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[120],&LnkLI120,1,ap);} /* SHOW-ENVIRONMENT */  static object  LnkTLI120(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[120],(void **)&LnkLI120,1,ap);} /* SHOW-ENVIRONMENT */
3756  static LnkT119(){ call_or_link(VV[119],&Lnk119);} /* BREAK-LOCALS */  static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* BREAK-LOCALS */
3757  static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* BREAK-GO */  static void LnkT118(){ call_or_link(VV[118],(void **)&Lnk118);} /* BREAK-GO */
3758  static object  LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[117],&LnkLI117,ap);} /* SEARCH */  static object  LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[117],(void **)&LnkLI117,ap);} /* SEARCH */
3759  static LnkT116(){ call_or_link(VV[116],&Lnk116);} /* COMPILED-FUNCTION-NAME */  static void LnkT116(){ call_or_link(VV[116],(void **)&Lnk116);} /* COMPILED-FUNCTION-NAME */
3760  static LnkT115(){ call_or_link(VV[115],&Lnk115);} /* IHS-FUN */  static void LnkT115(){ call_or_link(VV[115],(void **)&Lnk115);} /* IHS-FUN */
3761  static object  LnkTLI114(){return call_proc0(VV[114],&LnkLI114);} /* TYPE-ERROR */  static object  LnkTLI114(){return call_proc0(VV[114],(void **)&LnkLI114);} /* TYPE-ERROR */
3762  static LnkT113(){ call_or_link(VV[113],&Lnk113);} /* IHS-TOP */  static void LnkT113(){ call_or_link(VV[113],(void **)&Lnk113);} /* IHS-TOP */
3763  static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* VS */  static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* VS */
3764  static LnkT111(){ call_or_link(VV[111],&Lnk111);} /* IHS-VS */  static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* IHS-VS */
3765  static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* BREAK-PREVIOUS */  static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* BREAK-PREVIOUS */
3766    
3767  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3768  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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