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

Diff of /gcl/lsp/top.c

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

revision 1.5 by camm, Fri Jul 12 22:00:49 2002 UTC revision 1.6 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "top.h"  #include "top.h"
4  init_top(){do_init(VV);}  void init_top(){do_init(VV);}
5  /*      local entry for function TOP-LEVEL      */  /*      local entry for function TOP-LEVEL      */
6    
7  static object LI1()  static object LI1()
8    
9  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
10          bds_check;          bds_check;
11    goto TTL;
12  TTL:;  TTL:;
13          bds_bind(VV[0],Cnil);          bds_bind(VV[0],Cnil);
14          bds_bind(VV[1],Cnil);          bds_bind(VV[1],Cnil);
# Line 30  TTL:; Line 31  TTL:;
31          goto T8;}          goto T8;}
32          (VV[12]->s.s_dbind)= Cnil;          (VV[12]->s.s_dbind)= Cnil;
33          goto T6;          goto T6;
34    goto T8;
35  T8:;  T8:;
36          if(!((file_exists(VV[13])))){          if(!((file_exists(VV[13])))){
37          goto T6;}          goto T6;}
# Line 37  T8:; Line 39  T8:;
39          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
40          (void) (*Lnk147)();          (void) (*Lnk147)();
41          vs_top=sup;          vs_top=sup;
42    goto T6;
43  T6:;  T6:;
44          bds_bind(VV[15],Cnil);          bds_bind(VV[15],Cnil);
45          base[11]= (VV[16]->s.s_dbind);          base[11]= (VV[16]->s.s_dbind);
# Line 52  T6:; Line 55  T6:;
55          goto T15;}          goto T15;}
56          frs_pop();          frs_pop();
57          goto T3;          goto T3;
58    goto T15;
59  T15:;  T15:;
60          V1= (          V1= (
61          (type_of((VV[17]->s.s_dbind)) == t_sfun ?(*(object (*)())(((VV[17]->s.s_dbind))->sfn.sfn_self)):          (type_of((VV[17]->s.s_dbind)) == t_sfun ?(*(object (*)())(((VV[17]->s.s_dbind))->sfn.sfn_self)):
62          (fcall.fun=((VV[17]->s.s_dbind)),fcall.argd=0,fcalln))());          (fcall.fun=((VV[17]->s.s_dbind)),fcall.argd=0,fcalln))());
63          frs_pop();}          frs_pop();}
64    goto T3;
65  T3:;  T3:;
66    goto T19;
67  T19:;  T19:;
68          (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);          (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);
69          (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);          (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);
# Line 66  T19:; Line 72  T19:;
72          goto T29;}          goto T29;}
73          (VV[18]->s.s_dbind)= Cnil;          (VV[18]->s.s_dbind)= Cnil;
74          goto T27;          goto T27;
75    goto T29;
76  T29:;  T29:;
77          base[10]= Ct;          base[10]= Ct;
78          base[11]= VV[19];{VOL object V2;          base[11]= VV[19];{VOL object V2;
# Line 79  T29:; Line 86  T29:;
86          goto T36;}}          goto T36;}}
87          base[12]= VV[22];          base[12]= VV[22];
88          goto T34;          goto T34;
89    goto T36;
90  T36:;  T36:;
91          base[13]= (VV[20]->s.s_dbind);          base[13]= (VV[20]->s.s_dbind);
92          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
93          Lpackage_name();          Lpackage_name();
94          vs_top=sup;          vs_top=sup;
95          base[12]= vs_base[0];          base[12]= vs_base[0];
96    goto T34;
97  T34:;  T34:;
98          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
99          Lformat();          Lformat();
100          vs_top=sup;          vs_top=sup;
101    goto T27;
102  T27:;  T27:;
103          vs_base=vs_top;          vs_base=vs_top;
104          siLreset_stack_limits();          siLreset_stack_limits();
# Line 107  T27:; Line 117  T27:;
117          bds_unwind1;          bds_unwind1;
118          bds_unwind1;          bds_unwind1;
119          VMR1(V4)}          VMR1(V4)}
120    goto T42;
121  T42:;  T42:;
122          frs_push(FRS_CATCH,(VV[11]->s.s_dbind));          frs_push(FRS_CATCH,(VV[11]->s.s_dbind));
123          if(nlj_active)          if(nlj_active)
# Line 125  T42:; Line 136  T42:;
136          vs_base=vs_top;          vs_base=vs_top;
137          Lby();          Lby();
138          vs_top=sup;          vs_top=sup;
139    goto T53;
140  T53:;  T53:;
141          {object V5;          {object V5;
142          base[10]= (VV[3]->s.s_dbind);          base[10]= (VV[3]->s.s_dbind);
# Line 145  T53:; Line 157  T53:;
157          register object V7;          register object V7;
158          V6= (VV[7]->s.s_dbind);          V6= (VV[7]->s.s_dbind);
159          V7= CMPcar((V6));          V7= CMPcar((V6));
160    goto T76;
161  T76:;  T76:;
162          if(!(((V6))==Cnil)){          if(!(((V6))==Cnil)){
163          goto T77;}          goto T77;}
164          goto T72;          goto T72;
165    goto T77;
166  T77:;  T77:;
167          base[11]= (V7);          base[11]= (V7);
168          (void)simple_symlispcall(VV[151],base+11,1);          (void)simple_symlispcall(VV[151],base+11,1);
# Line 156  T77:; Line 170  T77:;
170          V6= CMPcdr((V6));          V6= CMPcdr((V6));
171          V7= CMPcar((V6));          V7= CMPcar((V6));
172          goto T76;}          goto T76;}
173    goto T72;
174  T72:;  T72:;
175          frs_pop();          frs_pop();
176          goto T20;}}          goto T20;}}
177    goto T46;
178  T46:;  T46:;
179          (VV[25]->s.s_dbind)= Cnil;          (VV[25]->s.s_dbind)= Cnil;
180          (VV[26]->s.s_dbind)= Cnil;          (VV[26]->s.s_dbind)= Cnil;
# Line 166  T46:; Line 182  T46:;
182          vs_base=vs_top;          vs_base=vs_top;
183          (void) (*Lnk152)();          (void) (*Lnk152)();
184          vs_top=sup;          vs_top=sup;
185    goto T20;
186  T20:;  T20:;
187          goto T19;          goto T19;
188            base[0]=base[0];
189            return Cnil;
190  }  }
191  /*      function definition for PROCESS-SOME-ARGS       */  /*      function definition for PROCESS-SOME-ARGS       */
192    
193  static L2()  static void L2()
194  {register object *base=vs_base;  {register object *base=vs_base;
195          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
196          vs_check;          vs_check;
197          {register object V8;          {register object V8;
198          V8=(base[0]);          V8=(base[0]);
199          vs_top=sup;          vs_top=sup;
200    goto TTL;
201  TTL:;  TTL:;
202    goto T96;
203  T96:;  T96:;
204          {register object V9;          {register object V9;
205          register object V10;          register object V10;
# Line 191  T96:; Line 212  T96:;
212          (void) (*Lnk147)();          (void) (*Lnk147)();
213          vs_top=sup;          vs_top=sup;
214          goto T100;          goto T100;
215    goto T102;
216  T102:;  T102:;
217          if(!(equal((V9),VV[29]))){          if(!(equal((V9),VV[29]))){
218          goto T106;}          goto T106;}
# Line 203  T102:; Line 225  T102:;
225          Leval();          Leval();
226          vs_top=sup;          vs_top=sup;
227          goto T100;          goto T100;
228    goto T106;
229  T106:;  T106:;
230          V10= Ct;          V10= Ct;
231    goto T100;
232  T100:;  T100:;
233          if((V10)!=Cnil){          if((V10)!=Cnil){
234          goto T111;}          goto T111;}
235          V8= CMPcdr((V8));          V8= CMPcdr((V8));
236    goto T111;
237  T111:;  T111:;
238          V8= CMPcdr((V8));}          V8= CMPcdr((V8));}
239          if((V8)!=Cnil){          if((V8)!=Cnil){
# Line 216  T111:; Line 241  T111:;
241          base[1]= Cnil;          base[1]= Cnil;
242          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
243          return;          return;
244    goto T97;
245  T97:;  T97:;
246          goto T96;          goto T96;
247          }          }
248  }  }
249  /*      function definition for DBL-READ        */  /*      function definition for DBL-READ        */
250    
251  static L3()  static void L3()
252  {register object *base=vs_base;  {register object *base=vs_base;
253          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
254          vs_check;          vs_check;
# Line 239  static L3() Line 265  static L3()
265          V13=(base[2]);          V13=(base[2]);
266          vs_top=sup;          vs_top=sup;
267          goto T118;          goto T118;
268    goto T115;
269  T115:;  T115:;
270          V11= (VV[23]->s.s_dbind);          V11= (VV[23]->s.s_dbind);
271    goto T116;
272  T116:;  T116:;
273          V12= Ct;          V12= Ct;
274    goto T117;
275  T117:;  T117:;
276          V13= Cnil;          V13= Cnil;
277    goto T118;
278  T118:;  T118:;
279          {object V14;          {object V14;
280          register object V15;          register object V15;
281          V14= Cnil;          V14= Cnil;
282          V15= Cnil;          V15= Cnil;
283    goto T126;
284  T126:;  T126:;
285          base[3]= (V11);          base[3]= (V11);
286          base[4]= (V12);          base[4]= (V12);
# Line 261  T126:; Line 292  T126:;
292          if(!(eql((V15),VV[30]))){          if(!(eql((V15),VV[30]))){
293          goto T134;}          goto T134;}
294          goto T126;          goto T126;
295    goto T134;
296  T134:;  T134:;
297          if(!(((V15))==((V13)))){          if(!(((V15))==((V13)))){
298          goto T132;}          goto T132;}
299          base[3]= (V13);          base[3]= (V13);
300          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
301          return;          return;
302    goto T132;
303  T132:;  T132:;
304          base[3]= (V15);          base[3]= (V15);
305          base[4]= (V11);          base[4]= (V11);
# Line 274  T132:; Line 307  T132:;
307          Lunread_char();          Lunread_char();
308          vs_top=sup;          vs_top=sup;
309          goto T124;          goto T124;
310    goto T124;
311  T124:;  T124:;
312          if(!(eql(VV[31],(V15)))){          if(!(eql(VV[31],(V15)))){
313          goto T142;}          goto T142;}
# Line 300  T124:; Line 334  T124:;
334          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
335          Lread();          Lread();
336          return;          return;
337    goto T142;
338  T142:;  T142:;
339          base[3]= (V11);          base[3]= (V11);
340          base[4]= (V12);          base[4]= (V12);
# Line 311  T142:; Line 346  T142:;
346  }  }
347  /*      function definition for BREAK-LEVEL     */  /*      function definition for BREAK-LEVEL     */
348    
349  static L4()  static void L4()
350  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
351          register object *VOL sup=base+VM4; VC4          register object *VOL sup=base+VM4; VC4
352          vs_check;          vs_check;
# Line 324  static L4() Line 359  static L4()
359          V17=(base[1]);          V17=(base[1]);
360          vs_top=sup;          vs_top=sup;
361          goto T160;          goto T160;
362    goto T159;
363  T159:;  T159:;
364          V17= Cnil;          V17= Cnil;
365    goto T160;
366  T160:;  T160:;
367          {VOL object V18;          {VOL object V18;
368          if(!(type_of((V16))==t_string)){          if(!(type_of((V16))==t_string)){
369          goto T164;}          goto T164;}
370          bds_bind(VV[34],(V16));          bds_bind(VV[34],(V16));
371          goto T162;          goto T162;
372    goto T164;
373  T164:;  T164:;
374          bds_bind(VV[34],(VV[34]->s.s_dbind));          bds_bind(VV[34],(VV[34]->s.s_dbind));
375    goto T162;
376  T162:;  T162:;
377          V19= make_cons((VV[36]->s.s_dbind),(VV[11]->s.s_dbind));          V19= make_cons((VV[36]->s.s_dbind),(VV[11]->s.s_dbind));
378          bds_bind(VV[35],make_cons(/* INLINE-ARGS */V19,(VV[35]->s.s_dbind)));          bds_bind(VV[35],make_cons(/* INLINE-ARGS */V19,(VV[35]->s.s_dbind)));
# Line 342  T162:; Line 381  T162:;
381          goto T170;}          goto T170;}
382          bds_bind(VV[36],(VV[36]->s.s_dbind));          bds_bind(VV[36],(VV[36]->s.s_dbind));
383          goto T168;          goto T168;
384    goto T170;
385  T170:;  T170:;
386          bds_bind(VV[36],make_cons(Ct,(VV[36]->s.s_dbind)));          bds_bind(VV[36],make_cons(Ct,(VV[36]->s.s_dbind)));
387    goto T168;
388  T168:;  T168:;
389          bds_bind(VV[37],one_plus((VV[38]->s.s_dbind)));          bds_bind(VV[37],one_plus((VV[38]->s.s_dbind)));
390          vs_base=vs_top;          vs_base=vs_top;
# Line 361  T168:; Line 402  T168:;
402          if(V21==Cnil)goto T176;          if(V21==Cnil)goto T176;
403          bds_bind(VV[40],V21);          bds_bind(VV[40],V21);
404          goto T175;          goto T175;
405    goto T176;
406  T176:;}  T176:;}
407          vs_base=vs_top;          vs_base=vs_top;
408          (void) (*Lnk158)();          (void) (*Lnk158)();
409          vs_top=sup;          vs_top=sup;
410          V22= vs_base[0];          V22= vs_base[0];
411          bds_bind(VV[40],one_plus(V22));          bds_bind(VV[40],one_plus(V22));
412    goto T175;
413  T175:;  T175:;
414          vs_base=vs_top;          vs_base=vs_top;
415          (void) (*Lnk158)();          (void) (*Lnk158)();
# Line 378  T175:; Line 421  T175:;
421          goto T185;}          goto T185;}
422          bds_bind(VV[43],Cnil);          bds_bind(VV[43],Cnil);
423          goto T183;          goto T183;
424    goto T185;
425  T185:;  T185:;
426          bds_bind(VV[43],(V18));          bds_bind(VV[43],(V18));
427    goto T183;
428  T183:;  T183:;
429          if((VV[45]->s.s_dbind)!=Cnil){          if((VV[45]->s.s_dbind)!=Cnil){
430          bds_bind(VV[44],(VV[45]->s.s_dbind));          bds_bind(VV[44],(VV[45]->s.s_dbind));
431          goto T187;}          goto T187;}
432          bds_bind(VV[44],(VV[44]->s.s_dbind));          bds_bind(VV[44],(VV[44]->s.s_dbind));
433    goto T187;
434  T187:;  T187:;
435          bds_bind(VV[46],Cnil);          bds_bind(VV[46],Cnil);
436          bds_bind(VV[0],(VV[0]->s.s_dbind));          bds_bind(VV[0],(VV[0]->s.s_dbind));
# Line 408  T187:; Line 454  T187:;
454          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+25)+1;
455          (void) (*Lnk160)();          (void) (*Lnk160)();
456          vs_top=sup;          vs_top=sup;
457    goto T188;
458  T188:;  T188:;
459          base[25]= small_fixnum(1);          base[25]= small_fixnum(1);
460          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+25)+1;
# Line 420  T188:; Line 467  T188:;
467          princ_char(10,VV[27]);          princ_char(10,VV[27]);
468          (VV[18]->s.s_dbind)= Cnil;          (VV[18]->s.s_dbind)= Cnil;
469          goto T199;          goto T199;
470    goto T201;
471  T201:;  T201:;
472          base[25]= (V16);          base[25]= (V16);
473          base[26]= (V17);          base[26]= (V17);
474          vs_top=(vs_base=base+25)+2;          vs_top=(vs_base=base+25)+2;
475          (void) (*Lnk163)();          (void) (*Lnk163)();
476          vs_top=sup;          vs_top=sup;
477    goto T199;
478  T199:;  T199:;
479    goto T209;
480  T209:;  T209:;
481          (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);          (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);
482          (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);          (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);
# Line 435  T209:; Line 485  T209:;
485          goto T219;}          goto T219;}
486          (VV[18]->s.s_dbind)= Cnil;          (VV[18]->s.s_dbind)= Cnil;
487          goto T217;          goto T217;
488    goto T219;
489  T219:;  T219:;
490          base[25]= (VV[48]->s.s_dbind);          base[25]= (VV[48]->s.s_dbind);
491          base[26]= VV[49];          base[26]= VV[49];
# Line 442  T219:; Line 493  T219:;
493          goto T226;}          goto T226;}
494          base[27]= VV[50];          base[27]= VV[50];
495          goto T224;          goto T224;
496    goto T226;
497  T226:;  T226:;
498          base[27]= VV[51];          base[27]= VV[51];
499    goto T224;
500  T224:;{VOL object V23;  T224:;{VOL object V23;
501          V23= (VV[20]->s.s_dbind);          V23= (VV[20]->s.s_dbind);
502          base[29]= VV[21];          base[29]= VV[21];
# Line 455  T224:;{VOL object V23; Line 508  T224:;{VOL object V23;
508          goto T230;}}          goto T230;}}
509          base[28]= VV[52];          base[28]= VV[52];
510          goto T228;          goto T228;
511    goto T230;
512  T230:;  T230:;
513          base[29]= (VV[20]->s.s_dbind);          base[29]= (VV[20]->s.s_dbind);
514          vs_top=(vs_base=base+29)+1;          vs_top=(vs_base=base+29)+1;
515          Lpackage_name();          Lpackage_name();
516          vs_top=sup;          vs_top=sup;
517          base[28]= vs_base[0];          base[28]= vs_base[0];
518    goto T228;
519  T228:;  T228:;
520          base[29]= (VV[36]->s.s_dbind);          base[29]= (VV[36]->s.s_dbind);
521          vs_top=(vs_base=base+25)+5;          vs_top=(vs_base=base+25)+5;
522          Lformat();          Lformat();
523          vs_top=sup;          vs_top=sup;
524    goto T217;
525  T217:;  T217:;
526          base[25]= (VV[27]->s.s_dbind);          base[25]= (VV[27]->s.s_dbind);
527          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+25)+1;
# Line 501  T217:; Line 557  T217:;
557          vs_base=vs_top;          vs_base=vs_top;
558          Lby();          Lby();
559          vs_top=sup;          vs_top=sup;
560    goto T247;
561  T247:;  T247:;
562          {object V25;          {object V25;
563          object V26;          object V26;
# Line 508  T247:; Line 565  T247:;
565          if(!((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package))){          if(!((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package))){
566          goto T254;}          goto T254;}
567          (VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil);          (VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil);
568    goto T254;
569  T254:;  T254:;
570          if(!(type_of((VV[3]->s.s_dbind))==t_cons)){          if(!(type_of((VV[3]->s.s_dbind))==t_cons)){
571          goto T259;}          goto T259;}
# Line 520  T254:; Line 578  T254:;
578          base[28]= VV[54];          base[28]= VV[54];
579          symlispcall(VV[165],base+26,3);          symlispcall(VV[165],base+26,3);
580          goto T253;          goto T253;
581    goto T259;
582  T259:;  T259:;
583          base[26]= (VV[3]->s.s_dbind);          base[26]= (VV[3]->s.s_dbind);
584          base[27]= Cnil;          base[27]= Cnil;
585          base[28]= Cnil;          base[28]= Cnil;
586          base[29]= (VV[42]->s.s_dbind);          base[29]= (VV[42]->s.s_dbind);
587          symlispcall(VV[166],base+26,4);          symlispcall(VV[166],base+26,4);
588    goto T253;
589  T253:;  T253:;
590          Llist();          Llist();
591          vs_top=sup;          vs_top=sup;
# Line 535  T253:; Line 595  T253:;
595          if((CMPcar((V26)))==(VV[55])){          if((CMPcar((V26)))==(VV[55])){
596          goto T273;}          goto T273;}
597          goto T272;          goto T272;
598    goto T273;
599  T273:;  T273:;
600          frs_pop();          frs_pop();
601          frs_pop();          frs_pop();
# Line 564  T273:; Line 625  T273:;
625          bds_unwind1;          bds_unwind1;
626          bds_unwind1;          bds_unwind1;
627          return;          return;
628    goto T272;
629  T272:;  T272:;
630          (VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);          (VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);
631          (VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);          (VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);
# Line 579  T272:; Line 641  T272:;
641          register object V29;          register object V29;
642          V28= (VV[7]->s.s_dbind);          V28= (VV[7]->s.s_dbind);
643          V29= CMPcar((V28));          V29= CMPcar((V28));
644    goto T292;
645  T292:;  T292:;
646          if(!(((V28))==Cnil)){          if(!(((V28))==Cnil)){
647          goto T293;}          goto T293;}
648          goto T250;          goto T250;
649    goto T293;
650  T293:;  T293:;
651          base[27]= (V29);          base[27]= (V29);
652          base[28]= (VV[48]->s.s_dbind);          base[28]= (VV[48]->s.s_dbind);
# Line 591  T293:; Line 655  T293:;
655          V28= CMPcdr((V28));          V28= CMPcdr((V28));
656          V29= CMPcar((V28));          V29= CMPcar((V28));
657          goto T292;}}          goto T292;}}
658    goto T250;
659  T250:;  T250:;
660          frs_pop();          frs_pop();
661          frs_pop();          frs_pop();
662          goto T210;}}          goto T210;}}
663    goto T239;
664  T239:;  T239:;
665          princ_char(10,VV[48]);          princ_char(10,VV[48]);
666          vs_base=vs_top;          vs_base=vs_top;
667          (void) (*Lnk152)();          (void) (*Lnk152)();
668          vs_top=sup;          vs_top=sup;
669    goto T210;
670  T210:;  T210:;
671          goto T209;}          goto T209;}
672          }          }
# Line 615  static object LI5(V30,va_alist) Line 682  static object LI5(V30,va_alist)
682          bds_check;          bds_check;
683          {object V31;          {object V31;
684          object V32;          object V32;
685            Vcs[0]=Vcs[0];
686            va_start(ap);
687          V31= V30;          V31= V30;
688          narg= narg - 1;          narg= narg - 1;
         va_start(ap);  
689          V33 = list_vector(narg,ap);          V33 = list_vector(narg,ap);
690          V32= V33;          V32= V33;
691          bds_bind(VV[56],small_fixnum(4));          bds_bind(VV[56],small_fixnum(4));
# Line 639  static object LI5(V30,va_alist) Line 707  static object LI5(V30,va_alist)
707          bds_unwind1;          bds_unwind1;
708          bds_unwind1;          bds_unwind1;
709          VMR5(V35)}          VMR5(V35)}
710    goto T309;
711  T309:;  T309:;
712          base[3]= (VV[27]->s.s_dbind);          base[3]= (VV[27]->s.s_dbind);
713          base[4]= VV[61];          base[4]= VV[61];
# Line 661  T309:; Line 730  T309:;
730          bds_unwind1;          bds_unwind1;
731          bds_unwind1;          bds_unwind1;
732          bds_unwind1;          bds_unwind1;
733          VMR5(V37)}}          VMR5(V37)}
734            va_end(ap);
735            base[0]=base[0];
736            return Cnil;}
737          }          }
738  /*      local entry for function UNIVERSAL-ERROR-HANDLER        */  /*      local entry for function UNIVERSAL-ERROR-HANDLER        */
739    
# Line 678  static object LI6(V42,V41,V40,V39,V38,va Line 750  static object LI6(V42,V41,V40,V39,V38,va
750          object V46;          object V46;
751          register object V47;          register object V47;
752          register object V48;          register object V48;
753            Vcs[0]=Vcs[0];
754            va_start(ap);
755          V43= V42;          V43= V42;
756          V44= V41;          V44= V41;
757          V45= V40;          V45= V40;
758          V46= V39;          V46= V39;
759          V47= V38;          V47= V38;
760          narg= narg - 5;          narg= narg - 5;
         va_start(ap);  
761          V49 = list_vector(narg,ap);          V49 = list_vector(narg,ap);
762          V48= V49;          V48= V49;
763          {object V50;          {object V50;
# Line 736  static object LI6(V42,V41,V40,V39,V38,va Line 809  static object LI6(V42,V41,V40,V39,V38,va
809          Lformat();          Lformat();
810          vs_top=sup;          vs_top=sup;
811          goto T341;          goto T341;
812    goto T343;
813  T343:;  T343:;
814          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
815          base[5]= VV[67];          base[5]= VV[67];
816          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
817          Lformat();          Lformat();
818          vs_top=sup;          vs_top=sup;
819    goto T341;
820  T341:;  T341:;
821          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
822          base[5]= VV[68];          base[5]= VV[68];
# Line 762  T341:; Line 837  T341:;
837          bds_unwind1;          bds_unwind1;
838          bds_unwind1;          bds_unwind1;
839          goto T321;          goto T321;
840    goto T324;
841  T324:;  T324:;
842          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
843          base[5]= VV[70];          base[5]= VV[70];
# Line 788  T324:; Line 864  T324:;
864          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
865          Lformat();          Lformat();
866          vs_top=sup;          vs_top=sup;
867    goto T365;
868  T365:;  T365:;
869          base[4]= Cnil;          base[4]= Cnil;
870          base[5]= (V47);          base[5]= (V47);
# Line 813  T365:; Line 890  T365:;
890          bds_unwind1;          bds_unwind1;
891          bds_unwind1;          bds_unwind1;
892          goto T321;          goto T321;
893    goto T376;
894  T376:;  T376:;
895          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
896          base[5]= VV[74];          base[5]= VV[74];
# Line 823  T376:; Line 901  T376:;
901          bds_unwind1;          bds_unwind1;
902          bds_unwind1;          bds_unwind1;
903          bds_unwind1;          bds_unwind1;
904    goto T321;
905  T321:;  T321:;
906          base[0]= (VV[27]->s.s_dbind);          base[0]= (VV[27]->s.s_dbind);
907          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 840  T321:; Line 919  T321:;
919          base[0]= (VV[11]->s.s_dbind);          base[0]= (VV[11]->s.s_dbind);
920          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
921          unwind(fr,(VV[11]->s.s_dbind));}          unwind(fr,(VV[11]->s.s_dbind));}
922    goto T388;
923  T388:;  T388:;
924          {object V55 = Cnil;          {object V55 = Cnil;
925          VMR6(V55)}}}          VMR6(V55)}}
926            va_end(ap);
927            base[0]=base[0];
928            return Cnil;}
929          }          }
930  /*      local entry for function BREAK  */  /*      local entry for function BREAK  */
931    
# Line 854  static object LI7(va_alist) Line 937  static object LI7(va_alist)
937          bds_check;          bds_check;
938          {object V56;          {object V56;
939          object V57;          object V57;
940            Vcs[0]=Vcs[0];
941            va_start(ap);
942          narg = narg - 0;          narg = narg - 0;
943          if (narg <= 0) goto T391;          if (narg <= 0) goto T391;
944          else {          else {
         va_start(ap);  
945          V56= va_arg(ap,object);}          V56= va_arg(ap,object);}
946          --narg; goto T392;          --narg; goto T392;
947    goto T391;
948  T391:;  T391:;
949          V56= Cnil;          V56= Cnil;
950    goto T392;
951  T392:;  T392:;
952          V58 = list_vector(narg,ap);          V58 = list_vector(narg,ap);
953          V57= V58;          V57= V58;
# Line 908  T392:; Line 994  T392:;
994          bds_unwind1;          bds_unwind1;
995          bds_unwind1;          bds_unwind1;
996          goto T395;          goto T395;
997    goto T398;
998  T398:;  T398:;
999          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
1000          base[5]= VV[76];          base[5]= VV[76];
# Line 919  T398:; Line 1006  T398:;
1006          bds_unwind1;          bds_unwind1;
1007          bds_unwind1;          bds_unwind1;
1008          bds_unwind1;          bds_unwind1;
1009    goto T395;
1010  T395:;  T395:;
1011          bds_bind(VV[43],Ct);          bds_bind(VV[43],Ct);
1012          base[1]= (V59);          base[1]= (V59);
# Line 927  T395:; Line 1015  T395:;
1015          vs_top=sup;          vs_top=sup;
1016          bds_unwind1;          bds_unwind1;
1017          {object V62 = Cnil;          {object V62 = Cnil;
1018          VMR7(V62)}}}          VMR7(V62)}}
1019            va_end(ap);
1020            base[0]=base[0];
1021            return Cnil;}
1022          }          }
1023  /*      local entry for function TERMINAL-INTERRUPT     */  /*      local entry for function TERMINAL-INTERRUPT     */
1024    
# Line 936  static object LI8(V64) Line 1027  static object LI8(V64)
1027  object V64;  object V64;
1028  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
1029          bds_check;          bds_check;
1030    goto TTL;
1031  TTL:;  TTL:;
1032          bds_bind(VV[43],Ct);          bds_bind(VV[43],Ct);
1033          if(((V64))==Cnil){          if(((V64))==Cnil){
# Line 948  TTL:; Line 1040  TTL:;
1040          {object V65 = vs_base[0];          {object V65 = vs_base[0];
1041          bds_unwind1;          bds_unwind1;
1042          VMR8(V65)}          VMR8(V65)}
1043    goto T419;
1044  T419:;  T419:;
1045          base[1]= VV[80];          base[1]= VV[80];
1046          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 956  T419:; Line 1049  T419:;
1049          {object V66 = vs_base[0];          {object V66 = vs_base[0];
1050          bds_unwind1;          bds_unwind1;
1051          VMR8(V66)}          VMR8(V66)}
1052            base[0]=base[0];
1053            return Cnil;
1054  }  }
1055  /*      local entry for function BREAK-CALL     */  /*      local entry for function BREAK-CALL     */
1056    
# Line 968  static object LI9(V68,V67,va_alist) Line 1063  static object LI9(V68,V67,va_alist)
1063          {object V69;          {object V69;
1064          register object V70;          register object V70;
1065          object V71;          object V71;
1066            Vcs[0]=Vcs[0];
1067            va_start(ap);
1068          V69= V68;          V69= V68;
1069          V70= V67;          V70= V67;
1070          narg = narg - 2;          narg = narg - 2;
1071          if (narg <= 0) goto T424;          if (narg <= 0) goto T424;
1072          else {          else {
         va_start(ap);  
1073          V71= va_arg(ap,object);}          V71= va_arg(ap,object);}
1074          --narg; goto T425;          --narg; goto T425;
1075    goto T424;
1076  T424:;  T424:;
1077          V71= VV[54];          V71= VV[54];
1078    goto T425;
1079  T425:;  T425:;
1080          {register object V72;          {register object V72;
1081          V72= Cnil;          V72= Cnil;
# Line 992  T425:; Line 1090  T425:;
1090          goto T433;}          goto T433;}
1091          {object V73 = Cnil;          {object V73 = Cnil;
1092          VMR9(V73)}          VMR9(V73)}
1093    goto T433;
1094  T433:;  T433:;
1095          {object V74 =((V72))->s.s_plist;          {object V74 =((V72))->s.s_plist;
1096           object ind= (V71);           object ind= (V71);
# Line 1001  T433:; Line 1100  T433:;
1100          goto T435;          goto T435;
1101          }else V74=V74->c.c_cdr->c.c_cdr;}          }else V74=V74->c.c_cdr->c.c_cdr;}
1102          V72= Cnil;}          V72= Cnil;}
1103    goto T435;
1104  T435:;  T435:;
1105          if(((V72))==Cnil){          if(((V72))==Cnil){
1106          goto T437;}          goto T437;}
# Line 1008  T435:; Line 1108  T435:;
1108          if(!(type_of((V72))==t_symbol)){          if(!(type_of((V72))==t_symbol)){
1109          goto T442;}          goto T442;}
1110          goto T441;          goto T441;
1111    goto T442;
1112  T442:;  T442:;
1113          V70= make_cons(VV[82],(V70));          V70= make_cons(VV[82],(V70));
1114    goto T441;
1115  T441:;  T441:;
1116          base[0]= (V70);          base[0]= (V70);
1117          base[1]= Cnil;          base[1]= Cnil;
# Line 1020  T441:; Line 1122  T441:;
1122          vs_top=sup;          vs_top=sup;
1123          {object V75 = vs_base[0];          {object V75 = vs_base[0];
1124          VMR9(V75)}          VMR9(V75)}
1125    goto T437;
1126  T437:;  T437:;
1127          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
1128          base[1]= VV[83];          base[1]= VV[83];
# Line 1028  T437:; Line 1131  T437:;
1131          Lformat();          Lformat();
1132          vs_top=sup;          vs_top=sup;
1133          {object V76 = vs_base[0];          {object V76 = vs_base[0];
1134          VMR9(V76)}}}          VMR9(V76)}}
1135            va_end(ap);
1136            base[0]=base[0];
1137            return Cnil;}
1138          }          }
1139  /*      function definition for BREAK-QUIT      */  /*      function definition for BREAK-QUIT      */
1140    
1141  static L10()  static void L10()
1142  {register object *base=vs_base;  {register object *base=vs_base;
1143          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
1144          vs_check;          vs_check;
# Line 1041  static L10() Line 1147  static L10()
1147          V77=(base[0]);          V77=(base[0]);
1148          vs_top=sup;          vs_top=sup;
1149          goto T453;          goto T453;
1150    goto T452;
1151  T452:;  T452:;
1152          V77= small_fixnum(0);          V77= small_fixnum(0);
1153    goto T453;
1154  T453:;  T453:;
1155          {object V78;          {object V78;
1156          V78= make_fixnum(length((VV[36]->s.s_dbind)));          V78= make_fixnum(length((VV[36]->s.s_dbind)));
# Line 1066  T453:; Line 1174  T453:;
1174          base[3]= CMPcdr((V79));          base[3]= CMPcdr((V79));
1175          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1176          unwind(fr,base[2]);}}          unwind(fr,base[2]);}}
1177    goto T456;
1178  T456:;  T456:;
1179          vs_base=vs_top;          vs_base=vs_top;
1180          (void) (*Lnk152)();          (void) (*Lnk152)();
# Line 1074  T456:; Line 1183  T456:;
1183  }  }
1184  /*      function definition for BREAK-PREVIOUS  */  /*      function definition for BREAK-PREVIOUS  */
1185    
1186  static L11()  static void L11()
1187  {register object *base=vs_base;  {register object *base=vs_base;
1188          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
1189          vs_check;          vs_check;
# Line 1083  static L11() Line 1192  static L11()
1192          V81=(base[0]);          V81=(base[0]);
1193          vs_top=sup;          vs_top=sup;
1194          goto T469;          goto T469;
1195    goto T468;
1196  T468:;  T468:;
1197          V81= small_fixnum(1);          V81= small_fixnum(1);
1198    goto T469;
1199  T469:;  T469:;
1200          {register object V82;          {register object V82;
1201          V82= one_minus((VV[39]->s.s_dbind));          V82= one_minus((VV[39]->s.s_dbind));
1202    goto T473;
1203  T473:;  T473:;
1204          if(number_compare((V82),(VV[37]->s.s_dbind))<0){          if(number_compare((V82),(VV[37]->s.s_dbind))<0){
1205          goto T475;}          goto T475;}
1206          if(!(number_compare((V81),small_fixnum(0))<=0)){          if(!(number_compare((V81),small_fixnum(0))<=0)){
1207          goto T474;}          goto T474;}
1208    goto T475;
1209  T475:;  T475:;
1210          (void)((*(LnkLI170))());          (void)((*(LnkLI170))());
1211          vs_base=vs_top;          vs_base=vs_top;
1212          (void) (*Lnk152)();          (void) (*Lnk152)();
1213          return;          return;
1214    goto T474;
1215  T474:;  T474:;
1216          if(((*(LnkLI171))((V82)))==Cnil){          if(((*(LnkLI171))((V82)))==Cnil){
1217          goto T481;}          goto T481;}
1218          (VV[39]->s.s_dbind)= (V82);          (VV[39]->s.s_dbind)= (V82);
1219          V81= one_minus((V81));          V81= one_minus((V81));
1220    goto T481;
1221  T481:;  T481:;
1222          V82= one_minus((V82));          V82= one_minus((V82));
1223          goto T473;}          goto T473;}
# Line 1113  T481:; Line 1228  T481:;
1228  static object LI12()  static object LI12()
1229    
1230  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1231    goto TTL;
1232  TTL:;  TTL:;
1233          {register object V83;          {register object V83;
1234          V83= (VV[39]->s.s_dbind);          V83= (VV[39]->s.s_dbind);
1235    goto T491;
1236  T491:;  T491:;
1237          if(((*(LnkLI171))((V83)))!=Cnil){          if(((*(LnkLI171))((V83)))!=Cnil){
1238          goto T493;}          goto T493;}
1239          if(!(number_compare((V83),(VV[37]->s.s_dbind))<=0)){          if(!(number_compare((V83),(VV[37]->s.s_dbind))<=0)){
1240          goto T492;}          goto T492;}
1241    goto T493;
1242  T493:;  T493:;
1243          (VV[39]->s.s_dbind)= (V83);          (VV[39]->s.s_dbind)= (V83);
1244          (void)((*(LnkLI170))());          (void)((*(LnkLI170))());
# Line 1137  T493:; Line 1255  T493:;
1255          vs_top=sup;          vs_top=sup;
1256          {object V84 = vs_base[0];          {object V84 = vs_base[0];
1257          VMR12(V84)}          VMR12(V84)}
1258    goto T492;
1259  T492:;  T492:;
1260          V83= one_minus((V83));          V83= one_minus((V83));
1261          goto T491;}          goto T491;}
1262            base[0]=base[0];
1263            return Cnil;
1264  }  }
1265  /*      function definition for BREAK-NEXT      */  /*      function definition for BREAK-NEXT      */
1266    
1267  static L13()  static void L13()
1268  {register object *base=vs_base;  {register object *base=vs_base;
1269          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
1270          vs_check;          vs_check;
# Line 1152  static L13() Line 1273  static L13()
1273          V85=(base[0]);          V85=(base[0]);
1274          vs_top=sup;          vs_top=sup;
1275          goto T510;          goto T510;
1276    goto T509;
1277  T509:;  T509:;
1278          V85= small_fixnum(1);          V85= small_fixnum(1);
1279    goto T510;
1280  T510:;  T510:;
1281          {register object V86;          {register object V86;
1282          V86= (VV[39]->s.s_dbind);          V86= (VV[39]->s.s_dbind);
1283    goto T513;
1284  T513:;  T513:;
1285          if(number_compare((V86),(VV[38]->s.s_dbind))>0){          if(number_compare((V86),(VV[38]->s.s_dbind))>0){
1286          goto T515;}          goto T515;}
1287          if(!(number_compare((V85),small_fixnum(0))<0)){          if(!(number_compare((V85),small_fixnum(0))<0)){
1288          goto T514;}          goto T514;}
1289    goto T515;
1290  T515:;  T515:;
1291          (void)((*(LnkLI170))());          (void)((*(LnkLI170))());
1292          vs_base=vs_top;          vs_base=vs_top;
1293          (void) (*Lnk152)();          (void) (*Lnk152)();
1294          return;          return;
1295    goto T514;
1296  T514:;  T514:;
1297          if(((*(LnkLI171))((V86)))==Cnil){          if(((*(LnkLI171))((V86)))==Cnil){
1298          goto T521;}          goto T521;}
1299          (VV[39]->s.s_dbind)= (V86);          (VV[39]->s.s_dbind)= (V86);
1300          V85= one_minus((V85));          V85= one_minus((V85));
1301    goto T521;
1302  T521:;  T521:;
1303          V86= one_plus((V86));          V86= one_plus((V86));
1304          goto T513;}          goto T513;}
# Line 1179  T521:; Line 1306  T521:;
1306  }  }
1307  /*      function definition for BREAK-GO        */  /*      function definition for BREAK-GO        */
1308    
1309  static L14()  static void L14()
1310  {register object *base=vs_base;  {register object *base=vs_base;
1311          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
1312          vs_check;          vs_check;
1313          {object V87;          {object V87;
1314          V87=(base[0]);          V87=(base[0]);
1315          vs_top=sup;          vs_top=sup;
1316    goto TTL;
1317  TTL:;  TTL:;
1318          {object V88= (number_compare((V87),(VV[37]->s.s_dbind))>=0?((V87)):(VV[37]->s.s_dbind));          {object V88= (number_compare((V87),(VV[37]->s.s_dbind))>=0?((V87)):(VV[37]->s.s_dbind));
1319          (VV[39]->s.s_dbind)= (number_compare(V88,(VV[38]->s.s_dbind))<=0?(V88):(VV[38]->s.s_dbind));}          (VV[39]->s.s_dbind)= (number_compare(V88,(VV[38]->s.s_dbind))<=0?(V88):(VV[38]->s.s_dbind));}
# Line 1195  TTL:; Line 1323  TTL:;
1323          vs_base=vs_top;          vs_base=vs_top;
1324          (void) (*Lnk152)();          (void) (*Lnk152)();
1325          return;          return;
1326    goto T533;
1327  T533:;  T533:;
1328          vs_base=vs_top;          vs_base=vs_top;
1329          (void) (*Lnk173)();          (void) (*Lnk173)();
# Line 1203  T533:; Line 1332  T533:;
1332  }  }
1333  /*      function definition for BREAK-MESSAGE   */  /*      function definition for BREAK-MESSAGE   */
1334    
1335  static L15()  static void L15()
1336  {register object *base=vs_base;  {register object *base=vs_base;
1337          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
1338          vs_check;          vs_check;
1339          vs_top=sup;          vs_top=sup;
1340    goto TTL;
1341  TTL:;  TTL:;
1342          (void)(princ((VV[34]->s.s_dbind),(VV[48]->s.s_dbind)));          (void)(princ((VV[34]->s.s_dbind),(VV[48]->s.s_dbind)));
1343          princ_char(10,VV[48]);          princ_char(10,VV[48]);
# Line 1217  TTL:; Line 1347  TTL:;
1347  }  }
1348  /*      function definition for DESCRIBE-ENVIRONMENT    */  /*      function definition for DESCRIBE-ENVIRONMENT    */
1349    
1350  static L16()  static void L16()
1351  {register object *base=vs_base;  {register object *base=vs_base;
1352          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
1353          vs_check;          vs_check;
# Line 1230  static L16() Line 1360  static L16()
1360          V90=(base[1]);          V90=(base[1]);
1361          vs_top=sup;          vs_top=sup;
1362          goto T540;          goto T540;
1363    goto T538;
1364  T538:;  T538:;
1365          V89= (VV[42]->s.s_dbind);          V89= (VV[42]->s.s_dbind);
1366    goto T539;
1367  T539:;  T539:;
1368          V90= (VV[48]->s.s_dbind);          V90= (VV[48]->s.s_dbind);
1369    goto T540;
1370  T540:;  T540:;
1371          if(!((length((V89)))==(3))){          if(!((length((V89)))==(3))){
1372          goto T544;}          goto T544;}
1373          goto T543;          goto T543;
1374    goto T544;
1375  T544:;  T544:;
1376          base[2]= VV[85];          base[2]= VV[85];
1377          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1378          Lerror();          Lerror();
1379          vs_top=sup;          vs_top=sup;
1380    goto T543;
1381  T543:;  T543:;
1382          {register object V91;          {register object V91;
1383          V91= VV[86];          V91= VV[86];
# Line 1256  T543:; Line 1391  T543:;
1391          V92= Cnil;          V92= Cnil;
1392          goto T551;}          goto T551;}
1393          base[5]=V93=MMcons(Cnil,Cnil);          base[5]=V93=MMcons(Cnil,Cnil);
1394    goto T552;
1395  T552:;  T552:;
1396          (V93->c.c_car)= CMPcar((V94->c.c_car));          (V93->c.c_car)= CMPcar((V94->c.c_car));
1397          if((V94=MMcdr(V94))==Cnil){          if((V94=MMcdr(V94))==Cnil){
# Line 1263  T552:; Line 1399  T552:;
1399          goto T551;}          goto T551;}
1400          V93=MMcdr(V93)=MMcons(Cnil,Cnil);          V93=MMcdr(V93)=MMcons(Cnil,Cnil);
1401          goto T552;}          goto T552;}
1402    goto T551;
1403  T551:;  T551:;
1404           vs_top=base+5;           vs_top=base+5;
1405           while(V92!=Cnil)           while(V92!=Cnil)
# Line 1280  T551:; Line 1417  T551:;
1417          V95= Cnil;          V95= Cnil;
1418          goto T558;}          goto T558;}
1419          base[5]=V96=MMcons(Cnil,Cnil);          base[5]=V96=MMcons(Cnil,Cnil);
1420    goto T559;
1421  T559:;  T559:;
1422          (V96->c.c_car)= CMPcar((V97->c.c_car));          (V96->c.c_car)= CMPcar((V97->c.c_car));
1423          if((V97=MMcdr(V97))==Cnil){          if((V97=MMcdr(V97))==Cnil){
# Line 1287  T559:; Line 1425  T559:;
1425          goto T558;}          goto T558;}
1426          V96=MMcdr(V96)=MMcons(Cnil,Cnil);          V96=MMcdr(V96)=MMcons(Cnil,Cnil);
1427          goto T559;}          goto T559;}
1428    goto T558;
1429  T558:;  T558:;
1430           vs_top=base+5;           vs_top=base+5;
1431           while(V95!=Cnil)           while(V95!=Cnil)
# Line 1304  T558:; Line 1443  T558:;
1443          V98= Cnil;          V98= Cnil;
1444          goto T565;}          goto T565;}
1445          base[5]=V99=MMcons(Cnil,Cnil);          base[5]=V99=MMcons(Cnil,Cnil);
1446    goto T566;
1447  T566:;  T566:;
1448          if(!((CMPcadr((V100->c.c_car)))==(VV[90]))){          if(!((CMPcadr((V100->c.c_car)))==(VV[90]))){
1449          goto T569;}          goto T569;}
1450          (V99->c.c_cdr)= make_cons(CMPcar((V100->c.c_car)),Cnil);          (V99->c.c_cdr)= make_cons(CMPcar((V100->c.c_car)),Cnil);
1451          goto T567;          goto T567;
1452    goto T569;
1453  T569:;  T569:;
1454          (V99->c.c_cdr)= Cnil;          (V99->c.c_cdr)= Cnil;
1455    goto T567;
1456  T567:;  T567:;
1457          while(MMcdr(V99)!=Cnil)V99=MMcdr(V99);          while(MMcdr(V99)!=Cnil)V99=MMcdr(V99);
1458          if((V100=MMcdr(V100))==Cnil){          if((V100=MMcdr(V100))==Cnil){
# Line 1318  T567:; Line 1460  T567:;
1460          V98= base[5];          V98= base[5];
1461          goto T565;}          goto T565;}
1462          goto T566;}          goto T566;}
1463    goto T565;
1464  T565:;  T565:;
1465           vs_top=base+5;           vs_top=base+5;
1466           while(V98!=Cnil)           while(V98!=Cnil)
# Line 1335  T565:; Line 1478  T565:;
1478          V102= Cnil;          V102= Cnil;
1479          goto T574;}          goto T574;}
1480          base[5]=V103=MMcons(Cnil,Cnil);          base[5]=V103=MMcons(Cnil,Cnil);
1481    goto T575;
1482  T575:;  T575:;
1483          if(!((CMPcadr((V104->c.c_car)))==(VV[92]))){          if(!((CMPcadr((V104->c.c_car)))==(VV[92]))){
1484          goto T578;}          goto T578;}
1485          (V103->c.c_cdr)= make_cons(CMPcar((V104->c.c_car)),Cnil);          (V103->c.c_cdr)= make_cons(CMPcar((V104->c.c_car)),Cnil);
1486          goto T576;          goto T576;
1487    goto T578;
1488  T578:;  T578:;
1489          (V103->c.c_cdr)= Cnil;          (V103->c.c_cdr)= Cnil;
1490    goto T576;
1491  T576:;  T576:;
1492          while(MMcdr(V103)!=Cnil)V103=MMcdr(V103);          while(MMcdr(V103)!=Cnil)V103=MMcdr(V103);
1493          if((V104=MMcdr(V104))==Cnil){          if((V104=MMcdr(V104))==Cnil){
# Line 1349  T576:; Line 1495  T576:;
1495          V102= base[5];          V102= base[5];
1496          goto T574;}          goto T574;}
1497          goto T575;}          goto T575;}
1498    goto T574;
1499  T574:;  T574:;
1500           vs_top=base+5;           vs_top=base+5;
1501           while(V102!=Cnil)           while(V102!=Cnil)
# Line 1360  T574:; Line 1507  T574:;
1507  }  }
1508  /*      function definition for BREAK-VS        */  /*      function definition for BREAK-VS        */
1509    
1510  static L17()  static void L17()
1511  {register object *base=vs_base;  {register object *base=vs_base;
1512          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
1513          vs_check;          vs_check;
# Line 1373  static L17() Line 1520  static L17()
1520          V107=(base[1]);          V107=(base[1]);
1521          vs_top=sup;          vs_top=sup;
1522          goto T582;          goto T582;
1523    goto T580;
1524  T580:;  T580:;
1525          base[2]= (VV[37]->s.s_dbind);          base[2]= (VV[37]->s.s_dbind);
1526          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1527          (void) (*Lnk174)();          (void) (*Lnk174)();
1528          vs_top=sup;          vs_top=sup;
1529          V106= vs_base[0];          V106= vs_base[0];
1530    goto T581;
1531  T581:;  T581:;
1532          base[2]= (VV[38]->s.s_dbind);          base[2]= (VV[38]->s.s_dbind);
1533          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1534          (void) (*Lnk174)();          (void) (*Lnk174)();
1535          vs_top=sup;          vs_top=sup;
1536          V107= vs_base[0];          V107= vs_base[0];
1537    goto T582;
1538  T582:;  T582:;
1539          base[2]= (VV[37]->s.s_dbind);          base[2]= (VV[37]->s.s_dbind);
1540          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1401  T582:; Line 1551  T582:;
1551          V107= (number_compare((V107),/* INLINE-ARGS */V110)<=0?((V107)):/* INLINE-ARGS */V110);          V107= (number_compare((V107),/* INLINE-ARGS */V110)<=0?((V107)):/* INLINE-ARGS */V110);
1552          {register object V111;          {register object V111;
1553          V111= (VV[37]->s.s_dbind);          V111= (VV[37]->s.s_dbind);
1554    goto T596;
1555  T596:;  T596:;
1556          if(number_compare((V111),(VV[38]->s.s_dbind))>=0){          if(number_compare((V111),(VV[38]->s.s_dbind))>=0){
1557          goto T598;}          goto T598;}
# Line 1411  T596:; Line 1562  T596:;
1562          V112= vs_base[0];          V112= vs_base[0];
1563          if(!(number_compare(V112,(V106))>=0)){          if(!(number_compare(V112,(V106))>=0)){
1564          goto T597;}          goto T597;}
1565    goto T598;
1566  T598:;  T598:;
1567          {register object V113;          {register object V113;
1568          V113= (V106);          V113= (V106);
1569    goto T605;
1570  T605:;  T605:;
1571          if(!(number_compare((V113),(V107))>0)){          if(!(number_compare((V113),(V107))>0)){
1572          goto T606;}          goto T606;}
1573          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
1574          vs_base[0]=Cnil;          vs_base[0]=Cnil;
1575          return;          return;
1576    goto T606;
1577  T606:;  T606:;
1578    goto T612;
1579  T612:;  T612:;
1580          base[2]= (V111);          base[2]= (V111);
1581          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1430  T612:; Line 1585  T612:;
1585          if(!(number_compare(V114,(V113))>0)){          if(!(number_compare(V114,(V113))>0)){
1586          goto T613;}          goto T613;}
1587          goto T610;          goto T610;
1588    goto T613;
1589  T613:;  T613:;
1590          if(((*(LnkLI171))((V111)))==Cnil){          if(((*(LnkLI171))((V111)))==Cnil){
1591          goto T619;}          goto T619;}
1592          (void)((*(LnkLI175))((V111)));          (void)((*(LnkLI175))((V111)));
1593    goto T619;
1594  T619:;  T619:;
1595          V111= number_plus((V111),small_fixnum(1));          V111= number_plus((V111),small_fixnum(1));
1596          goto T612;          goto T612;
1597    goto T610;
1598  T610:;  T610:;
1599          base[2]= (VV[48]->s.s_dbind);          base[2]= (VV[48]->s.s_dbind);
1600          base[3]= VV[93];          base[3]= VV[93];
# Line 1451  T610:; Line 1609  T610:;
1609          vs_top=sup;          vs_top=sup;
1610          V113= one_plus((V113));          V113= one_plus((V113));
1611          goto T605;}          goto T605;}
1612    goto T597;
1613  T597:;  T597:;
1614          V111= one_plus((V111));          V111= one_plus((V111));
1615          goto T596;}          goto T596;}
# Line 1458  T597:; Line 1617  T597:;
1617  }  }
1618  /*      function definition for BREAK-LOCAL     */  /*      function definition for BREAK-LOCAL     */
1619    
1620  static L18()  static void L18()
1621  {register object *base=vs_base;  {register object *base=vs_base;
1622          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
1623          vs_check;          vs_check;
# Line 1467  static L18() Line 1626  static L18()
1626          V115=(base[0]);          V115=(base[0]);
1627          vs_top=sup;          vs_top=sup;
1628          goto T640;          goto T640;
1629    goto T639;
1630  T639:;  T639:;
1631          V115= small_fixnum(0);          V115= small_fixnum(0);
1632    goto T640;
1633  T640:;  T640:;
1634          {object V116;          {object V116;
1635          base[2]= (VV[39]->s.s_dbind);          base[2]= (VV[39]->s.s_dbind);
# Line 1486  T640:; Line 1647  T640:;
1647  }  }
1648  /*      function definition for BREAK-BDS       */  /*      function definition for BREAK-BDS       */
1649    
1650  static L19()  static void L19()
1651  {register object *base=vs_base;  {register object *base=vs_base;
1652          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
1653          vs_check;          vs_check;
# Line 1511  static L19() Line 1672  static L19()
1672          (void) (*Lnk178)();          (void) (*Lnk178)();
1673          vs_top=sup;          vs_top=sup;
1674          V121= vs_base[0];          V121= vs_base[0];
1675    goto T654;
1676  T654:;  T654:;
1677          if(!(number_compare((V120),(V121))>0)){          if(!(number_compare((V120),(V121))>0)){
1678          goto T655;}          goto T655;}
1679          vs_base=vs_top=base+1;          vs_base=vs_top=base+1;
1680          vs_base[0]=Cnil;          vs_base[0]=Cnil;
1681          return;          return;
1682    goto T655;
1683  T655:;  T655:;
1684          if(((V118))==Cnil){          if(((V118))==Cnil){
1685          goto T660;}          goto T660;}
# Line 1531  T655:; Line 1694  T655:;
1694          goto T663;          goto T663;
1695          }else V123=V123->c.c_cdr;          }else V123=V123->c.c_cdr;
1696          goto T659;}          goto T659;}
1697    goto T663;
1698  T663:;  T663:;
1699    goto T660;
1700  T660:;  T660:;
1701    goto T668;
1702  T668:;  T668:;
1703          if(number_compare((V119),(VV[41]->s.s_dbind))>0){          if(number_compare((V119),(VV[41]->s.s_dbind))>0){
1704          goto T670;}          goto T670;}
# Line 1543  T668:; Line 1709  T668:;
1709          V125= vs_base[0];          V125= vs_base[0];
1710          if(!(number_compare(V125,(V120))>0)){          if(!(number_compare(V125,(V120))>0)){
1711          goto T669;}          goto T669;}
1712    goto T670;
1713  T670:;  T670:;
1714          goto T666;          goto T666;
1715    goto T669;
1716  T669:;  T669:;
1717          (void)((*(LnkLI180))((V119)));          (void)((*(LnkLI180))((V119)));
1718          V119= number_plus((V119),small_fixnum(1));          V119= number_plus((V119),small_fixnum(1));
1719          goto T668;          goto T668;
1720    goto T666;
1721  T666:;  T666:;
1722          base[1]= (VV[48]->s.s_dbind);          base[1]= (VV[48]->s.s_dbind);
1723          base[2]= VV[94];          base[2]= VV[94];
# Line 1566  T666:; Line 1735  T666:;
1735          vs_top=(vs_base=base+1)+5;          vs_top=(vs_base=base+1)+5;
1736          Lformat();          Lformat();
1737          vs_top=sup;          vs_top=sup;
1738    goto T659;
1739  T659:;  T659:;
1740          V120= one_plus((V120));          V120= one_plus((V120));
1741          goto T654;}}          goto T654;}}
# Line 1573  T659:; Line 1743  T659:;
1743  }  }
1744  /*      function definition for SIMPLE-BACKTRACE        */  /*      function definition for SIMPLE-BACKTRACE        */
1745    
1746  static L20()  static void L20()
1747  {register object *base=vs_base;  {register object *base=vs_base;
1748          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1749          vs_check;          vs_check;
1750          vs_top=sup;          vs_top=sup;
1751    goto TTL;
1752  TTL:;  TTL:;
1753          princ_str("Backtrace: ",VV[48]);          princ_str("Backtrace: ",VV[48]);
1754          {register object V126;          {register object V126;
1755          register object V127;          register object V127;
1756          V126= (VV[37]->s.s_dbind);          V126= (VV[37]->s.s_dbind);
1757          V127= Cnil;          V127= Cnil;
1758    goto T696;
1759  T696:;  T696:;
1760          if(!(number_compare((V126),(VV[38]->s.s_dbind))>0)){          if(!(number_compare((V126),(VV[38]->s.s_dbind))>0)){
1761          goto T697;}          goto T697;}
# Line 1591  T696:; Line 1763  T696:;
1763          vs_base=vs_top=base+0;          vs_base=vs_top=base+0;
1764          vs_base[0]=Cnil;          vs_base[0]=Cnil;
1765          return;          return;
1766    goto T697;
1767  T697:;  T697:;
1768          if(((*(LnkLI171))((V126)))==Cnil){          if(((*(LnkLI171))((V126)))==Cnil){
1769          goto T702;}          goto T702;}
1770          if(((V127))==Cnil){          if(((V127))==Cnil){
1771          goto T705;}          goto T705;}
1772          princ_str(" > ",VV[48]);          princ_str(" > ",VV[48]);
1773    goto T705;
1774  T705:;  T705:;
1775          base[1]= (V126);          base[1]= (V126);
1776          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1612  T705:; Line 1786  T705:;
1786          goto T717;}          goto T717;}
1787          base[6]= VV[59];          base[6]= VV[59];
1788          goto T715;          goto T715;
1789    goto T717;
1790  T717:;  T717:;
1791          base[6]= VV[98];          base[6]= VV[98];
1792    goto T715;
1793  T715:;  T715:;
1794          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
1795          Lwrite();          Lwrite();
1796          vs_top=sup;          vs_top=sup;
1797    goto T702;
1798  T702:;  T702:;
1799          V126= one_plus((V126));          V126= one_plus((V126));
1800          V127= Ct;          V127= Ct;
# Line 1625  T702:; Line 1802  T702:;
1802  }  }
1803  /*      function definition for IHS-BACKTRACE   */  /*      function definition for IHS-BACKTRACE   */
1804    
1805  static L21()  static void L21()
1806  {register object *base=vs_base;  {register object *base=vs_base;
1807          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1808          vs_check;          vs_check;
# Line 1638  static L21() Line 1815  static L21()
1815          V129=(base[1]);          V129=(base[1]);
1816          vs_top=sup;          vs_top=sup;
1817          goto T726;          goto T726;
1818    goto T724;
1819  T724:;  T724:;
1820          V128= (VV[37]->s.s_dbind);          V128= (VV[37]->s.s_dbind);
1821    goto T725;
1822  T725:;  T725:;
1823          V129= (VV[38]->s.s_dbind);          V129= (VV[38]->s.s_dbind);
1824    goto T726;
1825  T726:;  T726:;
1826          V128= (number_compare((V128),(VV[37]->s.s_dbind))>=0?((V128)):(VV[37]->s.s_dbind));          V128= (number_compare((V128),(VV[37]->s.s_dbind))>=0?((V128)):(VV[37]->s.s_dbind));
1827          V129= (number_compare((V129),(VV[38]->s.s_dbind))<=0?((V129)):(VV[38]->s.s_dbind));          V129= (number_compare((V129),(VV[38]->s.s_dbind))<=0?((V129)):(VV[38]->s.s_dbind));
# Line 1657  T726:; Line 1837  T726:;
1837          if(V132==Cnil)goto T735;          if(V132==Cnil)goto T735;
1838          V131= V132;          V131= V132;
1839          goto T734;          goto T734;
1840    goto T735;
1841  T735:;}  T735:;}
1842          V131= one_plus((VV[41]->s.s_dbind));          V131= one_plus((VV[41]->s.s_dbind));
1843    goto T734;
1844  T734:;  T734:;
1845    goto T740;
1846  T740:;  T740:;
1847          if(!(number_compare((V130),(V129))>0)){          if(!(number_compare((V130),(V129))>0)){
1848          goto T741;}          goto T741;}
1849          vs_base=vs_top=base+3;          vs_base=vs_top=base+3;
1850          vs_base[0]=Cnil;          vs_base[0]=Cnil;
1851          return;          return;
1852    goto T741;
1853  T741:;  T741:;
1854          if(((*(LnkLI171))((V130)))==Cnil){          if(((*(LnkLI171))((V130)))==Cnil){
1855          goto T745;}          goto T745;}
1856          (void)((*(LnkLI175))((V130)));          (void)((*(LnkLI175))((V130)));
1857    goto T745;
1858  T745:;  T745:;
1859    goto T750;
1860  T750:;  T750:;
1861          if(number_compare((V131),(VV[41]->s.s_dbind))>0){          if(number_compare((V131),(VV[41]->s.s_dbind))>0){
1862          goto T752;}          goto T752;}
# Line 1681  T750:; Line 1867  T750:;
1867          V133= vs_base[0];          V133= vs_base[0];
1868          if(!(number_compare(V133,(V130))>0)){          if(!(number_compare(V133,(V130))>0)){
1869          goto T751;}          goto T751;}
1870    goto T752;
1871  T752:;  T752:;
1872          goto T748;          goto T748;
1873    goto T751;
1874  T751:;  T751:;
1875          (void)((*(LnkLI180))((V131)));          (void)((*(LnkLI180))((V131)));
1876          V131= number_plus((V131),small_fixnum(1));          V131= number_plus((V131),small_fixnum(1));
1877          goto T750;          goto T750;
1878    goto T748;
1879  T748:;  T748:;
1880          V130= one_plus((V130));          V130= one_plus((V130));
1881          goto T740;}          goto T740;}
# Line 1699  static object LI22(V135) Line 1888  static object LI22(V135)
1888  register object V135;  register object V135;
1889  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
1890          bds_check;          bds_check;
1891    goto TTL;
1892  TTL:;  TTL:;
1893          bds_bind(VV[56],small_fixnum(2));          bds_bind(VV[56],small_fixnum(2));
1894          bds_bind(VV[57],small_fixnum(4));          bds_bind(VV[57],small_fixnum(4));
# Line 1720  TTL:; Line 1910  TTL:;
1910          vs_top=sup;          vs_top=sup;
1911          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1912          goto T775;}          goto T775;}
1913    goto T774;
1914  T774:;  T774:;
1915          base[6]= (V136);          base[6]= (V136);
1916          goto T771;          goto T771;
1917    goto T775;
1918  T775:;  T775:;
1919          if(!(type_of((V136))==t_cons)){          if(!(type_of((V136))==t_cons)){
1920          goto T781;}          goto T781;}
# Line 1730  T775:; Line 1922  T775:;
1922          if((V137!= VV[100]))goto T783;          if((V137!= VV[100]))goto T783;
1923          base[6]= (V136);          base[6]= (V136);
1924          goto T771;          goto T771;
1925    goto T783;
1926  T783:;  T783:;
1927          if((V137!= VV[184])          if((V137!= VV[184])
1928          && (V137!= VV[185]))goto T784;          && (V137!= VV[185]))goto T784;
1929          base[6]= CMPcdr((V136));          base[6]= CMPcdr((V136));
1930          goto T771;          goto T771;
1931    goto T784;
1932  T784:;  T784:;
1933          if((V137!= VV[117]))goto T785;          if((V137!= VV[117]))goto T785;
1934          base[6]= make_cons(VV[100],CMPcddddr((V136)));          base[6]= make_cons(VV[100],CMPcddddr((V136)));
1935          goto T771;          goto T771;
1936    goto T785;
1937  T785:;  T785:;
1938          if((V137!= VV[186]))goto T786;          if((V137!= VV[186]))goto T786;
1939          base[6]= CMPcddddr((V136));          base[6]= CMPcddddr((V136));
1940          goto T771;          goto T771;
1941    goto T786;
1942  T786:;  T786:;
1943          if(!(type_of(CMPcar((V136)))==t_symbol)){          if(!(type_of(CMPcar((V136)))==t_symbol)){
1944          goto T788;}          goto T788;}
# Line 1758  T786:; Line 1954  T786:;
1954          vs_top=sup;          vs_top=sup;
1955          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1956          goto T788;}          goto T788;}
1957    goto T787;
1958  T787:;  T787:;
1959          base[6]= CMPcar((V136));          base[6]= CMPcar((V136));
1960          goto T771;          goto T771;
1961    goto T788;
1962  T788:;  T788:;
1963          base[6]= VV[101];          base[6]= VV[101];
1964          goto T771;}          goto T771;}
1965    goto T781;
1966  T781:;  T781:;
1967          (void)(print((V136),Cnil));          (void)(print((V136),Cnil));
1968          base[6]= VV[102];}          base[6]= VV[102];}
1969    goto T771;
1970  T771:;  T771:;
1971          base[8]= (V135);          base[8]= (V135);
1972          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
# Line 1780  T771:; Line 1980  T771:;
1980          bds_unwind1;          bds_unwind1;
1981          bds_unwind1;          bds_unwind1;
1982          VMR22(V138)}          VMR22(V138)}
1983            base[0]=base[0];
1984            return Cnil;
1985  }  }
1986  /*      local entry for function PRINT-FRS      */  /*      local entry for function PRINT-FRS      */
1987    
# Line 1787  static object LI23(V140) Line 1989  static object LI23(V140)
1989    
1990  register object V140;  register object V140;
1991  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1992    goto TTL;
1993  TTL:;  TTL:;
1994          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
1995          base[1]= VV[103];          base[1]= VV[103];
# Line 1812  TTL:; Line 2015  TTL:;
2015          vs_top=sup;          vs_top=sup;
2016          {object V141 = vs_base[0];          {object V141 = vs_base[0];
2017          VMR23(V141)}          VMR23(V141)}
2018            base[0]=base[0];
2019            return Cnil;
2020  }  }
2021  /*      local entry for function FRS-KIND       */  /*      local entry for function FRS-KIND       */
2022    
# Line 1819  static object LI24(V143) Line 2024  static object LI24(V143)
2024    
2025  register object V143;  register object V143;
2026  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
2027    goto TTL;
2028  TTL:;  TTL:;
2029          {register object V144;          {register object V144;
2030          V144= Cnil;          V144= Cnil;
# Line 1866  TTL:; Line 2072  TTL:;
2072          goto T820;}          goto T820;}
2073          V147= Cnil;          V147= Cnil;
2074          goto T819;          goto T819;
2075    goto T820;
2076  T820:;  T820:;
2077          if(!((CMPcadar((V144)))==(VV[90]))){          if(!((CMPcadar((V144)))==(VV[90]))){
2078          goto T834;}          goto T834;}
2079          V147= list(3,VV[90],CMPcaar((V144)),VV[6]);          V147= list(3,VV[90],CMPcaar((V144)),VV[6]);
2080          goto T819;          goto T819;
2081    goto T834;
2082  T834:;  T834:;
2083          base[1]= (V143);          base[1]= (V143);
2084          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1886  T834:; Line 2094  T834:;
2094          V149= Cnil;          V149= Cnil;
2095          goto T836;}          goto T836;}
2096          base[0]=V150=MMcons(Cnil,Cnil);          base[0]=V150=MMcons(Cnil,Cnil);
2097    goto T837;
2098  T837:;  T837:;
2099          (V150->c.c_car)= CMPcar((V151->c.c_car));          (V150->c.c_car)= CMPcar((V151->c.c_car));
2100          if((V151=MMcdr(V151))==Cnil){          if((V151=MMcdr(V151))==Cnil){
# Line 1893  T837:; Line 2102  T837:;
2102          goto T836;}          goto T836;}
2103          V150=MMcdr(V150)=MMcons(Cnil,Cnil);          V150=MMcdr(V150)=MMcons(Cnil,Cnil);
2104          goto T837;}          goto T837;}
2105    goto T836;
2106  T836:;  T836:;
2107          V156= reverse(V149);          V156= reverse(V149);
2108          V157= append(/* INLINE-ARGS */V156,VV[108]);          V157= append(/* INLINE-ARGS */V156,VV[108]);
2109          V147= make_cons(VV[106],/* INLINE-ARGS */V157);          V147= make_cons(VV[106],/* INLINE-ARGS */V157);
2110    goto T819;
2111  T819:;  T819:;
2112          if(V147==Cnil)goto T818;          if(V147==Cnil)goto T818;
2113          {object V158 = V147;          {object V158 = V147;
2114          VMR24(V158)}          VMR24(V158)}
2115    goto T818;
2116  T818:;}  T818:;}
2117          base[0]= (V143);          base[0]= (V143);
2118          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1909  T818:;} Line 2121  T818:;}
2121          V159= vs_base[0];          V159= vs_base[0];
2122          {object V160 = list(2,VV[109],V159);          {object V160 = list(2,VV[109],V159);
2123          VMR24(V160)}          VMR24(V160)}
2124    goto T814;
2125  T814:;  T814:;
2126          base[0]= (V143);          base[0]= (V143);
2127          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1917  T814:; Line 2130  T814:;
2130          V161= vs_base[0];          V161= vs_base[0];
2131          {object V162 = list(3,VV[110],list(2,VV[111],V161),VV[6]);          {object V162 = list(3,VV[110],list(2,VV[111],V161),VV[6]);
2132          VMR24(V162)}          VMR24(V162)}
2133    goto T812;
2134  T812:;  T812:;
2135          if((V145!= VV[196]))goto T847;          if((V145!= VV[196]))goto T847;
2136          {object V163 = VV[112];          {object V163 = VV[112];
2137          VMR24(V163)}          VMR24(V163)}
2138    goto T847;
2139  T847:;  T847:;
2140          base[0]= (V143);          base[0]= (V143);
2141          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1929  T847:; Line 2144  T847:;
2144          V164= vs_base[0];          V164= vs_base[0];
2145          {object V165 = list(2,VV[113],V164);          {object V165 = list(2,VV[113],V164);
2146          VMR24(V165)}}}          VMR24(V165)}}}
2147            base[0]=base[0];
2148            return Cnil;
2149  }  }
2150  /*      function definition for BREAK-CURRENT   */  /*      function definition for BREAK-CURRENT   */
2151    
2152  static L25()  static void L25()
2153  {register object *base=vs_base;  {register object *base=vs_base;
2154          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
2155          vs_check;          vs_check;
2156          vs_top=sup;          vs_top=sup;
2157    goto TTL;
2158  TTL:;  TTL:;
2159          if(((VV[36]->s.s_dbind))==Cnil){          if(((VV[36]->s.s_dbind))==Cnil){
2160          goto T852;}          goto T852;}
# Line 1951  TTL:; Line 2169  TTL:;
2169          Lformat();          Lformat();
2170          vs_top=sup;          vs_top=sup;
2171          goto T850;          goto T850;
2172    goto T852;
2173  T852:;  T852:;
2174          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
2175          base[1]= VV[115];          base[1]= VV[115];
2176          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2177          Lformat();          Lformat();
2178          vs_top=sup;          vs_top=sup;
2179    goto T850;
2180  T850:;  T850:;
2181          vs_base=vs_top=base+0;          vs_base=vs_top=base+0;
2182          vs_base[0]=Cnil;          vs_base[0]=Cnil;
# Line 1968  static object LI26(V167) Line 2188  static object LI26(V167)
2188    
2189  object V167;  object V167;
2190  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
2191    goto TTL;
2192  TTL:;  TTL:;
2193          {object V168;          {object V168;
2194          base[1]= (V167);          base[1]= (V167);
# Line 1985  TTL:; Line 2206  TTL:;
2206          goto T862;          goto T862;
2207          }else V171=V171->c.c_cdr;          }else V171=V171->c.c_cdr;
2208          V170= Cnil;}          V170= Cnil;}
2209    goto T862;
2210  T862:;  T862:;
2211          {object V172 = ((V170)==Cnil?Ct:Cnil);          {object V172 = ((V170)==Cnil?Ct:Cnil);
2212          VMR26(V172)}}          VMR26(V172)}}
2213            base[0]=base[0];
2214            return Cnil;
2215  }  }
2216  /*      function definition for IHS-FNAME       */  /*      function definition for IHS-FNAME       */
2217    
2218  static L27()  static void L27()
2219  {register object *base=vs_base;  {register object *base=vs_base;
2220          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
2221          vs_check;          vs_check;
2222          {object V173;          {object V173;
2223          V173=(base[0]);          V173=(base[0]);
2224          vs_top=sup;          vs_top=sup;
2225    goto TTL;
2226  TTL:;  TTL:;
2227          {register object V174;          {register object V174;
2228          base[1]= (V173);          base[1]= (V173);
# Line 2010  TTL:; Line 2235  TTL:;
2235          base[1]= (V174);          base[1]= (V174);
2236          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2237          return;          return;
2238    goto T866;
2239  T866:;  T866:;
2240          if(!(type_of((V174))==t_cons)){          if(!(type_of((V174))==t_cons)){
2241          goto T869;}          goto T869;}
# Line 2018  T866:; Line 2244  T866:;
2244          base[1]= VV[100];          base[1]= VV[100];
2245          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2246          return;          return;
2247    goto T871;
2248  T871:;  T871:;
2249          if((V175!= VV[184])          if((V175!= VV[184])
2250          && (V175!= VV[185]))goto T872;          && (V175!= VV[185]))goto T872;
2251          base[1]= CMPcadr((V174));          base[1]= CMPcadr((V174));
2252          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2253          return;          return;
2254    goto T872;
2255  T872:;  T872:;
2256          if((V175!= VV[186]))goto T873;          if((V175!= VV[186]))goto T873;
2257          base[1]= CMPcar(CMPcddddr((V174)));          base[1]= CMPcar(CMPcddddr((V174)));
2258          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2259          return;          return;
2260    goto T873;
2261  T873:;  T873:;
2262          if((V175!= VV[117]))goto T874;          if((V175!= VV[117]))goto T874;
2263          base[1]= VV[117];          base[1]= VV[117];
2264          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2265          return;          return;
2266    goto T874;
2267  T874:;  T874:;
2268          if(!(type_of(CMPcar((V174)))==t_symbol)){          if(!(type_of(CMPcar((V174)))==t_symbol)){
2269          goto T876;}          goto T876;}
# Line 2049  T874:; Line 2279  T874:;
2279          vs_top=sup;          vs_top=sup;
2280          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2281          goto T876;}          goto T876;}
2282    goto T875;
2283  T875:;  T875:;
2284          base[1]= CMPcar((V174));          base[1]= CMPcar((V174));
2285          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2286          return;          return;
2287    goto T876;
2288  T876:;  T876:;
2289          base[1]= VV[102];          base[1]= VV[102];
2290          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2291          return;}          return;}
2292    goto T869;
2293  T869:;  T869:;
2294          base[1]= (V174);          base[1]= (V174);
2295          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2068  T869:; Line 2301  T869:;
2301          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2302          (void) (*Lnk197)();          (void) (*Lnk197)();
2303          return;          return;
2304    goto T885;
2305  T885:;  T885:;
2306          base[1]= VV[102];          base[1]= VV[102];
2307          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2076  T885:; Line 2310  T885:;
2310  }  }
2311  /*      function definition for IHS-NOT-INTERPRETED-ENV */  /*      function definition for IHS-NOT-INTERPRETED-ENV */
2312    
2313  static L28()  static void L28()
2314  {register object *base=vs_base;  {register object *base=vs_base;
2315          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
2316          vs_check;          vs_check;
2317          {object V176;          {object V176;
2318          V176=(base[0]);          V176=(base[0]);
2319          vs_top=sup;          vs_top=sup;
2320    goto TTL;
2321  TTL:;  TTL:;
2322          {object V177;          {object V177;
2323          base[1]= (V176);          base[1]= (V176);
# Line 2097  TTL:; Line 2332  TTL:;
2332          base[1]= Cnil;          base[1]= Cnil;
2333          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2334          return;          return;
2335    goto T892;
2336  T892:;  T892:;
2337          base[1]= Ct;          base[1]= Ct;
2338          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2108  T892:; Line 2344  T892:;
2344  static object LI29()  static object LI29()
2345    
2346  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
2347    goto TTL;
2348  TTL:;  TTL:;
2349          base[0]= (VV[39]->s.s_dbind);          base[0]= (VV[39]->s.s_dbind);
2350          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2117  TTL:; Line 2354  TTL:;
2354          goto T898;}          goto T898;}
2355          (VV[42]->s.s_dbind)= Cnil;          (VV[42]->s.s_dbind)= Cnil;
2356          goto T896;          goto T896;
2357    goto T898;
2358  T898:;  T898:;
2359          {object V178;          {object V178;
2360          base[0]= (VV[39]->s.s_dbind);          base[0]= (VV[39]->s.s_dbind);
# Line 2140  T898:; Line 2378  T898:;
2378          vs_top=sup;          vs_top=sup;
2379          V181= vs_base[0];          V181= vs_base[0];
2380          (VV[42]->s.s_dbind)= list(3,V179,V180,V181);}          (VV[42]->s.s_dbind)= list(3,V179,V180,V181);}
2381    goto T896;
2382  T896:;  T896:;
2383          {object V182 = (VV[42]->s.s_dbind);          {object V182 = (VV[42]->s.s_dbind);
2384          VMR29(V182)}          VMR29(V182)}
2385            base[0]=base[0];
2386            return Cnil;
2387  }  }
2388  /*      local entry for function LIST-DELQ      */  /*      local entry for function LIST-DELQ      */
2389    
# Line 2150  static object LI30(V185,V186) Line 2391  static object LI30(V185,V186)
2391    
2392  object V185;register object V186;  object V185;register object V186;
2393  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
2394    goto TTL;
2395  TTL:;  TTL:;
2396          if(((V186))!=Cnil){          if(((V186))!=Cnil){
2397          goto T910;}          goto T910;}
2398          {object V187 = Cnil;          {object V187 = Cnil;
2399          VMR30(V187)}          VMR30(V187)}
2400    goto T910;
2401  T910:;  T910:;
2402          if(!(((V185))==(CMPcar((V186))))){          if(!(((V185))==(CMPcar((V186))))){
2403          goto T913;}          goto T913;}
2404          {object V188 = CMPcdr((V186));          {object V188 = CMPcdr((V186));
2405          VMR30(V188)}          VMR30(V188)}
2406    goto T913;
2407  T913:;  T913:;
2408          V189= (*(LnkLI199))((V185),CMPcdr((V186)));          V189= (*(LnkLI199))((V185),CMPcdr((V186)));
2409          ((V186))->c.c_cdr = /* INLINE-ARGS */V189;          ((V186))->c.c_cdr = /* INLINE-ARGS */V189;
2410          {object V190 = (V186);          {object V190 = (V186);
2411          VMR30(V190)}          VMR30(V190)}
2412            return Cnil;
2413  }  }
2414  /*      local entry for function SUPER-GO       */  /*      local entry for function SUPER-GO       */
2415    
# Line 2172  static object LI31(V193,V194) Line 2417  static object LI31(V193,V194)
2417    
2418  register object V193;register object V194;  register object V193;register object V194;
2419  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
2420    goto TTL;
2421  TTL:;  TTL:;
2422          {object V195;          {object V195;
2423          V195= Cnil;          V195= Cnil;
# Line 2230  TTL:; Line 2476  TTL:;
2476          V198= Cnil;          V198= Cnil;
2477          goto T943;}          goto T943;}
2478          base[0]=V199=MMcons(Cnil,Cnil);          base[0]=V199=MMcons(Cnil,Cnil);
2479    goto T944;
2480  T944:;  T944:;
2481          (V199->c.c_car)= CMPcar((V200->c.c_car));          (V199->c.c_car)= CMPcar((V200->c.c_car));
2482          if((V200=MMcdr(V200))==Cnil){          if((V200=MMcdr(V200))==Cnil){
# Line 2237  T944:; Line 2484  T944:;
2484          goto T943;}          goto T943;}
2485          V199=MMcdr(V199)=MMcons(Cnil,Cnil);          V199=MMcdr(V199)=MMcons(Cnil,Cnil);
2486          goto T944;}          goto T944;}
2487    goto T943;
2488  T943:;  T943:;
2489          {register object x= (V194),V197= V198;          {register object x= (V194),V197= V198;
2490          while(V197!=Cnil)          while(V197!=Cnil)
# Line 2244  T943:; Line 2492  T943:;
2492          goto T942;          goto T942;
2493          }else V197=V197->c.c_cdr;          }else V197=V197->c.c_cdr;
2494          goto T916;}          goto T916;}
2495    goto T942;
2496  T942:;  T942:;
2497          base[1]= (V193);          base[1]= (V193);
2498          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2256  T942:; Line 2505  T942:;
2505          (void) (*Lnk200)();          (void) (*Lnk200)();
2506          vs_top=sup;          vs_top=sup;
2507          goto T916;          goto T916;
2508    goto T926;
2509  T926:;  T926:;
2510          base[1]= (V193);          base[1]= (V193);
2511          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2267  T926:; Line 2517  T926:;
2517          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2518          (void) (*Lnk200)();          (void) (*Lnk200)();
2519          vs_top=sup;          vs_top=sup;
2520    goto T916;
2521  T916:;  T916:;
2522          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
2523          base[1]= VV[118];          base[1]= VV[118];
# Line 2277  T916:; Line 2528  T916:;
2528          vs_top=sup;          vs_top=sup;
2529          {object V205 = vs_base[0];          {object V205 = vs_base[0];
2530          VMR31(V205)}}          VMR31(V205)}}
2531            base[0]=base[0];
2532            return Cnil;
2533  }  }
2534  /*      local entry for function BREAK-BACKWARD-SEARCH-STACK    */  /*      local entry for function BREAK-BACKWARD-SEARCH-STACK    */
2535    
# Line 2284  static object LI32(V207) Line 2537  static object LI32(V207)
2537    
2538  object V207;  object V207;
2539  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
2540    goto TTL;
2541  TTL:;  TTL:;
2542          {register object V208;          {register object V208;
2543          V208= Cnil;          V208= Cnil;
# Line 2296  TTL:; Line 2550  TTL:;
2550          (void) (*Lnk172)();          (void) (*Lnk172)();
2551          vs_top=sup;          vs_top=sup;
2552          V210= vs_base[0];          V210= vs_base[0];
2553    goto T969;
2554  T969:;  T969:;
2555          if(!(number_compare((V209),(VV[37]->s.s_dbind))<0)){          if(!(number_compare((V209),(VV[37]->s.s_dbind))<0)){
2556          goto T970;}          goto T970;}
# Line 2307  T969:; Line 2562  T969:;
2562          vs_top=sup;          vs_top=sup;
2563          {object V211 = vs_base[0];          {object V211 = vs_base[0];
2564          VMR32(V211)}          VMR32(V211)}
2565    goto T970;
2566  T970:;  T970:;
2567          if(((*(LnkLI171))((V209)))==Cnil){          if(((*(LnkLI171))((V209)))==Cnil){
2568          goto T977;}          goto T977;}
# Line 2320  T970:; Line 2576  T970:;
2576          vs_top=sup;          vs_top=sup;
2577          {object V214 = Cnil;          {object V214 = Cnil;
2578          VMR32(V214)}          VMR32(V214)}
2579    goto T977;
2580  T977:;  T977:;
2581          V209= one_minus((V209));          V209= one_minus((V209));
2582          base[2]= (V209);          base[2]= (V209);
# Line 2328  T977:; Line 2585  T977:;
2585          vs_top=sup;          vs_top=sup;
2586          V210= vs_base[0];          V210= vs_base[0];
2587          goto T969;}}          goto T969;}}
2588            base[0]=base[0];
2589            return Cnil;
2590  }  }
2591  /*      local entry for function BREAK-FORWARD-SEARCH-STACK     */  /*      local entry for function BREAK-FORWARD-SEARCH-STACK     */
2592    
# Line 2335  static object LI33(V216) Line 2594  static object LI33(V216)
2594    
2595  object V216;  object V216;
2596  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
2597    goto TTL;
2598  TTL:;  TTL:;
2599          {register object V217;          {register object V217;
2600          V217= Cnil;          V217= Cnil;
# Line 2347  TTL:; Line 2607  TTL:;
2607          (void) (*Lnk172)();          (void) (*Lnk172)();
2608          vs_top=sup;          vs_top=sup;
2609          V219= vs_base[0];          V219= vs_base[0];
2610    goto T998;
2611  T998:;  T998:;
2612          if(!(number_compare((V218),(VV[38]->s.s_dbind))>0)){          if(!(number_compare((V218),(VV[38]->s.s_dbind))>0)){
2613          goto T999;}          goto T999;}
# Line 2358  T998:; Line 2619  T998:;
2619          vs_top=sup;          vs_top=sup;
2620          {object V220 = vs_base[0];          {object V220 = vs_base[0];
2621          VMR33(V220)}          VMR33(V220)}
2622    goto T999;
2623  T999:;  T999:;
2624          if(((*(LnkLI171))((V218)))==Cnil){          if(((*(LnkLI171))((V218)))==Cnil){
2625          goto T1006;}          goto T1006;}
# Line 2371  T999:; Line 2633  T999:;
2633          vs_top=sup;          vs_top=sup;
2634          {object V223 = Cnil;          {object V223 = Cnil;
2635          VMR33(V223)}          VMR33(V223)}
2636    goto T1006;
2637  T1006:;  T1006:;
2638          V218= one_plus((V218));          V218= one_plus((V218));
2639          base[2]= (V218);          base[2]= (V218);
# Line 2379  T1006:; Line 2642  T1006:;
2642          vs_top=sup;          vs_top=sup;
2643          V219= vs_base[0];          V219= vs_base[0];
2644          goto T998;}}          goto T998;}}
2645            base[0]=base[0];
2646            return Cnil;
2647  }  }
2648  /*      local entry for function BREAK-HELP     */  /*      local entry for function BREAK-HELP     */
2649    
2650  static object LI34()  static object LI34()
2651    
2652  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
2653    goto TTL;
2654  TTL:;  TTL:;
2655          {register object V224;          {register object V224;
2656          object V225;          object V225;
2657          V224= VV[121];          V224= VV[121];
2658          V225= CMPcar((V224));          V225= CMPcar((V224));
2659    goto T1024;
2660  T1024:;  T1024:;
2661          if(!(((V224))==Cnil)){          if(!(((V224))==Cnil)){
2662          goto T1025;}          goto T1025;}
2663          goto T1020;          goto T1020;
2664    goto T1025;
2665  T1025:;  T1025:;
2666          base[1]= (VV[48]->s.s_dbind);          base[1]= (VV[48]->s.s_dbind);
2667          base[2]= (V225);          base[2]= (V225);
# Line 2403  T1025:; Line 2671  T1025:;
2671          V224= CMPcdr((V224));          V224= CMPcdr((V224));
2672          V225= CMPcar((V224));          V225= CMPcar((V224));
2673          goto T1024;}          goto T1024;}
2674    goto T1020;
2675  T1020:;  T1020:;
2676          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
2677          base[1]= VV[122];          base[1]= VV[122];
# Line 2426  T1020:; Line 2695  T1020:;
2695          goto T1045;}          goto T1045;}
2696          V226= (V229);          V226= (V229);
2697          goto T1041;          goto T1041;
2698    goto T1045;
2699  T1045:;  T1045:;
2700          base[0]= coerce_to_string((V229));          base[0]= coerce_to_string((V229));
2701          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2702          Lfind_package();          Lfind_package();
2703          vs_top=sup;          vs_top=sup;
2704          V226= vs_base[0];}          V226= vs_base[0];}
2705    goto T1041;
2706  T1041:;  T1041:;
2707          V227= Cnil;          V227= Cnil;
2708          V228= Cnil;          V228= Cnil;
# Line 2447  T1041:; Line 2718  T1041:;
2718          V231= fix(vs_base[0]);          V231= fix(vs_base[0]);
2719          vs_top=sup;          vs_top=sup;
2720          goto T1053;          goto T1053;
2721    goto T1051;
2722  T1051:;  T1051:;
2723          V230= fix(Cnil);          V230= fix(Cnil);
2724    goto T1052;
2725  T1052:;  T1052:;
2726          V231= fix(Cnil);          V231= fix(Cnil);
2727    goto T1053;
2728  T1053:;  T1053:;
2729          {object V232;          {object V232;
2730          register object V233;          register object V233;
# Line 2458  T1053:; Line 2732  T1053:;
2732          V235 = make_fixnum(V230);          V235 = make_fixnum(V230);
2733          V232= number_plus(V234,V235);          V232= number_plus(V234,V235);
2734          V233= small_fixnum(0);          V233= small_fixnum(0);
2735    goto T1057;
2736  T1057:;  T1057:;
2737          if(!(number_compare((V233),(V232))>=0)){          if(!(number_compare((V233),(V232))>=0)){
2738          goto T1058;}          goto T1058;}
2739          V227= Cnil;          V227= Cnil;
2740          goto T1040;          goto T1040;
2741    goto T1058;
2742  T1058:;  T1058:;
2743          V236 = make_fixnum(V231);          V236 = make_fixnum(V231);
2744          if(!(number_compare((V233),V236)<0)){          if(!(number_compare((V233),V236)<0)){
# Line 2474  T1058:; Line 2750  T1058:;
2750          vs_top=sup;          vs_top=sup;
2751          V228= vs_base[0];          V228= vs_base[0];
2752          goto T1067;          goto T1067;
2753    goto T1069;
2754  T1069:;  T1069:;
2755          base[1]= (V226);          base[1]= (V226);
2756          V237 = make_fixnum(V231);          V237 = make_fixnum(V231);
# Line 2482  T1069:; Line 2759  T1069:;
2759          siLpackage_external();          siLpackage_external();
2760          vs_top=sup;          vs_top=sup;
2761          V228= vs_base[0];          V228= vs_base[0];
2762    goto T1067;
2763  T1067:;  T1067:;
2764    goto T1065;
2765  T1065:;  T1065:;
2766          if(((V228))!=Cnil){          if(((V228))!=Cnil){
2767          goto T1075;}          goto T1075;}
2768          goto T1066;          goto T1066;
2769    goto T1075;
2770  T1075:;  T1075:;
2771          V227= CMPcar((V228));          V227= CMPcar((V228));
2772          {object V238 =((V227))->s.s_plist;          {object V238 =((V227))->s.s_plist;
# Line 2498  T1075:; Line 2778  T1075:;
2778          goto T1082;          goto T1082;
2779          }else V238=V238->c.c_cdr->c.c_cdr;}          }else V238=V238->c.c_cdr->c.c_cdr;}
2780          goto T1080;}          goto T1080;}
2781    goto T1082;
2782  T1082:;  T1082:;
2783          base[1]= (VV[48]->s.s_dbind);          base[1]= (VV[48]->s.s_dbind);
2784          base[2]= VV[124];          base[2]= VV[124];
# Line 2510  T1082:; Line 2791  T1082:;
2791          goto T1086;          goto T1086;
2792          }else V239=V239->c.c_cdr->c.c_cdr;}          }else V239=V239->c.c_cdr->c.c_cdr;}
2793          base[4]= Cnil;}          base[4]= Cnil;}
2794    goto T1086;
2795  T1086:;  T1086:;
2796          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
2797          Lformat();          Lformat();
2798          vs_top=sup;          vs_top=sup;
2799    goto T1080;
2800  T1080:;  T1080:;
2801          V228= CMPcdr((V228));          V228= CMPcdr((V228));
2802          goto T1065;          goto T1065;
2803    goto T1066;
2804  T1066:;  T1066:;
2805          goto T1063;          goto T1063;
2806    goto T1063;
2807  T1063:;  T1063:;
2808          V233= one_plus((V233));          V233= one_plus((V233));
2809          goto T1057;}}}          goto T1057;}}}
2810    goto T1040;
2811  T1040:;  T1040:;
2812          vs_base=vs_top=base+0;          vs_base=vs_top=base+0;
2813          vs_base[0]=Cnil;          vs_base[0]=Cnil;
2814          vs_top=sup;          vs_top=sup;
2815          {object V240 = vs_base[0];          {object V240 = vs_base[0];
2816          VMR34(V240)}          VMR34(V240)}
2817            base[0]=base[0];
2818            return Cnil;
2819  }  }
2820  /*      function definition for COERCE-SLASH-TERMINATED */  /*      function definition for COERCE-SLASH-TERMINATED */
2821    
2822  static L35()  static void L35()
2823  {register object *base=vs_base;  {register object *base=vs_base;
2824          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
2825          vs_check;          vs_check;
2826          {register object V241;          {register object V241;
2827          V241=(base[0]);          V241=(base[0]);
2828          vs_top=sup;          vs_top=sup;
2829    goto TTL;
2830  TTL:;  TTL:;
2831          if(!(type_of((V241))==t_string)){          if(!(type_of((V241))==t_string)){
2832          goto T1093;}          goto T1093;}
2833          goto T1092;          goto T1092;
2834    goto T1093;
2835  T1093:;  T1093:;
2836          base[1]= VV[125];          base[1]= VV[125];
2837          base[2]= (V241);          base[2]= (V241);
2838          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2839          Lerror();          Lerror();
2840          vs_top=sup;          vs_top=sup;
2841    goto T1092;
2842  T1092:;  T1092:;
2843          {long V242;          {long V242;
2844          V242= ((V241))->v.v_fillp;          V242= ((V241))->v.v_fillp;
# Line 2555  T1092:; Line 2846  T1092:;
2846          goto T1099;}          goto T1099;}
2847          if((((V241))->ust.ust_self[(V242)-(1)])==(47)){          if((((V241))->ust.ust_self[(V242)-(1)])==(47)){
2848          goto T1097;}          goto T1097;}
2849    goto T1099;
2850  T1099:;  T1099:;
2851          base[1]= Cnil;          base[1]= Cnil;
2852          base[2]= VV[127];          base[2]= VV[127];
# Line 2563  T1099:; Line 2855  T1099:;
2855          Lformat();          Lformat();
2856          vs_top=sup;          vs_top=sup;
2857          V241= vs_base[0];}          V241= vs_base[0];}
2858    goto T1097;
2859  T1097:;  T1097:;
2860          base[1]= (V241);          base[1]= (V241);
2861          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2571  T1097:; Line 2864  T1097:;
2864  }  }
2865  /*      function definition for FIX-LOAD-PATH   */  /*      function definition for FIX-LOAD-PATH   */
2866    
2867  static L36()  static void L36()
2868  {register object *base=vs_base;  {register object *base=vs_base;
2869          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
2870          vs_check;          vs_check;
2871          {object V243;          {object V243;
2872          V243=(base[0]);          V243=(base[0]);
2873          vs_top=sup;          vs_top=sup;
2874    goto TTL;
2875  TTL:;  TTL:;
2876          if(equal((V243),(VV[128]->s.s_dbind))){          if(equal((V243),(VV[128]->s.s_dbind))){
2877          goto T1107;}          goto T1107;}
2878          {register object V244;          {register object V244;
2879          V244= (V243);          V244= (V243);
2880    goto T1112;
2881  T1112:;  T1112:;
2882          if(!(type_of((V244))!=t_cons)){          if(!(type_of((V244))!=t_cons)){
2883          goto T1113;}          goto T1113;}
2884          goto T1110;          goto T1110;
2885    goto T1113;
2886  T1113:;  T1113:;
2887          {register object V246;          {register object V246;
2888          base[2]= CMPcar((V244));          base[2]= CMPcar((V244));
# Line 2597  T1113:; Line 2893  T1113:;
2893          (V244)->c.c_car = (V246);}          (V244)->c.c_car = (V246);}
2894          V244= CMPcdr((V244));          V244= CMPcdr((V244));
2895          goto T1112;}          goto T1112;}
2896    goto T1110;
2897  T1110:;  T1110:;
2898          {register object V247;          {register object V247;
2899          V247= (V243);          V247= (V243);
2900    goto T1125;
2901  T1125:;  T1125:;
2902          if(!(type_of((V247))!=t_cons)){          if(!(type_of((V247))!=t_cons)){
2903          goto T1126;}          goto T1126;}
2904          goto T1107;          goto T1107;
2905    goto T1126;
2906  T1126:;  T1126:;
2907          {register object V248;          {register object V248;
2908          V248= (V247);          V248= (V247);
2909    goto T1132;
2910  T1132:;  T1132:;
2911          if(!(type_of(CMPcdr((V248)))!=t_cons)){          if(!(type_of(CMPcdr((V248)))!=t_cons)){
2912          goto T1133;}          goto T1133;}
2913          goto T1130;          goto T1130;
2914    goto T1133;
2915  T1133:;  T1133:;
2916          if(!(equal(CMPcadr((V248)),CMPcar((V247))))){          if(!(equal(CMPcadr((V248)),CMPcar((V247))))){
2917          goto T1137;}          goto T1137;}
# Line 2619  T1133:; Line 2920  T1133:;
2920          V249= (V248);          V249= (V248);
2921          V250= CMPcddr((V248));          V250= CMPcddr((V248));
2922          ((V249))->c.c_cdr = (V250);}          ((V249))->c.c_cdr = (V250);}
2923    goto T1137;
2924  T1137:;  T1137:;
2925          V248= CMPcdr((V248));          V248= CMPcdr((V248));
2926          goto T1132;}          goto T1132;}
2927    goto T1130;
2928  T1130:;  T1130:;
2929          V247= CMPcdr((V247));          V247= CMPcdr((V247));
2930          goto T1125;}          goto T1125;}
2931    goto T1107;
2932  T1107:;  T1107:;
2933          (VV[128]->s.s_dbind)= (V243);          (VV[128]->s.s_dbind)= (V243);
2934          base[1]= (VV[128]->s.s_dbind);          base[1]= (VV[128]->s.s_dbind);
# Line 2634  T1107:; Line 2938  T1107:;
2938  }  }
2939  /*      function definition for FILE-SEARCH     */  /*      function definition for FILE-SEARCH     */
2940    
2941  static L37()  static void L37()
2942  {register object *base=vs_base;  {register object *base=vs_base;
2943          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
2944          vs_check;          vs_check;
# Line 2655  static L37() Line 2959  static L37()
2959          V254=(base[3]);          V254=(base[3]);
2960          vs_top=sup;          vs_top=sup;
2961          goto T1153;          goto T1153;
2962    goto T1150;
2963  T1150:;  T1150:;
2964          V252= (VV[129]->s.s_dbind);          V252= (VV[129]->s.s_dbind);
2965    goto T1151;
2966  T1151:;  T1151:;
2967          V253= (VV[130]->s.s_dbind);          V253= (VV[130]->s.s_dbind);
2968    goto T1152;
2969  T1152:;  T1152:;
2970          V254= Ct;          V254= Ct;
2971    goto T1153;
2972  T1153:;  T1153:;
2973          {register object V255;          {register object V255;
2974          V255= Cnil;          V255= Cnil;
# Line 2672  T1153:; Line 2980  T1153:;
2980          register object V257;          register object V257;
2981          V256= (V252);          V256= (V252);
2982          V257= CMPcar((V256));          V257= CMPcar((V256));
2983    goto T1164;
2984  T1164:;  T1164:;
2985          if(!(((V256))==Cnil)){          if(!(((V256))==Cnil)){
2986          goto T1165;}          goto T1165;}
2987          goto T1160;          goto T1160;
2988    goto T1165;
2989  T1165:;  T1165:;
2990          {register object V258;          {register object V258;
2991          register object V259;          register object V259;
2992          V258= (V253);          V258= (V253);
2993          V259= CMPcar((V258));          V259= CMPcar((V258));
2994    goto T1173;
2995  T1173:;  T1173:;
2996          if(!(((V258))==Cnil)){          if(!(((V258))==Cnil)){
2997          goto T1174;}          goto T1174;}
2998          goto T1169;          goto T1169;
2999    goto T1174;
3000  T1174:;  T1174:;
3001          base[6]= (V257);          base[6]= (V257);
3002          base[7]= (V251);          base[7]= (V251);
# Line 2698  T1174:; Line 3010  T1174:;
3010          base[6]= (V255);          base[6]= (V255);
3011          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3012          return;          return;
3013    goto T1178;
3014  T1178:;  T1178:;
3015          V258= CMPcdr((V258));          V258= CMPcdr((V258));
3016          V259= CMPcar((V258));          V259= CMPcar((V258));
3017          goto T1173;}          goto T1173;}
3018    goto T1169;
3019  T1169:;  T1169:;
3020          V256= CMPcdr((V256));          V256= CMPcdr((V256));
3021          V257= CMPcar((V256));          V257= CMPcar((V256));
3022          goto T1164;}          goto T1164;}
3023    goto T1160;
3024  T1160:;  T1160:;
3025          if(((V254))==Cnil){          if(((V254))==Cnil){
3026          goto T1196;}          goto T1196;}
# Line 2722  T1160:; Line 3037  T1160:;
3037          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3038          bds_unwind1;          bds_unwind1;
3039          return;          return;
3040    goto T1196;
3041  T1196:;  T1196:;
3042          base[4]= Cnil;          base[4]= Cnil;
3043          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 2730  T1196:; Line 3046  T1196:;
3046  }  }
3047  /*      function definition for ALOAD   */  /*      function definition for ALOAD   */
3048    
3049  static L38()  static void L38()
3050  {register object *base=vs_base;  {register object *base=vs_base;
3051          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
3052          vs_check;          vs_check;
3053          {object V260;          {object V260;
3054          V260=(base[0]);          V260=(base[0]);
3055          vs_top=sup;          vs_top=sup;
3056    goto TTL;
3057  TTL:;  TTL:;
3058          base[2]= (V260);          base[2]= (V260);
3059          base[3]= (VV[129]->s.s_dbind);          base[3]= (VV[129]->s.s_dbind);
# Line 2752  TTL:; Line 3069  TTL:;
3069  }  }
3070  /*      function definition for AUTOLOAD        */  /*      function definition for AUTOLOAD        */
3071    
3072  static L39()  static void L39()
3073  {register object *base=vs_base;  {register object *base=vs_base;
3074          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
3075          vs_check;          vs_check;
# Line 2771  static L39() Line 3088  static L39()
3088          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3089          bds_unwind1;          bds_unwind1;
3090          return;          return;
3091    goto T1208;
3092  T1208:;  T1208:;
3093          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
3094          base[4]=          base[4]=
# Line 2782  T1208:; Line 3100  T1208:;
3100  }  }
3101  /*      function definition for AUTOLOAD-MACRO  */  /*      function definition for AUTOLOAD-MACRO  */
3102    
3103  static L40()  static void L40()
3104  {register object *base=vs_base;  {register object *base=vs_base;
3105          register object *sup=base+VM40; VC40          register object *sup=base+VM40; VC40
3106          vs_check;          vs_check;
# Line 2801  static L40() Line 3119  static L40()
3119          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3120          bds_unwind1;          bds_unwind1;
3121          return;          return;
3122    goto T1213;
3123  T1213:;  T1213:;
3124          {object V261;          {object V261;
3125          object V262;          object V262;
# Line 2819  T1213:; Line 3138  T1213:;
3138  }  }
3139  /*      function definition for GET-COMMAND-ARG */  /*      function definition for GET-COMMAND-ARG */
3140    
3141  static L41()  static void L41()
3142  {register object *base=vs_base;  {register object *base=vs_base;
3143          register object *sup=base+VM41; VC41          register object *sup=base+VM41; VC41
3144          vs_check;          vs_check;
# Line 2831  static L41() Line 3150  static L41()
3150          V264=(base[1]);          V264=(base[1]);
3151          vs_top=sup;          vs_top=sup;
3152          goto T1222;          goto T1222;
3153    goto T1221;
3154  T1221:;  T1221:;
3155          V264= Cnil;          V264= Cnil;
3156    goto T1222;
3157  T1222:;  T1222:;
3158          {register object V265;          {register object V265;
3159          V265= (VV[16]->s.s_dbind);          V265= (VV[16]->s.s_dbind);
3160    goto T1226;
3161  T1226:;  T1226:;
3162          V265= CMPcdr((V265));          V265= CMPcdr((V265));
3163          if((V265)!=Cnil){          if((V265)!=Cnil){
# Line 2843  T1226:; Line 3165  T1226:;
3165          base[2]= Cnil;          base[2]= Cnil;
3166          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3167          return;          return;
3168    goto T1230;
3169  T1230:;  T1230:;
3170          {register object V266;          {register object V266;
3171          V266= CMPcar((V265));          V266= CMPcar((V265));
# Line 2859  T1230:; Line 3182  T1230:;
3182          base[2]= (V267);          base[2]= (V267);
3183          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3184          return;          return;
3185    goto T1239;
3186  T1239:;  T1239:;
3187          if((CMPcadr((V265)))==Cnil){          if((CMPcadr((V265)))==Cnil){
3188          goto T1242;}          goto T1242;}
# Line 2866  T1239:; Line 3190  T1239:;
3190          base[3]= CMPcdr((V265));          base[3]= CMPcdr((V265));
3191          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3192          return;          return;
3193    goto T1242;
3194  T1242:;  T1242:;
3195          base[2]= Ct;          base[2]= Ct;
3196          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3197          return;}}          return;}}
3198    goto T1227;
3199  T1227:;  T1227:;
3200          goto T1226;}          goto T1226;}
3201          }          }
3202  }  }
3203  /*      function definition for SET-DIR */  /*      function definition for SET-DIR */
3204    
3205  static L42()  static void L42()
3206  {register object *base=vs_base;  {register object *base=vs_base;
3207          register object *sup=base+VM42; VC42          register object *sup=base+VM42; VC42
3208          vs_check;          vs_check;
# Line 2885  static L42() Line 3211  static L42()
3211          V268=(base[0]);          V268=(base[0]);
3212          V269=(base[1]);          V269=(base[1]);
3213          vs_top=sup;          vs_top=sup;
3214    goto TTL;
3215  TTL:;  TTL:;
3216          {object V270;{object V271;          {object V270;{object V271;
3217          base[2]= (V269);          base[2]= (V269);
# Line 2895  TTL:; Line 3222  TTL:;
3222          if(V271==Cnil)goto T1248;          if(V271==Cnil)goto T1248;
3223          V270= V271;          V270= V271;
3224          goto T1247;          goto T1247;
3225    goto T1248;
3226  T1248:;}  T1248:;}
3227          if(((V268))->s.s_dbind!=OBJNULL){          if(((V268))->s.s_dbind!=OBJNULL){
3228          goto T1251;}          goto T1251;}
3229          V270= Cnil;          V270= Cnil;
3230          goto T1247;          goto T1247;
3231    goto T1251;
3232  T1251:;  T1251:;
3233          base[2]= (V268);          base[2]= (V268);
3234          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3235          Lsymbol_value();          Lsymbol_value();
3236          vs_top=sup;          vs_top=sup;
3237          V270= vs_base[0];          V270= vs_base[0];
3238    goto T1247;
3239  T1247:;  T1247:;
3240          if(((V270))==Cnil){          if(((V270))==Cnil){
3241          goto T1255;}          goto T1255;}
# Line 2918  T1247:; Line 3248  T1247:;
3248          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3249          Lset();          Lset();
3250          return;          return;
3251    goto T1255;
3252  T1255:;  T1255:;
3253          base[2]= Cnil;          base[2]= Cnil;
3254          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 2926  T1255:; Line 3257  T1255:;
3257  }  }
3258  /*      function definition for SET-UP-TOP-LEVEL        */  /*      function definition for SET-UP-TOP-LEVEL        */
3259    
3260  static L43()  static void L43()
3261  {register object *base=vs_base;  {register object *base=vs_base;
3262          register object *sup=base+VM43; VC43          register object *sup=base+VM43; VC43
3263          vs_check;          vs_check;
3264          bds_check;          bds_check;
3265          vs_top=sup;          vs_top=sup;
3266    goto TTL;
3267  TTL:;  TTL:;
3268          {register long V272;          {register long V272;
3269          register object V273;          register object V273;
# Line 2940  TTL:; Line 3272  TTL:;
3272          vs_top=sup;          vs_top=sup;
3273          V272= fix(vs_base[0]);          V272= fix(vs_base[0]);
3274          V273= Cnil;          V273= Cnil;
3275    goto T1264;
3276  T1264:;  T1264:;
3277          V272= (V272)-(1);          V272= (V272)-(1);
3278          if(!((V272)<(0))){          if(!((V272)<(0))){
3279          goto T1269;}          goto T1269;}
3280          goto T1262;          goto T1262;
3281    goto T1269;
3282  T1269:;  T1269:;
3283          base[0]= make_fixnum(V272);          base[0]= make_fixnum(V272);
3284          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2953  T1269:; Line 3287  T1269:;
3287          V274= vs_base[0];          V274= vs_base[0];
3288          V273= make_cons(V274,(V273));          V273= make_cons(V274,(V273));
3289          goto T1264;          goto T1264;
3290    goto T1262;
3291  T1262:;  T1262:;
3292          (VV[16]->s.s_dbind)= (V273);          (VV[16]->s.s_dbind)= (V273);
3293          V273= (VV[136]->s.s_dbind);          V273= (VV[136]->s.s_dbind);
# Line 2970  T1262:; Line 3305  T1262:;
3305          V276= vs_base[0];          V276= vs_base[0];
3306          if(V276==Cnil)goto T1282;          if(V276==Cnil)goto T1282;
3307          goto T1281;          goto T1281;
3308    goto T1282;
3309  T1282:;}  T1282:;}
3310          if(((V275))==Cnil){          if(((V275))==Cnil){
3311          goto T1281;}          goto T1281;}
# Line 2978  T1282:;} Line 3314  T1282:;}
3314          (void) (*Lnk205)();          (void) (*Lnk205)();
3315          vs_top=sup;          vs_top=sup;
3316          (VV[136]->s.s_dbind)= vs_base[0];          (VV[136]->s.s_dbind)= vs_base[0];
3317    goto T1281;
3318  T1281:;  T1281:;
3319          if(((VV[129]->s.s_dbind))==Cnil){          if(((VV[129]->s.s_dbind))==Cnil){
3320          goto T1291;}          goto T1291;}
3321          if(equal((V273),(VV[136]->s.s_dbind))){          if(equal((V273),(VV[136]->s.s_dbind))){
3322          goto T1290;}          goto T1290;}
3323    goto T1291;
3324  T1291:;  T1291:;
3325          base[0]= (VV[136]->s.s_dbind);          base[0]= (VV[136]->s.s_dbind);
3326          base[1]= VV[139];          base[1]= VV[139];
# Line 2998  T1291:; Line 3336  T1291:;
3336          vs_top=sup;          vs_top=sup;
3337          V278= vs_base[0];          V278= vs_base[0];
3338          (VV[129]->s.s_dbind)= make_cons(V278,(VV[129]->s.s_dbind));          (VV[129]->s.s_dbind)= make_cons(V278,(VV[129]->s.s_dbind));
3339    goto T1290;
3340  T1290:;  T1290:;
3341          base[2]= VV[142];          base[2]= VV[142];
3342          base[3]= Cnil;          base[3]= Cnil;
# Line 3050  T1290:; Line 3389  T1290:;
3389          (void) (*Lnk213)();          (void) (*Lnk213)();
3390          bds_unwind1;          bds_unwind1;
3391          return;          return;
3392    goto T1317;
3393  T1317:;  T1317:;
3394          base[0]= Cnil;          base[0]= Cnil;
3395          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3057  T1317:; Line 3397  T1317:;
3397  }  }
3398  /*      function definition for DO-F    */  /*      function definition for DO-F    */
3399    
3400  static L44()  static void L44()
3401  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
3402          register object *VOL sup=base+VM44; VC44          register object *VOL sup=base+VM44; VC44
3403          vs_check;          vs_check;
# Line 3065  static L44() Line 3405  static L44()
3405          {VOL object V279;          {VOL object V279;
3406          V279=(base[0]);          V279=(base[0]);
3407          vs_top=sup;          vs_top=sup;
3408    goto TTL;
3409  TTL:;  TTL:;
3410          base[1]= VV[146];          base[1]= VV[146];
3411          base[2]= Cnil;          base[2]= Cnil;
# Line 3080  TTL:; Line 3421  TTL:;
3421          (void) (*Lnk214)();          (void) (*Lnk214)();
3422          vs_top=sup;          vs_top=sup;
3423          base[4]= vs_base[0];          base[4]= vs_base[0];
         {object tag;frame_ptr fr;object p;bool active;  
3424          frs_push(FRS_PROTECT,Cnil);          frs_push(FRS_PROTECT,Cnil);
3425            {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
3426          if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}          if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
3427          else{          else{
3428          base[6]= base[4];          base[6]= base[4];
3429          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3430          Lread_line();          Lread_line();
3431          vs_top=sup;          vs_top=sup;
3432    goto T1335;
3433  T1335:;  T1335:;
3434          base[6]= base[4];          base[6]= base[4];
3435          base[7]= Cnil;          base[7]= Cnil;
# Line 3101  T1335:; Line 3443  T1335:;
3443          base[6]= Cnil;          base[6]= Cnil;
3444          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3445          goto T1331;          goto T1331;
3446    goto T1342;
3447  T1342:;  T1342:;
3448          base[6]= base[2];          base[6]= base[2];
3449          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3450          Leval();          Leval();
3451          vs_top=sup;          vs_top=sup;
3452          goto T1335;          goto T1335;
3453    goto T1331;
3454  T1331:;  T1331:;
3455          active=FALSE;}          active=FALSE;}
3456          base[5]=Cnil;          base[5]=Cnil;
# Line 3120  T1331:; Line 3464  T1331:;
3464          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3465          Lclose();          Lclose();
3466          vs_top=sup;          vs_top=sup;
3467    goto T1347;
3468  T1347:;  T1347:;
3469          vs_base=vs_top=base+6;          vs_base=vs_top=base+6;
3470          for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
# Line 3129  T1347:; Line 3474  T1347:;
3474          Lby();          Lby();
3475          vs_top=sup;          vs_top=sup;
3476          frs_pop();}          frs_pop();}
3477    goto T1326;
3478  T1326:;  T1326:;
3479          base[4]= small_fixnum(1);          base[4]= small_fixnum(1);
3480          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 3139  T1326:; Line 3485  T1326:;
3485  }  }
3486  /*      local function CLOSURE  */  /*      local function CLOSURE  */
3487    
3488  static LC46(base0)  static void LC46(base0)
3489  register object *base0;  register object *base0;
3490  {       register object *base=vs_base;  {       register object *base=vs_base;
3491          register object *sup=base+VM45; VC45          register object *sup=base+VM45; VC45
# Line 3162  register object *base0; Line 3508  register object *base0;
3508  }  }
3509  /*      local function CLOSURE  */  /*      local function CLOSURE  */
3510    
3511  static LC45(base0)  static void LC45(base0)
3512  register object *base0;  register object *base0;
3513  {       register object *base=vs_base;  {       register object *base=vs_base;
3514          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
# Line 3188  register object *base0; Line 3534  register object *base0;
3534          return;          return;
3535          }          }
3536  }  }
3537  static LnkT215(){ call_or_link(VV[215],&Lnk215);} /* ALOAD */  static void LnkT215(){ call_or_link(VV[215],(void **)&Lnk215);} /* ALOAD */
3538  static LnkT214(){ call_or_link(VV[214],&Lnk214);} /* OPEN */  static void LnkT214(){ call_or_link(VV[214],(void **)&Lnk214);} /* OPEN */
3539  static LnkT213(){ call_or_link(VV[213],&Lnk213);} /* DO-F */  static void LnkT213(){ call_or_link(VV[213],(void **)&Lnk213);} /* DO-F */
3540  static LnkT212(){ call_or_link(VV[212],&Lnk212);} /* SET-DIR */  static void LnkT212(){ call_or_link(VV[212],(void **)&Lnk212);} /* SET-DIR */
3541  static LnkT211(){ call_or_link(VV[211],&Lnk211);} /* GETENV */  static void LnkT211(){ call_or_link(VV[211],(void **)&Lnk211);} /* GETENV */
3542  static LnkT210(){ call_or_link(VV[210],&Lnk210);} /* ARGV */  static void LnkT210(){ call_or_link(VV[210],(void **)&Lnk210);} /* ARGV */
3543  static LnkT209(){ call_or_link(VV[209],&Lnk209);} /* ARGC */  static void LnkT209(){ call_or_link(VV[209],(void **)&Lnk209);} /* ARGC */
3544  static LnkT208(){ call_or_link(VV[208],&Lnk208);} /* GET-COMMAND-ARG */  static void LnkT208(){ call_or_link(VV[208],(void **)&Lnk208);} /* GET-COMMAND-ARG */
3545  static LnkT207(){ call_or_link(VV[207],&Lnk207);} /* FILE-SEARCH */  static void LnkT207(){ call_or_link(VV[207],(void **)&Lnk207);} /* FILE-SEARCH */
3546  static LnkT206(){ call_or_link(VV[206],&Lnk206);} /* FIX-LOAD-PATH */  static void LnkT206(){ call_or_link(VV[206],(void **)&Lnk206);} /* FIX-LOAD-PATH */
3547  static LnkT205(){ call_or_link(VV[205],&Lnk205);} /* COERCE-SLASH-TERMINATED */  static void LnkT205(){ call_or_link(VV[205],(void **)&Lnk205);} /* COERCE-SLASH-TERMINATED */
3548  static LnkT204(){ call_or_link(VV[204],&Lnk204);} /* PACKAGE-SIZE */  static void LnkT204(){ call_or_link(VV[204],(void **)&Lnk204);} /* PACKAGE-SIZE */
3549  static LnkT203(){ call_or_link(VV[203],&Lnk203);} /* BREAK-GO */  static void LnkT203(){ call_or_link(VV[203],(void **)&Lnk203);} /* BREAK-GO */
3550  static object  LnkTLI201(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[201],&LnkLI201,ap);} /* SEARCH */  static object  LnkTLI201(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[201],(void **)&LnkLI201,ap);} /* SEARCH */
3551  static LnkT200(){ call_or_link(VV[200],&Lnk200);} /* INTERNAL-SUPER-GO */  static void LnkT200(){ call_or_link(VV[200],(void **)&Lnk200);} /* INTERNAL-SUPER-GO */
3552  static object  LnkTLI199(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[199],&LnkLI199,2,ap);} /* LIST-DELQ */  static object  LnkTLI199(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[199],(void **)&LnkLI199,2,ap);} /* LIST-DELQ */
3553  static LnkT198(){ call_or_link(VV[198],&Lnk198);} /* IHS-NOT-INTERPRETED-ENV */  static void LnkT198(){ call_or_link(VV[198],(void **)&Lnk198);} /* IHS-NOT-INTERPRETED-ENV */
3554  static LnkT197(){ call_or_link(VV[197],&Lnk197);} /* COMPILED-FUNCTION-NAME */  static void LnkT197(){ call_or_link(VV[197],(void **)&Lnk197);} /* COMPILED-FUNCTION-NAME */
3555  static object  LnkTLI195(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[195],&LnkLI195,ap);} /* REMOVE */  static object  LnkTLI195(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[195],(void **)&LnkLI195,ap);} /* REMOVE */
3556  static LnkT192(){ call_or_link(VV[192],&Lnk192);} /* SPICEP */  static void LnkT192(){ call_or_link(VV[192],(void **)&Lnk192);} /* SPICEP */
3557  static LnkT191(){ call_or_link(VV[191],&Lnk191);} /* FRS-TAG */  static void LnkT191(){ call_or_link(VV[191],(void **)&Lnk191);} /* FRS-TAG */
3558  static LnkT189(){ call_or_link(VV[189],&Lnk189);} /* FRS-CLASS */  static void LnkT189(){ call_or_link(VV[189],(void **)&Lnk189);} /* FRS-CLASS */
3559  static LnkT188(){ call_or_link(VV[188],&Lnk188);} /* FRS-VS */  static void LnkT188(){ call_or_link(VV[188],(void **)&Lnk188);} /* FRS-VS */
3560  static object  LnkTLI187(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[187],&LnkLI187,1,ap);} /* FRS-KIND */  static object  LnkTLI187(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[187],(void **)&LnkLI187,1,ap);} /* FRS-KIND */
3561  static LnkT183(){ call_or_link(VV[183],&Lnk183);} /* IHS-FUN */  static void LnkT183(){ call_or_link(VV[183],(void **)&Lnk183);} /* IHS-FUN */
3562  static LnkT182(){ call_or_link(VV[182],&Lnk182);} /* FRS-IHS */  static void LnkT182(){ call_or_link(VV[182],(void **)&Lnk182);} /* FRS-IHS */
3563  static LnkT181(){ call_or_link(VV[181],&Lnk181);} /* BDS-VAL */  static void LnkT181(){ call_or_link(VV[181],(void **)&Lnk181);} /* BDS-VAL */
3564  static object  LnkTLI180(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[180],&LnkLI180,1,ap);} /* PRINT-FRS */  static object  LnkTLI180(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[180],(void **)&LnkLI180,1,ap);} /* PRINT-FRS */
3565  static LnkT179(){ call_or_link(VV[179],&Lnk179);} /* BDS-VAR */  static void LnkT179(){ call_or_link(VV[179],(void **)&Lnk179);} /* BDS-VAR */
3566  static LnkT178(){ call_or_link(VV[178],&Lnk178);} /* FRS-BDS */  static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* FRS-BDS */
3567  static LnkT177(){ call_or_link(VV[177],&Lnk177);} /* BREAK-VS */  static void LnkT177(){ call_or_link(VV[177],(void **)&Lnk177);} /* BREAK-VS */
3568  static LnkT176(){ call_or_link(VV[176],&Lnk176);} /* VS */  static void LnkT176(){ call_or_link(VV[176],(void **)&Lnk176);} /* VS */
3569  static object  LnkTLI175(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[175],&LnkLI175,1,ap);} /* PRINT-IHS */  static object  LnkTLI175(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[175],(void **)&LnkLI175,1,ap);} /* PRINT-IHS */
3570  static LnkT174(){ call_or_link(VV[174],&Lnk174);} /* IHS-VS */  static void LnkT174(){ call_or_link(VV[174],(void **)&Lnk174);} /* IHS-VS */
3571  static LnkT173(){ call_or_link(VV[173],&Lnk173);} /* BREAK-PREVIOUS */  static void LnkT173(){ call_or_link(VV[173],(void **)&Lnk173);} /* BREAK-PREVIOUS */
3572  static LnkT172(){ call_or_link(VV[172],&Lnk172);} /* IHS-FNAME */  static void LnkT172(){ call_or_link(VV[172],(void **)&Lnk172);} /* IHS-FNAME */
3573  static object  LnkTLI171(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[171],&LnkLI171,1,ap);} /* IHS-VISIBLE */  static object  LnkTLI171(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[171],(void **)&LnkLI171,1,ap);} /* IHS-VISIBLE */
3574  static object  LnkTLI170(){return call_proc0(VV[170],&LnkLI170);} /* SET-ENV */  static object  LnkTLI170(){return call_proc0(VV[170],(void **)&LnkLI170);} /* SET-ENV */
3575  static LnkT169(){ call_or_link(VV[169],&Lnk169);} /* COMPLETE-PROP */  static void LnkT169(){ call_or_link(VV[169],(void **)&Lnk169);} /* COMPLETE-PROP */
3576  static LnkT168(){ call_or_link(VV[168],&Lnk168);} /* BREAK-LEVEL */  static void LnkT168(){ call_or_link(VV[168],(void **)&Lnk168);} /* BREAK-LEVEL */
3577  static LnkT167(){ call_or_link(VV[167],&Lnk167);} /* BREAK */  static void LnkT167(){ call_or_link(VV[167],(void **)&Lnk167);} /* BREAK */
3578  static LnkT164(){ call_or_link(VV[164],&Lnk164);} /* DBL-READ */  static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* DBL-READ */
3579  static LnkT163(){ call_or_link(VV[163],&Lnk163);} /* SET-BACK */  static void LnkT163(){ call_or_link(VV[163],(void **)&Lnk163);} /* SET-BACK */
3580  static object  LnkTLI162(){return call_proc0(VV[162],&LnkLI162);} /* SET-CURRENT */  static object  LnkTLI162(){return call_proc0(VV[162],(void **)&LnkLI162);} /* SET-CURRENT */
3581  static LnkT161(){ call_or_link(VV[161],&Lnk161);} /* CATCH-FATAL */  static void LnkT161(){ call_or_link(VV[161],(void **)&Lnk161);} /* CATCH-FATAL */
3582  static LnkT160(){ call_or_link(VV[160],&Lnk160);} /* BREAK-QUIT */  static void LnkT160(){ call_or_link(VV[160],(void **)&Lnk160);} /* BREAK-QUIT */
3583  static LnkT159(){ call_or_link(VV[159],&Lnk159);} /* SIMPLE-BACKTRACE */  static void LnkT159(){ call_or_link(VV[159],(void **)&Lnk159);} /* SIMPLE-BACKTRACE */
3584  static LnkT158(){ call_or_link(VV[158],&Lnk158);} /* FRS-TOP */  static void LnkT158(){ call_or_link(VV[158],(void **)&Lnk158);} /* FRS-TOP */
3585  static LnkT157(){ call_or_link(VV[157],&Lnk157);} /* SCH-FRS-BASE */  static void LnkT157(){ call_or_link(VV[157],(void **)&Lnk157);} /* SCH-FRS-BASE */
3586  static LnkT156(){ call_or_link(VV[156],&Lnk156);} /* IHS-TOP */  static void LnkT156(){ call_or_link(VV[156],(void **)&Lnk156);} /* IHS-TOP */
3587  static LnkT155(){ call_or_link(VV[155],&Lnk155);} /* MAKE-STRING-INPUT-STREAM */  static void LnkT155(){ call_or_link(VV[155],(void **)&Lnk155);} /* MAKE-STRING-INPUT-STREAM */
3588  static LnkT154(){ call_or_link(VV[154],&Lnk154);} /* STRING-CONCATENATE */  static void LnkT154(){ call_or_link(VV[154],(void **)&Lnk154);} /* STRING-CONCATENATE */
3589  static LnkT153(){ call_or_link(VV[153],&Lnk153);} /* READ-FROM-STRING */  static void LnkT153(){ call_or_link(VV[153],(void **)&Lnk153);} /* READ-FROM-STRING */
3590  static LnkT152(){ call_or_link(VV[152],&Lnk152);} /* BREAK-CURRENT */  static void LnkT152(){ call_or_link(VV[152],(void **)&Lnk152);} /* BREAK-CURRENT */
3591  static LnkT148(){ call_or_link(VV[148],&Lnk148);} /* PROCESS-SOME-ARGS */  static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* PROCESS-SOME-ARGS */
3592  static LnkT147(){ call_or_link(VV[147],&Lnk147);} /* LOAD */  static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* LOAD */
3593    
3594  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3595  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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