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

Diff of /gcl/lsp/gcl_debug.c

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

revision 1.1.2.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.1.2.2 by camm, Tue Sep 23 18:39:18 2003 UTC
# Line 119  T35:; Line 119  T35:;
119          base[0]=base[0];          base[0]=base[0];
120          return Cnil;          return Cnil;
121  }  }
122  /*      function definition for SEARCH-STACK    */  /*      local entry for function SEARCH-STACK   */
123    
124  static void L3()  static object LI3(V13)
125  {register object *base=vs_base;  
126          register object *sup=base+VM3; VC3  object V13;
127          vs_reserve(VM3);  {        VMB3 VMS3 VMV3
         {object V12;  
         check_arg(1);  
         V12=(base[0]);  
         vs_top=sup;  
128          goto TTL;          goto TTL;
129  TTL:;  TTL:;
130          {object V13;          {object V14;
131          V13= Cnil;          V14= Cnil;
132          if(!(type_of((V12))==t_symbol)){          if(!(type_of((V13))==t_symbol)){
133          goto T62;}          goto T62;}
134          V13= symbol_name((V12));          V14= symbol_name((V13));
135          goto T60;          goto T60;
136          goto T62;          goto T62;
137  T62:;  T62:;
138          V13= (V12);          V14= (V13);
139          goto T60;          goto T60;
140  T60:;  T60:;
141          {register long V14;          {register long V15;
142          register long V15;          register long V16;
143          {object V16;          {object V17;
144          vs_base=vs_top;          vs_base=vs_top;
145          (void) (*Lnk114)();          (void) (*Lnk114)();
146          vs_top=sup;          vs_top=sup;
147          V16= vs_base[0];{object V17;          V17= vs_base[0];{object V18;
148          V17= (type_of((V16))==t_fixnum?Ct:Cnil);          V18= (type_of((V17))==t_fixnum?Ct:Cnil);
149          if(V17==Cnil)goto T67;          if(V18==Cnil)goto T67;
150          goto T66;          goto T66;
151          goto T67;          goto T67;
152  T67:;}  T67:;}
153          (void)((*(LnkLI115))());          (void)((*(LnkLI115))());
154          goto T66;          goto T66;
155  T66:;  T66:;
156          V14= fix((V16));}          V15= fix((V17));}
157          V15= 2;          V16= 2;
         {register object V18;  
         V18= Cnil;  
158          {register object V19;          {register object V19;
159          V19= Cnil;          V19= Cnil;
160            {register object V20;
161            V20= Cnil;
162          goto T71;          goto T71;
163  T71:;  T71:;
164          if((V14)<=(V15)){          if((V15)<=(V16)){
165          goto T74;}          goto T74;}
166          goto T73;          goto T73;
167          goto T74;          goto T74;
# Line 173  T74:; Line 169  T74:;
169          goto T72;          goto T72;
170          goto T73;          goto T73;
171  T73:;  T73:;
172          {register object V20;          {register object V21;
173          base[1]= make_fixnum(V14);          base[0]= make_fixnum(V15);
174          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
175          (void) (*Lnk116)();          (void) (*Lnk116)();
176          vs_top=sup;          vs_top=sup;
177          V20= vs_base[0];          V21= vs_base[0];
178          V18= (V20);}          V19= (V21);}
179          base[1]= (V18);          base[0]= (V19);
180          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
181          Lcompiled_function_p();          Lcompiled_function_p();
182          vs_top=sup;          vs_top=sup;
183          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
184          goto T82;}          goto T82;}
185          base[1]= (V18);          base[0]= (V19);
186          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
187          (void) (*Lnk117)();          (void) (*Lnk117)();
188          vs_top=sup;          vs_top=sup;
189          V19= vs_base[0];          V20= vs_base[0];
190          goto T80;          goto T80;
191          goto T82;          goto T82;
192  T82:;  T82:;
193          if(!(type_of((V18))==t_symbol)){          if(!(type_of((V19))==t_symbol)){
194          goto T88;}          goto T88;}
195          V19= (V18);          V20= (V19);
196          goto T80;          goto T80;
197          goto T88;          goto T88;
198  T88:;  T88:;
199          if(!(type_of((V18))==t_cons||((V18))==Cnil)){          if(!(type_of((V19))==t_cons||((V19))==Cnil)){
200          goto T92;}          goto T92;}
201          {register object x= car((V18)),V21= VV[4];          {register object x= car((V19)),V22= VV[4];
202          while(!endp(V21))          while(!endp(V22))
203          if(eql(x,V21->c.c_car)){          if(eql(x,V22->c.c_car)){
204          goto T95;          goto T95;
205          }else V21=V21->c.c_cdr;          }else V22=V22->c.c_cdr;
206          goto T92;}          goto T92;}
207          goto T95;          goto T95;
208  T95:;  T95:;
209          V19= cadr((V18));          V20= cadr((V19));
210          goto T80;          goto T80;
211          goto T92;          goto T92;
212  T92:;  T92:;
213          V19= VV[5];          V20= VV[5];
214          goto T80;          goto T80;
215  T80:;  T80:;
216          V22= symbol_name((V19));          V23= symbol_name((V20));
217          if(((VFUN_NARGS=4,(*(LnkLI118))((V13),/* INLINE-ARGS */V22,VV[6],VV[7])))==Cnil){          if(((VFUN_NARGS=4,(*(LnkLI118))((V14),/* INLINE-ARGS */V23,VV[6],VV[7])))==Cnil){
218          goto T98;}          goto T98;}
219          base[1]= make_fixnum(V14);          base[0]= make_fixnum(V15);
220          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
221          (void) (*Lnk119)();          (void) (*Lnk119)();
222          vs_top=sup;          vs_top=sup;
223          princ_char(10,Cnil);          princ_char(10,Cnil);
224          vs_base=vs_top;          {object V24 = (VFUN_NARGS=0,(*(LnkLI120))());
225          (void) (*Lnk120)();          VMR3(V24)}
         return;  
226          goto T98;          goto T98;
227  T98:;  T98:;
228          V14= (long)(V14)-(1);          V15= (long)(V15)-(1);
229          goto T71;          goto T71;
230          goto T72;          goto T72;
231  T72:;  T72:;
232          base[1]= symbol_value(VV[1]);          base[0]= symbol_value(VV[1]);
233          base[2]= VV[8];          base[1]= VV[8];
234          base[3]= (V13);          base[2]= (V14);
235          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+0)+3;
236          Lformat();          Lformat();
237          vs_top=sup;          vs_top=sup;
238          base[1]= Cnil;          {object V25 = Cnil;
239          vs_top=(vs_base=base+1)+1;          VMR3(V25)}
240          return;          {object V26 = Cnil;
241          base[1]= Cnil;          VMR3(V26)}}}}}
242          vs_top=(vs_base=base+1)+1;          base[0]=base[0];
243          return;}}}}          return Cnil;
         }  
244  }  }
245  /*      function definition for BREAK-LOCALS    */  /*      local entry for function BREAK-LOCALS   */
246    
247  static void L4()  static object LI4(object first,...)
248  {register object *base=vs_base;  {      
249          register object *sup=base+VM4; VC4          va_list ap;
250          vs_reserve(VM4);          int narg = VFUN_NARGS; VMB4 VMS4 VMV4
251          bds_check;          bds_check;
252          {object V23;          {object V27;
253          if(vs_top-vs_base>1) too_many_arguments();          va_start(ap,first);
254          if(vs_base>=vs_top){vs_top=sup;goto T111;}          narg = narg - 0;
255          V23=(base[0]);          if (narg <= 0) goto T111;
256          vs_top=sup;          else {
257          goto T112;          V27= first;}
258            --narg; goto T112;
259          goto T111;          goto T111;
260  T111:;  T111:;
261          V23= small_fixnum(1);          V27= small_fixnum(1);
262          goto T112;          goto T112;
263  T112:;  T112:;
264          {object V24;          {object V28;
         object V25;  
         object V26;  
         object V27;  
         object V28;  
265          object V29;          object V29;
266          V24= symbol_value(VV[9]);          object V30;
267          base[6]= (V24);          object V31;
268          vs_top=(vs_base=base+6)+1;          object V32;
269            object V33;
270            V28= symbol_value(VV[9]);
271            base[5]= (V28);
272            vs_top=(vs_base=base+5)+1;
273          (void) (*Lnk112)();          (void) (*Lnk112)();
274          vs_top=sup;          vs_top=sup;
275          V25= vs_base[0];          V29= vs_base[0];
276          bds_bind(VV[11],symbol_value(VV[10]));          bds_bind(VV[11],symbol_value(VV[10]));
277          bds_bind(VV[12],Cnil);          bds_bind(VV[12],Cnil);
278          bds_bind(VV[13],symbol_value(VV[10]));          bds_bind(VV[13],symbol_value(VV[10]));
279          V26= symbol_value(VV[9]);          V30= symbol_value(VV[9]);
280          base[6]= (V24);          base[5]= (V28);
281          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+5)+1;
282          (void) (*Lnk116)();          (void) (*Lnk116)();
283          vs_top=sup;          vs_top=sup;
284          V27= vs_base[0];          V31= vs_base[0];
285          V28= Cnil;          V32= Cnil;
286          V29= Cnil;          V33= Cnil;
287          if(!((fix((V23)))>(1))){          if(!((fix((V27)))>(1))){
288          goto T123;}          goto T123;}
289          {register long V30;          {register long V34;
290          long V31;          long V35;
291          V30= 0;{object V32;          V34= 0;{object V36;
292          V32= (type_of((V23))==t_fixnum?Ct:Cnil);          V36= (type_of((V27))==t_fixnum?Ct:Cnil);
293          if(V32==Cnil)goto T128;          if(V36==Cnil)goto T128;
294          goto T127;          goto T127;
295          goto T128;          goto T128;
296  T128:;}  T128:;}
297          (void)((*(LnkLI115))());          (void)((*(LnkLI115))());
298          goto T127;          goto T127;
299  T127:;  T127:;
300          V31= fix((V23));          V35= fix((V27));
301          {register long V33;          {register long V37;
302          long V34;{object V35;          long V38;{object V39;
303          V35= (type_of((V26))==t_fixnum?Ct:Cnil);          V39= (type_of((V30))==t_fixnum?Ct:Cnil);
304          if(V35==Cnil)goto T132;          if(V39==Cnil)goto T132;
305          goto T131;          goto T131;
306          goto T132;          goto T132;
307  T132:;}  T132:;}
308          (void)((*(LnkLI115))());          (void)((*(LnkLI115))());
309          goto T131;          goto T131;
310  T131:;  T131:;
311          V33= fix((V26));          V37= fix((V30));
312          V34= 2;          V38= 2;
313          goto T136;          goto T136;
314  T136:;  T136:;
315          if((V33)<=(V34)){          if((V37)<=(V38)){
316          goto T139;}          goto T139;}
317          goto T138;          goto T138;
318          goto T139;          goto T139;
# Line 325  T139:; Line 320  T139:;
320          goto T137;          goto T137;
321          goto T138;          goto T138;
322  T138:;  T138:;
323          if((V30)>=(V31)){          if((V34)>=(V35)){
324          goto T142;}          goto T142;}
325          goto T141;          goto T141;
326          goto T142;          goto T142;
# Line 333  T142:; Line 328  T142:;
328          goto T137;          goto T137;
329          goto T141;          goto T141;
330  T141:;  T141:;
331          bds_bind(VV[9],make_fixnum(V33));          bds_bind(VV[9],make_fixnum(V37));
332          vs_base=vs_top;          (void)((VFUN_NARGS=0,(*(LnkLI120))()));
         (void) (*Lnk120)();  
         vs_top=sup;  
333          princ_char(10,Cnil);          princ_char(10,Cnil);
334          princ_char(10,Cnil);          princ_char(10,Cnil);
335          bds_unwind1;          bds_unwind1;
336          V30= (long)(V30)+(1);          V34= (long)(V34)+(1);
337          V33= (long)(V33)-(1);          V37= (long)(V37)-(1);
338          goto T136;          goto T136;
339          goto T137;          goto T137;
340  T137:;  T137:;
341          base[6]= Cnil;          {object V40 = Cnil;
         vs_top=(vs_base=base+6)+1;  
342          bds_unwind1;          bds_unwind1;
343          bds_unwind1;          bds_unwind1;
344          bds_unwind1;          bds_unwind1;
345          return;          VMR4(V40)}
346          base[6]= Cnil;          {object V41 = Cnil;
         vs_top=(vs_base=base+6)+1;  
347          bds_unwind1;          bds_unwind1;
348          bds_unwind1;          bds_unwind1;
349          bds_unwind1;          bds_unwind1;
350          return;}}          VMR4(V41)}}}
351          goto T123;          goto T123;
352  T123:;  T123:;
353          base[6]= (V27);          base[5]= (V31);
354          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+5)+1;
355          Lcompiled_function_p();          Lcompiled_function_p();
356          vs_top=sup;          vs_top=sup;
357          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
358          goto T154;}          goto T154;}
359          base[6]= (V27);          base[5]= (V31);
360          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+5)+1;
361          (void) (*Lnk117)();          (void) (*Lnk117)();
362          vs_top=sup;          vs_top=sup;
363          V28= vs_base[0];          V32= vs_base[0];
364          goto T152;          goto T152;
365          goto T154;          goto T154;
366  T154:;  T154:;
367          V28= (V27);          V32= (V31);
368          goto T152;          goto T152;
369  T152:;  T152:;
370          if(!(type_of((V28))==t_symbol)){          if(!(type_of((V32))==t_symbol)){
371          goto T160;}          goto T160;}
372          V29= get((V28),VV[14],Cnil);          V33= get((V32),VV[14],Cnil);
373          goto T160;          goto T160;
374  T160:;  T160:;
375          {object V36;          {object V42;
376          base[6]= make_fixnum((long)(1)+(fix(symbol_value(VV[9]))));          base[5]= make_fixnum((long)(1)+(fix(symbol_value(VV[9]))));
377          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+5)+1;
378          (void) (*Lnk112)();          (void) (*Lnk112)();
379          vs_top=sup;          vs_top=sup;
380          V36= vs_base[0];          V42= vs_base[0];
381          if(((V36))==Cnil){          if(((V42))==Cnil){
382          goto T167;}          goto T167;}
383          base[6]= symbol_value(VV[1]);          base[5]= symbol_value(VV[1]);
384          base[7]= VV[15];          base[6]= VV[15];
385          base[8]= (V28);          base[7]= (V32);
386          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+5)+3;
387          Lformat();          Lformat();
388          vs_top=sup;          vs_top=sup;
389          if(!(type_of((V28))==t_symbol)){          if(!(type_of((V32))==t_symbol)){
390          goto T174;}          goto T174;}
391          {register long V37;          {register long V43;
392          long V38;{object V39;          long V44;{object V45;
393          V39= (type_of((V25))==t_fixnum?Ct:Cnil);          V45= (type_of((V29))==t_fixnum?Ct:Cnil);
394          if(V39==Cnil)goto T178;          if(V45==Cnil)goto T178;
395          goto T177;          goto T177;
396          goto T178;          goto T178;
397  T178:;}  T178:;}
398          (void)((*(LnkLI115))());          (void)((*(LnkLI115))());
399          goto T177;          goto T177;
400  T177:;  T177:;
401          V37= fix((V25));{object V40;          V43= fix((V29));{object V46;
402          V40= (type_of((V36))==t_fixnum?Ct:Cnil);          V46= (type_of((V42))==t_fixnum?Ct:Cnil);
403          if(V40==Cnil)goto T182;          if(V46==Cnil)goto T182;
404          goto T181;          goto T181;
405          goto T182;          goto T182;
406  T182:;}  T182:;}
407          (void)((*(LnkLI115))());          (void)((*(LnkLI115))());
408          goto T181;          goto T181;
409  T181:;  T181:;
410          V38= fix((V36));          V44= fix((V42));
411          {register long V41;          {register long V47;
412          V41= 0;          V47= 0;
413          {register object V42;          {register object V48;
414          V42= Cnil;          V48= Cnil;
415          goto T186;          goto T186;
416  T186:;  T186:;
417          if((V37)>=(V38)){          if((V43)>=(V44)){
418          goto T189;}          goto T189;}
419          goto T188;          goto T188;
420          goto T189;          goto T189;
# Line 431  T189:; Line 422  T189:;
422          goto T187;          goto T187;
423          goto T188;          goto T188;
424  T188:;  T188:;
425          V42= Cnil;          V48= Cnil;
426          {register object x= small_fixnum(0),V43= (V29);          {register object x= small_fixnum(0),V49= (V33);
427          while(!endp(V43))          while(!endp(V49))
428          if(eql(x,V43->c.c_car)){          if(eql(x,V49->c.c_car)){
429          goto T196;          goto T196;
430          }else V43=V43->c.c_cdr;          }else V49=V49->c.c_cdr;
431          goto T195;}          goto T195;}
432          goto T196;          goto T196;
433  T196:;  T196:;
434          base[6]= (V29);          base[5]= (V33);
435          base[7]= make_fixnum(V41);          base[6]= make_fixnum(V47);
436          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+5)+2;
437          Lgetf();          Lgetf();
438          vs_top=sup;          vs_top=sup;
439          V42= vs_base[0];          V48= vs_base[0];
440          goto T193;          goto T193;
441          goto T195;          goto T195;
442  T195:;  T195:;
443          V42= nth(V41,(V29));          V48= nth(V47,(V33));
444          goto T193;          goto T193;
445  T193:;  T193:;
446          if(((V42))==Cnil){          if(((V48))==Cnil){
447          goto T203;}          goto T203;}
448          base[6]= Ct;          base[5]= Ct;
449          base[7]= VV[16];          base[6]= VV[16];
450          base[8]= make_fixnum(V41);          base[7]= make_fixnum(V47);
451          base[9]= (V42);          base[8]= (V48);
452          base[11]= make_fixnum(V37);          base[10]= make_fixnum(V43);
453          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+10)+1;
454          (void) (*Lnk113)();          (void) (*Lnk113)();
455          vs_top=sup;          vs_top=sup;
456          base[10]= vs_base[0];          base[9]= vs_base[0];
457          vs_top=(vs_base=base+6)+5;          vs_top=(vs_base=base+5)+5;
458          Lformat();          Lformat();
459          vs_top=sup;          vs_top=sup;
460          goto T201;          goto T201;
461          goto T203;          goto T203;
462  T203:;  T203:;
463          base[6]= symbol_value(VV[1]);          base[5]= symbol_value(VV[1]);
464          base[7]= VV[17];          base[6]= VV[17];
465          base[8]= make_fixnum(V41);          base[7]= make_fixnum(V47);
466          base[10]= make_fixnum(V37);          base[9]= make_fixnum(V43);
467          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+9)+1;
468          (void) (*Lnk113)();          (void) (*Lnk113)();
469          vs_top=sup;          vs_top=sup;
470          base[9]= vs_base[0];          base[8]= vs_base[0];
471          vs_top=(vs_base=base+6)+4;          vs_top=(vs_base=base+5)+4;
472          Lformat();          Lformat();
473          vs_top=sup;          vs_top=sup;
474          goto T201;          goto T201;
475  T201:;  T201:;
476          V37= (long)(V37)+(1);          V43= (long)(V43)+(1);
477          if(!((V41)<(2147483646))){          if(!((V47)<(2147483646))){
478          goto T219;}          goto T219;}
479          goto T218;          goto T218;
480          goto T219;          goto T219;
# Line 491  T219:; Line 482  T219:;
482          (void)((*(LnkLI115))());          (void)((*(LnkLI115))());
483          goto T218;          goto T218;
484  T218:;  T218:;
485          V41= (long)(V41)+(1);          V47= (long)(V47)+(1);
486          goto T186;          goto T186;
487          goto T187;          goto T187;
488  T187:;  T187:;
489          base[6]= Cnil;          {object V50 = Cnil;
         vs_top=(vs_base=base+6)+1;  
490          bds_unwind1;          bds_unwind1;
491          bds_unwind1;          bds_unwind1;
492          bds_unwind1;          bds_unwind1;
493          return;          VMR4(V50)}
494          base[6]= Cnil;          {object V51 = Cnil;
         vs_top=(vs_base=base+6)+1;  
495          bds_unwind1;          bds_unwind1;
496          bds_unwind1;          bds_unwind1;
497          bds_unwind1;          bds_unwind1;
498          return;}}}          VMR4(V51)}}}}
499          goto T174;          goto T174;
500  T174:;  T174:;
501          if(!(type_of((V28))==t_cons||((V28))==Cnil)){          if(!(type_of((V32))==t_cons||((V32))==Cnil)){
502          goto T225;}          goto T225;}
503          base[6]= (*(LnkLI121))((V24));          {object V52 = (*(LnkLI121))((V28));
         vs_top=(vs_base=base+6)+1;  
504          bds_unwind1;          bds_unwind1;
505          bds_unwind1;          bds_unwind1;
506          bds_unwind1;          bds_unwind1;
507          return;          VMR4(V52)}
508          goto T225;          goto T225;
509  T225:;  T225:;
510          base[6]= symbol_value(VV[1]);          base[5]= symbol_value(VV[1]);
511          base[7]= VV[19];          base[6]= VV[19];
512          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+5)+2;
513          Lformat();          Lformat();
514            vs_top=sup;
515            {object V53 = vs_base[0];
516          bds_unwind1;          bds_unwind1;
517          bds_unwind1;          bds_unwind1;
518          bds_unwind1;          bds_unwind1;
519          return;          VMR4(V53)}
520          goto T167;          goto T167;
521  T167:;  T167:;
522          base[6]= Cnil;          {object V54 = Cnil;
         vs_top=(vs_base=base+6)+1;  
523          bds_unwind1;          bds_unwind1;
524          bds_unwind1;          bds_unwind1;
525          bds_unwind1;          bds_unwind1;
526          return;}}          VMR4(V54)}}}
527            va_end(ap);
528            base[0]=base[0];
529            return Cnil;}
530          }          }
 }  
531  /*      function definition for LOC     */  /*      function definition for LOC     */
532    
533  static void L5()  static void L5()
534  {register object *base=vs_base;  {register object *base=vs_base;
535          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
536          vs_reserve(VM5);          vs_reserve(VM5);
537          {object V44;          {object V55;
538          if(vs_top-vs_base>1) too_many_arguments();          if(vs_top-vs_base>1) too_many_arguments();
539          if(vs_base>=vs_top){vs_top=sup;goto T229;}          if(vs_base>=vs_top){vs_top=sup;goto T229;}
540          V44=(base[0]);          V55=(base[0]);
541          vs_top=sup;          vs_top=sup;
542          goto T230;          goto T230;
543          goto T229;          goto T229;
544  T229:;  T229:;
545          V44= small_fixnum(0);          V55= small_fixnum(0);
546          goto T230;          goto T230;
547  T230:;  T230:;
548          {object V45;          {object V56;
549          base[1]= symbol_value(VV[9]);          base[1]= symbol_value(VV[9]);
550          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
551          (void) (*Lnk112)();          (void) (*Lnk112)();
552          vs_top=sup;          vs_top=sup;
553          V45= vs_base[0];          V56= vs_base[0];
554          if(!((fix((V44)))>=(0))){          if(!((fix((V55)))>=(0))){
555          goto T235;}          goto T235;}
556          vs_base=vs_top;          vs_base=vs_top;
557          (void) (*Lnk114)();          (void) (*Lnk114)();
558          vs_top=sup;          vs_top=sup;
559          V47= vs_base[0];          V58= vs_base[0];
560          V48 = make_fixnum((long)(1)+(fix(symbol_value(VV[9]))));          V59 = make_fixnum((long)(1)+(fix(symbol_value(VV[9]))));
561          base[1]= (number_compare(V47,V48)<=0?(V47):V48);          base[1]= (number_compare(V58,V59)<=0?(V58):V59);
562          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
563          (void) (*Lnk112)();          (void) (*Lnk112)();
564          vs_top=sup;          vs_top=sup;
565          V46= vs_base[0];          V57= vs_base[0];
566          if((fix((V44)))<((long)(fix(V46))-(fix((V45))))){          if((fix((V55)))<((long)(fix(V57))-(fix((V56))))){
567          goto T234;}          goto T234;}
568          goto T235;          goto T235;
569  T235:;  T235:;
# Line 582  T235:; Line 573  T235:;
573          vs_top=sup;          vs_top=sup;
574          goto T234;          goto T234;
575  T234:;  T234:;
576          base[1]= make_fixnum((long)(fix((V44)))+(fix((V45))));          base[1]= make_fixnum((long)(fix((V55)))+(fix((V56))));
577          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
578          (void) (*Lnk113)();          (void) (*Lnk113)();
579          return;}          return;}
# Line 596  static void L6() Line 587  static void L6()
587          vs_reserve(VM6);          vs_reserve(VM6);
588          check_arg(2);          check_arg(2);
589          vs_top=sup;          vs_top=sup;
590          {object V49=base[0]->c.c_cdr;          {object V60=base[0]->c.c_cdr;
591          if(endp(V49))invalid_macro_call();          if(endp(V60))invalid_macro_call();
592          base[2]= (V49->c.c_car);          base[2]= (V60->c.c_car);
593          V49=V49->c.c_cdr;          V60=V60->c.c_cdr;
594          if(endp(V49))invalid_macro_call();          if(endp(V60))invalid_macro_call();
595          base[3]= (V49->c.c_car);          base[3]= (V60->c.c_car);
596          V49=V49->c.c_cdr;          V60=V60->c.c_cdr;
597          if(!endp(V49))invalid_macro_call();}          if(!endp(V60))invalid_macro_call();}
598          V50= list(3,VV[22],car(base[2]),base[3]);          V61= list(3,VV[22],car(base[2]),base[3]);
599          {register object V52;          {register object V63;
600          register object V53;          register object V64;
601          register object V54;          register object V65;
602          V52= cdr(base[2]);          V63= cdr(base[2]);
603          V53= small_fixnum(0);          V64= small_fixnum(0);
604          V54= Cnil;          V65= Cnil;
605          goto T247;          goto T247;
606  T247:;  T247:;
607          if(((V52))!=Cnil){          if(((V63))!=Cnil){
608          goto T248;}          goto T248;}
609          V51= reverse((V54));          V62= reverse((V65));
610          goto T244;          goto T244;
611          goto T248;          goto T248;
612  T248:;  T248:;
613          {register object V55;          {register object V66;
614          V56= car((V52));          V67= car((V63));
615          V55= list(3,VV[22],/* INLINE-ARGS */V56,list(2,VV[23],(V53)));          V66= list(3,VV[22],/* INLINE-ARGS */V67,list(2,VV[23],(V64)));
616          V54= make_cons((V55),(V54));}          V65= make_cons((V66),(V65));}
617          V52= cdr((V52));          V63= cdr((V63));
618          V53= one_plus((V53));          V64= one_plus((V64));
619          goto T247;}          goto T247;}
620          goto T244;          goto T244;
621  T244:;  T244:;
622          base[4]= listA(3,VV[21],/* INLINE-ARGS */V50,V51);          base[4]= listA(3,VV[21],/* INLINE-ARGS */V61,V62);
623          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
624          return;          return;
625  }  }
# Line 640  static void L7() Line 631  static void L7()
631          vs_reserve(VM7);          vs_reserve(VM7);
632          check_arg(2);          check_arg(2);
633          vs_top=sup;          vs_top=sup;
634          {object V57=base[0]->c.c_cdr;          {object V68=base[0]->c.c_cdr;
635          base[2]= V57;}          base[2]= V68;}
636          V58= car(base[2]);          V69= car(base[2]);
637          {register object V60;          {register object V71;
638          register object V61;          register object V72;
639          register object V62;          register object V73;
640          V60= cdr(base[2]);          V71= cdr(base[2]);
641          V61= small_fixnum(0);          V72= small_fixnum(0);
642          V62= Cnil;          V73= Cnil;
643          goto T262;          goto T262;
644  T262:;  T262:;
645          if(((V60))!=Cnil){          if(((V71))!=Cnil){
646          goto T263;}          goto T263;}
647          V59= reverse((V62));          V70= reverse((V73));
648          goto T259;          goto T259;
649          goto T263;          goto T263;
650  T263:;  T263:;
651          {register object V63;          {register object V74;
652          V63= list(3,VV[24],(V61),car((V60)));          V74= list(3,VV[24],(V72),car((V71)));
653          V62= make_cons((V63),(V62));}          V73= make_cons((V74),(V73));}
654          V60= cdr((V60));          V71= cdr((V71));
655          V61= one_plus((V61));          V72= one_plus((V72));
656          goto T262;}          goto T262;}
657          goto T259;          goto T259;
658  T259:;  T259:;
659          base[3]= listA(3,VV[21],/* INLINE-ARGS */V58,V59);          base[3]= listA(3,VV[21],/* INLINE-ARGS */V69,V70);
660          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
661          return;          return;
662  }  }
663  /*      function definition for DBL     */  /*      local entry for function DBL    */
664    
665  static void L8()  static object LI8()
666  {register object *base=vs_base;  
667          register object *sup=base+VM8; VC8  {        VMB8 VMS8 VMV8
         vs_reserve(VM8);  
         check_arg(0);  
         vs_top=sup;  
668          goto TTL;          goto TTL;
669  TTL:;  TTL:;
670          base[0]= Cnil;          {object V75 = (VFUN_NARGS=2,(*(LnkLI122))(Cnil,Cnil));
671          base[1]= Cnil;          VMR8(V75)}
672          vs_top=(vs_base=base+0)+2;          return Cnil;
         (void) (*Lnk122)();  
         return;  
673  }  }
674  /*      function definition for MAKE-INSTREAM   */  /*      local entry for function MAKE-INSTREAM  */
675    
676  static void L9()  static object LI9(object first,...)
677  {register object *base=vs_base;  {      
678          register object *sup=base+VM9; VC9          va_list ap;
679          vs_reserve(VM9);          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
680          {object V64;          {object V76;
681          object V65;          object V77;
682          object V66;          object V78;
683          parse_key(vs_base,FALSE,FALSE,3,VV[27],VV[37],VV[28]);          va_start(ap,first);
684          vs_top=sup;          narg= narg - 0;
685          V64=(base[0]);          {
686          if(base[4]==Cnil){          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI9key,first,ap);
687          V65= small_fixnum(0);          V76=(Vcs[0]);
688          }else{          V77=(Vcs[1]);
689          V65=(base[1]);}          V78=(Vcs[2]);
690          V66=(base[2]);          base[0]= VV[25];
691          base[6]= VV[25];          base[1]= (V76);
692          base[7]= (V64);          base[2]= (V77);
693          base[8]= (V65);          base[3]= (V78);
694          base[9]= (V66);          vs_top=(vs_base=base+0)+4;
         vs_top=(vs_base=base+6)+4;  
695          siLmake_structure();          siLmake_structure();
         return;  
         }  
 }  
 /*      function definition for CLEANUP */  
   
 static void L10()  
 {register object *base=vs_base;  
         register object *sup=base+VM10; VC10  
         vs_reserve(VM10);  
         check_arg(0);  
696          vs_top=sup;          vs_top=sup;
697          goto TTL;          {object V79 = vs_base[0];
698  TTL:;          VMR9(V79)}
699          {register object V67;          va_end(ap);
700          register object V68;          base[0]=base[0];
701          V67= symbol_value(VV[26]);          return Cnil;}
702          V68= car((V67));          }}
703          goto T284;  /*      local entry for function CLEANUP        */
704  T284:;  
705          if(!(endp_prop((V67)))){  static object LI10()
706          goto T285;}  
707          base[1]= Cnil;  {        VMB10 VMS10 VMV10
708          vs_top=(vs_base=base+1)+1;          goto TTL;
709          return;  TTL:;
710          goto T285;          {register object V80;
711  T285:;          register object V81;
712          base[1]= structure_ref((V68),VV[25],0);          V80= symbol_value(VV[26]);
713            V81= car((V80));
714            goto T281;
715    T281:;
716            if(!(endp_prop((V80)))){
717            goto T282;}
718            {object V82 = Cnil;
719            VMR10(V82)}
720            goto T282;
721    T282:;
722            base[1]= structure_ref((V81),VV[25],0);
723          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
724          (void) (*Lnk123)();          (void) (*Lnk124)();
725          vs_top=sup;          vs_top=sup;
726          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
727          goto T289;}          goto T286;}
728          setq(VV[26],(VFUN_NARGS=2,(*(LnkLI124))((V68),symbol_value(VV[26]))));          setq(VV[26],(VFUN_NARGS=2,(*(LnkLI125))((V81),symbol_value(VV[26]))));
729          goto T289;          goto T286;
730  T289:;  T286:;
731          V67= cdr((V67));          V80= cdr((V80));
732          V68= car((V67));          V81= car((V80));
733          goto T284;}          goto T281;}
734            base[0]=base[0];
735            return Cnil;
736  }  }
737  /*      function definition for GET-INSTREAM    */  /*      local entry for function GET-INSTREAM   */
738    
739  static void L11()  static object LI11(V84)
740  {register object *base=vs_base;  
741          register object *sup=base+VM11; VC11  register object V84;
742          vs_reserve(VM11);  {        VMB11 VMS11 VMV11
         {register object V69;  
         check_arg(1);  
         V69=(base[0]);  
         vs_top=sup;  
743          goto TTL;          goto TTL;
744  TTL:;{object V70;  TTL:;{object V85;
745          {register object V71;          {register object V86;
746          register object V72;          register object V87;
747          V71= symbol_value(VV[26]);          V86= symbol_value(VV[26]);
748          V72= car((V71));          V87= car((V86));
749          goto T304;          goto T301;
750  T304:;  T301:;
751          if(!(endp_prop((V71)))){          if(!(endp_prop((V86)))){
752          goto T305;}          goto T302;}
753          V70= Cnil;          V85= Cnil;
754          goto T300;          goto T297;
755          goto T305;          goto T302;
756  T305:;  T302:;
757          V73= structure_ref((V72),VV[25],0);          V88= structure_ref((V87),VV[25],0);
758          if(!(((V69))==(/* INLINE-ARGS */V73))){          if(!(((V84))==(/* INLINE-ARGS */V88))){
759          goto T309;}          goto T306;}
760          V70= (V72);          V85= (V87);
761          goto T300;          goto T297;
762          goto T309;          goto T306;
763  T309:;  T306:;
764          V71= cdr((V71));          V86= cdr((V86));
765          V72= car((V71));          V87= car((V86));
766          goto T304;}          goto T301;}
767          goto T300;          goto T297;
768  T300:;  T297:;
769          if(V70==Cnil)goto T299;          if(V85==Cnil)goto T296;
770          base[1]= V70;          {object V89 = V85;
771          vs_top=(vs_base=base+1)+1;          VMR11(V89)}
772          return;          goto T296;
773          goto T299;  T296:;}
774  T299:;}          base[0]= (V84);
775          base[1]= VV[27];          vs_top=(vs_base=base+0)+1;
         base[2]= (V69);  
         base[3]= VV[28];  
         base[5]= (V69);  
         vs_top=(vs_base=base+5)+1;  
776          Lstreamp();          Lstreamp();
777          vs_top=sup;          vs_top=sup;
778          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
779          goto T324;}          goto T317;}
780          base[5]= (V69);          base[0]= (V84);
781          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+0)+1;
782          (void) (*Lnk125)();          (void) (*Lnk127)();
         vs_top=sup;  
         base[4]= vs_base[0];  
         goto T322;  
         goto T324;  
 T324:;  
         base[4]= Cnil;  
         goto T322;  
 T322:;  
         vs_top=(vs_base=base+1)+4;  
         (void) (*Lnk126)();  
783          vs_top=sup;          vs_top=sup;
784          V74= vs_base[0];          V90= vs_base[0];
785          setq(VV[26],make_cons(V74,symbol_value(VV[26])));          goto T315;
786          base[1]= car(symbol_value(VV[26]));          goto T317;
787          vs_top=(vs_base=base+1)+1;  T317:;
788          return;          V90= Cnil;
789          }          goto T315;
790    T315:;
791            V91= (VFUN_NARGS=4,(*(LnkLI126))(VV[27],(V84),VV[28],V90));
792            setq(VV[26],make_cons(/* INLINE-ARGS */V91,symbol_value(VV[26])));
793            {object V92 = car(symbol_value(VV[26]));
794            VMR11(V92)}
795            base[0]=base[0];
796            return Cnil;
797  }  }
798  /*      function definition for NEWLINE */  /*      function definition for NEWLINE */
799    
# Line 825  static void L12() Line 801  static void L12()
801  {register object *base=vs_base;  {register object *base=vs_base;
802          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
803          vs_reserve(VM12);          vs_reserve(VM12);
804          {object V75;          {object V93;
805          object V76;          object V94;
806          check_arg(2);          check_arg(2);
807          V75=(base[0]);          V93=(base[0]);
808          V76=(base[1]);          V94=(base[1]);
809          vs_top=sup;          vs_top=sup;
810          goto TTL;          goto TTL;
811  TTL:;  TTL:;
812          {object V77;          {object V95;
813          base[2]= (V75);          V95= (*(LnkLI128))((V93));
814          vs_top=(vs_base=base+2)+1;          {long V96= fix(structure_ref((V95),VV[25],1));
815          (void) (*Lnk127)();          V97 = make_fixnum((long)(1)+(/* INLINE-ARGS */V96));
816          vs_top=sup;          (void)(structure_set((V95),VV[25],1,V97));}}
         V77= vs_base[0];  
         {long V78= fix(structure_ref((V77),VV[25],1));  
         V79 = make_fixnum((long)(1)+(/* INLINE-ARGS */V78));  
         (void)(structure_set((V77),VV[25],1,V79));}}  
817          base[2]= Cnil;          base[2]= Cnil;
818          base[3]= (V75);          base[3]= (V93);
819          base[4]= Cnil;          base[4]= Cnil;
820          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
821          Lpeek_char();          Lpeek_char();
822          vs_top=sup;          vs_top=sup;
823          V80= vs_base[0];          V98= vs_base[0];
824          if(!(eql(V80,VV[30]))){          if(!(eql(V98,VV[30]))){
825          goto T335;}          goto T327;}
826          setq(VV[29],VV[31]);          setq(VV[29],VV[31]);
827          goto T333;          goto T325;
828          goto T335;          goto T327;
829  T335:;  T327:;
830          setq(VV[29],Ct);          setq(VV[29],Ct);
831          goto T333;          goto T325;
832  T333:;  T325:;
833          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
834          vs_base[0]=Cnil;          vs_base[0]=Cnil;
835          return;          return;
836          }          }
837  }  }
838  /*      function definition for QUOTATION-READER        */  /*      local entry for function QUOTATION-READER       */
839    
840  static void L13()  static object LI13(V101,V102)
841  {register object *base=vs_base;  
842          register object *sup=base+VM13; VC13  object V101;object V102;
843          vs_reserve(VM13);  {        VMB13 VMS13 VMV13
         {object V81;  
         object V82;  
         check_arg(2);  
         V81=(base[0]);  
         V82=(base[1]);  
         vs_top=sup;  
844          goto TTL;          goto TTL;
845  TTL:;  TTL:;
846          {object V83;          {object V103;
847          object V84;          object V104;
848          V83= (          V103= (
849          (type_of(symbol_value(VV[32])) == t_sfun ?(*((symbol_value(VV[32]))->sfn.sfn_self)):          (type_of(symbol_value(VV[32])) == t_sfun ?(*((symbol_value(VV[32]))->sfn.sfn_self)):
850          (fcall.fun=(symbol_value(VV[32])),fcall.argd=2,fcalln))((V81),(V82)));          (fcall.fun=(symbol_value(VV[32])),fcall.argd=2,fcalln))((V101),(V102)));
851          base[2]= (V81);          V104= (*(LnkLI128))((V101));
852          vs_top=(vs_base=base+2)+1;          {object V106;
853          (void) (*Lnk127)();          V107= structure_ref(V104,VV[25],1);
854          vs_top=sup;          V108= (VFUN_NARGS=2,(*(LnkLI129))(VV[33],(V103)));
855          V84= vs_base[0];          V106= number_plus(/* INLINE-ARGS */V107,/* INLINE-ARGS */V108);
856          {object V86;          (void)(structure_set(V104,VV[25],1,(V106)));}
857          V87= structure_ref(V84,VV[25],1);          {object V109 = (V103);
858          V88= (VFUN_NARGS=2,(*(LnkLI128))(VV[33],(V83)));          VMR13(V109)}}
859          V86= number_plus(/* INLINE-ARGS */V87,/* INLINE-ARGS */V88);          base[0]=base[0];
860          (void)(structure_set(V84,VV[25],1,(V86)));}          return Cnil;
         base[2]= (V83);  
         vs_top=(vs_base=base+2)+1;  
         return;}  
         }  
861  }  }
862  /*      function definition for NEW-SEMI-COLON-READER   */  /*      function definition for NEW-SEMI-COLON-READER   */
863    
# Line 904  static void L14() Line 866  static void L14()
866          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
867          vs_reserve(VM14);          vs_reserve(VM14);
868          bds_check;          bds_check;
869          {register object V89;          {register object V110;
870          object V90;          object V111;
871          check_arg(2);          check_arg(2);
872          V89=(base[0]);          V110=(base[0]);
873          V90=(base[1]);          V111=(base[1]);
874          vs_top=sup;          vs_top=sup;
875          goto TTL;          goto TTL;
876  TTL:;  TTL:;
877          {register object V91;          {register object V112;
878          object V92;          object V113;
879          base[2]= (V89);          V112= (*(LnkLI128))((V110));
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk127)();  
         vs_top=sup;  
         V91= vs_base[0];  
880          base[2]= Cnil;          base[2]= Cnil;
881          base[3]= (V89);          base[3]= (V110);
882          base[4]= Cnil;          base[4]= Cnil;
883          base[5]= Cnil;          base[5]= Cnil;
884          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
885          Lpeek_char();          Lpeek_char();
886          vs_top=sup;          vs_top=sup;
887          V92= vs_base[0];          V113= vs_base[0];
888          {long V93= fix(structure_ref((V91),VV[25],1));          {long V114= fix(structure_ref((V112),VV[25],1));
889          V94 = make_fixnum((long)(1)+(/* INLINE-ARGS */V93));          V115 = make_fixnum((long)(1)+(/* INLINE-ARGS */V114));
890          (void)(structure_set((V91),VV[25],1,V94));}          (void)(structure_set((V112),VV[25],1,V115));}
891          if(!(eql((V92),VV[34]))){          if(!(eql((V113),VV[34]))){
892          goto T356;}          goto T346;}
893          base[2]= (V89);          base[2]= (V110);
894          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
895          Lread_char();          Lread_char();
896          vs_top=sup;          vs_top=sup;
897          {register object V95;          {register object V116;
898          bds_bind(VV[35],symbol_value(VV[36]));          bds_bind(VV[35],symbol_value(VV[36]));
899          base[5]= (V89);          base[5]= (V110);
900          base[6]= Cnil;          base[6]= Cnil;
901          base[7]= Cnil;          base[7]= Cnil;
902          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
# Line 946  TTL:; Line 904  TTL:;
904          vs_top=sup;          vs_top=sup;
905          base[4]= vs_base[0];          base[4]= vs_base[0];
906          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
907          (void) (*Lnk129)();          (void) (*Lnk130)();
908          vs_top=sup;          vs_top=sup;
909          V95= vs_base[0];          V116= vs_base[0];
910          if(!(type_of((V95))==t_cons)){          if(!(type_of((V116))==t_cons)){
911          bds_unwind1;          bds_unwind1;
912          goto T354;}          goto T344;}
913          if(!((car((V95)))==(VV[37]))){          if(!((car((V116)))==(VV[37]))){
914          bds_unwind1;          bds_unwind1;
915          goto T354;}          goto T344;}
916          if(!(type_of(cadr((V95)))==t_string)){          if(!(type_of(cadr((V116)))==t_string)){
917          bds_unwind1;          bds_unwind1;
918          goto T354;}          goto T344;}
919          if(!(type_of(caddr((V95)))==t_fixnum)){          if(!(type_of(caddr((V116)))==t_fixnum)){
920          bds_unwind1;          bds_unwind1;
921          goto T354;}          goto T344;}
922          (void)(structure_set((V91),VV[25],2,cadr((V95))));          (void)(structure_set((V112),VV[25],2,cadr((V116))));
923          V96= structure_set((V91),VV[25],1,caddr((V95)));          V117= structure_set((V112),VV[25],1,caddr((V116)));
924          bds_unwind1;          bds_unwind1;
925          goto T354;}          goto T344;}
926          goto T356;          goto T346;
927  T356:;  T346:;
928          (void)((          (void)((
929          (type_of(symbol_value(VV[38])) == t_sfun ?(*((symbol_value(VV[38]))->sfn.sfn_self)):          (type_of(symbol_value(VV[38])) == t_sfun ?(*((symbol_value(VV[38]))->sfn.sfn_self)):
930          (fcall.fun=(symbol_value(VV[38])),fcall.argd=2,fcalln))((V89),(V90))));          (fcall.fun=(symbol_value(VV[38])),fcall.argd=2,fcalln))((V110),(V111))));
931          goto T354;          goto T344;
932  T354:;  T344:;
933          base[2]= Cnil;          base[2]= Cnil;
934          base[3]= (V89);          base[3]= (V110);
935          base[4]= Cnil;          base[4]= Cnil;
936          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
937          Lpeek_char();          Lpeek_char();
938          vs_top=sup;          vs_top=sup;
939          V97= vs_base[0];          V118= vs_base[0];
940          if(!(eql(V97,VV[30]))){          if(!(eql(V118,VV[30]))){
941          goto T377;}          goto T367;}
942          setq(VV[29],VV[31]);          setq(VV[29],VV[31]);
943          goto T375;          goto T365;
944          goto T377;          goto T367;
945  T377:;  T367:;
946          setq(VV[29],Ct);          setq(VV[29],Ct);
947          goto T375;          goto T365;
948  T375:;  T365:;
949          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
950          vs_base[0]=Cnil;          vs_base[0]=Cnil;
951          return;}          return;}
952          }          }
953  }  }
954  /*      function definition for SETUP-LINEINFO  */  /*      local entry for function SETUP-LINEINFO */
955    
956  static void L15()  static object LI15()
957  {register object *base=vs_base;  
958          register object *sup=base+VM15; VC15  {        VMB15 VMS15 VMV15
         vs_reserve(VM15);  
         check_arg(0);  
         vs_top=sup;  
959          goto TTL;          goto TTL;
960  TTL:;  TTL:;
961          base[0]= VV[33];          base[0]= VV[33];
962          base[1]= symbol_function(VV[130]);          base[1]= symbol_function(VV[131]);
963          base[2]= Cnil;          base[2]= Cnil;
964          base[3]= symbol_value(VV[39]);          base[3]= symbol_value(VV[39]);
965          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
966          Lset_macro_character();          Lset_macro_character();
967          vs_top=sup;          vs_top=sup;
968          base[0]= VV[40];          base[0]= VV[40];
969          base[1]= symbol_function(VV[131]);          base[1]= symbol_function(VV[132]);
970          base[2]= Cnil;          base[2]= Cnil;
971          base[3]= symbol_value(VV[39]);          base[3]= symbol_value(VV[39]);
972          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
# Line 1030  TTL:; Line 985  TTL:;
985          base[3]= symbol_value(VV[39]);          base[3]= symbol_value(VV[39]);
986          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
987          Lset_macro_character();          Lset_macro_character();
988          return;          vs_top=sup;
989            {object V119 = vs_base[0];
990            VMR15(V119)}
991            base[0]=base[0];
992            return Cnil;
993  }  }
994  /*      function definition for NLOAD   */  /*      function definition for NLOAD   */
995    
# Line 1039  static void L16() Line 998  static void L16()
998          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
999          vs_reserve(VM16);          vs_reserve(VM16);
1000          bds_check;          bds_check;
1001          {object V98;          {object V120;
1002          object V99;          object V121;
1003          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
1004          V98=(base[0]);          V120=(base[0]);
1005          vs_base=vs_base+1;          vs_base=vs_base+1;
1006          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1007          {object *p=vs_top;          {object *p=vs_top;
1008           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1009          V99=(base[1]);          V121=(base[1]);
1010          vs_top=sup;          vs_top=sup;
1011          base[2]= symbol_value(VV[44]);          base[2]= symbol_value(VV[44]);
1012          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1013          Lclrhash();          Lclrhash();
1014          vs_top=sup;          vs_top=sup;
1015          vs_base=vs_top;          (void)((*(LnkLI133))());
1016          (void) (*Lnk132)();          base[2]= (V120);
         vs_top=sup;  
         base[2]= (V98);  
1017          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1018          Ltruename();          Ltruename();
1019          vs_top=sup;          vs_top=sup;
1020          V98= vs_base[0];          V120= vs_base[0];
1021          vs_base=vs_top;          (void)((*(LnkLI134))());
         (void) (*Lnk133)();  
         vs_top=sup;  
1022          bds_bind(VV[35],symbol_value(VV[39]));          bds_bind(VV[35],symbol_value(VV[39]));
1023          base[3]=symbol_function(VV[134]);          base[3]=symbol_function(VV[135]);
1024          base[4]= (V98);          base[4]= (V120);
1025          {object V100;          {object V122;
1026          V100= (V99);          V122= (V121);
1027           vs_top=base+5;           vs_top=base+5;
1028           while(!endp(V100))           while(!endp(V122))
1029           {vs_push(car(V100));V100=cdr(V100);}           {vs_push(car(V122));V122=cdr(V122);}
1030          vs_base=base+4;}          vs_base=base+4;}
1031          (void) (*Lnk134)();          (void) (*Lnk135)();
1032          bds_unwind1;          bds_unwind1;
1033          return;          return;
1034          }          }
1035  }  }
1036  /*      function definition for LEFT-PARENTHESIS-READER */  /*      local entry for function LEFT-PARENTHESIS-READER        */
1037    
1038  static void L17()  static object LI17(V125,V126)
1039  {register object *base=vs_base;  
1040          register object *sup=base+VM17; VC17  object V125;object V126;
1041          vs_reserve(VM17);  {        VMB17 VMS17 VMV17
         {object V101;  
         object V102;  
         check_arg(2);  
         V101=(base[0]);  
         V102=(base[1]);  
         vs_top=sup;  
1042          goto TTL;          goto TTL;
1043  TTL:;  TTL:;
1044          {object V103;          {object V127;
1045          register object V104;          register object V128;
1046          V103= Cnil;          V127= Cnil;
1047          V104= symbol_value(VV[29]);          V128= symbol_value(VV[29]);
1048          if(!((symbol_value(VV[29]))==(Ct))){          if(!((symbol_value(VV[29]))==(Ct))){
1049          goto T413;}          goto T403;}
1050          setq(VV[29],Cnil);          setq(VV[29],Cnil);
1051          goto T413;          goto T403;
1052  T413:;  T403:;
1053          if(((V104))==Cnil){          if(((V128))==Cnil){
1054          goto T417;}          goto T407;}
1055          base[2]= (V101);          V128= (*(LnkLI128))((V125));
1056          vs_top=(vs_base=base+2)+1;          V127= structure_ref((V128),VV[25],1);
1057          (void) (*Lnk127)();          goto T407;
1058          vs_top=sup;  T407:;
1059          V104= vs_base[0];          {object V129;
1060          V103= structure_ref((V104),VV[25],1);          V129= (
         goto T417;  
 T417:;  
         {object V105;  
         V105= (  
1061          (type_of(symbol_value(VV[45])) == t_sfun ?(*((symbol_value(VV[45]))->sfn.sfn_self)):          (type_of(symbol_value(VV[45])) == t_sfun ?(*((symbol_value(VV[45]))->sfn.sfn_self)):
1062          (fcall.fun=(symbol_value(VV[45])),fcall.argd=2,fcalln))((V101),(V102)));          (fcall.fun=(symbol_value(VV[45])),fcall.argd=2,fcalln))((V125),(V126)));
1063          if(((V104))==Cnil){          if(((V128))==Cnil){
1064          goto T425;}          goto T414;}
1065          {object V107;          {object V131;
1066          object V108;          object V132;
1067          V107= symbol_value(VV[44]);          V131= symbol_value(VV[44]);
1068          base[3]= (V104);          base[1]= (V128);
1069          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+1)+1;
1070          (void) (*Lnk135)();          (void) (*Lnk136)();
1071          vs_top=sup;          vs_top=sup;
1072          V109= vs_base[0];          V133= vs_base[0];
1073          V108= make_cons(V109,(V103));          V132= make_cons(V133,(V127));
1074          base[3]= V105;          base[1]= V129;
1075          base[4]= (V107);          base[2]= (V131);
1076          base[5]= (V108);          base[3]= (V132);
1077          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+1)+3;
1078          siLhash_set();          siLhash_set();
1079          vs_top=sup;}          vs_top=sup;}
1080          goto T425;          goto T414;
1081  T425:;  T414:;
1082          base[2]= (V105);          {object V134 = (V129);
1083          vs_top=(vs_base=base+2)+1;          VMR17(V134)}}}
1084          return;}}          base[0]=base[0];
1085          }          return Cnil;
1086  }  }
1087  /*      function definition for WALK-THROUGH    */  /*      local entry for function WALK-THROUGH   */
1088    
1089  static void L18()  static object LI18(V136)
1090  {register object *base=vs_base;  
1091          register object *sup=base+VM18; VC18  register object V136;
1092          vs_reserve(VM18);  {        VMB18 VMS18 VMV18
         {register object V110;  
         check_arg(1);  
         V110=(base[0]);  
         vs_top=sup;  
1093          goto TTL;          goto TTL;
1094  TTL:;  TTL:;
1095          {register object V111;          {register object V137;
1096          V111= Cnil;          V137= Cnil;
1097          goto T437;          goto T426;
1098  T437:;  T426:;
1099          if(!(type_of((V110))==t_cons)){          if(!(type_of((V136))==t_cons)){
1100          goto T438;}          goto T427;}
1101          base[1]= (V110);          base[0]= (V136);
1102          base[2]= symbol_value(VV[44]);          base[1]= symbol_value(VV[44]);
1103          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+0)+2;
1104          Lgethash();          Lgethash();
1105          vs_top=sup;          vs_top=sup;
1106          V111= vs_base[0];          V137= vs_base[0];
1107          if(((V111))==Cnil){          if(((V137))==Cnil){
1108          goto T441;}          goto T430;}
1109          if(!(type_of(car((V110)))==t_cons)){          if(!(type_of(car((V136)))==t_cons)){
1110          goto T448;}          goto T437;}
1111          if((caar((V110)))==(VV[46])){          if((caar((V136)))==(VV[46])){
1112          goto T448;}          goto T437;}
1113          base[1]= (V110);          base[0]= (V136);
1114          base[2]= symbol_value(VV[44]);          base[1]= symbol_value(VV[44]);
1115          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+0)+2;
1116          Lremhash();          Lremhash();
1117          vs_top=sup;          vs_top=sup;
1118          {register object V112;          {register object V138;
1119          register object V113;          register object V139;
1120          register object V114;          register object V140;
1121          V112= car((V110));          V138= car((V136));
1122          V113= symbol_value(VV[44]);          V139= symbol_value(VV[44]);
1123          V114= (V111);          V140= (V137);
1124          base[2]= (V112);          base[1]= (V138);
1125          base[3]= (V113);          base[2]= (V139);
1126          base[4]= (V114);          base[3]= (V140);
1127          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+1)+3;
1128          siLhash_set();          siLhash_set();
1129          vs_top=sup;          vs_top=sup;
1130          goto T441;}          goto T430;}
         goto T448;  
 T448:;  
         V115= make_cons((V111),(V110));  
         (void)((VFUN_NARGS=2,(*(LnkLI136))(/* INLINE-ARGS */V115,symbol_value(VV[47]))));  
         goto T441;  
 T441:;  
         base[1]= car((V110));  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk137)();  
         vs_top=sup;  
         V110= cdr((V110));  
1131          goto T437;          goto T437;
1132          goto T438;  T437:;
1133  T438:;          V141= make_cons((V137),(V136));
1134          base[1]= Cnil;          (void)((VFUN_NARGS=2,(*(LnkLI137))(/* INLINE-ARGS */V141,symbol_value(VV[47]))));
1135          vs_top=(vs_base=base+1)+1;          goto T430;
1136          return;}  T430:;
1137          }          (void)((*(LnkLI138))(car((V136))));
1138            V136= cdr((V136));
1139            goto T426;
1140            goto T427;
1141    T427:;
1142            {object V142 = Cnil;
1143            VMR18(V142)}}
1144            base[0]=base[0];
1145            return Cnil;
1146  }  }
1147  /*      function definition for COMPILER-DEF-HOOK       */  /*      local entry for function COMPILER-DEF-HOOK      */
1148    
1149  static void L19()  static object LI19(V145,V146)
1150  {register object *base=vs_base;  
1151          register object *sup=base+VM19; VC19  object V145;object V146;
1152          vs_reserve(VM19);  {        VMB19 VMS19 VMV19
         {object V116;  
         object V117;  
         check_arg(2);  
         V116=(base[0]);  
         V117=(base[1]);  
         vs_top=sup;  
1153          goto TTL;          goto TTL;
1154  TTL:;  TTL:;
1155          {object V118;          {object V147;
1156          register long V119;          register long V148;
1157          long V120;          long V149;
1158          V118= symbol_value(VV[47]);          V147= symbol_value(VV[47]);
1159          V119= 2147483647;          V148= 2147483647;
1160          V120= -1;          V149= -1;
1161          if(!(type_of((V117))!=t_cons)){          if(!(type_of((V146))!=t_cons)){
1162          goto T469;}          goto T457;}
1163          base[2]= remprop((V116),VV[49]);          {object V150 = remprop((V145),VV[49]);
1164          vs_top=(vs_base=base+2)+1;          VMR19(V150)}
1165          return;          goto T457;
1166          goto T469;  T457:;
 T469:;  
1167          if(!((symbol_value(VV[35]))==(symbol_value(VV[39])))){          if(!((symbol_value(VV[35]))==(symbol_value(VV[39])))){
1168          goto T472;}          goto T460;}
1169          base[2]= symbol_value(VV[47]);          base[0]= symbol_value(VV[47]);
1170          base[3]= small_fixnum(0);          base[1]= small_fixnum(0);
1171          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+0)+2;
1172          siLfill_pointer_set();          siLfill_pointer_set();
1173          vs_top=sup;          vs_top=sup;
1174          base[2]= (V117);          (void)((*(LnkLI138))((V146)));
1175          vs_top=(vs_base=base+2)+1;          {object V151;
1176          (void) (*Lnk137)();          register long V152;
1177          vs_top=sup;          V151= make_fixnum((long)length((V147)));
1178          {object V121;          V152= 0;
1179          register long V122;          goto T470;
1180          V121= make_fixnum((long)length((V118)));  T470:;
1181          V122= 0;          V153 = make_fixnum(V152);
1182          goto T483;          if(!(number_compare(V153,(V151))>=0)){
1183  T483:;          goto T471;}
1184          V123 = make_fixnum(V122);          goto T466;
1185          if(!(number_compare(V123,(V121))>=0)){          goto T471;
1186          goto T484;}  T471:;
1187          goto T479;          {register long V154;
1188          goto T484;          V155= aref1((V147),V152);
1189  T484:;          V154= fix(cdar(/* INLINE-ARGS */V155));
1190          {register long V124;          if(!((V154)>(V149))){
1191          V125= aref1((V118),V122);          goto T477;}
1192          V124= fix(cdar(/* INLINE-ARGS */V125));          V149= V154;
1193          if(!((V124)>(V120))){          goto T477;
1194          goto T490;}  T477:;
1195          V120= V124;          if(!((V154)<(V148))){
1196          goto T490;          goto T475;}
1197  T490:;          V148= V154;}
1198          if(!((V124)<(V119))){          goto T475;
1199    T475:;
1200            V152= (long)(V152)+1;
1201            goto T470;}
1202            goto T466;
1203    T466:;
1204            if(!(((long)length(symbol_value(VV[47])))>(0))){
1205          goto T488;}          goto T488;}
1206          V119= V124;}          {object V156;
1207            object V157;
1208            V158 = make_fixnum((long)((long)(V149)-(V148))+(2));
1209            V156= (VFUN_NARGS=3,(*(LnkLI139))(V158,VV[50],VV[51]));
1210            V157= get((V145),VV[49],Cnil);
1211            V159= aref1((V147),0);
1212            V160= caar(/* INLINE-ARGS */V159);
1213            V161 = make_fixnum(V148);
1214            V162= make_cons(/* INLINE-ARGS */V160,V161);
1215            (void)(aset1((V156),0,/* INLINE-ARGS */V162));
1216            V148= (long)(V148)-(1);
1217            {object V163;
1218            register object V164;
1219            V163= make_fixnum((long)length((V147)));
1220            V164= small_fixnum(0);
1221            goto T499;
1222    T499:;
1223            if(!(number_compare((V164),(V163))>=0)){
1224            goto T500;}
1225            goto T495;
1226            goto T500;
1227    T500:;
1228            {object V165;
1229            V165= aref1((V147),fixint((V164)));
1230            (void)(aset1((V156),(long)(fix(cdar((V165))))-(V148),cdr((V165))));}
1231            V164= one_plus((V164));
1232            goto T499;}
1233            goto T495;
1234    T495:;
1235            (void)(sputprop((V145),VV[49],(V156)));
1236            if(((V157))==Cnil){
1237            goto T511;}
1238            {object V166;
1239            object V167;
1240            V166= get((V145),VV[52],Cnil);
1241            V168= aref1((V157),0);
1242            V167= cdr(/* INLINE-ARGS */V168);
1243            {register object V169;
1244            object V170;
1245            V169= (V166);
1246            V170= car((V169));
1247            goto T518;
1248    T518:;
1249            if(!(endp_prop((V169)))){
1250            goto T519;}
1251            {object V171 = Cnil;
1252            VMR19(V171)}
1253            goto T519;
1254    T519:;
1255            {object V172;
1256            object V173;
1257            object V174;
1258            V172= aref1(symbol_value(VV[53]),fixint((V170)));
1259            {object V175= cdr(cdr(cdr((V172))));
1260            if((type_of(V175)!=t_cons) && ((V172)!= Cnil))
1261             FEwrong_type_argument(Scons,V175);
1262            V173= (V175->c.c_car);}
1263            {object V177= cdr(cdr((V172)));
1264            if((type_of(V177)!=t_cons) && ((V172)!= Cnil))
1265             FEwrong_type_argument(Scons,V177);
1266            V176= fix((V177->c.c_car));}
1267            V174= make_fixnum((long)(V176)-(fix((V167))));{object V178;
1268            V178= symbol_value(VV[53]);
1269            V179= (*(LnkLI140))((V173),(V156),(V174));
1270            (void)(aset1(V178,fixint((V170)),/* INLINE-ARGS */V179));}}
1271            V169= cdr((V169));
1272            V170= car((V169));
1273            goto T518;}}
1274            goto T511;
1275    T511:;
1276            {object V180 = Cnil;
1277            VMR19(V180)}}
1278          goto T488;          goto T488;
1279  T488:;  T488:;
1280          V122= (long)(V122)+1;          {object V181;
1281          goto T483;}          V181= get((V145),VV[52],Cnil);
1282          goto T479;          {object V182 = (*(LnkLI141))((V181),VV[54]);
1283  T479:;          VMR19(V182)}}
1284          if(!(((long)length(symbol_value(VV[47])))>(0))){          goto T460;
1285          goto T501;}  T460:;
1286          {object V126;          {object V183 = Cnil;
1287          object V127;          VMR19(V183)}}
1288          V128 = make_fixnum((long)((long)(V120)-(V119))+(2));          base[0]=base[0];
1289          V126= (VFUN_NARGS=3,(*(LnkLI138))(V128,VV[50],VV[51]));          return Cnil;
         V127= get((V116),VV[49],Cnil);  
         V129= aref1((V118),0);  
         V130= caar(/* INLINE-ARGS */V129);  
         V131 = make_fixnum(V119);  
         V132= make_cons(/* INLINE-ARGS */V130,V131);  
         (void)(aset1((V126),0,/* INLINE-ARGS */V132));  
         V119= (long)(V119)-(1);  
         {object V133;  
         register object V134;  
         V133= make_fixnum((long)length((V118)));  
         V134= small_fixnum(0);  
         goto T512;  
 T512:;  
         if(!(number_compare((V134),(V133))>=0)){  
         goto T513;}  
         goto T508;  
         goto T513;  
 T513:;  
         {object V135;  
         V135= aref1((V118),fixint((V134)));  
         (void)(aset1((V126),(long)(fix(cdar((V135))))-(V119),cdr((V135))));}  
         V134= one_plus((V134));  
         goto T512;}  
         goto T508;  
 T508:;  
         (void)(sputprop((V116),VV[49],(V126)));  
         if(((V127))==Cnil){  
         goto T524;}  
         {object V136;  
         object V137;  
         V136= get((V116),VV[52],Cnil);  
         V138= aref1((V127),0);  
         V137= cdr(/* INLINE-ARGS */V138);  
         {register object V139;  
         object V140;  
         V139= (V136);  
         V140= car((V139));  
         goto T531;  
 T531:;  
         if(!(endp_prop((V139)))){  
         goto T532;}  
         base[3]= Cnil;  
         vs_top=(vs_base=base+3)+1;  
         return;  
         goto T532;  
 T532:;  
         {object V141;  
         object V142;  
         object V143;  
         V141= aref1(symbol_value(VV[53]),fixint((V140)));  
         {object V144= cdr(cdr(cdr((V141))));  
         if((type_of(V144)!=t_cons) && ((V141)!= Cnil))  
          FEwrong_type_argument(Scons,V144);  
         V142= (V144->c.c_car);}  
         {object V146= cdr(cdr((V141)));  
         if((type_of(V146)!=t_cons) && ((V141)!= Cnil))  
          FEwrong_type_argument(Scons,V146);  
         V145= fix((V146->c.c_car));}  
         V143= make_fixnum((long)(V145)-(fix((V137))));{object V147;  
         V147= symbol_value(VV[53]);  
         base[6]= (V142);  
         base[7]= (V126);  
         base[8]= (V143);  
         vs_top=(vs_base=base+6)+3;  
         (void) (*Lnk139)();  
         vs_top=sup;  
         V148= vs_base[0];  
         (void)(aset1(V147,fixint((V140)),V148));}}  
         V139= cdr((V139));  
         V140= car((V139));  
         goto T531;}}  
         goto T524;  
 T524:;  
         base[2]= Cnil;  
         vs_top=(vs_base=base+2)+1;  
         return;}  
         goto T501;  
 T501:;  
         {object V149;  
         V149= get((V116),VV[52],Cnil);  
         base[2]= (V149);  
         base[3]= VV[54];  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk140)();  
         return;}  
         goto T472;  
 T472:;  
         base[2]= Cnil;  
         vs_top=(vs_base=base+2)+1;  
         return;}  
         }  
1290  }  }
1291  /*      function definition for INSTREAM-NAME   */  /*      function definition for INSTREAM-NAME   */
1292    
# Line 1377  static void L20() Line 1294  static void L20()
1294  {register object *base=vs_base;  {register object *base=vs_base;
1295          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1296          vs_reserve(VM20);          vs_reserve(VM20);
1297          {object V150;          {object V184;
1298          check_arg(1);          check_arg(1);
1299          V150=(base[0]);          V184=(base[0]);
1300          vs_top=sup;          vs_top=sup;
1301          goto TTL;          goto TTL;
1302  TTL:;{object V151;  TTL:;{object V185;
1303          V151= structure_ref((V150),VV[25],2);          V185= structure_ref((V184),VV[25],2);
1304          if(V151==Cnil)goto T553;          if(V185==Cnil)goto T534;
1305          base[1]= V151;          base[1]= V185;
1306          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1307          return;          return;
1308          goto T553;          goto T534;
1309  T553:;}  T534:;}
1310          base[1]= structure_ref((V150),VV[25],0);          base[1]= structure_ref((V184),VV[25],0);
1311          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1312          (void) (*Lnk125)();          (void) (*Lnk127)();
1313          return;          return;
1314          }          }
1315  }  }
# Line 1424  static void L22() Line 1341  static void L22()
1341          vs_top=(vs_base=old_base)+1;          vs_top=(vs_base=old_base)+1;
1342          vs_base[0]=x;          vs_base[0]=x;
1343  }  }
1344  /*      function definition for FIND-LINE-IN-FUN        */  /*      local entry for function FIND-LINE-IN-FUN       */
1345    
1346  static void L23()  static object LI23(V190,V191,V192,V193)
1347  {register object *base=vs_base;  
1348          register object *sup=base+VM21; VC21  object V190;object V191;register object V192;register object V193;
1349          vs_reserve(VM21);  {        VMB21 VMS21 VMV21
         {object V152;  
         object V153;  
         register object V154;  
         register object V155;  
         check_arg(4);  
         V152=(base[0]);  
         V153=(base[1]);  
         V154=(base[2]);  
         V155=(base[3]);  
         vs_top=sup;  
1350          goto TTL;          goto TTL;
1351  TTL:;  TTL:;
1352          {object V156;          {object V194;
1353          V156= Cnil;          V194= Cnil;
1354          V156= get((V154),VV[49],Cnil);          V194= get((V192),VV[49],Cnil);
1355          if(((V156))==Cnil){          if(((V194))==Cnil){
1356          goto T560;}          goto T541;}
1357          {register object V157;          {register object V195;
1358          V157= (V156);          V195= (V194);
1359          if(((V157))==Cnil){          if(((V195))==Cnil){
1360          goto T563;}          goto T544;}
1361          {object V158;          {object V196;
1362          register object V159;          register object V197;
1363          V158= make_fixnum((long)length((V157)));          V196= make_fixnum((long)length((V195)));
1364          V159= small_fixnum(0);          V197= small_fixnum(0);
1365          goto T568;          goto T549;
1366  T568:;  T549:;
1367          if(!(number_compare((V159),(V158))>=0)){          if(!(number_compare((V197),(V196))>=0)){
1368          goto T569;}          goto T550;}
1369          base[5]= Cnil;          {object V198 = Cnil;
1370          vs_top=(vs_base=base+5)+1;          VMR21(V198)}
1371          return;          goto T550;
1372          goto T569;  T550:;
1373  T569:;          V199= aref1((V195),fixint((V197)));
1374          V160= aref1((V157),fixint((V159)));          if(!(((V190))==(/* INLINE-ARGS */V199))){
1375          if(!(((V152))==(/* INLINE-ARGS */V160))){          goto T554;}
1376          goto T573;}          if(((V193))==Cnil){
1377          if(((V155))==Cnil){          goto T557;}
1378          goto T576;}          {register object V200;
1379          {register object V161;          register object V201;
1380          register object V162;          V200= (V193);
1381          V161= (V155);          V201= number_minus(car((V200)),small_fixnum(1));
1382          V162= number_minus(car((V161)),small_fixnum(1));          if(type_of((V200))!=t_cons)FEwrong_type_argument(Scons,(V200));
1383          if(type_of((V161))!=t_cons)FEwrong_type_argument(Scons,(V161));          ((V200))->c.c_car = (V201);}
1384          ((V161))->c.c_car = (V162);}          if(!((fix(car((V193))))>(0))){
1385          if(!((fix(car((V155))))>(0))){          goto T557;}
1386          goto T576;}          {object V202 = VV[55];
1387          base[5]= VV[55];          VMR21(V202)}
1388          vs_top=(vs_base=base+5)+1;          goto T557;
1389          return;  T557:;
1390          goto T576;          setq(VV[56],(*(LnkLI140))((V192),(V195),(V197)));
1391  T576:;          (void)((VFUN_NARGS=2,(*(LnkLI122))(symbol_value(VV[56]),(V191))));
1392          base[6]= (V154);          {object V203 = VV[55];
1393          base[7]= (V157);          VMR21(V203)}
1394          base[8]= (V159);          goto T554;
1395          vs_top=(vs_base=base+6)+3;  T554:;
1396          (void) (*Lnk139)();          V197= one_plus((V197));
1397          vs_top=sup;          goto T549;}
1398          setq(VV[56],vs_base[0]);          goto T544;
1399          base[5]= symbol_value(VV[56]);  T544:;
1400          base[6]= (V153);          {object V204 = Cnil;
1401          vs_top=(vs_base=base+5)+2;          VMR21(V204)}}
1402          (void) (*Lnk122)();          goto T541;
1403          vs_top=sup;  T541:;
1404          base[5]= VV[55];          {object V205 = Cnil;
1405          vs_top=(vs_base=base+5)+1;          VMR21(V205)}}
1406          return;          base[0]=base[0];
1407          goto T573;          return Cnil;
 T573:;  
         V159= one_plus((V159));  
         goto T568;}  
         goto T563;  
 T563:;  
         base[4]= Cnil;  
         vs_top=(vs_base=base+4)+1;  
         return;}  
         goto T560;  
 T560:;  
         base[4]= Cnil;  
         vs_top=(vs_base=base+4)+1;  
         return;}  
         }  
1408  }  }
1409  /*      function definition for CURRENT-STEP-FUN        */  /*      local entry for function CURRENT-STEP-FUN       */
1410    
1411  static void L24()  static object LI24(object first,...)
1412  {register object *base=vs_base;  {      
1413          register object *sup=base+VM22; VC22          va_list ap;
1414          vs_reserve(VM22);          int narg = VFUN_NARGS; VMB22 VMS22 VMV22
1415          {object V163;          {object V206;
1416          if(vs_top-vs_base>1) too_many_arguments();          va_start(ap,first);
1417          if(vs_base>=vs_top){vs_top=sup;goto T595;}          narg = narg - 0;
1418          V163=(base[0]);          if (narg <= 0) goto T571;
1419          vs_top=sup;          else {
1420          goto T596;          V206= first;}
1421          goto T595;          --narg; goto T572;
1422  T595:;          goto T571;
1423    T571:;
1424          vs_base=vs_top;          vs_base=vs_top;
1425          (void) (*Lnk114)();          (void) (*Lnk114)();
1426          vs_top=sup;          vs_top=sup;
1427          V163= vs_base[0];          V206= vs_base[0];
1428          goto T596;          goto T572;
1429  T596:;  T572:;
1430          {register object V164;          {register object V207;
1431          V164= one_minus((V163));          V207= one_minus((V206));
1432          goto T600;          goto T576;
1433  T600:;  T576:;
1434          if(!((fix((V164)))<=(0))){          if(!((fix((V207)))<=(0))){
1435          goto T601;}          goto T577;}
1436          base[1]= Cnil;          {object V208 = Cnil;
1437          vs_top=(vs_base=base+1)+1;          VMR22(V208)}
1438          return;          goto T577;
1439          goto T601;  T577:;
1440  T601:;          {register object V209;
1441          {register object V165;          base[0]= (V207);
1442          base[1]= (V164);          vs_top=(vs_base=base+0)+1;
1443          vs_top=(vs_base=base+1)+1;          (void) (*Lnk142)();
         (void) (*Lnk141)();  
1444          vs_top=sup;          vs_top=sup;
1445          V165= vs_base[0];          V209= vs_base[0];
1446          if((get((V165),VV[49],Cnil))==Cnil){          if((get((V209),VV[49],Cnil))==Cnil){
1447          goto T605;}          goto T581;}
1448          base[1]= (V165);          {object V210 = (V209);
1449          vs_top=(vs_base=base+1)+1;          VMR22(V210)}}
1450          return;}          goto T581;
1451          goto T605;  T581:;
1452  T605:;          V207= make_fixnum((long)(fix((V207)))-(1));
1453          V164= make_fixnum((long)(fix((V164)))-(1));          goto T576;}
1454          goto T600;}          va_end(ap);
1455            base[0]=base[0];
1456            return Cnil;}
1457          }          }
1458  }  /*      local entry for function INIT-BREAK-POINTS      */
 /*      function definition for INIT-BREAK-POINTS       */  
1459    
1460  static void L25()  static object LI25()
1461  {register object *base=vs_base;  
1462          register object *sup=base+VM23; VC23  {        VMB23 VMS23 VMV23
         vs_reserve(VM23);  
         check_arg(0);  
         vs_top=sup;  
1463          goto TTL;          goto TTL;
1464  TTL:;  TTL:;
1465          base[0]= symbol_value(VV[57]);          base[0]= symbol_value(VV[57]);
# Line 1577  TTL:; Line 1468  TTL:;
1468          siLfill_pointer_set();          siLfill_pointer_set();
1469          vs_top=sup;          vs_top=sup;
1470          setq(VV[53],symbol_value(VV[57]));          setq(VV[53],symbol_value(VV[57]));
1471          base[0]= symbol_value(VV[53]);          {object V211 = symbol_value(VV[53]);
1472          vs_top=(vs_base=base+0)+1;          VMR23(V211)}
1473          return;          base[0]=base[0];
1474            return Cnil;
1475  }  }
1476  /*      function definition for STEP-INTO       */  /*      local entry for function STEP-INTO      */
1477    
1478  static void L26()  static object LI26(object first,...)
1479  {register object *base=vs_base;  {      
1480          register object *sup=base+VM24; VC24          va_list ap;
1481          vs_reserve(VM24);          int narg = VFUN_NARGS; VMB24 VMS24 VMV24
1482          {object V166;          {object V212;
1483          if(vs_top-vs_base>1) too_many_arguments();          va_start(ap,first);
1484          if(vs_base>=vs_top){vs_top=sup;goto T617;}          narg = narg - 0;
1485          V166=(base[0]);          if (narg <= 0) goto T593;
1486          vs_top=sup;          else {
1487          goto T618;          V212= first;}
1488          goto T617;          --narg; goto T594;
1489  T617:;          goto T593;
1490          V166= small_fixnum(1);  T593:;
1491          goto T618;          V212= small_fixnum(1);
1492  T618:;          goto T594;
1493    T594:;
1494          if(symbol_value(VV[53])!=Cnil){          if(symbol_value(VV[53])!=Cnil){
1495          goto T620;}          goto T596;}
1496          vs_base=vs_top;          (void)((*(LnkLI143))());
1497          (void) (*Lnk142)();          goto T596;
1498          vs_top=sup;  T596:;
         goto T620;  
 T620:;  
1499          setq(VV[58],VV[59]);          setq(VV[58],VV[59]);
1500          base[1]= VV[60];          {object V213 = VV[60];
1501          vs_top=(vs_base=base+1)+1;          VMR24(V213)}
1502          return;          va_end(ap);
1503          }          return Cnil;}
1504  }          }
1505  /*      function definition for STEP-NEXT       */  /*      local entry for function STEP-NEXT      */
1506    
1507  static void L27()  static object LI27(object first,...)
1508  {register object *base=vs_base;  {      
1509          register object *sup=base+VM25; VC25          va_list ap;
1510          vs_reserve(VM25);          int narg = VFUN_NARGS; VMB25 VMS25 VMV25
1511          {object V167;          {object V214;
1512          if(vs_top-vs_base>1) too_many_arguments();          va_start(ap,first);
1513          if(vs_base>=vs_top){vs_top=sup;goto T623;}          narg = narg - 0;
1514          V167=(base[0]);          if (narg <= 0) goto T599;
1515          vs_top=sup;          else {
1516          goto T624;          V214= first;}
1517          goto T623;          --narg; goto T600;
1518  T623:;          goto T599;
1519          V167= small_fixnum(1);  T599:;
1520          goto T624;          V214= small_fixnum(1);
1521  T624:;          goto T600;
1522          {object V168;  T600:;
1523          vs_base=vs_top;          {object V215;
1524          (void) (*Lnk143)();          V215= (VFUN_NARGS=0,(*(LnkLI144))());
1525          vs_top=sup;          setq(VV[61],make_cons((V214),(V215)));
         V168= vs_base[0];  
         setq(VV[61],make_cons((V167),(V168)));  
1526          if(symbol_value(VV[53])!=Cnil){          if(symbol_value(VV[53])!=Cnil){
1527          goto T629;}          goto T605;}
1528          vs_base=vs_top;          (void)((*(LnkLI143))());
1529          (void) (*Lnk142)();          goto T605;
1530          vs_top=sup;  T605:;
         goto T629;  
 T629:;  
1531          setq(VV[58],VV[62]);          setq(VV[58],VV[62]);
1532          base[1]= VV[60];          {object V216 = VV[60];
1533          vs_top=(vs_base=base+1)+1;          VMR25(V216)}}
1534          return;}          va_end(ap);
1535            return Cnil;}
1536          }          }
1537  }  /*      local entry for function MAYBE-BREAK    */
 /*      function definition for MAYBE-BREAK     */  
1538    
1539  static void L28()  static object LI28(V221,V222,V223,V224)
1540  {register object *base=vs_base;  
1541          register object *sup=base+VM26; VC26  object V221;object V222;object V223;object V224;
1542          vs_reserve(VM26);  {        VMB26 VMS26 VMV26
         {object V169;  
         object V170;  
         object V171;  
         object V172;  
         check_arg(4);  
         V169=(base[0]);  
         V170=(base[1]);  
         V171=(base[2]);  
         V172=(base[3]);  
         vs_top=sup;  
1543          goto TTL;          goto TTL;
1544  TTL:;  TTL:;
1545          {object V173;          {object V225;
1546          V173= Cnil;          V225= Cnil;
1547          V173= (VFUN_NARGS=2,(*(LnkLI144))((V169),(V170)));          V225= (VFUN_NARGS=2,(*(LnkLI145))((V221),(V222)));
1548          if(((V173))==Cnil){          if(((V225))==Cnil){
1549          goto T634;}          goto T610;}
1550          setq(VV[58],Cnil);          setq(VV[58],Cnil);
1551          if(!(((long)length(symbol_value(VV[53])))>(0))){          if(!(((long)length(symbol_value(VV[53])))>(0))){
1552          goto T640;}          goto T616;}
1553          goto T639;          goto T615;
1554          goto T640;          goto T616;
1555  T640:;  T616:;
1556          setq(VV[53],Cnil);          setq(VV[53],Cnil);
1557          goto T639;          goto T615;
1558  T639:;  T615:;
1559          base[5]= (V171);          V226= (*(LnkLI140))((V223),(V222),(V225));
1560          base[6]= (V170);          (void)((VFUN_NARGS=2,(*(LnkLI122))(/* INLINE-ARGS */V226,(V224))));
1561          base[7]= (V173);          {object V227 = Ct;
1562          vs_top=(vs_base=base+5)+3;          VMR26(V227)}
1563          (void) (*Lnk139)();          goto T610;
1564          vs_top=sup;  T610:;
1565          base[4]= vs_base[0];          {object V228 = Cnil;
1566          base[5]= (V172);          VMR26(V228)}}
1567          vs_top=(vs_base=base+4)+2;          return Cnil;
         (void) (*Lnk122)();  
         vs_top=sup;  
         base[4]= Ct;  
         vs_top=(vs_base=base+4)+1;  
         return;  
         goto T634;  
 T634:;  
         base[4]= Cnil;  
         vs_top=(vs_base=base+4)+1;  
         return;}  
         }  
1568  }  }
1569  /*      function definition for BREAK-STEP-INTO */  /*      local entry for function BREAK-STEP-INTO        */
1570    
1571  static void L29()  static object LI29(V231,V232)
1572  {register object *base=vs_base;  
1573          register object *sup=base+VM27; VC27  object V231;object V232;
1574          vs_reserve(VM27);  {        VMB27 VMS27 VMV27
         {object V174;  
         object V175;  
         check_arg(2);  
         V174=(base[0]);  
         V175=(base[1]);  
         vs_top=sup;  
1575          goto TTL;          goto TTL;
1576  TTL:;  TTL:;
1577          {object V176;          {object V233;
1578          vs_base=vs_top;          V233= (VFUN_NARGS=0,(*(LnkLI144))());
1579          (void) (*Lnk143)();          {object V234;
1580          vs_top=sup;          V234= get((V233),VV[49],Cnil);
1581          V176= vs_base[0];          {object V235 = (*(LnkLI146))((V231),(V234),(V233),(V232));
1582          {object V177;          VMR27(V235)}}}
1583          V177= get((V176),VV[49],Cnil);          return Cnil;
         base[2]= (V174);  
         base[3]= (V177);  
         base[4]= (V176);  
         base[5]= (V175);  
         vs_top=(vs_base=base+2)+4;  
         (void) (*Lnk145)();  
         return;}}  
         }  
1584  }  }
1585  /*      function definition for BREAK-STEP-NEXT */  /*      local entry for function BREAK-STEP-NEXT        */
1586    
1587  static void L30()  static object LI30(V238,V239)
1588  {register object *base=vs_base;  
1589          register object *sup=base+VM28; VC28  object V238;object V239;
1590          vs_reserve(VM28);  {        VMB28 VMS28 VMV28
         {object V178;  
         object V179;  
         check_arg(2);  
         V178=(base[0]);  
         V179=(base[1]);  
         vs_top=sup;  
1591          goto TTL;          goto TTL;
1592  TTL:;  TTL:;
1593          {object V180;          {object V240;
1594          vs_base=vs_top;          V240= (VFUN_NARGS=0,(*(LnkLI144))());
1595          (void) (*Lnk143)();          if(!(eql(cdr(symbol_value(VV[61])),(V240)))){
1596          vs_top=sup;          goto T624;}
1597          V180= vs_base[0];          {object V241;
1598          if(!(eql(cdr(symbol_value(VV[61])),(V180)))){          V241= get((V240),VV[49],Cnil);
1599          goto T657;}          {object V242 = (*(LnkLI146))((V238),(V241),(V240),(V239));
1600          {object V181;          VMR28(V242)}}
1601          V181= get((V180),VV[49],Cnil);          goto T624;
1602          base[2]= (V178);  T624:;
1603          base[3]= (V181);          {object V243 = Cnil;
1604          base[4]= (V180);          VMR28(V243)}}
1605          base[5]= (V179);          return Cnil;
         vs_top=(vs_base=base+2)+4;  
         (void) (*Lnk145)();  
         return;}  
         goto T657;  
 T657:;  
         base[2]= Cnil;  
         vs_top=(vs_base=base+2)+1;  
         return;}  
         }  
1606  }  }
1607  /*      function definition for *BREAK-POINTS*  */  /*      local entry for function *BREAK-POINTS* */
1608    
1609  static void L31()  static object LI31(V246,V247)
1610  {register object *base=vs_base;  
1611          register object *sup=base+VM29; VC29  object V246;object V247;
1612          vs_reserve(VM29);  {        VMB29 VMS29 VMV29
         {object V182;  
         object V183;  
         check_arg(2);  
         V182=(base[0]);  
         V183=(base[1]);  
         vs_top=sup;  
1613          goto TTL;          goto TTL;
1614  TTL:;  TTL:;
1615          {object V184;          {object V248;
1616          V184= (VFUN_NARGS=4,(*(LnkLI144))((V182),symbol_value(VV[53]),VV[63],VV[64]));          V248= (VFUN_NARGS=4,(*(LnkLI145))((V246),symbol_value(VV[53]),VV[63],VV[64]));
1617          base[2]= Ct;          base[0]= Ct;
1618          base[3]= VV[65];          base[1]= VV[65];
1619          base[4]= (V184);          base[2]= (V248);
1620          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+0)+3;
1621          Lformat();          Lformat();
1622          vs_top=sup;          vs_top=sup;
1623          base[2]= aref1(symbol_value(VV[53]),fixint((V184)));          V249= aref1(symbol_value(VV[53]),fixint((V248)));
1624          base[3]= (V183);          {object V250 = (VFUN_NARGS=2,(*(LnkLI122))(/* INLINE-ARGS */V249,(V247)));
1625          vs_top=(vs_base=base+2)+2;          VMR29(V250)}}
1626          (void) (*Lnk122)();          base[0]=base[0];
1627          return;}          return Cnil;
         }  
1628  }  }
1629  /*      function definition for DWIM    */  /*      local entry for function DWIM   */
1630    
1631  static void L32()  static object LI32(V252)
1632  {register object *base=vs_base;  
1633          register object *sup=base+VM30; VC30  register object V252;
1634          vs_reserve(VM30);  {        VMB30 VMS30 VMV30
         {register object V185;  
         check_arg(1);  
         V185=(base[0]);  
         vs_top=sup;  
1635          goto TTL;          goto TTL;
1636  TTL:;  TTL:;
1637          {register object V186;          {register object V253;
1638          register object V187;          register object V254;
1639          vs_base=vs_top;          vs_base=vs_top;
1640          Llist_all_packages();          Llist_all_packages();
1641          vs_top=sup;          vs_top=sup;
1642          V186= vs_base[0];          V253= vs_base[0];
1643          V187= car((V186));          V254= car((V253));
1644          goto T675;          goto T636;
1645  T675:;  T636:;
1646          if(!(endp_prop((V186)))){          if(!(endp_prop((V253)))){
1647          goto T676;}          goto T637;}
1648          goto T671;          goto T632;
1649          goto T676;          goto T637;
1650  T676:;  T637:;
1651          {register object V188;          {register object V255;
1652          register object V189;          register object V256;
1653          base[3]= symbol_name((V185));          base[2]= symbol_name((V252));
1654          base[4]= (V187);          base[3]= (V254);
1655          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+2)+2;
1656          Lintern();          Lintern();
1657          if(vs_base>=vs_top){vs_top=sup;goto T684;}          if(vs_base>=vs_top){vs_top=sup;goto T645;}
1658          V188= vs_base[0];          V255= vs_base[0];
1659          vs_base++;          vs_base++;
1660          if(vs_base>=vs_top){vs_top=sup;goto T685;}          if(vs_base>=vs_top){vs_top=sup;goto T646;}
1661          V189= vs_base[0];          V256= vs_base[0];
1662          vs_top=sup;          vs_top=sup;
1663          goto T686;          goto T647;
1664          goto T684;          goto T645;
1665  T684:;  T645:;
1666          V188= Cnil;          V255= Cnil;
1667          goto T685;          goto T646;
1668  T685:;  T646:;
1669          V189= Cnil;          V256= Cnil;
1670          goto T686;          goto T647;
1671  T686:;  T647:;
1672          if((get((V188),VV[49],Cnil))==Cnil){          if((get((V255),VV[49],Cnil))==Cnil){
1673          goto T688;}          goto T649;}
1674          base[3]= (V188);          {object V257 = (V255);
1675          vs_top=(vs_base=base+3)+1;          VMR30(V257)}
1676          return;          goto T649;
1677          goto T688;  T649:;
1678  T688:;          if((V256)!=Cnil){
1679          if((V189)!=Cnil){          goto T641;}
1680          goto T680;}          base[2]= (V255);
1681          base[3]= (V188);          vs_top=(vs_base=base+2)+1;
         vs_top=(vs_base=base+3)+1;  
1682          Lunintern();          Lunintern();
1683          vs_top=sup;}          vs_top=sup;}
1684          goto T680;          goto T641;
1685  T680:;  T641:;
1686          V186= cdr((V186));          V253= cdr((V253));
1687          V187= car((V186));          V254= car((V253));
1688          goto T675;}          goto T636;}
1689          goto T671;          goto T632;
1690  T671:;  T632:;
1691          base[1]= Ct;          base[0]= Ct;
1692          base[2]= VV[66];          base[1]= VV[66];
1693          base[3]= (V185);          base[2]= (V252);
1694          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+0)+3;
1695          Lformat();          Lformat();
1696          return;          vs_top=sup;
1697          }          {object V258 = vs_base[0];
1698            VMR30(V258)}
1699            base[0]=base[0];
1700            return Cnil;
1701  }  }
1702  /*      function definition for BREAK-FUNCTION  */  /*      function definition for BREAK-FUNCTION  */
1703    
# Line 1877  static void L33() Line 1705  static void L33()
1705  {register object *base=vs_base;  {register object *base=vs_base;
1706          register object *sup=base+VM31; VC31          register object *sup=base+VM31; VC31
1707          vs_reserve(VM31);          vs_reserve(VM31);
1708          {register object V190;          {register object V259;
1709          register object V191;          register object V260;
1710          object V192;          object V261;
1711          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
1712          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
1713          V190=(base[0]);          V259=(base[0]);
1714          vs_base=vs_base+1;          vs_base=vs_base+1;
1715          if(vs_base>=vs_top){vs_top=sup;goto T699;}          if(vs_base>=vs_top){vs_top=sup;goto T660;}
1716          V191=(base[1]);          V260=(base[1]);
1717          vs_base++;          vs_base++;
1718          if(vs_base>=vs_top){vs_top=sup;goto T700;}          if(vs_base>=vs_top){vs_top=sup;goto T661;}
1719          V192=(base[2]);          V261=(base[2]);
1720          vs_top=sup;          vs_top=sup;
1721          goto T701;          goto T662;
1722          goto T699;          goto T660;
1723  T699:;  T660:;
1724          V191= small_fixnum(1);          V260= small_fixnum(1);
1725          goto T700;          goto T661;
1726  T700:;  T661:;
1727          V192= Cnil;          V261= Cnil;
1728          goto T701;          goto T662;
1729  T701:;  T662:;
1730          {object V193;          {object V262;
1731          V193= Cnil;          V262= Cnil;
1732          {register object V194;          {register object V263;
1733          V194= get((V190),VV[49],Cnil);          V263= get((V259),VV[49],Cnil);
1734          if(((V194))!=Cnil){          if(((V263))!=Cnil){
1735          goto T706;}          goto T667;}
1736          base[3]= (V190);          V262= (*(LnkLI147))((V259));
1737          vs_top=(vs_base=base+3)+1;          if(((V262))==Cnil){
1738          (void) (*Lnk146)();          goto T667;}
1739          vs_top=sup;          base[3]= (V262);
1740          V193= vs_base[0];          base[4]= (V260);
1741          if(((V193))==Cnil){          base[5]= (V261);
         goto T706;}  
         base[3]= (V193);  
         base[4]= (V191);  
         base[5]= (V192);  
1742          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1743          (void) (*Lnk147)();          (void) (*Lnk148)();
1744          return;          return;
1745          goto T706;          goto T667;
1746  T706:;  T667:;
1747          if(!(type_of((V194))==t_array||          if(!(type_of((V263))==t_array||
1748  type_of((V194))==t_vector||  type_of((V263))==t_vector||
1749  type_of((V194))==t_string||  type_of((V263))==t_string||
1750  type_of((V194))==t_bitvector)){  type_of((V263))==t_bitvector)){
1751          goto T718;}          goto T678;}
1752          goto T717;          goto T677;
1753          goto T718;          goto T678;
1754  T718:;  T678:;
1755          base[3]= Ct;          base[3]= Ct;
1756          base[4]= VV[67];          base[4]= VV[67];
1757          base[5]= (V190);          base[5]= (V259);
1758          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1759          Lformat();          Lformat();
1760          vs_top=sup;          vs_top=sup;
1761          base[3]= Cnil;          base[3]= Cnil;
1762          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1763          return;          return;
1764          goto T717;          goto T677;
1765  T717:;  T677:;
1766          {object V195;          {object V264;
1767          V196= aref1((V194),0);          V265= aref1((V263),0);
1768          V195= cdr(/* INLINE-ARGS */V196);          V264= cdr(/* INLINE-ARGS */V265);
1769          if(((V192))==Cnil){          if(((V261))==Cnil){
1770          goto T725;}          goto T685;}
1771          V191= make_fixnum((long)(fix((V191)))-(fix((V195))));          V260= make_fixnum((long)(fix((V260)))-(fix((V264))));
1772          goto T725;          goto T685;
1773  T725:;{object V197;  T685:;{object V266;
1774          if((fix((V191)))>=(1)){          if((fix((V260)))>=(1)){
1775          goto T732;}          goto T692;}
1776          V197= Cnil;          V266= Cnil;
1777          goto T731;          goto T691;
1778          goto T732;          goto T692;
1779  T732:;  T692:;
1780          V197= ((fix((V191)))<((long)length((V194)))?Ct:Cnil);          V266= ((fix((V260)))<((long)length((V263)))?Ct:Cnil);
1781          goto T731;          goto T691;
1782  T731:;  T691:;
1783          if(V197==Cnil)goto T730;          if(V266==Cnil)goto T690;
1784          goto T729;          goto T689;
1785          goto T730;          goto T690;
1786  T730:;}{object V198;  T690:;}{object V267;
1787          base[3]= Ct;          base[3]= Ct;
1788          base[4]= VV[68];          base[4]= VV[68];
1789          base[5]= (V190);          base[5]= (V259);
1790          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1791          Lformat();          Lformat();
1792          vs_top=sup;          vs_top=sup;
1793          V198= vs_base[0];          V267= vs_base[0];
1794          if(V198==Cnil)goto T734;          if(V267==Cnil)goto T694;
1795          goto T729;          goto T689;
1796          goto T734;          goto T694;
1797  T734:;}  T694:;}
1798          base[3]= Cnil;          base[3]= Cnil;
1799          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1800          return;          return;
1801          goto T729;          goto T689;
1802  T729:;  T689:;
1803          if(!(eql((V191),small_fixnum(1)))){          if(!(eql((V260),small_fixnum(1)))){
1804          goto T739;}          goto T699;}
1805          {object V199;          {object V268;
1806          base[3]= (V190);          base[3]= (V259);
1807          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1808          Lsymbol_function();          Lsymbol_function();
1809          vs_top=sup;          vs_top=sup;
1810          V199= vs_base[0];          V268= vs_base[0];
1811          if(!(type_of((V199))==t_cons)){          if(!(type_of((V268))==t_cons)){
1812          goto T739;}          goto T699;}
1813          if(!((car((V199)))==(VV[69]))){          if(!((car((V268)))==(VV[69]))){
1814          goto T739;}          goto T699;}
1815          if((caddr((V199)))==Cnil){          if((caddr((V268)))==Cnil){
1816          goto T739;}          goto T699;}
1817          V191= small_fixnum(2);}          V260= small_fixnum(2);}
1818          goto T739;          goto T699;
1819  T739:;  T699:;
1820          {register object V200;          {register object V269;
1821          register object V201;          register object V270;
1822          V200= make_fixnum((long)((long)length((V194)))-(fix((V191))));          V269= make_fixnum((long)((long)length((V263)))-(fix((V260))));
1823          V201= small_fixnum(0);          V270= small_fixnum(0);
1824          goto T755;          goto T715;
1825  T755:;  T715:;
1826          if(!(number_compare((V201),(V200))>=0)){          if(!(number_compare((V270),(V269))>=0)){
1827          goto T756;}          goto T716;}
1828          goto T751;          goto T711;
1829          goto T756;          goto T716;
1830  T756:;  T716:;
1831          V202= aref1((V194),fixint((V201)));          V271= aref1((V263),fixint((V270)));
1832          if((/* INLINE-ARGS */V202)==(VV[51])){          if((/* INLINE-ARGS */V271)==(VV[51])){
1833          goto T760;}          goto T720;}
1834          base[6]= (V190);          V272 = make_fixnum((long)(fix((V260)))+(fix((V270))));
1835          base[7]= (V194);          V273= (*(LnkLI140))((V259),(V263),V272);
1836          base[8]= make_fixnum((long)(fix((V191)))+(fix((V201))));          V274= (*(LnkLI150))(/* INLINE-ARGS */V273);
1837          vs_top=(vs_base=base+6)+3;          (void)((*(LnkLI149))(/* INLINE-ARGS */V274));
         (void) (*Lnk139)();  
         vs_top=sup;  
         base[5]= vs_base[0];  
         vs_top=(vs_base=base+5)+1;  
         (void) (*Lnk148)();  
         vs_top=sup;  
         base[4]= vs_base[0];  
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk149)();  
         vs_top=sup;  
1838          vs_base=vs_top=base+4;          vs_base=vs_top=base+4;
1839          vs_base[0]=Cnil;          vs_base[0]=Cnil;
1840          return;          return;
1841          goto T760;          goto T720;
1842  T760:;  T720:;
1843          V201= one_plus((V201));          V270= one_plus((V270));
1844          goto T755;}          goto T715;}
1845          goto T751;          goto T711;
1846  T751:;  T711:;
1847          base[3]= Ct;          base[3]= Ct;
1848          base[4]= VV[70];          base[4]= VV[70];
1849          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 2037  T751:; Line 1851  T751:;
1851          return;}}}          return;}}}
1852          }          }
1853  }  }
1854  /*      function definition for INSERT-BREAK-POINT      */  /*      local entry for function INSERT-BREAK-POINT     */
1855    
1856  static void L34()  static object LI34(V276)
1857  {register object *base=vs_base;  
1858          register object *sup=base+VM32; VC32  object V276;
1859          vs_reserve(VM32);  {        VMB32 VMS32 VMV32
         {object V203;  
         check_arg(1);  
         V203=(base[0]);  
         vs_top=sup;  
1860          goto TTL;          goto TTL;
1861  TTL:;  TTL:;
1862          {register object V204;          {register object V277;
1863          V204= Cnil;          V277= Cnil;
1864          if(symbol_value(VV[53])!=Cnil){          if(symbol_value(VV[53])!=Cnil){
1865          goto T775;}          goto T730;}
1866          vs_base=vs_top;          (void)((*(LnkLI143))());
1867          (void) (*Lnk142)();          goto T730;
1868          vs_top=sup;  T730:;{object V278;
1869          goto T775;          V278= (VFUN_NARGS=2,(*(LnkLI145))(Cnil,symbol_value(VV[53])));
1870  T775:;{object V205;          if(V278==Cnil)goto T733;
1871          V205= (VFUN_NARGS=2,(*(LnkLI144))(Cnil,symbol_value(VV[53])));          V277= V278;
1872          if(V205==Cnil)goto T778;          goto T732;
1873          V204= V205;          goto T733;
1874          goto T777;  T733:;}
1875          goto T778;          {object V279;
1876  T778:;}          V279= make_fixnum((long)length(symbol_value(VV[53])));
1877          {object V206;          (void)((VFUN_NARGS=2,(*(LnkLI137))(Cnil,symbol_value(VV[53]))));
1878          V206= make_fixnum((long)length(symbol_value(VV[53])));          V277= (V279);}
1879          (void)((VFUN_NARGS=2,(*(LnkLI136))(Cnil,symbol_value(VV[53]))));          goto T732;
1880          V204= (V206);}  T732:;
1881          goto T777;          {object V280;
1882  T777:;          {object V281= cdr(cdr(cdr((V276))));
1883          {object V207;          if((type_of(V281)!=t_cons) && ((V276)!= Cnil))
1884          {object V208= cdr(cdr(cdr((V203))));           FEwrong_type_argument(Scons,V281);
1885          if((type_of(V208)!=t_cons) && ((V203)!= Cnil))          V280= (V281->c.c_car);}
1886           FEwrong_type_argument(Scons,V208);          {object V285;
1887          V207= (V208->c.c_car);}          V286= get(V280,VV[52],Cnil);
1888          {object V212;          V285= make_cons(V277,V286);
1889          V213= get(V207,VV[52],Cnil);          (void)(sputprop(V280,VV[52],(V285)));}}
1890          V212= make_cons(V204,V213);          (void)(aset1(symbol_value(VV[53]),fixint((V277)),(V276)));
1891          (void)(sputprop(V207,VV[52],(V212)));}}          {object V287 = (V277);
1892          (void)(aset1(symbol_value(VV[53]),fixint((V204)),(V203)));          VMR32(V287)}}
1893          base[1]= (V204);          base[0]=base[0];
1894          vs_top=(vs_base=base+1)+1;          return Cnil;
         return;}  
         }  
1895  }  }
1896  /*      function definition for SHORT-NAME      */  /*      local entry for function SHORT-NAME     */
1897    
1898  static void L35()  static object LI35(V289)
1899  {register object *base=vs_base;  
1900          register object *sup=base+VM33; VC33  object V289;
1901          vs_reserve(VM33);  {        VMB33 VMS33 VMV33
         {object V214;  
         check_arg(1);  
         V214=(base[0]);  
         vs_top=sup;  
1902          goto TTL;          goto TTL;
1903  TTL:;  TTL:;
1904          {object V215;          {object V290;
1905          V215= (VFUN_NARGS=4,(*(LnkLI144))(VV[71],(V214),VV[72],Ct));          V290= (VFUN_NARGS=4,(*(LnkLI145))(VV[71],(V289),VV[72],Ct));
1906          if(((V215))==Cnil){          if(((V290))==Cnil){
1907          goto T789;}          goto T744;}
1908          base[1]= (V214);          base[0]= (V289);
1909          base[2]= make_fixnum((long)(1)+(fix((V215))));          base[1]= make_fixnum((long)(1)+(fix((V290))));
1910          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+0)+2;
1911          Lsubseq();          Lsubseq();
1912          return;          vs_top=sup;
1913          goto T789;          {object V291 = vs_base[0];
1914  T789:;          VMR33(V291)}
1915          base[1]= (V214);          goto T744;
1916          vs_top=(vs_base=base+1)+1;  T744:;
1917          return;}          {object V292 = (V289);
1918          }          VMR33(V292)}}
1919            base[0]=base[0];
1920            return Cnil;
1921  }  }
1922  /*      function definition for SHOW-BREAK-POINT        */  /*      local entry for function SHOW-BREAK-POINT       */
1923    
1924  static void L36()  static object LI36(V294)
1925  {register object *base=vs_base;  
1926          register object *sup=base+VM34; VC34  object V294;
1927          vs_reserve(VM34);  {        VMB34 VMS34 VMV34
         {object V216;  
         check_arg(1);  
         V216=(base[0]);  
         vs_top=sup;  
1928          goto TTL;          goto TTL;
1929  TTL:;  TTL:;
1930          {object V217;          {object V295;
1931          V217= Cnil;          V295= Cnil;
1932          {register object V218;          {register object V296;
1933          V218= aref1(symbol_value(VV[53]),fixint((V216)));          V296= aref1(symbol_value(VV[53]),fixint((V294)));
1934          if(((V218))==Cnil){          if(((V296))==Cnil){
1935          goto T796;}          goto T751;}
1936          if(!((car((V218)))==(Cnil))){          if(!((car((V296)))==(Cnil))){
1937          goto T798;}          goto T753;}
1938          V217= Ct;          V295= Ct;
1939          V218= cdr((V218));          V296= cdr((V296));
1940          goto T798;          goto T753;
1941  T798:;  T753:;
1942          base[1]= Ct;          base[0]= Ct;
1943          base[2]= VV[73];          base[1]= VV[73];
1944          base[3]= (V216);          base[2]= (V294);
1945          base[5]= cadr((V218));          base[3]= (*(LnkLI151))(cadr((V296)));
1946          vs_top=(vs_base=base+5)+1;          base[4]= caddr((V296));
1947          (void) (*Lnk150)();          base[5]= (V295);
1948          vs_top=sup;          vs_top=(vs_base=base+0)+6;
1949          base[4]= vs_base[0];          Lformat();
1950          base[5]= caddr((V218));          vs_top=sup;
1951          base[6]= (V217);          {object V297;
1952          vs_top=(vs_base=base+1)+6;          V297= cadddr((V296));
1953            base[0]= Ct;
1954            base[1]= VV[74];
1955            base[2]= make_fixnum((long)(*(LnkLI152))((V297),caddr((V296))));
1956            base[3]= (V297);
1957            vs_top=(vs_base=base+0)+4;
1958          Lformat();          Lformat();
1959          vs_top=sup;          vs_top=sup;
1960          {object V219;          {object V298 = vs_base[0];
1961          V219= cadddr((V218));          VMR34(V298)}}
1962          base[1]= Ct;          goto T751;
1963          base[2]= VV[74];  T751:;
1964          base[4]= (V219);          {object V299 = Cnil;
1965          base[5]= caddr((V218));          VMR34(V299)}}}
1966          vs_top=(vs_base=base+4)+2;          base[0]=base[0];
1967          (void) (*Lnk151)();          return Cnil;
         vs_top=sup;  
         base[3]= vs_base[0];  
         base[4]= (V219);  
         vs_top=(vs_base=base+1)+4;  
         Lformat();  
         return;}  
         goto T796;  
 T796:;  
         base[1]= Cnil;  
         vs_top=(vs_base=base+1)+1;  
         return;}}  
         }  
1968  }  }
1969  /*      function definition for ITERATE-OVER-BKPTS      */  /*      local entry for function ITERATE-OVER-BKPTS     */
1970    
1971  static void L37()  static object LI37(V302,V303)
1972  {register object *base=vs_base;  
1973          register object *sup=base+VM35; VC35  register object V302;register object V303;
1974          vs_reserve(VM35);  {        VMB35 VMS35 VMV35
         {register object V220;  
         register object V221;  
         check_arg(2);  
         V220=(base[0]);  
         V221=(base[1]);  
         vs_top=sup;  
1975          goto TTL;          goto TTL;
1976  TTL:;  TTL:;
1977          {register object V222;          {register object V304;
1978          register object V223;          register object V305;
1979          V222= make_fixnum((long)length(symbol_value(VV[53])));          V304= make_fixnum((long)length(symbol_value(VV[53])));
1980          V223= small_fixnum(0);          V305= small_fixnum(0);
1981          goto T822;          goto T774;
1982  T822:;  T774:;
1983          if(!(number_compare((V223),(V222))>=0)){          if(!(number_compare((V305),(V304))>=0)){
1984          goto T823;}          goto T775;}
1985          base[3]= Cnil;          {object V306 = Cnil;
1986          vs_top=(vs_base=base+3)+1;          VMR35(V306)}
1987          return;          goto T775;
1988          goto T823;  T775:;
1989  T823:;          {register object x= (V305),V307= (V302);
1990          {register object x= (V223),V224= (V220);          while(!endp(V307))
1991          while(!endp(V224))          if(eql(x,V307->c.c_car)){
1992          if(eql(x,V224->c.c_car)){          goto T780;
1993          goto T828;          }else V307=V307->c.c_cdr;}
1994          }else V224=V224->c.c_cdr;}          if(((V302))!=Cnil){
1995          if(((V220))!=Cnil){          goto T779;}
1996          goto T827;}          goto T780;
1997          goto T828;  T780:;
1998  T828:;          {register object V308;
1999          {register object V225;          V308= aref1(symbol_value(VV[53]),fixint((V305)));{object V309;
2000          V225= aref1(symbol_value(VV[53]),fixint((V223)));{object V226;          V309= symbol_value(VV[53]);
2001          V226= symbol_value(VV[53]);          {object V311= (V303);
2002          {object V228= (V221);          if((V311!= VV[54]))goto T786;
2003          if((V228!= VV[54]))goto T834;          if(((V308))==Cnil){
2004          if(((V225))==Cnil){          goto T787;}
2005          goto T835;}          {object V313= cdr(cdr(cdr((V308))));
2006          {object V230= cdr(cdr(cdr((V225))));          if((type_of(V313)!=t_cons) && ((V308)!= Cnil))
2007          if((type_of(V230)!=t_cons) && ((V225)!= Cnil))           FEwrong_type_argument(Scons,V313);
2008           FEwrong_type_argument(Scons,V230);          V312= (V313->c.c_car);}
2009          V229= (V230->c.c_car);}          {object V316= cdr(cdr(cdr((V308))));
2010          {object V233= cdr(cdr(cdr((V225))));          if((type_of(V316)!=t_cons) && ((V308)!= Cnil))
2011          if((type_of(V233)!=t_cons) && ((V225)!= Cnil))           FEwrong_type_argument(Scons,V316);
2012           FEwrong_type_argument(Scons,V233);          V315= (V316->c.c_car);}
2013          V232= (V233->c.c_car);}          V314= get(V315,VV[52],Cnil);
2014          V231= get(V232,VV[52],Cnil);          V317= (VFUN_NARGS=2,(*(LnkLI125))((V305),V314));
2015          V234= (VFUN_NARGS=2,(*(LnkLI124))((V223),V231));          (void)(sputprop(V312,VV[52],/* INLINE-ARGS */V317));
2016          (void)(sputprop(V229,VV[52],/* INLINE-ARGS */V234));          goto T787;
2017          goto T835;  T787:;
2018  T835:;          V310= Cnil;
2019          V227= Cnil;          goto T785;
2020          goto T833;          goto T786;
2021          goto T834;  T786:;
2022  T834:;          if((V311!= VV[153]))goto T793;
2023          if((V228!= VV[152]))goto T841;          if(!((car((V308)))==(Cnil))){
2024          if(!((car((V225)))==(Cnil))){          goto T795;}
2025          goto T843;}          V310= cdr((V308));
2026          V227= cdr((V225));          goto T785;
2027          goto T833;          goto T795;
2028          goto T843;  T795:;
2029  T843:;          V310= Cnil;
2030          V227= Cnil;          goto T785;
2031          goto T833;          goto T793;
2032          goto T841;  T793:;
2033  T841:;          if((V311!= VV[154]))goto T797;
2034          if((V228!= VV[153]))goto T845;          if(((V308))==Cnil){
2035          if(((V225))==Cnil){          goto T799;}
2036          goto T847;}          if((car((V308)))==(Cnil)){
2037          if((car((V225)))==(Cnil)){          goto T799;}
2038          goto T847;}          V310= make_cons(Cnil,(V308));
2039          V227= make_cons(Cnil,(V225));          goto T785;
2040          goto T833;          goto T799;
2041          goto T847;  T799:;
2042  T847:;          V310= (V308);
2043          V227= (V225);          goto T785;
2044          goto T833;          goto T797;
2045          goto T845;  T797:;
2046  T845:;          if((V311!= VV[155]))goto T803;
2047          if((V228!= VV[154]))goto T851;          if(((V308))==Cnil){
2048          if(((V225))==Cnil){          goto T804;}
2049          goto T852;}          (void)((*(LnkLI149))((V305)));
         base[3]= (V223);  
         vs_top=(vs_base=base+3)+1;  
         (void) (*Lnk149)();  
         vs_top=sup;  
2050          princ_char(10,Cnil);          princ_char(10,Cnil);
2051          goto T852;          goto T804;
2052  T852:;  T804:;
2053          V227= (V225);          V310= (V308);
2054          goto T833;          goto T785;
2055          goto T851;          goto T803;
2056  T851:;  T803:;
2057          V227= Cnil;}          V310= Cnil;}
2058          goto T833;          goto T785;
2059  T833:;  T785:;
2060          (void)(aset1(V226,fixint((V223)),V227));}}          (void)(aset1(V309,fixint((V305)),V310));}}
2061          goto T827;          goto T779;
2062  T827:;  T779:;
2063          V223= one_plus((V223));          V305= one_plus((V305));
2064          goto T822;}          goto T774;}
2065          }          base[0]=base[0];
2066            return Cnil;
2067  }  }
2068  /*      function definition for COMPLETE-PROP   */  /*      local entry for function COMPLETE-PROP  */
2069    
2070  static void L38()  static object LI38(object V320,object V319,object V318,object first,...)
2071  {register object *base=vs_base;  {      
2072          register object *sup=base+VM36; VC36          va_list ap;
2073          vs_reserve(VM36);          int narg = VFUN_NARGS; VMB36 VMS36 VMV36
2074          {object V235;          {object V321;
2075          object V236;          object V322;
2076          object V237;          object V323;
2077          object V238;          object V324;
2078          if(vs_top-vs_base<3) too_few_arguments();          va_start(ap,first);
2079          if(vs_top-vs_base>4) too_many_arguments();          if(narg <3) too_few_arguments();
2080          V235=(base[0]);          V321= V320;
2081          V236=(base[1]);          V322= V319;
2082          V237=(base[2]);          V323= V318;
2083          vs_base=vs_base+3;          narg = narg - 3;
2084          if(vs_base>=vs_top){vs_top=sup;goto T860;}          if (narg <= 0) goto T811;
2085          V238=(base[3]);          else {
2086          vs_top=sup;          V324= first;}
2087          goto T861;          --narg; goto T812;
2088          goto T860;          goto T811;
2089  T860:;  T811:;
2090          V238= Cnil;          V324= Cnil;
2091          goto T861;          goto T812;
2092  T861:;  T812:;
2093          if(!(type_of((V235))==t_symbol)){          if(!(type_of((V321))==t_symbol)){
2094          goto T863;}          goto T814;}
2095          if((get((V235),(V237),Cnil))==Cnil){          if((get((V321),(V323),Cnil))==Cnil){
2096          goto T863;}          goto T814;}
2097          base[4]= (V235);          base[0]= (V321);
2098          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+0)+1;
2099          Lsymbol_package();          Lsymbol_package();
2100          vs_top=sup;          vs_top=sup;
2101          V239= vs_base[0];          V325= vs_base[0];
2102          base[4]= (V236);          base[0]= (V322);
2103          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+0)+1;
2104          Lfind_package();          Lfind_package();
2105          vs_top=sup;          vs_top=sup;
2106          V240= vs_base[0];          V326= vs_base[0];
2107          if(!(equal(V239,V240))){          if(!(equal(V325,V326))){
2108          goto T863;}          goto T814;}
2109          base[4]= (V235);          {object V327 = (V321);
2110          vs_top=(vs_base=base+4)+1;          VMR36(V327)}
2111          return;          goto T814;
2112          goto T863;  T814:;
2113  T863:;          {object V328;
2114          {object V241;          register object V329;
2115          register object V242;          V328= Cnil;
2116          V241= Cnil;          V329= Cnil;
2117          V242= Cnil;          {object V330;
2118          {object V243;          register object V331;
2119          register object V244;          register object V332;
2120          register object V245;          {object V333;
2121          {object V246;          base[0]= (V322);
2122          base[4]= (V236);          vs_top=(vs_base=base+0)+1;
         vs_top=(vs_base=base+4)+1;  
2123          Lfind_package();          Lfind_package();
2124          vs_top=sup;          vs_top=sup;
2125          V246= vs_base[0];          V333= vs_base[0];
2126          base[4]= (V246);          base[0]= (V333);
2127          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+0)+1;
2128          Lpackagep();          Lpackagep();
2129          vs_top=sup;          vs_top=sup;
2130          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2131          goto T879;}          goto T830;}
2132          V243= (V246);          V330= (V333);
2133          goto T875;          goto T826;
2134          goto T879;          goto T830;
2135  T879:;  T830:;
2136          base[4]= coerce_to_string((V246));          base[0]= coerce_to_string((V333));
2137          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+0)+1;
2138          Lfind_package();          Lfind_package();
2139          vs_top=sup;          vs_top=sup;
2140          V243= vs_base[0];}          V330= vs_base[0];}
2141          goto T875;          goto T826;
2142  T875:;  T826:;
2143          V244= Cnil;          V331= Cnil;
2144          V245= Cnil;          V332= Cnil;
2145          {object V247;          {object V334;
2146          register object V248;          register object V335;
2147          base[6]= (V243);          base[2]= (V330);
2148          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+2)+1;
2149          Lpackage_use_list();          Lpackage_use_list();
2150          vs_top=sup;          vs_top=sup;
2151          V249= vs_base[0];          V336= vs_base[0];
2152          V247= make_cons((V243),V249);          V334= make_cons((V330),V336);
2153          V248= car((V247));          V335= car((V334));
2154          goto T888;          goto T839;
2155  T888:;  T839:;
2156          if(!(endp_prop((V247)))){          if(!(endp_prop((V334)))){
2157          goto T889;}          goto T840;}
2158          V244= Cnil;          V331= Cnil;
2159          goto T874;          goto T825;
2160          goto T889;          goto T840;
2161  T889:;  T840:;
2162          {long V250;          {long V337;
2163          long V251;          long V338;
2164          base[6]= (V248);          base[2]= (V335);
2165          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+2)+1;
2166          (void) (*Lnk155)();          (void) (*Lnk156)();
2167          if(vs_base>=vs_top){vs_top=sup;goto T898;}          if(vs_base>=vs_top){vs_top=sup;goto T849;}
2168          V250= fix(vs_base[0]);          V337= fix(vs_base[0]);
2169          vs_base++;          vs_base++;
2170          if(vs_base>=vs_top){vs_top=sup;goto T899;}          if(vs_base>=vs_top){vs_top=sup;goto T850;}
2171          V251= fix(vs_base[0]);          V338= fix(vs_base[0]);
2172          vs_top=sup;          vs_top=sup;
2173          goto T900;          goto T851;
2174          goto T898;          goto T849;
2175  T898:;  T849:;
2176          V250= fix(Cnil);          V337= fix(Cnil);
2177          goto T899;          goto T850;
2178  T899:;  T850:;
2179          V251= fix(Cnil);          V338= fix(Cnil);
2180          goto T900;          goto T851;
2181  T900:;  T851:;
2182          if(((V243))==((V248))){          if(((V330))==((V335))){
2183          goto T901;}          goto T852;}
2184          V251= 0;          V338= 0;
2185          goto T901;          goto T852;
2186  T901:;  T852:;
2187          {object V252;          {object V339;
2188          register object V253;          register object V340;
2189          V254 = make_fixnum(V251);          V341 = make_fixnum(V338);
2190          V255 = make_fixnum(V250);          V342 = make_fixnum(V337);
2191          V252= number_plus(V254,V255);          V339= number_plus(V341,V342);
2192          V253= small_fixnum(0);          V340= small_fixnum(0);
2193          goto T908;          goto T859;
2194  T908:;  T859:;
2195          if(!(number_compare((V253),(V252))>=0)){          if(!(number_compare((V340),(V339))>=0)){
2196          goto T909;}          goto T860;}
2197          goto T895;          goto T846;
2198          goto T909;          goto T860;
2199  T909:;  T860:;
2200          V256 = make_fixnum(V251);          V343 = make_fixnum(V338);
2201          if(!(number_compare((V253),V256)<0)){          if(!(number_compare((V340),V343)<0)){
2202          goto T918;}          goto T869;}
2203          base[7]= (V248);          base[3]= (V335);
2204          base[8]= (V253);          base[4]= (V340);
2205          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+3)+2;
2206          siLpackage_internal();          siLpackage_internal();
2207          vs_top=sup;          vs_top=sup;
2208          V245= vs_base[0];          V332= vs_base[0];
2209          goto T916;          goto T867;
2210          goto T918;          goto T869;
2211  T918:;  T869:;
2212          base[7]= (V248);          base[3]= (V335);
2213          V257 = make_fixnum(V251);          V344 = make_fixnum(V338);
2214          base[8]= number_minus((V253),V257);          base[4]= number_minus((V340),V344);
2215          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+3)+2;
2216          siLpackage_external();          siLpackage_external();
2217          vs_top=sup;          vs_top=sup;
2218          V245= vs_base[0];          V332= vs_base[0];
2219          goto T916;          goto T867;
2220  T916:;  T867:;
2221          goto T914;          goto T865;
2222  T914:;  T865:;
2223          if(((V245))!=Cnil){          if(((V332))!=Cnil){
2224          goto T924;}          goto T875;}
2225          goto T915;          goto T866;
2226          goto T924;          goto T875;
2227  T924:;  T875:;
2228          V244= car((V245));          V331= car((V332));
2229          if(((V248))==((V243))){          if(((V335))==((V330))){
2230          goto T930;}          goto T881;}
2231          base[8]= symbol_name((V244));          base[4]= symbol_name((V331));
2232          base[9]= (V243);          base[5]= (V330);
2233          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+4)+2;
2234          Lfind_symbol();          Lfind_symbol();
2235          Llist();          Llist();
2236          vs_top=sup;          vs_top=sup;
2237          base[7]= vs_base[0];          base[3]= vs_base[0];
2238          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+3)+1;
2239          Llast();          Llast();
2240          vs_top=sup;          vs_top=sup;
2241          V258= vs_base[0];          V345= vs_base[0];
2242          if(!((VV[75])==(car(V258)))){          if(!((VV[75])==(car(V345)))){
2243            goto T880;}
2244            goto T881;
2245    T881:;
2246            if((get((V331),(V323),Cnil))==Cnil){
2247            goto T890;}
2248            base[3]= (V321);
2249            base[4]= (V331);
2250            vs_top=(vs_base=base+3)+2;
2251            (void) (*Lnk157)();
2252            vs_top=sup;
2253            V346= vs_base[0];
2254            if(!(eql(V346,small_fixnum(0)))){
2255            goto T890;}
2256            if(((V329))==Cnil){
2257            goto T899;}
2258            {object V347;
2259            register object V348;
2260            V347= (V329);
2261            V329= make_cons((V331),Cnil);
2262            V348= (V329);
2263            if(type_of((V347))!=t_cons)FEwrong_type_argument(Scons,(V347));
2264            ((V347))->c.c_cdr = (V348);
2265            goto T890;}
2266            goto T899;
2267    T899:;
2268            V329= make_cons((V331),Cnil);
2269            V328= (V329);
2270            goto T890;
2271    T890:;
2272            goto T880;
2273    T880:;
2274            V332= cdr((V332));
2275            goto T865;
2276            goto T866;
2277    T866:;
2278            goto T863;
2279            goto T863;
2280    T863:;
2281            V340= one_plus((V340));
2282            goto T859;}}
2283            goto T846;
2284    T846:;
2285            V334= cdr((V334));
2286            V335= car((V334));
2287            goto T839;}}
2288            goto T825;
2289    T825:;
2290            if(((V324))==Cnil){
2291            goto T919;}
2292            {object V349 = (V328);
2293            VMR36(V349)}
2294            goto T919;
2295    T919:;
2296            if(!(((long)length((V328)))>(1))){
2297            goto T922;}
2298            base[0]= Ct;
2299            base[1]= VV[76];
2300            base[2]= (V323);
2301            base[3]= (V328);
2302            vs_top=(vs_base=base+0)+4;
2303            Lformat();
2304            vs_top=sup;
2305            goto T917;
2306            goto T922;
2307    T922:;
2308            if(((V328))!=Cnil){
2309          goto T929;}          goto T929;}
2310          goto T930;          base[0]= Ct;
2311  T930:;          base[1]= VV[77];
2312          if((get((V244),(V237),Cnil))==Cnil){          base[2]= (V321);
2313          goto T939;}          vs_top=(vs_base=base+0)+3;
2314          base[7]= (V235);          Lformat();
         base[8]= (V244);  
         vs_top=(vs_base=base+7)+2;  
         (void) (*Lnk156)();  
2315          vs_top=sup;          vs_top=sup;
2316          V259= vs_base[0];          goto T917;
         if(!(eql(V259,small_fixnum(0)))){  
         goto T939;}  
         if(((V242))==Cnil){  
         goto T948;}  
         {object V260;  
         register object V261;  
         V260= (V242);  
         V242= make_cons((V244),Cnil);  
         V261= (V242);  
         if(type_of((V260))!=t_cons)FEwrong_type_argument(Scons,(V260));  
         ((V260))->c.c_cdr = (V261);  
         goto T939;}  
         goto T948;  
 T948:;  
         V242= make_cons((V244),Cnil);  
         V241= (V242);  
         goto T939;  
 T939:;  
2317          goto T929;          goto T929;
2318  T929:;  T929:;
2319          V245= cdr((V245));          {object V350 = car((V328));
2320          goto T914;          VMR36(V350)}
2321          goto T915;          goto T917;
2322  T915:;  T917:;
2323          goto T912;          {object V351 = Cnil;
2324          goto T912;          VMR36(V351)}
2325  T912:;          {object V352 = Cnil;
2326          V253= one_plus((V253));          VMR36(V352)}}
2327          goto T908;}}          va_end(ap);
2328          goto T895;          base[0]=base[0];
2329  T895:;          return Cnil;}
         V247= cdr((V247));  
         V248= car((V247));  
         goto T888;}}  
         goto T874;  
 T874:;  
         if(((V238))==Cnil){  
         goto T968;}  
         base[4]= (V241);  
         vs_top=(vs_base=base+4)+1;  
         return;  
         goto T968;  
 T968:;  
         if(!(((long)length((V241)))>(1))){  
         goto T971;}  
         base[4]= Ct;  
         base[5]= VV[76];  
         base[6]= (V237);  
         base[7]= (V241);  
         vs_top=(vs_base=base+4)+4;  
         Lformat();  
         vs_top=sup;  
         goto T966;  
         goto T971;  
 T971:;  
         if(((V241))!=Cnil){  
         goto T978;}  
         base[4]= Ct;  
         base[5]= VV[77];  
         base[6]= (V235);  
         vs_top=(vs_base=base+4)+3;  
         Lformat();  
         vs_top=sup;  
         goto T966;  
         goto T978;  
 T978:;  
         base[4]= car((V241));  
         vs_top=(vs_base=base+4)+1;  
         return;  
         goto T966;  
 T966:;  
         base[4]= Cnil;  
         vs_top=(vs_base=base+4)+1;  
         return;  
         base[4]= Cnil;  
         vs_top=(vs_base=base+4)+1;  
         return;}  
2330          }          }
2331  }  /*      local entry for function DISPLAY-ENV    */
 /*      function definition for DISPLAY-ENV     */  
2332    
2333  static void L39()  static object LI39(V355,V356)
2334  {register object *base=vs_base;  
2335          register object *sup=base+VM37; VC37  register object V355;object V356;
2336          vs_reserve(VM37);  {        VMB37 VMS37 VMV37
         {register object V262;  
         object V263;  
         check_arg(2);  
         V262=(base[0]);  
         V263=(base[1]);  
         vs_top=sup;  
2337          goto TTL;          goto TTL;
2338  TTL:;  TTL:;
2339          {register object V264;          {register object V357;
2340          V264= reverse((V263));          V357= reverse((V356));
2341          goto T986;          goto T937;
2342  T986:;  T937:;
2343          if(!(type_of((V264))==t_cons)){          if(!(type_of((V357))==t_cons)){
2344          goto T988;}          goto T939;}
2345          base[2]= symbol_value(VV[78]);          base[0]= symbol_value(VV[78]);
2346          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
2347          Lfill_pointer();          Lfill_pointer();
2348          vs_top=sup;          vs_top=sup;
2349          V265= vs_base[0];          V358= vs_base[0];
2350          if(!((fix(V265))>(fix((V262))))){          if(!((fix(V358))>(fix((V355))))){
2351          goto T987;}          goto T938;}
2352          goto T988;          goto T939;
2353  T988:;  T939:;
2354          base[2]= Cnil;          {object V359 = Cnil;
2355          vs_top=(vs_base=base+2)+1;          VMR37(V359)}
2356          return;          goto T938;
2357          goto T987;  T938:;{object V360;
2358  T987:;{object V266;          if(type_of(car((V357)))==t_cons){
2359          if(type_of(car((V264)))==t_cons){          goto T949;}
2360          goto T998;}          V360= Cnil;
2361          V266= Cnil;          goto T948;
2362          goto T997;          goto T949;
2363          goto T998;  T949:;
2364  T998:;          {object V361= cdar((V357));
2365          {object V267= cdar((V264));          V360= (type_of(V361)==t_cons||(V361)==Cnil?Ct:Cnil);}
2366          V266= (type_of(V267)==t_cons||(V267)==Cnil?Ct:Cnil);}          goto T948;
2367          goto T997;  T948:;
2368  T997:;          if(V360==Cnil)goto T947;
2369          if(V266==Cnil)goto T996;          goto T946;
2370          goto T995;          goto T947;
2371          goto T996;  T947:;}
2372  T996:;}          {object V362 = Cnil;
2373          base[2]= Cnil;          VMR37(V362)}
2374          vs_top=(vs_base=base+2)+1;          goto T946;
2375          return;  T946:;
2376          goto T995;          base[0]= symbol_value(VV[78]);
2377  T995:;          base[1]= VV[79];
2378          base[2]= symbol_value(VV[78]);          base[2]= caar((V357));
2379          base[3]= VV[79];          base[3]= cadar((V357));
2380          base[4]= caar((V264));          base[4]= cdr((V357));
2381          base[5]= cadar((V264));          vs_top=(vs_base=base+0)+5;
         base[6]= cdr((V264));  
         vs_top=(vs_base=base+2)+5;  
2382          Lformat();          Lformat();
2383          vs_top=sup;          vs_top=sup;
2384          V264= cdr((V264));          V357= cdr((V357));
2385          goto T986;}          goto T937;}
2386          }          base[0]=base[0];
2387            return Cnil;
2388  }  }
2389  /*      function definition for APPLY-DISPLAY-FUN       */  /*      local entry for function APPLY-DISPLAY-FUN      */
2390    
2391  static void L40()  static object LI40(V366,V367,V368)
2392  {register object *base=vs_base;  
2393          register object *sup=base+VM38; VC38  object V366;object V367;object V368;
2394          vs_reserve(VM38);  {        VMB38 VMS38 VMV38
2395          bds_check;          bds_check;
         {object V268;  
         object V269;  
         object V270;  
         check_arg(3);  
         V268=(base[0]);  
         V269=(base[1]);  
         V270=(base[2]);  
         vs_top=sup;  
2396          goto TTL;          goto TTL;
2397  TTL:;  TTL:;
2398          bds_bind(VV[13],symbol_value(VV[10]));          bds_bind(VV[13],symbol_value(VV[10]));
# Line 2632  TTL:; Line 2400  TTL:;
2400          bds_bind(VV[80],Cnil);          bds_bind(VV[80],Cnil);
2401          bds_bind(VV[81],VV[82]);          bds_bind(VV[81],VV[82]);
2402          bds_bind(VV[12],Ct);          bds_bind(VV[12],Ct);
2403          base[8]= symbol_value(VV[78]);          base[5]= symbol_value(VV[78]);
2404          base[9]= small_fixnum(0);          base[6]= small_fixnum(0);
2405          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+5)+2;
2406          siLfill_pointer_set();          siLfill_pointer_set();
2407          vs_top=sup;          vs_top=sup;
2408          base[8]= symbol_value(VV[78]);          base[5]= symbol_value(VV[78]);
2409          base[9]= VV[83];          base[6]= VV[83];
2410          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+5)+2;
2411          Lformat();          Lformat();
2412          vs_top=sup;          vs_top=sup;
2413          (void)((          (void)((
2414          (type_of((V268)) == t_sfun ?(*(((V268))->sfn.sfn_self)):          (type_of((V366)) == t_sfun ?(*(((V366))->sfn.sfn_self)):
2415          (fcall.fun=((V268)),fcall.argd=2,fcalln))((V269),(V270))));          (fcall.fun=((V366)),fcall.argd=2,fcalln))((V367),(V368))));
2416          base[8]= symbol_value(VV[78]);          base[5]= symbol_value(VV[78]);
2417          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+5)+1;
2418          Lfill_pointer();          Lfill_pointer();
2419          vs_top=sup;          vs_top=sup;
2420          V271= vs_base[0];          V369= vs_base[0];
2421          if(!((fix(V271))>(fix((V269))))){          if(!((fix(V369))>(fix((V367))))){
2422          goto T1017;}          goto T968;}
2423          base[8]= symbol_value(VV[78]);          base[5]= symbol_value(VV[78]);
2424          base[9]= (V269);          base[6]= (V367);
2425          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+5)+2;
2426          siLfill_pointer_set();          siLfill_pointer_set();
2427          vs_top=sup;          vs_top=sup;
2428          base[8]= symbol_value(VV[78]);          base[5]= symbol_value(VV[78]);
2429          base[9]= VV[84];          base[6]= VV[84];
2430          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+5)+2;
2431          Lformat();          Lformat();
2432          vs_top=sup;          vs_top=sup;
2433          goto T1017;          goto T968;
2434  T1017:;  T968:;
2435          base[8]= symbol_value(VV[78]);          base[5]= symbol_value(VV[78]);
2436          base[9]= VV[85];          base[6]= VV[85];
2437          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+5)+2;
2438          Lformat();          Lformat();
2439          vs_top=sup;          vs_top=sup;
2440          bds_unwind1;          bds_unwind1;
# Line 2674  T1017:; Line 2442  T1017:;
2442          bds_unwind1;          bds_unwind1;
2443          bds_unwind1;          bds_unwind1;
2444          bds_unwind1;          bds_unwind1;
2445          base[3]= symbol_value(VV[78]);          {object V370 = symbol_value(VV[78]);
2446          vs_top=(vs_base=base+3)+1;          VMR38(V370)}
2447          return;          base[0]=base[0];
2448          }          return Cnil;
2449  }  }
2450  /*      function definition for GET-LINE-OF-FORM        */  /*      local entry for function GET-LINE-OF-FORM       */
2451    
2452  static void L41()  static object LI41(V373,V374)
2453  {register object *base=vs_base;  
2454          register object *sup=base+VM39; VC39  object V373;object V374;
2455          vs_reserve(VM39);  {        VMB39 VMS39 VMV39
         {object V272;  
         object V273;  
         check_arg(2);  
         V272=(base[0]);  
         V273=(base[1]);  
         vs_top=sup;  
2456          goto TTL;          goto TTL;
2457  TTL:;  TTL:;
2458          {object V274;          {object V375;
2459          V274= (VFUN_NARGS=2,(*(LnkLI144))((V272),(V273)));          V375= (VFUN_NARGS=2,(*(LnkLI145))((V373),(V374)));
2460          if(((V274))==Cnil){          if(((V375))==Cnil){
2461          goto T1031;}          goto T982;}
2462          V275= aref1((V273),0);          V376= aref1((V374),0);
2463          base[2]= make_fixnum((long)(fix((V274)))+(fix(cdr(/* INLINE-ARGS */V275))));          {object V377 = make_fixnum((long)(fix((V375)))+(fix(cdr(/* INLINE-ARGS */V376))));
2464          vs_top=(vs_base=base+2)+1;          VMR39(V377)}
2465          return;          goto T982;
2466          goto T1031;  T982:;
2467  T1031:;          {object V378 = Cnil;
2468          base[2]= Cnil;          VMR39(V378)}}
2469          vs_top=(vs_base=base+2)+1;          return Cnil;
         return;}  
         }  
2470  }  }
2471  /*      function definition for GET-NEXT-VISIBLE-FUN    */  /*      local entry for function GET-NEXT-VISIBLE-FUN   */
2472    
2473  static void L42()  static object LI42(V380)
2474  {register object *base=vs_base;  
2475          register object *sup=base+VM40; VC40  object V380;
2476          vs_reserve(VM40);  {        VMB40 VMS40 VMV40
         {object V276;  
         check_arg(1);  
         V276=(base[0]);  
         vs_top=sup;  
2477          goto TTL;          goto TTL;
2478  TTL:;  TTL:;
2479          {register object V277;          {register object V381;
2480          V277= (V276);          V381= (V380);
2481          goto T1034;          goto T985;
2482  T1034:;  T985:;
2483          if(!((fix((V277)))<(fix(symbol_value(VV[86]))))){          if(!((fix((V381)))<(fix(symbol_value(VV[86]))))){
2484          goto T1035;}          goto T986;}
2485          {register object V278;          {register object V382;
2486          V278= Cnil;          V382= Cnil;
2487          (void)((MVloc[(0)]=((V277))));          (void)((MVloc[(0)]=((V381))));
2488          base[1]= (V278);          {object V383 = (V382);
2489          vs_top=(vs_base=base+1)+1;          VMR40(V383)}}
2490          return;}          goto T986;
2491          goto T1035;  T986:;
2492  T1035:;          {register object V384;
2493          {register object V279;          base[0]= (V381);
2494          base[1]= (V277);          vs_top=(vs_base=base+0)+1;
2495          vs_top=(vs_base=base+1)+1;          (void) (*Lnk142)();
         (void) (*Lnk141)();  
2496          vs_top=sup;          vs_top=sup;
2497          V279= vs_base[0];          V384= vs_base[0];
2498          {register object V280;          {register object V385;
2499          base[1]= (V279);          base[0]= (V384);
2500          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
2501          Lspecial_form_p();          Lspecial_form_p();
2502          vs_top=sup;          vs_top=sup;
2503          V280= vs_base[0];          V385= vs_base[0];
2504          if(((V280))==Cnil){          if(((V385))==Cnil){
2505          goto T1046;}          goto T997;}
2506          goto T1040;          goto T991;
2507          goto T1046;          goto T997;
2508  T1046:;  T997:;
2509          {register object V281;          {register object V386;
2510          V281= get((V279),VV[87],Cnil);          V386= get((V384),VV[87],Cnil);
2511          if(((V281))==Cnil){          if(((V386))==Cnil){
2512          goto T1050;}          goto T1001;}
2513          goto T1040;          goto T991;
2514          goto T1050;          goto T1001;
2515  T1050:;  T1001:;
2516          base[1]= (V279);          base[0]= (V384);
2517          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
2518          Lfboundp();          Lfboundp();
2519          vs_top=sup;          vs_top=sup;
2520          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2521          goto T1040;}          goto T991;}
2522          {register object V282;          {register object V387;
2523          V282= (V279);          V387= (V384);
2524          (void)((MVloc[(0)]=((V277))));          (void)((MVloc[(0)]=((V381))));
2525          base[1]= (V282);          {object V388 = (V387);
2526          vs_top=(vs_base=base+1)+1;          VMR40(V388)}}}}}
2527          return;}}}}          goto T991;
2528          goto T1040;  T991:;
2529  T1040:;          V381= make_fixnum((long)(fix((V381)))-(1));
2530          V277= make_fixnum((long)(fix((V277)))-(1));          goto T985;}
2531          goto T1034;}          base[0]=base[0];
2532          }          return Cnil;
2533  }  }
2534  /*      function definition for DBL-WHAT-FRAME  */  /*      local entry for function DBL-WHAT-FRAME */
2535    
2536  static void L43()  static object LI43(V390)
 {register object *base=vs_base;  
         register object *sup=base+VM41; VC41  
         vs_reserve(VM41);  
         {register long V283;  
         check_arg(1);  
         V283=fix(base[0]);  
         vs_top=sup;  
         goto TTL;  
 TTL:;  
         {register long V284;  
         register long V285;  
         register object V286;  
         V284= fix(symbol_value(VV[88]));  
         V285= 0;  
         V286= Cnil;  
         goto T1063;  
 T1063:;  
         {register object V287;  
         base[1]= make_fixnum(V284);  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk157)();  
         vs_top=sup;  
         V286= vs_base[0];  
         V287= (V286);  
         V284= fix((MVloc[(0)]));}  
         if(!((V284)<=(V283))){  
         goto T1071;}  
         base[1]= make_fixnum(V285);  
         vs_top=(vs_base=base+1)+1;  
         return;  
         goto T1071;  
 T1071:;  
         V285= (long)(V285)+(1);  
         V284= (long)(V284)-(1);  
         goto T1063;}  
         }  
 }  
 /*      function definition for DBL-UP  */  
2537    
2538  static void L44()  register long V390;
2539  {register object *base=vs_base;  {        VMB41 VMS41 VMV41
         register object *sup=base+VM42; VC42  
         vs_reserve(VM42);  
         {register object V288;  
         object V289;  
         check_arg(2);  
         V288=(base[0]);  
         V289=(base[1]);  
         vs_top=sup;  
2540          goto TTL;          goto TTL;
2541  TTL:;  TTL:;
2542          {object V290;          {register long V391;
2543          object V291;          register long V392;
2544          object V292;          register object V393;
2545          object V293;          V391= fix(symbol_value(VV[88]));
2546          object V294;          V392= 0;
2547          V290= Cnil;          V393= Cnil;
2548          V291= Cnil;          goto T1014;
2549          V292= Cnil;  T1014:;
2550          V293= Cnil;          {register object V394;
2551          V294= Cnil;          V395 = make_fixnum(V391);
2552          base[2]= (V289);          V393= (*(LnkLI158))(V395);
2553          vs_top=(vs_base=base+2)+1;          V394= (V393);
2554          (void) (*Lnk158)();          V391= fix((MVloc[(0)]));}
2555          vs_top=sup;          if(!((V391)<=(V390))){
2556          V290= vs_base[0];          goto T1021;}
2557          if(!((fix((V288)))>=(0))){          {long V396 = V392;
2558          goto T1087;}          VMR41((object)V396)}
2559          {object V295;          goto T1021;
2560          base[2]= (V288);  T1021:;
2561          base[3]= (V289);          V392= (long)(V392)+(1);
2562          vs_top=(vs_base=base+2)+2;          V391= (long)(V391)-(1);
2563          (void) (*Lnk159)();          goto T1014;}
2564          vs_top=sup;  }
2565          setq(VV[9],vs_base[0]);  /*      local entry for function DBL-UP */
2566          V295= symbol_value(VV[9]);  
2567          V288= (MVloc[(0)]);  static object LI44(V399,V400)
2568          V291= (MVloc[(1)]);  
2569          V292= (MVloc[(2)]);  register object V399;object V400;
2570          V293= (MVloc[(3)]);  {        VMB42 VMS42 VMV42
2571          V294= (MVloc[(4)]);}          goto TTL;
2572          (void)((*(LnkLI160))());  TTL:;
2573          base[2]= make_fixnum((long)(fix((V290)))+(fix((V288))));          {object V401;
2574          base[3]= Ct;          object V402;
2575          base[4]= symbol_value(VV[9]);          object V403;
2576          base[5]= (V291);          object V404;
2577          base[6]= (V292);          object V405;
2578          base[7]= (V293);          V401= Cnil;
2579          base[8]= (V294);          V402= Cnil;
2580          vs_top=(vs_base=base+2)+7;          V403= Cnil;
2581          (void) (*Lnk161)();          V404= Cnil;
2582          return;          V405= Cnil;
2583          goto T1087;          V401= make_fixnum((long)(*(LnkLI159))(fix((V400))));
2584  T1087:;          if(!((fix((V399)))>=(0))){
2585          V288= make_fixnum((long)(fix((V290)))+(fix((V288))));          goto T1036;}
2586          if(!((fix((V288)))>=(0))){          {object V406;
2587          goto T1115;}          setq(VV[9],(VFUN_NARGS=2,(*(LnkLI160))((V399),(V400))));
2588          goto T1114;          V406= symbol_value(VV[9]);
2589          goto T1115;          V399= (MVloc[(0)]);
2590  T1115:;          V402= (MVloc[(1)]);
2591          V288= small_fixnum(0);          V403= (MVloc[(2)]);
2592          goto T1114;          V404= (MVloc[(3)]);
2593  T1114:;          V405= (MVloc[(4)]);}
2594          V289= symbol_value(VV[88]);          (void)((*(LnkLI161))());
2595            V407 = make_fixnum((long)(fix((V401)))+(fix((V399))));
2596            {object V408 = (VFUN_NARGS=7,(*(LnkLI162))(V407,Ct,symbol_value(VV[9]),(V402),(V403),(V404),(V405)));
2597            VMR42(V408)}
2598            goto T1036;
2599    T1036:;
2600            V399= make_fixnum((long)(fix((V401)))+(fix((V399))));
2601            if(!((fix((V399)))>=(0))){
2602            goto T1055;}
2603            goto T1054;
2604            goto T1055;
2605    T1055:;
2606            V399= small_fixnum(0);
2607            goto T1054;
2608    T1054:;
2609            V400= symbol_value(VV[88]);
2610          goto TTL;}          goto TTL;}
2611          }          return Cnil;
2612  }  }
2613  /*      function definition for NEXT-STACK-FRAME        */  /*      local entry for function NEXT-STACK-FRAME       */
2614    
2615  static void L45()  static object LI45(V410)
2616  {register object *base=vs_base;  
2617          register object *sup=base+VM43; VC43  object V410;
2618          vs_reserve(VM43);  {        VMB43 VMS43 VMV43
         {object V296;  
         check_arg(1);  
         V296=(base[0]);  
         vs_top=sup;  
2619          goto TTL;          goto TTL;
2620  TTL:;  TTL:;
2621          {register object V297;          {register object V411;
2622          register object V298;          register object V412;
2623          register object V299;          register object V413;
2624          register object V300;          register object V414;
2625          object V301;          object V415;
2626          V297= Cnil;          V411= Cnil;
2627          V298= Cnil;          V412= Cnil;
2628          V299= Cnil;          V413= Cnil;
2629          V300= Cnil;          V414= Cnil;
2630          V301= Cnil;          V415= Cnil;
2631          if(!((fix((V296)))<(fix(symbol_value(VV[86]))))){          if(!((fix((V410)))<(fix(symbol_value(VV[86]))))){
2632          goto T1127;}          goto T1067;}
2633          (void)((MVloc[(0)]=(Cnil)));          (void)((MVloc[(0)]=(Cnil)));
2634          (void)((MVloc[(1)]=(Cnil)));          (void)((MVloc[(1)]=(Cnil)));
2635          (void)((MVloc[(2)]=(Cnil)));          (void)((MVloc[(2)]=(Cnil)));
2636          (void)((MVloc[(3)]=(Cnil)));          (void)((MVloc[(3)]=(Cnil)));
2637          base[1]= Cnil;          {object V417 = Cnil;
2638          vs_top=(vs_base=base+1)+1;          VMR43(V417)}
2639          return;          goto T1067;
2640          goto T1127;  T1067:;
2641  T1127:;          {object V418;
2642          {object V303;          V418= Cnil;
2643          V303= Cnil;          {object V419;
2644          {object V304;          V418= (*(LnkLI158))((V410));
2645          base[1]= (V296);          V419= (V418);
2646          vs_top=(vs_base=base+1)+1;          V413= (MVloc[(0)]);}
2647          (void) (*Lnk157)();          V415= (V418);
2648          vs_top=sup;          {object V420;
2649          V303= vs_base[0];          V411= get((V418),VV[49],Cnil);
2650          V304= (V303);          if(((V411))!=Cnil){
2651          V299= (MVloc[(0)]);}          goto T1081;}
2652          V301= (V303);          V420= Cnil;
2653          {object V305;          goto T1080;
2654          V297= get((V303),VV[49],Cnil);          goto T1081;
2655          if(((V297))!=Cnil){  T1081:;
2656          goto T1142;}          {register object V421;
2657          V305= Cnil;          register object V422;
2658          goto T1141;          V421= make_fixnum((long)(fix((V410)))+(1));
2659          goto T1142;          V422= Cnil;
2660  T1142:;          goto T1086;
2661          {register object V306;  T1086:;
2662          register object V307;          if(!(number_compare((V421),(V413))<=0)){
2663          V306= make_fixnum((long)(fix((V296)))+(1));          goto T1087;}
2664          V307= Cnil;          V420= Cnil;
2665          goto T1147;          goto T1080;
2666  T1147:;          goto T1087;
2667          if(!(number_compare((V306),(V299))<=0)){  T1087:;
2668          goto T1148;}          base[0]= (V421);
2669          V305= Cnil;          vs_top=(vs_base=base+0)+1;
         goto T1141;  
         goto T1148;  
 T1148:;  
         base[1]= (V306);  
         vs_top=(vs_base=base+1)+1;  
2670          (void) (*Lnk116)();          (void) (*Lnk116)();
2671          vs_top=sup;          vs_top=sup;
2672          V307= vs_base[0];          V422= vs_base[0];
2673          base[2]= (V306);          base[0]= (V421);
2674          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
2675          (void) (*Lnk116)();          (void) (*Lnk116)();
2676          vs_top=sup;          vs_top=sup;
2677          base[1]= vs_base[0];          V423= vs_base[0];
2678          base[2]= (V297);          V412= (*(LnkLI163))(V423,(V411));
2679          vs_top=(vs_base=base+1)+2;          if(((V412))==Cnil){
2680          (void) (*Lnk162)();          goto T1094;}
2681          vs_top=sup;          {register object V424;
2682          V298= vs_base[0];          V424= (V413);
2683          if(((V298))==Cnil){          (void)((MVloc[(0)]=((V418))));
2684          goto T1155;}          (void)((MVloc[(1)]=((V412))));
2685          {register object V308;          V425= aref1((V411),0);
2686          V308= (V299);          (void)((MVloc[(2)]=(car(/* INLINE-ARGS */V425))));
2687          (void)((MVloc[(0)]=((V303))));          base[1]= (V421);
2688          (void)((MVloc[(1)]=((V298))));          vs_top=(vs_base=base+1)+1;
         V309= aref1((V297),0);  
         (void)((MVloc[(2)]=(car(/* INLINE-ARGS */V309))));  
         base[2]= (V306);  
         vs_top=(vs_base=base+2)+1;  
2689          (void) (*Lnk112)();          (void) (*Lnk112)();
2690          vs_top=sup;          vs_top=sup;
2691          V300= vs_base[0];          V414= vs_base[0];
2692          base[1]= (V300);          base[0]= (V414);
2693          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
2694          (void) (*Lnk113)();          (void) (*Lnk113)();
2695          vs_top=sup;          vs_top=sup;
2696          V310= vs_base[0];          V426= vs_base[0];
2697          base[1]= one_plus((V300));          base[0]= one_plus((V414));
2698          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
2699          (void) (*Lnk113)();          (void) (*Lnk113)();
2700          vs_top=sup;          vs_top=sup;
2701          V311= vs_base[0];          V427= vs_base[0];
2702          base[1]= number_plus((V300),small_fixnum(2));          base[0]= number_plus((V414),small_fixnum(2));
2703          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
2704          (void) (*Lnk113)();          (void) (*Lnk113)();
2705          vs_top=sup;          vs_top=sup;
2706          V312= vs_base[0];          V428= vs_base[0];
2707          V313= list(3,V310,V311,V312);          V429= list(3,V426,V427,V428);
2708          (void)((MVloc[(3)]=(/* INLINE-ARGS */V313)));          (void)((MVloc[(3)]=(/* INLINE-ARGS */V429)));
2709          base[1]= (V308);          {object V430 = (V424);
2710          vs_top=(vs_base=base+1)+1;          VMR43(V430)}}
2711          return;}          goto T1094;
2712          goto T1155;  T1094:;
2713  T1155:;          V421= make_fixnum((long)(fix((V421)))-(1));
2714          V306= make_fixnum((long)(fix((V306)))-(1));          goto T1086;}
2715          goto T1147;}          goto T1080;
2716          goto T1141;  T1080:;
2717  T1141:;          if(((V420))==Cnil){
2718          if(((V305))==Cnil){          goto T1116;}
2719          goto T1178;}          {object V431 = (V420);
2720          base[1]= (V305);          VMR43(V431)}
2721          vs_top=(vs_base=base+1)+1;          goto T1116;
2722          return;  T1116:;
2723          goto T1178;          base[0]= (V415);
2724  T1178:;          vs_top=(vs_base=base+0)+1;
         base[1]= (V301);  
         vs_top=(vs_base=base+1)+1;  
2725          Lspecial_form_p();          Lspecial_form_p();
2726          vs_top=sup;          vs_top=sup;
2727          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2728          goto T1181;}          goto T1119;}
2729          base[1]= Cnil;          {object V432 = Cnil;
2730          vs_top=(vs_base=base+1)+1;          VMR43(V432)}
2731          return;          goto T1119;
2732          goto T1181;  T1119:;
2733  T1181:;          {object V433;
2734          {object V314;          V433= get((V415),VV[87],Cnil);
2735          V314= get((V301),VV[87],Cnil);          if(((V433))==Cnil){
2736          if(((V314))==Cnil){          goto T1124;}
2737          goto T1186;}          {object V434 = (V433);
2738          base[1]= (V314);          VMR43(V434)}
2739          vs_top=(vs_base=base+1)+1;          goto T1124;
2740          return;  T1124:;
2741          goto T1186;          base[0]= (V415);
2742  T1186:;          vs_top=(vs_base=base+0)+1;
         base[1]= (V301);  
         vs_top=(vs_base=base+1)+1;  
2743          Lfboundp();          Lfboundp();
2744          vs_top=sup;          vs_top=sup;
2745          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2746          goto T1189;}          goto T1127;}
2747          (void)((MVloc[(0)]=((V301))));          (void)((MVloc[(0)]=((V415))));
2748          (void)((MVloc[(1)]=(Cnil)));          (void)((MVloc[(1)]=(Cnil)));
2749          (void)((MVloc[(2)]=(Cnil)));          (void)((MVloc[(2)]=(Cnil)));
2750          base[1]= (V299);          if(((*(LnkLI164))((V413)))==Cnil){
2751          vs_top=(vs_base=base+1)+1;          goto T1136;}
2752          (void) (*Lnk163)();          V436= Cnil;
2753          vs_top=sup;          goto T1134;
2754          if((vs_base[0])==Cnil){          goto T1136;
2755          goto T1198;}  T1136:;
2756          V316= Cnil;          {object V437;
2757          goto T1196;          base[0]= (V413);
2758          goto T1198;          vs_top=(vs_base=base+0)+1;
 T1198:;  
         {object V317;  
         base[1]= (V299);  
         vs_top=(vs_base=base+1)+1;  
2759          (void) (*Lnk112)();          (void) (*Lnk112)();
2760          vs_top=sup;          vs_top=sup;
2761          V317= vs_base[0];          V437= vs_base[0];
2762          base[1]= (V317);          base[0]= (V437);
2763          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
2764          (void) (*Lnk113)();          (void) (*Lnk113)();
2765          vs_top=sup;          vs_top=sup;
2766          V318= vs_base[0];          V438= vs_base[0];
2767          base[1]= one_plus((V317));          base[0]= one_plus((V437));
2768          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
2769          (void) (*Lnk113)();          (void) (*Lnk113)();
2770          vs_top=sup;          vs_top=sup;
2771          V319= vs_base[0];          V439= vs_base[0];
2772          base[1]= make_fixnum((long)(fix((V317)))+(2));          base[0]= make_fixnum((long)(fix((V437)))+(2));
2773          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
2774          (void) (*Lnk113)();          (void) (*Lnk113)();
2775          vs_top=sup;          vs_top=sup;
2776          V320= vs_base[0];          V440= vs_base[0];
2777          V316= list(3,V318,V319,V320);}          V436= list(3,V438,V439,V440);}
2778          goto T1196;          goto T1134;
2779  T1196:;  T1134:;
2780          (void)((MVloc[(3)]=(V316)));          (void)((MVloc[(3)]=(V436)));
2781          base[1]= V299;          {object V441 = V413;
2782          vs_top=(vs_base=base+1)+1;          VMR43(V441)}
2783          return;          goto T1127;
2784          goto T1189;  T1127:;
2785  T1189:;          {object V442 = Cnil;
2786          base[1]= Cnil;          VMR43(V442)}}}}}
2787          vs_top=(vs_base=base+1)+1;          base[0]=base[0];
2788          return;}}}}          return Cnil;
         }  
2789  }  }
2790  /*      function definition for NTH-STACK-FRAME */  /*      local entry for function NTH-STACK-FRAME        */
2791    
2792  static void L46()  static object LI46(object V443,object first,...)
2793  {register object *base=vs_base;  {      
2794          register object *sup=base+VM44; VC44          va_list ap;
2795          vs_reserve(VM44);          int narg = VFUN_NARGS; VMB44 VMS44 VMV44
2796          {register object V321;          {register object V444;
2797          register object V322;          register object V445;
2798          if(vs_top-vs_base<1) too_few_arguments();          va_start(ap,first);
2799          if(vs_top-vs_base>2) too_many_arguments();          if(narg <1) too_few_arguments();
2800          V321=(base[0]);          V444= V443;
2801          vs_base=vs_base+1;          narg = narg - 1;
2802          if(vs_base>=vs_top){vs_top=sup;goto T1209;}          if (narg <= 0) goto T1146;
2803          V322=(base[1]);          else {
2804          vs_top=sup;          V445= first;}
2805          goto T1210;          --narg; goto T1147;
2806          goto T1209;          goto T1146;
2807  T1209:;  T1146:;
2808          V322= symbol_value(VV[88]);          V445= symbol_value(VV[88]);
2809          goto T1210;          goto T1147;
2810  T1210:;  T1147:;
2811          {register object V323;          {register object V446;
2812          object V324;          object V447;
2813          object V325;          object V448;
2814          object V326;          object V449;
2815          register object V327;          register object V450;
2816          V323= Cnil;          V446= Cnil;
2817          V324= Cnil;          V447= Cnil;
2818          V325= Cnil;          V448= Cnil;
2819          V326= Cnil;          V449= Cnil;
2820          V327= Cnil;          V450= Cnil;
2821          if(!((fix((V321)))>=(0))){          if(!((fix((V444)))>=(0))){
2822          goto T1218;}          goto T1155;}
2823          goto T1217;          goto T1154;
2824          goto T1218;          goto T1155;
2825  T1218:;  T1155:;
2826          V321= small_fixnum(0);          V444= small_fixnum(0);
2827          goto T1217;          goto T1154;
2828  T1217:;  T1154:;
2829          {object V328;          {object V451;
2830          register object V329;          register object V452;
2831          V328= make_fixnum((long)(fix((V321)))+(1));          V451= make_fixnum((long)(fix((V444)))+(1));
2832          V329= small_fixnum(0);          V452= small_fixnum(0);
2833          goto T1225;          goto T1162;
2834  T1225:;  T1162:;
2835          if(!(number_compare((V329),(V328))>=0)){          if(!(number_compare((V452),(V451))>=0)){
2836          goto T1226;}          goto T1163;}
2837          goto T1221;          goto T1158;
2838          goto T1226;          goto T1163;
2839  T1226:;  T1163:;
2840          base[3]= (V322);          V450= (*(LnkLI165))((V445));
2841          vs_top=(vs_base=base+3)+1;          if(((V450))==Cnil){
2842          (void) (*Lnk164)();          goto T1171;}
2843          vs_top=sup;          {register object V453;
2844          V327= vs_base[0];          V445= (V450);
2845          if(((V327))==Cnil){          V453= (V445);
2846          goto T1235;}          V446= (MVloc[(0)]);
2847          {register object V330;          V447= (MVloc[(1)]);
2848          V322= (V327);          V448= (MVloc[(2)]);
2849          V330= (V322);          V449= (MVloc[(3)]);}
2850          V323= (MVloc[(0)]);          V445= make_fixnum((long)(fix((V450)))-(1));
2851          V324= (MVloc[(1)]);          goto T1169;
2852          V325= (MVloc[(2)]);          goto T1171;
2853          V326= (MVloc[(3)]);}  T1171:;
2854          V322= make_fixnum((long)(fix((V327)))-(1));          V444= make_fixnum((long)(fix((V452)))-(1));
2855          goto T1233;          goto T1158;
2856          goto T1235;          goto T1169;
2857  T1235:;  T1169:;
2858          V321= make_fixnum((long)(fix((V329)))-(1));          V452= one_plus((V452));
2859          goto T1221;          goto T1162;}
2860          goto T1233;          goto T1158;
2861  T1233:;  T1158:;
2862          V329= one_plus((V329));          V445= make_fixnum((long)(fix((V445)))+(1));
2863          goto T1225;}          base[0]= (V445);
2864          goto T1221;          vs_top=(vs_base=base+0)+1;
2865  T1221:;          (void) (*Lnk142)();
         V322= make_fixnum((long)(fix((V322)))+(1));  
         base[2]= (V322);  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk141)();  
2866          vs_top=sup;          vs_top=sup;
2867          V323= vs_base[0];          V446= vs_base[0];
2868          (void)((MVloc[(0)]=((V321))));          (void)((MVloc[(0)]=((V444))));
2869          (void)((MVloc[(1)]=((V323))));          (void)((MVloc[(1)]=((V446))));
2870          (void)((MVloc[(2)]=((V324))));          (void)((MVloc[(2)]=((V447))));
2871          (void)((MVloc[(3)]=((V325))));          (void)((MVloc[(3)]=((V448))));
2872          (void)((MVloc[(4)]=((V326))));          (void)((MVloc[(4)]=((V449))));
2873          base[2]= V322;          {object V455 = V445;
2874          vs_top=(vs_base=base+2)+1;          VMR44(V455)}}
2875          return;}          va_end(ap);
2876            base[0]=base[0];
2877            return Cnil;}
2878          }          }
 }  
2879  /*      function definition for DBL-BACKTRACE   */  /*      function definition for DBL-BACKTRACE   */
2880    
2881  static void L47()  static void L47()
2882  {register object *base=vs_base;  {register object *base=vs_base;
2883          register object *sup=base+VM45; VC45          register object *sup=base+VM45; VC45
2884          vs_reserve(VM45);          vs_reserve(VM45);
2885          {object V332;          {object V456;
2886          register object V333;          register object V457;
2887          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
2888          if(vs_base>=vs_top){vs_top=sup;goto T1263;}          if(vs_base>=vs_top){vs_top=sup;goto T1199;}
2889          V332=(base[0]);          V456=(base[0]);
2890          vs_base++;          vs_base++;
2891          if(vs_base>=vs_top){vs_top=sup;goto T1264;}          if(vs_base>=vs_top){vs_top=sup;goto T1200;}
2892          V333=(base[1]);          V457=(base[1]);
         vs_top=sup;  
         goto T1265;  
         goto T1263;  
 T1263:;  
         V332= small_fixnum(1000);  
         goto T1264;  
 T1264:;  
         V333= symbol_value(VV[88]);  
         goto T1265;  
 T1265:;  
         {register object V334;  
         register object V335;  
         register object V336;  
         register object V337;  
         register object V338;  
         V334= Cnil;  
         V335= Cnil;  
         V336= Cnil;  
         V337= Cnil;  
         V338= small_fixnum(0);  
         goto T1275;  
 T1275:;  
         {object V339;  
         base[2]= (V333);  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk164)();  
2893          vs_top=sup;          vs_top=sup;
2894          V333= vs_base[0];          goto T1201;
2895          V339= (V333);          goto T1199;
2896          V334= (MVloc[(0)]);  T1199:;
2897          V336= (MVloc[(1)]);          V456= small_fixnum(1000);
2898          V335= (MVloc[(2)]);          goto T1200;
2899          V337= (MVloc[(3)]);}  T1200:;
2900          if((V334)!=Cnil){          V457= symbol_value(VV[88]);
2901          goto T1289;}          goto T1201;
2902          goto T1273;  T1201:;
2903          goto T1289;          {register object V458;
2904  T1289:;          register object V459;
2905          base[2]= (V338);          register object V460;
2906          base[3]= Cnil;          register object V461;
2907          base[4]= (V333);          register object V462;
2908          base[5]= (V334);          V458= Cnil;
2909          base[6]= (V336);          V459= Cnil;
2910          base[7]= (V335);          V460= Cnil;
2911          base[8]= (V337);          V461= Cnil;
2912          vs_top=(vs_base=base+2)+7;          V462= small_fixnum(0);
2913          (void) (*Lnk161)();          goto T1211;
2914          vs_top=sup;  T1211:;
2915          V338= number_plus((V338),small_fixnum(1));          {object V463;
2916          if(!((fix((V338)))>=(fix((V332))))){          V457= (*(LnkLI165))((V457));
2917          goto T1300;}          V463= (V457);
2918            V458= (MVloc[(0)]);
2919            V460= (MVloc[(1)]);
2920            V459= (MVloc[(2)]);
2921            V461= (MVloc[(3)]);}
2922            if((V458)!=Cnil){
2923            goto T1224;}
2924            goto T1209;
2925            goto T1224;
2926    T1224:;
2927            (void)((VFUN_NARGS=7,(*(LnkLI162))((V462),Cnil,(V457),(V458),(V460),(V459),(V461))));
2928            V462= number_plus((V462),small_fixnum(1));
2929            if(!((fix((V462)))>=(fix((V456))))){
2930            goto T1228;}
2931          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
2932          vs_base[0]=Cnil;          vs_base[0]=Cnil;
2933          vs_top=sup;          vs_top=sup;
2934          goto T1273;          goto T1209;
2935          goto T1300;          goto T1228;
2936  T1300:;  T1228:;
2937          V333= make_fixnum((long)(fix((V333)))-(1));          V457= make_fixnum((long)(fix((V457)))-(1));
2938          goto T1275;          goto T1211;
2939          goto T1273;          goto T1209;
2940  T1273:;  T1209:;
2941          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
2942          vs_base[0]=Cnil;          vs_base[0]=Cnil;
2943          return;}          return;}
2944          }          }
2945  }  }
2946  /*      function definition for DISPLAY-COMPILED-ENV    */  /*      local entry for function DISPLAY-COMPILED-ENV   */
2947    
2948  static void L48()  static object LI48(V466,V467)
2949  {register object *base=vs_base;  
2950          register object *sup=base+VM46; VC46  register object V466;object V467;
2951          vs_reserve(VM46);  {        VMB46 VMS46 VMV46
         {register object V340;  
         object V341;  
         check_arg(2);  
         V340=(base[0]);  
         V341=(base[1]);  
         vs_top=sup;  
2952          goto TTL;          goto TTL;
2953  TTL:;  TTL:;
2954          {register object V342;          {register object V468;
2955          register object V343;          register object V469;
2956          base[4]= (V341);          base[2]= (V467);
2957          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+2)+1;
2958          (void) (*Lnk112)();          (void) (*Lnk112)();
2959          vs_top=sup;          vs_top=sup;
2960          V342= vs_base[0];          V468= vs_base[0];
2961          base[4]= one_plus((V341));          base[2]= one_plus((V467));
2962          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+2)+1;
2963          (void) (*Lnk112)();          (void) (*Lnk112)();
2964          vs_top=sup;          vs_top=sup;
2965          V344= vs_base[0];          V470= vs_base[0];
2966          vs_base=vs_top;          vs_base=vs_top;
2967          (void) (*Lnk165)();          (void) (*Lnk166)();
2968          vs_top=sup;          vs_top=sup;
2969          V345= vs_base[0];          V471= vs_base[0];
2970          V343= (number_compare(V344,V345)<=0?(V344):V345);          V469= (number_compare(V470,V471)<=0?(V470):V471);
2971          base[4]= symbol_value(VV[78]);          base[2]= symbol_value(VV[78]);
2972          base[5]= VV[89];          base[3]= VV[89];
2973          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+2)+2;
2974          Lformat();          Lformat();
2975          vs_top=sup;          vs_top=sup;
2976          {register object V346;          {register object V472;
2977          register object V347;          register object V473;
2978          base[4]= (V341);          base[2]= (V467);
2979          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+2)+1;
2980          (void) (*Lnk141)();          (void) (*Lnk142)();
2981          vs_top=sup;          vs_top=sup;
2982          V348= vs_base[0];          V474= vs_base[0];
2983          V347= get(V348,VV[14],Cnil);          V473= get(V474,VV[14],Cnil);
2984          V346= (V342);          V472= (V468);
2985          goto T1318;          goto T1246;
2986  T1318:;  T1246:;
2987          if((fix((V346)))>=(fix((V343)))){          if((fix((V472)))>=(fix((V469)))){
2988          goto T1320;}          goto T1248;}
2989          base[4]= symbol_value(VV[78]);          base[2]= symbol_value(VV[78]);
2990          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+2)+1;
2991          Lfill_pointer();          Lfill_pointer();
2992          vs_top=sup;          vs_top=sup;
2993          V349= vs_base[0];          V475= vs_base[0];
2994          if(!((fix(V349))>(fix((V340))))){          if(!((fix(V475))>(fix((V466))))){
2995          goto T1319;}          goto T1247;}
2996          goto T1320;          goto T1248;
2997  T1320:;  T1248:;
2998          base[4]= Cnil;          {object V476 = Cnil;
2999          vs_top=(vs_base=base+4)+1;          VMR46(V476)}
3000          return;          goto T1247;
3001          goto T1319;  T1247:;
3002  T1319:;          base[2]= symbol_value(VV[78]);
3003          base[4]= symbol_value(VV[78]);          base[3]= VV[90];{object V477;
3004          base[5]= VV[90];{object V350;          V477= car((V473));
3005          V350= car((V347));          if(V477==Cnil)goto T1259;
3006          if(V350==Cnil)goto T1331;          base[4]= V477;
3007          base[6]= V350;          goto T1258;
3008          goto T1330;          goto T1259;
3009          goto T1331;  T1259:;}
3010  T1331:;}          base[4]= VV[91];
3011          base[6]= VV[91];          goto T1258;
3012          goto T1330;  T1258:;
3013  T1330:;          if((car((V473)))!=Cnil){
3014          if((car((V347)))!=Cnil){          goto T1263;}
3015          goto T1335;}          base[5]= make_fixnum((long)(fix((V472)))-(fix((V468))));
3016          base[7]= make_fixnum((long)(fix((V346)))-(fix((V342))));          goto T1261;
3017          goto T1333;          goto T1263;
3018          goto T1335;  T1263:;
3019  T1335:;          base[5]= Cnil;
3020          base[7]= Cnil;          goto T1261;
3021          goto T1333;  T1261:;
3022  T1333:;          base[7]= (V472);
3023          base[9]= (V346);          vs_top=(vs_base=base+7)+1;
         vs_top=(vs_base=base+9)+1;  
3024          (void) (*Lnk113)();          (void) (*Lnk113)();
3025          vs_top=sup;          vs_top=sup;
3026          base[8]= vs_base[0];          base[6]= vs_base[0];
3027          V346= make_fixnum((long)(fix((V346)))+(1));          V472= make_fixnum((long)(fix((V472)))+(1));
3028          base[9]= ((fix((V346)))<(fix((V343)))?Ct:Cnil);          base[7]= ((fix((V472)))<(fix((V469)))?Ct:Cnil);
3029          vs_top=(vs_base=base+4)+6;          vs_top=(vs_base=base+2)+6;
3030          Lformat();          Lformat();
3031          vs_top=sup;          vs_top=sup;
3032          V347= cdr((V347));          V473= cdr((V473));
3033          goto T1318;}}          goto T1246;}}
3034          }          base[0]=base[0];
3035            return Cnil;
3036  }  }
3037  /*      function definition for COMPUTING-ARGS-P        */  /*      local entry for function COMPUTING-ARGS-P       */
3038    
3039  static void L49()  static object LI49(V479)
3040  {register object *base=vs_base;  
3041          register object *sup=base+VM47; VC47  object V479;
3042          vs_reserve(VM47);  {        VMB47 VMS47 VMV47
         {object V351;  
         check_arg(1);  
         V351=(base[0]);  
         vs_top=sup;  
3043          goto TTL;          goto TTL;
3044  TTL:;  TTL:;
3045          base[1]= (V351);          base[0]= (V479);
3046          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
3047          (void) (*Lnk116)();          (void) (*Lnk116)();
3048          vs_top=sup;          vs_top=sup;
3049          V352= vs_base[0];          V480= vs_base[0];
3050          if(type_of(V352)==t_cons){          if(type_of(V480)==t_cons){
3051          goto T1344;}          goto T1272;}
3052          base[1]= Cnil;          {object V481 = Cnil;
3053          vs_top=(vs_base=base+1)+1;          VMR47(V481)}
3054          return;          goto T1272;
3055          goto T1344;  T1272:;
3056  T1344:;          if(number_compare((V479),small_fixnum(3))>0){
3057          if(number_compare((V351),small_fixnum(3))>0){          goto T1276;}
3058          goto T1348;}          {object V482 = Cnil;
3059          base[1]= Cnil;          VMR47(V482)}
3060          vs_top=(vs_base=base+1)+1;          goto T1276;
3061          return;  T1276:;
3062          goto T1348;          base[0]= (V479);
3063  T1348:;          vs_top=(vs_base=base+0)+1;
         base[1]= (V351);  
         vs_top=(vs_base=base+1)+1;  
3064          (void) (*Lnk116)();          (void) (*Lnk116)();
3065          vs_top=sup;          vs_top=sup;
3066          V355= vs_base[0];          V485= vs_base[0];
3067          {register object x= car(V355),V354= VV[92];          {register object x= car(V485),V484= VV[92];
3068          while(!endp(V354))          while(!endp(V484))
3069          if(eql(x,V354->c.c_car)){          if(eql(x,V484->c.c_car)){
3070          V353= V354;          V483= V484;
3071          goto T1350;          goto T1278;
3072          }else V354=V354->c.c_cdr;          }else V484=V484->c.c_cdr;
3073          V353= Cnil;}          V483= Cnil;}
3074          goto T1350;          goto T1278;
3075  T1350:;  T1278:;
3076          base[1]= ((V353)==Cnil?Ct:Cnil);          {object V486 = ((V483)==Cnil?Ct:Cnil);
3077          vs_top=(vs_base=base+1)+1;          VMR47(V486)}
3078          return;          base[0]=base[0];
3079          }          return Cnil;
3080  }  }
3081  /*      function definition for PRINT-STACK-FRAME       */  /*      local entry for function PRINT-STACK-FRAME      */
3082    
3083  static void L50()  static object LI50(object V490,object V489,object V488,object V487,object first,...)
3084  {register object *base=vs_base;  {      
3085          register object *sup=base+VM48; VC48          va_list ap;
3086          vs_reserve(VM48);          int narg = VFUN_NARGS; VMB48 VMS48 VMV48
3087          {object V356;          {object V491;
3088          object V357;          object V492;
3089          register object V358;          register object V493;
3090          object V359;          object V494;
3091          object V360;          object V495;
3092          object V361;          object V496;
3093          object V362;          object V497;
3094          if(vs_top-vs_base<4) too_few_arguments();          va_start(ap,first);
3095          if(vs_top-vs_base>7) too_many_arguments();          if(narg <4) too_few_arguments();
3096          V356=(base[0]);          V491= V490;
3097          V357=(base[1]);          V492= V489;
3098          V358=(base[2]);          V493= V488;
3099          V359=(base[3]);          V494= V487;
3100          vs_base=vs_base+4;          narg = narg - 4;
3101          if(vs_base>=vs_top){vs_top=sup;goto T1353;}          if (narg <= 0) goto T1281;
3102          V360=(base[4]);          else {
3103          vs_base++;          V495= first;}
3104          if(vs_base>=vs_top){vs_top=sup;goto T1354;}          if (--narg <= 0) goto T1282;
3105          V361=(base[5]);          else {
3106          vs_base++;          V496= va_arg(ap,object);}
3107          if(vs_base>=vs_top){vs_top=sup;goto T1355;}          if (--narg <= 0) goto T1283;
3108          V362=(base[6]);          else {
3109            V497= va_arg(ap,object);}
3110            --narg; goto T1284;
3111            goto T1281;
3112    T1281:;
3113            V495= Cnil;
3114            goto T1282;
3115    T1282:;
3116            V496= Cnil;
3117            goto T1283;
3118    T1283:;
3119            V497= Cnil;
3120            goto T1284;
3121    T1284:;
3122            if(((V492))==Cnil){
3123            goto T1288;}
3124            if(((V495))==Cnil){
3125            goto T1288;}
3126            base[0]= symbol_value(VV[1]);
3127            base[1]= VV[93];
3128            base[2]= (V496);
3129            base[3]= (V495);
3130            vs_top=(vs_base=base+0)+4;
3131            Lformat();
3132          vs_top=sup;          vs_top=sup;
3133          goto T1356;          goto T1288;
3134          goto T1353;  T1288:;
3135  T1353:;          {object V498;
3136          V360= Cnil;          V498= (*(LnkLI167))((V493));
3137          goto T1354;          base[0]= symbol_value(VV[1]);
3138  T1354:;          base[1]= VV[94];
3139          V361= Cnil;          base[2]= (V491);
3140          goto T1355;          if((V498)==Cnil){
3141  T1355:;          base[3]= Cnil;
3142          V362= Cnil;          goto T1302;}
3143          goto T1356;          base[3]= VV[95];
3144  T1356:;          goto T1302;
3145          if(((V357))==Cnil){  T1302:;
3146          goto T1360;}          base[4]= (V494);
3147          if(((V360))==Cnil){          if(((*(LnkLI164))((V493)))!=Cnil){
3148          goto T1360;}          goto T1306;}
3149          base[7]= symbol_value(VV[1]);          base[7]= (V493);
         base[8]= VV[93];  
         base[9]= (V361);  
         base[10]= (V360);  
         vs_top=(vs_base=base+7)+4;  
         Lformat();  
         vs_top=sup;  
         goto T1360;  
 T1360:;  
         {object V363;  
         base[7]= (V358);  
3150          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
         (void) (*Lnk166)();  
         vs_top=sup;  
         V363= vs_base[0];  
         base[7]= symbol_value(VV[1]);  
         base[8]= VV[94];  
         base[9]= (V356);  
         if((V363)==Cnil){  
         base[10]= Cnil;  
         goto T1375;}  
         base[10]= VV[95];  
         goto T1375;  
 T1375:;  
         base[11]= (V359);  
         base[13]= (V358);  
         vs_top=(vs_base=base+13)+1;  
         (void) (*Lnk163)();  
         vs_top=sup;  
         if((vs_base[0])!=Cnil){  
         goto T1379;}  
         base[13]= VV[96];  
         base[14]= small_fixnum(80);  
         base[17]= (V358);  
         vs_top=(vs_base=base+17)+1;  
3151          (void) (*Lnk112)();          (void) (*Lnk112)();
3152          vs_top=sup;          vs_top=sup;
3153          base[16]= vs_base[0];          base[6]= vs_base[0];
3154          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+6)+1;
3155          (void) (*Lnk113)();          (void) (*Lnk113)();
3156          vs_top=sup;          vs_top=sup;
3157          V364= vs_base[0];          V499= vs_base[0];
3158          base[15]= car(V364);          base[5]= (*(LnkLI168))(VV[96],small_fixnum(80),car(V499));
3159          vs_top=(vs_base=base+13)+3;          goto T1304;
3160          (void) (*Lnk167)();          goto T1306;
3161          vs_top=sup;  T1306:;
3162          base[12]= vs_base[0];          base[5]= (*(LnkLI168))(VV[97],small_fixnum(80),(V493));
3163          goto T1377;          goto T1304;
3164          goto T1379;  T1304:;
3165  T1379:;          vs_top=(vs_base=base+0)+6;
3166          base[13]= VV[97];          Lformat();
3167          base[14]= small_fixnum(80);          vs_top=sup;
3168          base[15]= (V358);          if(((V496))==Cnil){
3169          vs_top=(vs_base=base+13)+3;          goto T1311;}
3170          (void) (*Lnk167)();          base[0]= symbol_value(VV[1]);
3171          vs_top=sup;          base[1]= VV[98];
3172          base[12]= vs_base[0];          base[2]= (V496);
3173          goto T1377;          base[3]= (V495);
3174  T1377:;          vs_top=(vs_base=base+0)+4;
         vs_top=(vs_base=base+7)+6;  
         Lformat();  
         vs_top=sup;  
         if(((V361))==Cnil){  
         goto T1391;}  
         base[7]= symbol_value(VV[1]);  
         base[8]= VV[98];  
         base[9]= (V361);  
         base[10]= (V360);  
         vs_top=(vs_base=base+7)+4;  
         Lformat();  
         vs_top=sup;  
         goto T1391;  
 T1391:;  
         base[7]= symbol_value(VV[1]);  
         base[8]= VV[99];  
         base[9]= (V358);  
         vs_top=(vs_base=base+7)+3;  
3175          Lformat();          Lformat();
3176          return;}          vs_top=sup;
3177            goto T1311;
3178    T1311:;
3179            base[0]= symbol_value(VV[1]);
3180            base[1]= VV[99];
3181            base[2]= (V493);
3182            vs_top=(vs_base=base+0)+3;
3183            Lformat();
3184            vs_top=sup;
3185            {object V500 = vs_base[0];
3186            VMR48(V500)}}
3187            va_end(ap);
3188            base[0]=base[0];
3189            return Cnil;}
3190          }          }
3191  }  /*      local entry for function MAKE-BREAK-POINT       */
 /*      function definition for MAKE-BREAK-POINT        */  
3192    
3193  static void L51()  static object LI51(V504,V505,V506)
3194  {register object *base=vs_base;  
3195          register object *sup=base+VM49; VC49  object V504;object V505;object V506;
3196          vs_reserve(VM49);  {        VMB49 VMS49 VMV49
         {object V365;  
         object V366;  
         object V367;  
         check_arg(3);  
         V365=(base[0]);  
         V366=(base[1]);  
         V367=(base[2]);  
         vs_top=sup;  
3197          goto TTL;          goto TTL;
3198  TTL:;  TTL:;
3199          V368= aref1((V366),fixint((V367)));          V507= aref1((V505),fixint((V506)));
3200          V369= aref1((V366),0);          V508= aref1((V505),0);
3201          V370= car(/* INLINE-ARGS */V369);          V509= car(/* INLINE-ARGS */V508);
3202          V371= aref1((V366),0);          V510= aref1((V505),0);
3203          V372 = make_fixnum((long)(fix(cdr(/* INLINE-ARGS */V371)))+(fix((V367))));          V511 = make_fixnum((long)(fix(cdr(/* INLINE-ARGS */V510)))+(fix((V506))));
3204          base[3]= list(4,/* INLINE-ARGS */V368,/* INLINE-ARGS */V370,V372,(V365));          {object V512 = list(4,/* INLINE-ARGS */V507,/* INLINE-ARGS */V509,V511,(V504));
3205          vs_top=(vs_base=base+3)+1;          VMR49(V512)}
3206          return;          return Cnil;
         }  
3207  }  }
3208  /*      function definition for RELATIVE-LINE   */  /*      local entry for function RELATIVE-LINE  */
3209    
3210  static void L52()  static object LI52(V515,V516)
3211  {register object *base=vs_base;  
3212          register object *sup=base+VM50; VC50  object V515;object V516;
3213          vs_reserve(VM50);  {        VMB50 VMS50 VMV50
         {object V373;  
         object V374;  
         check_arg(2);  
         V373=(base[0]);  
         V374=(base[1]);  
         vs_top=sup;  
3214          goto TTL;          goto TTL;
3215  TTL:;  TTL:;
3216          {object V375;          {object V517;
3217          V375= get((V373),VV[49],Cnil);          V517= get((V515),VV[49],Cnil);
3218          if(((V375))==Cnil){          if(((V517))==Cnil){
3219          goto T1403;}          goto T1323;}
3220          V376= aref1((V375),0);          V518= aref1((V517),0);
3221          base[2]= make_fixnum((long)(fix((V374)))-(fix(cdr(/* INLINE-ARGS */V376))));          {long V519 = (long)(fix((V516)))-(fix(cdr(/* INLINE-ARGS */V518)));
3222          vs_top=(vs_base=base+2)+1;          VMR50((object)V519)}
3223          return;          goto T1323;
3224          goto T1403;  T1323:;
3225  T1403:;          {long V520 = 0;
3226          base[2]= small_fixnum(0);          VMR50((object)V520)}}
         vs_top=(vs_base=base+2)+1;  
         return;}  
         }  
3227  }  }
3228  /*      function definition for SAFE-EVAL       */  /*      local entry for function SAFE-EVAL      */
3229    
3230  static void L53()  static object LI53(V523,V524)
3231  {register object *base=vs_base;  
3232          register object *sup=base+VM51; VC51  register object V523;object V524;
3233          vs_reserve(VM51);  {        VMB51 VMS51 VMV51
3234          bds_check;          bds_check;
         {register object V377;  
         object V378;  
         check_arg(2);  
         V377=(base[0]);  
         V378=(base[1]);  
         vs_top=sup;  
3235          goto TTL;          goto TTL;
3236  TTL:;  TTL:;
3237          bds_bind(VV[100],Cnil);          bds_bind(VV[100],Cnil);
3238          bds_bind(VV[101],symbol_value(VV[102]));          bds_bind(VV[101],symbol_value(VV[102]));
3239          bds_bind(VV[1],symbol_value(VV[102]));          bds_bind(VV[1],symbol_value(VV[102]));
3240          if(!(type_of((V377))==t_symbol)){          if(!(type_of((V523))==t_symbol)){
3241          goto T1405;}          goto T1325;}
3242          base[5]= (V377);          base[3]= (V523);
3243          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+3)+1;
3244          Lboundp();          Lboundp();
3245          vs_top=sup;          vs_top=sup;
3246          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
3247          goto T1405;}          goto T1325;}
3248          {register object x= (V377),V379= car((V378));          {register object x= (V523),V525= car((V524));
3249          while(!endp(V379))          while(!endp(V525))
3250          if(type_of(V379->c.c_car)==t_cons &&eql(x,V379->c.c_car->c.c_car)){          if(type_of(V525->c.c_car)==t_cons &&eql(x,V525->c.c_car->c.c_car)){
3251          goto T1405;          goto T1325;
3252          }else V379=V379->c.c_cdr;}          }else V525=V525->c.c_cdr;}
3253          base[5]= VV[103];          {object V526 = VV[103];
         vs_top=(vs_base=base+5)+1;  
3254          bds_unwind1;          bds_unwind1;
3255          bds_unwind1;          bds_unwind1;
3256          bds_unwind1;          bds_unwind1;
3257          return;          VMR51(V526)}
3258          goto T1405;          goto T1325;
3259  T1405:;  T1325:;
3260          {object V380;          {object V527;
3261          object V381;          object V528;
3262          V382= list(2,VV[105],(V377));          V529= list(2,VV[105],(V523));
3263          base[5]= list(5,VV[104],/* INLINE-ARGS */V382,Cnil,Cnil,list(2,VV[105],(V378)));          base[3]= list(5,VV[104],/* INLINE-ARGS */V529,Cnil,Cnil,list(2,VV[105],(V524)));
3264          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+3)+1;
3265          (void) (*Lnk168)();          (void) (*Lnk169)();
3266          if(vs_base>=vs_top){vs_top=sup;goto T1415;}          if(vs_base>=vs_top){vs_top=sup;goto T1335;}
3267          V380= vs_base[0];          V527= vs_base[0];
3268          vs_base++;          vs_base++;
3269          if(vs_base>=vs_top){vs_top=sup;goto T1416;}          if(vs_base>=vs_top){vs_top=sup;goto T1336;}
3270          V381= vs_base[0];          V528= vs_base[0];
3271          vs_top=sup;          vs_top=sup;
3272          goto T1417;          goto T1337;
3273          goto T1415;          goto T1335;
3274  T1415:;  T1335:;
3275          V380= Cnil;          V527= Cnil;
3276          goto T1416;          goto T1336;
3277  T1416:;  T1336:;
3278          V381= Cnil;          V528= Cnil;
3279          goto T1417;          goto T1337;
3280  T1417:;  T1337:;
3281          if(((V380))==Cnil){          if(((V527))==Cnil){
3282          goto T1419;}          goto T1339;}
3283          base[5]= VV[103];          {object V530 = VV[103];
         vs_top=(vs_base=base+5)+1;  
3284          bds_unwind1;          bds_unwind1;
3285          bds_unwind1;          bds_unwind1;
3286          bds_unwind1;          bds_unwind1;
3287          return;          VMR51(V530)}
3288          goto T1419;          goto T1339;
3289  T1419:;  T1339:;
3290          base[5]= (V381);          {object V531 = (V528);
         vs_top=(vs_base=base+5)+1;  
3291          bds_unwind1;          bds_unwind1;
3292          bds_unwind1;          bds_unwind1;
3293          bds_unwind1;          bds_unwind1;
3294          return;}          VMR51(V531)}}
3295          }          base[0]=base[0];
3296            return Cnil;
3297  }  }
3298  /*      function definition for SET-BACK        */  /*      local entry for function SET-BACK       */
3299    
3300  static void L54()  static object LI54(V534,V535)
3301  {register object *base=vs_base;  
3302          register object *sup=base+VM52; VC52  register object V534;register object V535;
3303          vs_reserve(VM52);  {        VMB52 VMS52 VMV52
         {register object V383;  
         register object V384;  
         check_arg(2);  
         V383=(base[0]);  
         V384=(base[1]);  
         vs_top=sup;  
3304          goto TTL;          goto TTL;
3305  TTL:;  TTL:;
3306          {object V385;          {object V536;
3307          V385= symbol_value(VV[9]);          V536= symbol_value(VV[9]);
3308          setq(VV[106],Cnil);          setq(VV[106],Cnil);
3309          setq(VV[9],(V385));          setq(VV[9],(V536));
3310          if(((V384))==Cnil){          if(((V535))==Cnil){
3311          goto T1428;}          goto T1348;}
3312          setq(VV[0],(V384));          setq(VV[0],(V535));
3313          goto T1426;          goto T1346;
3314          goto T1428;          goto T1348;
3315  T1428:;  T1348:;
3316          base[3]= (V385);          base[1]= (V536);
3317          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+1)+1;
3318          (void) (*Lnk112)();          (void) (*Lnk112)();
3319          vs_top=sup;          vs_top=sup;
3320          base[2]= vs_base[0];          base[0]= vs_base[0];
3321          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
3322          (void) (*Lnk113)();          (void) (*Lnk113)();
3323          vs_top=sup;          vs_top=sup;
3324          V386= vs_base[0];          V537= vs_base[0];
3325          (void)(make_cons(V386,Cnil));          (void)(make_cons(V537,Cnil));
3326          goto T1426;          goto T1346;
3327  T1426:;  T1346:;
3328          if(((V383))==Cnil){          if(((V534))==Cnil){
3329          goto T1434;}          goto T1354;}
3330          base[2]= symbol_value(VV[1]);          base[0]= symbol_value(VV[1]);
3331          base[3]= VV[107];          base[1]= VV[107];
3332          base[4]= cadr((V383));          base[2]= cadr((V534));
3333          base[5]= caddr((V383));          base[3]= caddr((V534));
3334          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+0)+4;
3335          Lformat();          Lformat();
3336          vs_top=sup;          vs_top=sup;
3337          base[2]= symbol_value(VV[1]);          base[0]= symbol_value(VV[1]);
3338          base[3]= VV[108];          base[1]= VV[108];
3339          base[4]= cadr((V383));          base[2]= cadr((V534));
3340          base[5]= caddr((V383));          base[3]= caddr((V534));
3341          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+0)+4;
3342          Lformat();          Lformat();
3343          vs_top=sup;          vs_top=sup;
3344          goto T1434;          goto T1354;
3345  T1434:;  T1354:;
3346          {register object V387;          {register object V538;
3347          register object V388;          register object V539;
3348          V387= symbol_value(VV[109]);          V538= symbol_value(VV[109]);
3349          V388= car((V387));          V539= car((V538));
3350          goto T1449;          goto T1369;
3351  T1449:;  T1369:;
3352          if(!(endp_prop((V387)))){          if(!(endp_prop((V538)))){
3353          goto T1450;}          goto T1370;}
3354          base[3]= Cnil;          {object V540 = Cnil;
3355          vs_top=(vs_base=base+3)+1;          VMR52(V540)}
3356          return;          goto T1370;
3357          goto T1450;  T1370:;
3358  T1450:;          {register object V541;
3359          {register object V389;          V541= (*(LnkLI170))((V539),(V535));
3360          base[3]= (V388);          if(!(((V541))==(VV[103]))){
3361          base[4]= (V384);          goto T1376;}
3362          vs_top=(vs_base=base+3)+2;          goto T1374;
3363          (void) (*Lnk169)();          goto T1376;
3364          vs_top=sup;  T1376:;
3365          V389= vs_base[0];          base[1]= Ct;
3366          if(!(((V389))==(VV[103]))){          base[2]= VV[110];
3367          goto T1458;}          base[3]= (V539);
3368          goto T1454;          base[4]= (V541);
3369          goto T1458;          vs_top=(vs_base=base+1)+4;
 T1458:;  
         base[3]= Ct;  
         base[4]= VV[110];  
         base[5]= (V388);  
         base[6]= (V389);  
         vs_top=(vs_base=base+3)+4;  
3370          Lformat();          Lformat();
3371          vs_top=sup;}          vs_top=sup;}
3372          goto T1454;          goto T1374;
3373  T1454:;  T1374:;
3374          V387= cdr((V387));          V538= cdr((V538));
3375          V388= car((V387));          V539= car((V538));
3376          goto T1449;}}          goto T1369;}}
3377          }          base[0]=base[0];
3378            return Cnil;
3379  }  }
3380  static void LnkT169(){ call_or_link(VV[169],(void **)(void *)&Lnk169);} /* SAFE-EVAL */  static object  LnkTLI170(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[170],(void **)(void *)&LnkLI170,2,first,ap);va_end(ap);return V1;} /* SAFE-EVAL */
3381  static void LnkT168(){ call_or_link(VV[168],(void **)(void *)&Lnk168);} /* ERROR-SET */  static void LnkT169(){ call_or_link(VV[169],(void **)(void *)&Lnk169);} /* ERROR-SET */
3382  static void LnkT167(){ call_or_link(VV[167],(void **)(void *)&Lnk167);} /* APPLY-DISPLAY-FUN */  static object  LnkTLI168(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[168],(void **)(void *)&LnkLI168,3,first,ap);va_end(ap);return V1;} /* APPLY-DISPLAY-FUN */
3383  static void LnkT166(){ call_or_link(VV[166],(void **)(void *)&Lnk166);} /* COMPUTING-ARGS-P */  static object  LnkTLI167(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[167],(void **)(void *)&LnkLI167,1,first,ap);va_end(ap);return V1;} /* COMPUTING-ARGS-P */
3384  static void LnkT165(){ call_or_link(VV[165],(void **)(void *)&Lnk165);} /* VS-TOP */  static void LnkT166(){ call_or_link(VV[166],(void **)(void *)&Lnk166);} /* VS-TOP */
3385  static void LnkT164(){ call_or_link(VV[164],(void **)(void *)&Lnk164);} /* NEXT-STACK-FRAME */  static object  LnkTLI165(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[165],(void **)(void *)&LnkLI165,1,first,ap);va_end(ap);return V1;} /* NEXT-STACK-FRAME */
3386  static void LnkT163(){ call_or_link(VV[163],(void **)(void *)&Lnk163);} /* IHS-NOT-INTERPRETED-ENV */  static object  LnkTLI164(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[164],(void **)(void *)&LnkLI164,1,first,ap);va_end(ap);return V1;} /* IHS-NOT-INTERPRETED-ENV */
3387  static void LnkT162(){ call_or_link(VV[162],(void **)(void *)&Lnk162);} /* GET-LINE-OF-FORM */  static object  LnkTLI163(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[163],(void **)(void *)&LnkLI163,2,first,ap);va_end(ap);return V1;} /* GET-LINE-OF-FORM */
3388  static void LnkT161(){ call_or_link(VV[161],(void **)(void *)&Lnk161);} /* PRINT-STACK-FRAME */  static object  LnkTLI162(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[162],(void **)(void *)&LnkLI162,first,ap);va_end(ap);return V1;} /* PRINT-STACK-FRAME */
3389  static object  LnkTLI160(){return call_proc0(VV[160],(void **)(void *)&LnkLI160);} /* SET-ENV */  static object  LnkTLI161(){return call_proc0(VV[161],(void **)(void *)&LnkLI161);} /* SET-ENV */
3390  static void LnkT159(){ call_or_link(VV[159],(void **)(void *)&Lnk159);} /* NTH-STACK-FRAME */  static object  LnkTLI160(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[160],(void **)(void *)&LnkLI160,first,ap);va_end(ap);return V1;} /* NTH-STACK-FRAME */
3391  static void LnkT158(){ call_or_link(VV[158],(void **)(void *)&Lnk158);} /* DBL-WHAT-FRAME */  static object  LnkTLI159(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[159],(void **)(void *)&LnkLI159,4353,first,ap);va_end(ap);return V1;} /* DBL-WHAT-FRAME */
3392  static void LnkT157(){ call_or_link(VV[157],(void **)(void *)&Lnk157);} /* GET-NEXT-VISIBLE-FUN */  static object  LnkTLI158(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[158],(void **)(void *)&LnkLI158,1,first,ap);va_end(ap);return V1;} /* GET-NEXT-VISIBLE-FUN */
3393  static void LnkT156(){ call_or_link(VV[156],(void **)(void *)&Lnk156);} /* STRING-MATCH */  static void LnkT157(){ call_or_link(VV[157],(void **)(void *)&Lnk157);} /* STRING-MATCH */
3394  static void LnkT155(){ call_or_link(VV[155],(void **)(void *)&Lnk155);} /* PACKAGE-SIZE */  static void LnkT156(){ call_or_link(VV[156],(void **)(void *)&Lnk156);} /* PACKAGE-SIZE */
3395  static void LnkT151(){ call_or_link(VV[151],(void **)(void *)&Lnk151);} /* RELATIVE-LINE */  static object  LnkTLI152(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[152],(void **)(void *)&LnkLI152,258,first,ap);va_end(ap);return V1;} /* RELATIVE-LINE */
3396  static void LnkT150(){ call_or_link(VV[150],(void **)(void *)&Lnk150);} /* SHORT-NAME */  static object  LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[151],(void **)(void *)&LnkLI151,1,first,ap);va_end(ap);return V1;} /* SHORT-NAME */
3397  static void LnkT149(){ call_or_link(VV[149],(void **)(void *)&Lnk149);} /* SHOW-BREAK-POINT */  static object  LnkTLI150(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[150],(void **)(void *)&LnkLI150,1,first,ap);va_end(ap);return V1;} /* INSERT-BREAK-POINT */
3398  static void LnkT148(){ call_or_link(VV[148],(void **)(void *)&Lnk148);} /* INSERT-BREAK-POINT */  static object  LnkTLI149(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[149],(void **)(void *)&LnkLI149,1,first,ap);va_end(ap);return V1;} /* SHOW-BREAK-POINT */
3399  static void LnkT147(){ call_or_link(VV[147],(void **)(void *)&Lnk147);} /* BREAK-FUNCTION */  static void LnkT148(){ call_or_link(VV[148],(void **)(void *)&Lnk148);} /* BREAK-FUNCTION */
3400  static void LnkT146(){ call_or_link(VV[146],(void **)(void *)&Lnk146);} /* DWIM */  static object  LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[147],(void **)(void *)&LnkLI147,1,first,ap);va_end(ap);return V1;} /* DWIM */
3401  static void LnkT145(){ call_or_link(VV[145],(void **)(void *)&Lnk145);} /* MAYBE-BREAK */  static object  LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,4,first,ap);va_end(ap);return V1;} /* MAYBE-BREAK */
3402  static object  LnkTLI144(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[144],(void **)(void *)&LnkLI144,first,ap);va_end(ap);return V1;} /* POSITION */  static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[145],(void **)(void *)&LnkLI145,first,ap);va_end(ap);return V1;} /* POSITION */
3403  static void LnkT143(){ call_or_link(VV[143],(void **)(void *)&Lnk143);} /* CURRENT-STEP-FUN */  static object  LnkTLI144(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[144],(void **)(void *)&LnkLI144,first,ap);va_end(ap);return V1;} /* CURRENT-STEP-FUN */
3404  static void LnkT142(){ call_or_link(VV[142],(void **)(void *)&Lnk142);} /* INIT-BREAK-POINTS */  static object  LnkTLI143(){return call_proc0(VV[143],(void **)(void *)&LnkLI143);} /* INIT-BREAK-POINTS */
3405  static void LnkT141(){ call_or_link(VV[141],(void **)(void *)&Lnk141);} /* IHS-FNAME */  static void LnkT142(){ call_or_link(VV[142],(void **)(void *)&Lnk142);} /* IHS-FNAME */
3406  static void LnkT140(){ call_or_link(VV[140],(void **)(void *)&Lnk140);} /* ITERATE-OVER-BKPTS */  static object  LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)(void *)&LnkLI141,2,first,ap);va_end(ap);return V1;} /* ITERATE-OVER-BKPTS */
3407  static void LnkT139(){ call_or_link(VV[139],(void **)(void *)&Lnk139);} /* MAKE-BREAK-POINT */  static object  LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,3,first,ap);va_end(ap);return V1;} /* MAKE-BREAK-POINT */
3408  static object  LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[138],(void **)(void *)&LnkLI138,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */  static object  LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[139],(void **)(void *)&LnkLI139,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
3409  static void LnkT137(){ call_or_link(VV[137],(void **)(void *)&Lnk137);} /* WALK-THROUGH */  static object  LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[138],(void **)(void *)&LnkLI138,1,first,ap);va_end(ap);return V1;} /* WALK-THROUGH */
3410  static object  LnkTLI136(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[136],(void **)(void *)&LnkLI136,first,ap);va_end(ap);return V1;} /* VECTOR-PUSH-EXTEND */  static object  LnkTLI137(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[137],(void **)(void *)&LnkLI137,first,ap);va_end(ap);return V1;} /* VECTOR-PUSH-EXTEND */
3411  static void LnkT135(){ call_or_link(VV[135],(void **)(void *)&Lnk135);} /* INSTREAM-NAME */  static void LnkT136(){ call_or_link(VV[136],(void **)(void *)&Lnk136);} /* INSTREAM-NAME */
3412  static void LnkT134(){ call_or_link(VV[134],(void **)(void *)&Lnk134);} /* LOAD */  static void LnkT135(){ call_or_link(VV[135],(void **)(void *)&Lnk135);} /* LOAD */
3413  static void LnkT133(){ call_or_link(VV[133],(void **)(void *)&Lnk133);} /* SETUP-LINEINFO */  static object  LnkTLI134(){return call_proc0(VV[134],(void **)(void *)&LnkLI134);} /* SETUP-LINEINFO */
3414  static void LnkT132(){ call_or_link(VV[132],(void **)(void *)&Lnk132);} /* CLEANUP */  static object  LnkTLI133(){return call_proc0(VV[133],(void **)(void *)&LnkLI133);} /* CLEANUP */
3415  static void LnkT129(){ call_or_link(VV[129],(void **)(void *)&Lnk129);} /* READ-FROM-STRING */  static void LnkT130(){ call_or_link(VV[130],(void **)(void *)&Lnk130);} /* READ-FROM-STRING */
3416  static object  LnkTLI128(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[128],(void **)(void *)&LnkLI128,first,ap);va_end(ap);return V1;} /* COUNT */  static object  LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[129],(void **)(void *)&LnkLI129,first,ap);va_end(ap);return V1;} /* COUNT */
3417  static void LnkT127(){ call_or_link(VV[127],(void **)(void *)&Lnk127);} /* GET-INSTREAM */  static object  LnkTLI128(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[128],(void **)(void *)&LnkLI128,1,first,ap);va_end(ap);return V1;} /* GET-INSTREAM */
3418  static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* MAKE-INSTREAM */  static void LnkT127(){ call_or_link(VV[127],(void **)(void *)&Lnk127);} /* STREAM-NAME */
3419  static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* STREAM-NAME */  static object  LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[126],(void **)(void *)&LnkLI126,first,ap);va_end(ap);return V1;} /* MAKE-INSTREAM */
3420  static object  LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[124],(void **)(void *)&LnkLI124,first,ap);va_end(ap);return V1;} /* DELETE */  static object  LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[125],(void **)(void *)&LnkLI125,first,ap);va_end(ap);return V1;} /* DELETE */
3421  static void LnkT123(){ call_or_link(VV[123],(void **)(void *)&Lnk123);} /* CLOSEDP */  static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* CLOSEDP */
3422  static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* BREAK-LEVEL */  static object  LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[122],(void **)(void *)&LnkLI122,first,ap);va_end(ap);return V1;} /* BREAK-LEVEL */
3423  static object  LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)(void *)&LnkLI121,1,first,ap);va_end(ap);return V1;} /* SHOW-ENVIRONMENT */  static object  LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)(void *)&LnkLI121,1,first,ap);va_end(ap);return V1;} /* SHOW-ENVIRONMENT */
3424  static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* BREAK-LOCALS */  static object  LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[120],(void **)(void *)&LnkLI120,first,ap);va_end(ap);return V1;} /* BREAK-LOCALS */
3425  static void LnkT119(){ call_or_link(VV[119],(void **)(void *)&Lnk119);} /* BREAK-GO */  static void LnkT119(){ call_or_link(VV[119],(void **)(void *)&Lnk119);} /* BREAK-GO */
3426  static object  LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[118],(void **)(void *)&LnkLI118,first,ap);va_end(ap);return V1;} /* SEARCH */  static object  LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[118],(void **)(void *)&LnkLI118,first,ap);va_end(ap);return V1;} /* SEARCH */
3427  static void LnkT117(){ call_or_link(VV[117],(void **)(void *)&Lnk117);} /* COMPILED-FUNCTION-NAME */  static void LnkT117(){ call_or_link(VV[117],(void **)(void *)&Lnk117);} /* COMPILED-FUNCTION-NAME */

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

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