/[gcl]/gcl/clcs/clcs_restart.c
ViewVC logotype

Diff of /gcl/clcs/clcs_restart.c

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

revision 1.2 by camm, Thu Feb 27 18:32:10 2003 UTC revision 1.3 by camm, Thu Feb 27 23:54:22 2003 UTC
# Line 107  TTL:; Line 107  TTL:;
107          VMR6(V6)}          VMR6(V6)}
108          return Cnil;          return Cnil;
109  }  }
110  /*      function definition for UNIQUE-ID       */  /*      local entry for function UNIQUE-ID      */
111    
112  static void L7()  static object LI7(V8)
113  {register object *base=vs_base;  
114          register object *sup=base+VM7; VC7  object V8;
115          vs_reserve(VM7);  {        VMB7 VMS7 VMV7
         {object V7;  
         check_arg(1);  
         V7=(base[0]);  
         vs_top=sup;  
116          goto TTL;          goto TTL;
117  TTL:;{object V8;  TTL:;{object V9;
118          base[1]= (V7);          base[0]= (V8);
119          base[2]= symbol_value(VV[0]);          base[1]= symbol_value(VV[0]);
120          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+0)+2;
121          Lgethash();          Lgethash();
122          vs_top=sup;          vs_top=sup;
123          V8= vs_base[0];          V9= vs_base[0];
124          if(V8==Cnil)goto T17;          if(V9==Cnil)goto T17;
125          base[1]= V8;          {object V10 = V9;
126          vs_top=(vs_base=base+1)+1;          VMR7(V10)}
         return;  
127          goto T17;          goto T17;
128  T17:;}  T17:;}
129          {object V10;          {object V12;
130          object V11;          object V13;
131          V10= symbol_value(VV[0]);          V12= symbol_value(VV[0]);
132          setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1)));          setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1)));
133          V11= symbol_value(VV[1]);          V13= symbol_value(VV[1]);
134          base[2]= V7;          base[1]= V8;
135          base[3]= (V10);          base[2]= (V12);
136          base[4]= (V11);          base[3]= (V13);
137          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+1)+3;
138          siLhash_set();          siLhash_set();
139          return;}          vs_top=sup;
140          }          {object V14 = vs_base[0];
141            VMR7(V14)}}
142            base[0]=base[0];
143            return Cnil;
144  }  }
145  /*      function definition for PARSE-KEYWORD-PAIRS     */  /*      function definition for PARSE-KEYWORD-PAIRS     */
146    
# Line 150  static void L8() Line 148  static void L8()
148  {register object *base=vs_base;  {register object *base=vs_base;
149          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
150          vs_reserve(VM8);          vs_reserve(VM8);
151          {object V12;          {object V15;
152          register object V13;          register object V16;
153          check_arg(2);          check_arg(2);
154          V12=(base[0]);          V15=(base[0]);
155          V13=(base[1]);          V16=(base[1]);
156          vs_top=sup;          vs_top=sup;
157          goto TTL;          goto TTL;
158  TTL:;  TTL:;
159          {register object V14;          {register object V17;
160          register object V15;          register object V18;
161          V14= (V12);          V17= (V15);
162          V15= Cnil;          V18= Cnil;
163          goto T28;          goto T28;
164  T28:;  T28:;
165          if(((V14))==Cnil){          if(((V17))==Cnil){
166          goto T30;}          goto T30;}
167          {register object x= car((V14)),V16= (V13);          {register object x= car((V17)),V19= (V16);
168          while(!endp(V16))          while(!endp(V19))
169          if(eql(x,V16->c.c_car)){          if(eql(x,V19->c.c_car)){
170          goto T29;          goto T29;
171          }else V16=V16->c.c_cdr;}          }else V19=V19->c.c_cdr;}
172          goto T30;          goto T30;
173  T30:;  T30:;
174          base[2]= nreverse((V15));          base[2]= nreverse((V18));
175          base[3]= (V14);          base[3]= (V17);
176          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
177          return;          return;
178          goto T29;          goto T29;
179  T29:;  T29:;
180          {object V17;          {object V20;
181          V17= cddr((V14));          V20= cddr((V17));
182          V15= listA(3,cadr((V14)),car((V14)),(V15));          V18= listA(3,cadr((V17)),car((V17)),(V18));
183          V14= (V17);}          V17= (V20);}
184          goto T28;}          goto T28;}
185          }          }
186  }  }
# Line 194  static void L9() Line 192  static void L9()
192          vs_reserve(VM9);          vs_reserve(VM9);
193          check_arg(2);          check_arg(2);
194          vs_top=sup;          vs_top=sup;
195          {object V18=base[0]->c.c_cdr;          {object V21=base[0]->c.c_cdr;
196          if(endp(V18))invalid_macro_call();          if(endp(V21))invalid_macro_call();
197          {object V19= (V18->c.c_car);          {object V22= (V21->c.c_car);
198          if(endp(V19))invalid_macro_call();          if(endp(V22))invalid_macro_call();
199          base[2]= (V19->c.c_car);          base[2]= (V22->c.c_car);
200          V19=V19->c.c_cdr;          V22=V22->c.c_cdr;
201          if(endp(V19))invalid_macro_call();          if(endp(V22))invalid_macro_call();
202          base[3]= (V19->c.c_car);          base[3]= (V22->c.c_car);
203          V19=V19->c.c_cdr;          V22=V22->c.c_cdr;
204          if(endp(V19)){          if(endp(V22)){
205          base[4]= Cnil;          base[4]= Cnil;
206          } else {          } else {
207          base[4]= (V19->c.c_car);          base[4]= (V22->c.c_car);
208          V19=V19->c.c_cdr;}          V22=V22->c.c_cdr;}
209          if(!endp(V19))invalid_macro_call();}          if(!endp(V22))invalid_macro_call();}
210          V18=V18->c.c_cdr;          V21=V21->c.c_cdr;
211          base[5]= V18;}          base[5]= V21;}
212          {register object V20;          {register object V23;
213          {register object x= VV[2],V21= base[2];          {register object x= VV[2],V24= base[2];
214          while(!endp(V21))          while(!endp(V24))
215          if(eql(x,V21->c.c_car)){          if(eql(x,V24->c.c_car)){
216          V20= V21;          V23= V24;
217          goto T42;          goto T42;
218          }else V21=V21->c.c_cdr;          }else V24=V24->c.c_cdr;
219          V20= Cnil;}          V23= Cnil;}
220          goto T42;          goto T42;
221  T42:;  T42:;
222          if(((long)length((V20)))==(2)){          if(((long)length((V23)))==(2)){
223          goto T43;}          goto T43;}
224          base[6]= VV[3];          base[6]= VV[3];
225          base[7]= (V20);          base[7]= (V23);
226          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
227          (void) (*Lnk70)();          (void) (*Lnk70)();
228          vs_top=sup;          vs_top=sup;
229          goto T43;          goto T43;
230  T43:;  T43:;
231          {object V22;          {object V25;
232          object V23;          object V26;
233          object V24;          object V27;
234          base[6]= base[2];          base[6]= base[2];
235          base[7]= (V20);          base[7]= (V23);
236          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
237          Lldiff();          Lldiff();
238          vs_top=sup;          vs_top=sup;
239          V22= vs_base[0];          V25= vs_base[0];
240          if(base[4]!=Cnil){          if(base[4]!=Cnil){
241          V23= base[4];          V26= base[4];
242          goto T51;}          goto T51;}
243          vs_base=vs_top;          vs_base=vs_top;
244          Lgensym();          Lgensym();
245          vs_top=sup;          vs_top=sup;
246          V23= vs_base[0];          V26= vs_base[0];
247          goto T51;          goto T51;
248  T51:;  T51:;
249          V24= cadr((V20));          V27= cadr((V23));
250          {object V25;          {object V28;
251          {object V26;          {object V29;
252          object V27= (V22);          object V30= (V25);
253          if(endp(V27)){          if(endp(V30)){
254          V25= Cnil;          V28= Cnil;
255          goto T53;}          goto T53;}
256          base[6]=V26=MMcons(Cnil,Cnil);          base[6]=V29=MMcons(Cnil,Cnil);
257          goto T54;          goto T54;
258  T54:;  T54:;
259          base[7]= coerce_to_string((V27->c.c_car));          base[7]= coerce_to_string((V30->c.c_car));
260          base[9]= VV[4];          base[9]= VV[4];
261          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
262          Lfind_package();          Lfind_package();
# Line 267  T54:; Line 265  T54:;
265          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
266          Lintern();          Lintern();
267          vs_top=sup;          vs_top=sup;
268          (V26->c.c_car)= vs_base[0];          (V29->c.c_car)= vs_base[0];
269          V27=MMcdr(V27);          V30=MMcdr(V30);
270          if(endp(V27)){          if(endp(V30)){
271          V25= base[6];          V28= base[6];
272          goto T53;}          goto T53;}
273          V26=MMcdr(V26)=MMcons(Cnil,Cnil);          V29=MMcdr(V29)=MMcons(Cnil,Cnil);
274          goto T54;}          goto T54;}
275          goto T53;          goto T53;
276  T53:;  T53:;
277          V29= list(2,(V23),(V24));          V32= list(2,(V26),(V27));
278          V30= list(3,VV[6],base[3],list(2,VV[7],(V25)));          V33= list(3,VV[6],base[3],list(2,VV[7],(V28)));
279          {object V32;          {object V35;
280          object V33= (V22);          object V36= (V25);
281          object V34= (V25);          object V37= (V28);
282          if(endp(V33)||endp(V34)){          if(endp(V36)||endp(V37)){
283          V31= Cnil;          V34= Cnil;
284          goto T59;}          goto T59;}
285          base[6]=V32=MMcons(Cnil,Cnil);          base[6]=V35=MMcons(Cnil,Cnil);
286          goto T60;          goto T60;
287  T60:;  T60:;
288          (V32->c.c_car)= list(2,(V33->c.c_car),list(3,VV[9],(V23),(V34->c.c_car)));          (V35->c.c_car)= list(2,(V36->c.c_car),list(3,VV[9],(V26),(V37->c.c_car)));
289          V33=MMcdr(V33);          V36=MMcdr(V36);
290          V34=MMcdr(V34);          V37=MMcdr(V37);
291          if(endp(V33)||endp(V34)){          if(endp(V36)||endp(V37)){
292          V31= base[6];          V34= base[6];
293          goto T59;}          goto T59;}
294          V32=MMcdr(V32)=MMcons(Cnil,Cnil);          V35=MMcdr(V35)=MMcons(Cnil,Cnil);
295          goto T60;}          goto T60;}
296          goto T59;          goto T59;
297  T59:;  T59:;
298          base[6]= list(4,VV[5],/* INLINE-ARGS */V29,/* INLINE-ARGS */V30,listA(3,VV[8],V31,base[5]));          base[6]= list(4,VV[5],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,listA(3,VV[8],V34,base[5]));
299          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
300          return;}}}          return;}}}
301  }  }
# Line 312  TTL:; Line 310  TTL:;
310          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
311          (void) (*Lnk69)();          (void) (*Lnk69)();
312          vs_top=sup;          vs_top=sup;
313          {object V37 = Cnil;          {object V40 = Cnil;
314          VMR10(V37)}          VMR10(V40)}
315          base[0]=base[0];          base[0]=base[0];
316          return Cnil;          return Cnil;
317  }  }
# Line 336  T65:; Line 334  T65:;
334          setq(VV[10],Cnil);          setq(VV[10],Cnil);
335          goto T64;          goto T64;
336  T64:;  T64:;
337          {object V38 = Cnil;          {object V41 = Cnil;
338          VMR11(V38)}          VMR11(V41)}
339          base[0]=base[0];          base[0]=base[0];
340          return Cnil;          return Cnil;
341  }  }
# Line 348  static object LI12() Line 346  static object LI12()
346  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
347          goto TTL;          goto TTL;
348  TTL:;  TTL:;
349          {object V39 = Cnil;          {object V42 = Cnil;
350          VMR12(V39)}          VMR12(V42)}
351          return Cnil;          return Cnil;
352  }  }
353  /*      function definition for COMPUTE-RESTARTS        */  /*      local entry for function COMPUTE-RESTARTS       */
354    
355  static void L13()  static object LI13(object first,...)
356  {register object *base=vs_base;  {      
357          register object *sup=base+VM13; VC13          va_list ap;
358          vs_reserve(VM13);          int narg = VFUN_NARGS; VMB13 VMS13 VMV13
359          {object V40;          {object V43;
360          if(vs_top-vs_base>1) too_many_arguments();          Vcs[0]=Vcs[0];
361          if(vs_base>=vs_top){vs_top=sup;goto T70;}          va_start(ap,first);
362          V40=(base[0]);          narg = narg - 0;
363          vs_top=sup;          if (narg <= 0) goto T70;
364          goto T71;          else {
365            V43= first;}
366            --narg; goto T71;
367          goto T70;          goto T70;
368  T70:;  T70:;
369          V40= Cnil;          V43= Cnil;
370          goto T71;          goto T71;
371  T71:;  T71:;
372          base[2]= symbol_value(VV[10]);          base[1]= symbol_value(VV[10]);
373          {object V42;          {object V45;
374          object V43= base[2];          object V46= base[1];
375          if(endp(V43)){          if(endp(V46)){
376          V41= Cnil;          V44= Cnil;
377          goto T73;}          goto T73;}
378          base[1]=V42=MMcons(Cnil,Cnil);          base[0]=V45=MMcons(Cnil,Cnil);
379          goto T74;          goto T74;
380  T74:;  T74:;
381          base[3]= (V43->c.c_car);          base[2]= (V46->c.c_car);
382          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+2)+1;
383          Lcopy_list();          Lcopy_list();
384          vs_top=sup;          vs_top=sup;
385          (V42->c.c_cdr)= vs_base[0];          (V45->c.c_cdr)= vs_base[0];
386          {object cdr_V42=MMcdr(V42);while(!endp(cdr_V42)) {cdr_V42=MMcdr(cdr_V42);V42=MMcdr(V42);}}          {object cdr_V45=MMcdr(V45);while(!endp(cdr_V45)) {cdr_V45=MMcdr(cdr_V45);V45=MMcdr(V45);}}
387          V43=MMcdr(V43);          V46=MMcdr(V46);
388          if(endp(V43)){          if(endp(V46)){
389          base[1]=base[1]->c.c_cdr;          base[0]=base[0]->c.c_cdr;
390          V41= base[1];          V44= base[0];
391          goto T73;}          goto T73;}
392          goto T74;}          goto T74;}
393          goto T73;          goto T73;
394  T73:;  T73:;
395          vs_base=vs_top;          V47= (*(LnkLI71))();
396          (void) (*Lnk71)();          {object V48 = nconc(V44,/* INLINE-ARGS */V47);
397          vs_top=sup;          VMR13(V48)}
398          V44= vs_base[0];          va_end(ap);
399          base[1]= nconc(V41,V44);          base[0]=base[0];
400          vs_top=(vs_base=base+1)+1;          return Cnil;}
         return;  
401          }          }
 }  
402  /*      function definition for RESTART-PRINT   */  /*      function definition for RESTART-PRINT   */
403    
404  static void L14()  static void L14()
405  {register object *base=vs_base;  {register object *base=vs_base;
406          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
407          vs_reserve(VM14);          vs_reserve(VM14);
408          {object V45;          {object V49;
409          object V46;          object V50;
410          object V47;          object V51;
411          check_arg(3);          check_arg(3);
412          V45=(base[0]);          V49=(base[0]);
413          V46=(base[1]);          V50=(base[1]);
414          V47=(base[2]);          V51=(base[2]);
415          vs_top=sup;          vs_top=sup;
416          goto TTL;          goto TTL;
417  TTL:;  TTL:;
418          if((symbol_value(VV[11]))==Cnil){          if((symbol_value(VV[11]))==Cnil){
419          goto T79;}          goto T78;}
420          base[3]= (V46);          base[3]= (V50);
421          base[4]= VV[12];          base[4]= VV[12];
422          base[6]= (V45);          base[6]= (V49);
423          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
424          Ltype_of();          Ltype_of();
425          vs_top=sup;          vs_top=sup;
426          base[5]= vs_base[0];          base[5]= vs_base[0];
427          base[7]= (V45);          base[6]= (*(LnkLI72))((V49));
         vs_top=(vs_base=base+7)+1;  
         (void) (*Lnk72)();  
         vs_top=sup;  
         base[6]= vs_base[0];  
428          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
429          Lformat();          Lformat();
430          return;          return;
431          goto T79;          goto T78;
432  T79:;  T78:;
433          base[3]= (V45);          base[3]= (V49);
434          base[4]= (V46);          base[4]= (V50);
435          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
436          (void) (*Lnk73)();          (void) (*Lnk73)();
437          return;          return;
# Line 467  TTL:; Line 461  TTL:;
461          vs_top=(vs_base=base+0)+14;          vs_top=(vs_base=base+0)+14;
462          (void) (*Lnk74)();          (void) (*Lnk74)();
463          vs_top=sup;          vs_top=sup;
464          {object V48 = Cnil;          {object V52 = Cnil;
465          VMR15(V48)}          VMR15(V52)}
466          base[0]=base[0];          base[0]=base[0];
467          return Cnil;          return Cnil;
468  }  }
469  /*      function definition for MAKE-RESTART    */  /*      local entry for function MAKE-RESTART   */
470    
471  static void L16()  static object LI16(object first,...)
472  {register object *base=vs_base;  {      
473          register object *sup=base+VM16; VC16          va_list ap;
474          vs_reserve(VM16);          int narg = VFUN_NARGS; VMB16 VMS16 VMV16
475          {object V49;          {object V53;
476          object V50;          object V54;
477          object V51;          object V55;
478          object V52;          object V56;
479          parse_key(vs_base,FALSE,FALSE,4,VV[21],VV[23],VV[24],VV[34]);          Vcs[0]=Vcs[0];
480          vs_top=sup;          va_start(ap,first);
481          V49=(base[0]);          narg= narg - 0;
482          V50=(base[1]);          {
483          V51=(base[2]);          parse_key_new_new(narg,Vcs +0,(struct key *)&LI16key,first,ap);
484          V52=(base[3]);          V53=(Vcs[0]);
485          base[8]= VV[13];          V54=(Vcs[1]);
486          base[9]= (V49);          V55=(Vcs[2]);
487          base[10]= (V50);          V56=(Vcs[3]);
488          base[11]= (V51);          base[0]= VV[13];
489          base[12]= (V52);          base[1]= (V53);
490          vs_top=(vs_base=base+8)+5;          base[2]= (V54);
491            base[3]= (V55);
492            base[4]= (V56);
493            vs_top=(vs_base=base+0)+5;
494          siLmake_structure();          siLmake_structure();
495          return;          vs_top=sup;
496          }          {object V57 = vs_base[0];
497  }          VMR16(V57)}
498            va_end(ap);
499            base[0]=base[0];
500            return Cnil;}
501            }}
502  /*      local entry for function progn 'compile2433     */  /*      local entry for function progn 'compile2433     */
503    
504  static object LI17()  static object LI17()
# Line 505  static object LI17() Line 506  static object LI17()
506  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
507          goto TTL;          goto TTL;
508  TTL:;  TTL:;
509          {object V53 = Cnil;          {object V58 = Cnil;
510          VMR17(V53)}          VMR17(V58)}
511          return Cnil;          return Cnil;
512  }  }
513  /*      local entry for function progn 'compile2449     */  /*      local entry for function progn 'compile2449     */
# Line 520  TTL:; Line 521  TTL:;
521          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
522          (void) (*Lnk69)();          (void) (*Lnk69)();
523          vs_top=sup;          vs_top=sup;
524          {object V54 = Cnil;          {object V59 = Cnil;
525          VMR18(V54)}          VMR18(V59)}
526          base[0]=base[0];          base[0]=base[0];
527          return Cnil;          return Cnil;
528  }  }
# Line 537  TTL:; Line 538  TTL:;
538          Lboundp();          Lboundp();
539          vs_top=sup;          vs_top=sup;
540          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
541          goto T113;}          goto T111;}
542          goto T112;          goto T110;
543          goto T113;          goto T111;
544  T113:;  T111:;
545          setq(VV[20],Cnil);          setq(VV[20],Cnil);
546          goto T112;          goto T110;
547  T112:;  T110:;
548          {object V55 = Cnil;          {object V60 = Cnil;
549          VMR19(V55)}          VMR19(V60)}
550          base[0]=base[0];          base[0]=base[0];
551          return Cnil;          return Cnil;
552  }  }
# Line 556  static object LI20() Line 557  static object LI20()
557  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
558          goto TTL;          goto TTL;
559  TTL:;  TTL:;
560          {object V56 = Cnil;          {object V61 = Cnil;
561          VMR20(V56)}          VMR20(V61)}
562          return Cnil;          return Cnil;
563  }  }
564  /*      function definition for MAKE-KCL-TOP-RESTART    */  /*      local entry for function MAKE-KCL-TOP-RESTART   */
565    
566  static void L21()  static object LI22(V63)
567  {register object *base=vs_base;  
568          register object *sup=base+VM21; VC21  object V63;
569          vs_reserve(VM21);  {        VMB21 VMS21 VMV21
570          check_arg(1);          goto TTL;
571          base[0]=MMcons(base[0],Cnil);  TTL:;
572          vs_top=sup;          base[0]=MMcons((V63),Cnil);
573          base[1]= VV[21];          V64=
         base[2]= VV[22];  
         base[3]= VV[23];  
         base[4]=  
         make_cclosure_new(LC37,Cnil,base[0],Cdata);  
         base[5]= VV[24];  
         base[6]=  
574          make_cclosure_new(LC38,Cnil,base[0],Cdata);          make_cclosure_new(LC38,Cnil,base[0],Cdata);
575          base[7]= VV[34];          V65=
576          base[8]= Cnil;          make_cclosure_new(LC39,Cnil,base[0],Cdata);
577          vs_top=(vs_base=base+1)+8;          {object V66 = (VFUN_NARGS=8,(*(LnkLI39))(VV[21],VV[22],VV[23],V64,VV[24],V65,VV[34],Cnil));
578          (void) (*Lnk39)();          VMR21(V66)}
579          return;          base[0]=base[0];
580            return Cnil;
581  }  }
582  /*      function definition for FIND-KCL-TOP-RESTART    */  /*      local entry for function FIND-KCL-TOP-RESTART   */
583    
584  static void L22()  static object LI23(V68)
585  {register object *base=vs_base;  
586          register object *sup=base+VM22; VC22  object V68;
587          vs_reserve(VM22);  {        VMB22 VMS22 VMV22
         {object V57;  
         check_arg(1);  
         V57=(base[0]);  
         vs_top=sup;  
588          goto TTL;          goto TTL;
589  TTL:;{object V59;  TTL:;{object V70;
590          {register object x= (V57),V60= symbol_value(VV[20]);          {register object x= (V68),V71= symbol_value(VV[20]);
591          while(!endp(V60))          while(!endp(V71))
592          if(type_of(V60->c.c_car)==t_cons &&eql(x,V60->c.c_car->c.c_car)){          if(type_of(V71->c.c_car)==t_cons &&eql(x,V71->c.c_car->c.c_car)){
593          V59= (V60->c.c_car);          V70= (V71->c.c_car);
594          goto T128;          goto T120;
595          }else V60=V60->c.c_cdr;          }else V71=V71->c.c_cdr;
596          V59= Cnil;}          V70= Cnil;}
597          goto T128;          goto T120;
598  T128:;  T120:;
599          if(V59==Cnil)goto T127;          if(V70==Cnil)goto T119;
600          V58= V59;          V69= V70;
601          goto T126;          goto T118;
602          goto T127;          goto T119;
603  T127:;}  T119:;}
604          {object V62;          {object V73;
605          base[2]= (V57);          V74= (*(LnkLI75))((V68));
606          vs_top=(vs_base=base+2)+1;          V73= make_cons((V68),/* INLINE-ARGS */V74);
607          (void) (*Lnk75)();          setq(VV[20],make_cons((V73),symbol_value(VV[20])));
608          vs_top=sup;          V72= symbol_value(VV[20]);}
609          V63= vs_base[0];          V69= car(V72);
610          V62= make_cons((V57),V63);          goto T118;
611          setq(VV[20],make_cons((V62),symbol_value(VV[20])));  T118:;
612          V61= symbol_value(VV[20]);}          {object V75 = cdr(V69);
613          V58= car(V61);          VMR22(V75)}
614          goto T126;          base[0]=base[0];
615  T126:;          return Cnil;
         base[1]= cdr(V58);  
         vs_top=(vs_base=base+1)+1;  
         return;  
         }  
616  }  }
617  /*      function definition for KCL-TOP-RESTARTS        */  /*      local entry for function KCL-TOP-RESTARTS       */
618    
619  static void L23()  static object LI24()
620  {register object *base=vs_base;  
621          register object *sup=base+VM23; VC23  {        VMB23 VMS23 VMV23
         vs_reserve(VM23);  
         check_arg(0);  
         vs_top=sup;  
622          goto TTL;          goto TTL;
623  TTL:;  TTL:;
624          {object V64;          {object V76;
625          object V65;          object V77;
626          object V66;          object V78;
627          base[4]= symbol_value(VV[27]);          base[4]= symbol_value(VV[27]);
628          {object V67;          {object V79;
629          object V68= base[4];          object V80= base[4];
630          if(endp(V68)){          if(endp(V80)){
631          V64= Cnil;          V76= Cnil;
632            goto T124;}
633            base[3]=V79=MMcons(Cnil,Cnil);
634            goto T125;
635    T125:;
636            if((cdr((V80->c.c_car)))==Cnil){
637            goto T128;}
638            (V79->c.c_cdr)= make_cons(cdr((V80->c.c_car)),Cnil);
639            goto T126;
640            goto T128;
641    T128:;
642            (V79->c.c_cdr)= Cnil;
643            goto T126;
644    T126:;
645            {object cdr_V79=MMcdr(V79);while(!endp(cdr_V79)) {cdr_V79=MMcdr(cdr_V79);V79=MMcdr(V79);}}
646            V80=MMcdr(V80);
647            if(endp(V80)){
648            base[3]=base[3]->c.c_cdr;
649            V76= base[3];
650            goto T124;}
651            goto T125;}
652            goto T124;
653    T124:;
654            if((symbol_value(VV[25]))==Cnil){
655            goto T132;}
656            V77= make_cons(symbol_value(VV[25]),(V76));
657            goto T130;
658            goto T132;
659    T132:;
660            V77= (V76);
661            goto T130;
662    T130:;
663            {object V82;
664            object V83= (V77);
665            if(endp(V83)){
666            V78= Cnil;
667          goto T134;}          goto T134;}
668          base[3]=V67=MMcons(Cnil,Cnil);          base[3]=V82=MMcons(Cnil,Cnil);
669          goto T135;          goto T135;
670  T135:;  T135:;
671          if((cdr((V68->c.c_car)))==Cnil){          (V82->c.c_car)= (*(LnkLI76))((V83->c.c_car));
672          goto T138;}          V83=MMcdr(V83);
673          (V67->c.c_cdr)= make_cons(cdr((V68->c.c_car)),Cnil);          if(endp(V83)){
674          goto T136;          V78= base[3];
         goto T138;  
 T138:;  
         (V67->c.c_cdr)= Cnil;  
         goto T136;  
 T136:;  
         {object cdr_V67=MMcdr(V67);while(!endp(cdr_V67)) {cdr_V67=MMcdr(cdr_V67);V67=MMcdr(V67);}}  
         V68=MMcdr(V68);  
         if(endp(V68)){  
         base[3]=base[3]->c.c_cdr;  
         V64= base[3];  
675          goto T134;}          goto T134;}
676            V82=MMcdr(V82)=MMcons(Cnil,Cnil);
677          goto T135;}          goto T135;}
678          goto T134;          goto T134;
679  T134:;  T134:;
680          if((symbol_value(VV[25]))==Cnil){          {object V84;
681          goto T142;}          object V85= (V77);
682          V65= make_cons(symbol_value(VV[25]),(V64));          object V86= (V78);
683          goto T140;          if(endp(V85)||endp(V86)){
         goto T142;  
 T142:;  
         V65= (V64);  
         goto T140;  
 T140:;  
         {object V70;  
         object V71= (V65);  
         if(endp(V71)){  
         V66= Cnil;  
         goto T144;}  
         base[3]=V70=MMcons(Cnil,Cnil);  
         goto T145;  
 T145:;  
         base[4]= (V71->c.c_car);  
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk76)();  
         vs_top=sup;  
         (V70->c.c_car)= vs_base[0];  
         V71=MMcdr(V71);  
         if(endp(V71)){  
         V66= base[3];  
         goto T144;}  
         V70=MMcdr(V70)=MMcons(Cnil,Cnil);  
         goto T145;}  
         goto T144;  
 T144:;  
         {object V72;  
         object V73= (V65);  
         object V74= (V66);  
         if(endp(V73)||endp(V74)){  
684          setq(VV[20],Cnil);          setq(VV[20],Cnil);
685          goto T149;}          goto T138;}
686          base[3]=V72=MMcons(Cnil,Cnil);          base[3]=V84=MMcons(Cnil,Cnil);
687          goto T150;          goto T139;
688  T150:;  T139:;
689          (V72->c.c_car)= make_cons((V73->c.c_car),(V74->c.c_car));          (V84->c.c_car)= make_cons((V85->c.c_car),(V86->c.c_car));
690          V73=MMcdr(V73);          V85=MMcdr(V85);
691          V74=MMcdr(V74);          V86=MMcdr(V86);
692          if(endp(V73)||endp(V74)){          if(endp(V85)||endp(V86)){
693          setq(VV[20],base[3]);          setq(VV[20],base[3]);
694          goto T149;}          goto T138;}
695          V72=MMcdr(V72)=MMcons(Cnil,Cnil);          V84=MMcdr(V84)=MMcons(Cnil,Cnil);
696          goto T150;}          goto T139;}
697          goto T149;          goto T138;
698  T149:;  T138:;
699          base[3]= (V66);          {object V87 = (V78);
700          vs_top=(vs_base=base+3)+1;          VMR23(V87)}}
701          return;}          base[0]=base[0];
702            return Cnil;
703  }  }
704  /*      function definition for RESTART-REPORT  */  /*      function definition for RESTART-REPORT  */
705    
706  static void L24()  static void L25()
707  {register object *base=vs_base;  {register object *base=vs_base;
708          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
709          vs_reserve(VM24);          vs_reserve(VM24);
710          {object V75;          {object V88;
711          check_arg(2);          check_arg(2);
712          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
713          V75=(base[1]);          V88=(base[1]);
714          vs_top=sup;          vs_top=sup;
715          {object V76;          {object V89;
716          V76= structure_ref((base[0]->c.c_car),VV[13],2);          V89= structure_ref((base[0]->c.c_car),VV[13],2);
717          if(((V76))==Cnil){          if(((V89))==Cnil){
718          goto T155;}          goto T144;}
719          base[2]= (V76);          base[2]= (V89);
720          goto T152;          goto T141;
721          goto T155;          goto T144;
722  T155:;  T144:;
723          base[3]= structure_ref((base[0]->c.c_car),VV[13],0);          base[3]= structure_ref((base[0]->c.c_car),VV[13],0);
724          base[3]=MMcons(base[3],base[0]);          base[3]=MMcons(base[3],base[0]);
725          base[2]=          base[2]=
726          make_cclosure_new(LC39,Cnil,base[3],Cdata);}          make_cclosure_new(LC40,Cnil,base[3],Cdata);}
727          goto T152;          goto T141;
728  T152:;  T141:;
729          base[3]= (V75);          base[3]= (V88);
730          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
731          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
732                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 755  T152:; Line 737  T152:;
737  }  }
738  /*      macro definition for RESTART-BIND       */  /*      macro definition for RESTART-BIND       */
739    
740  static void L25()  static void L26()
741  {register object *base=vs_base;  {register object *base=vs_base;
742          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
743          vs_reserve(VM25);          vs_reserve(VM25);
744          check_arg(2);          check_arg(2);
745          vs_top=sup;          vs_top=sup;
746          {object V77=base[0]->c.c_cdr;          {object V90=base[0]->c.c_cdr;
747          if(endp(V77))invalid_macro_call();          if(endp(V90))invalid_macro_call();
748          base[2]= (V77->c.c_car);          base[2]= (V90->c.c_car);
749          V77=V77->c.c_cdr;          V90=V90->c.c_cdr;
750          base[3]= V77;}          base[3]= V90;}
751          {object V79;          {object V92;
752          object V80= base[2];          object V93= base[2];
753          if(endp(V80)){          if(endp(V93)){
754          V78= Cnil;          V91= Cnil;
755          goto T159;}          goto T148;}
756          base[4]=V79=MMcons(Cnil,Cnil);          base[4]=V92=MMcons(Cnil,Cnil);
757          goto T160;          goto T149;
758  T160:;  T149:;
759          (V79->c.c_car)= listA(6,VV[39],VV[21],list(2,VV[7],car((V80->c.c_car))),VV[23],cadr((V80->c.c_car)),cddr((V80->c.c_car)));          (V92->c.c_car)= listA(6,VV[39],VV[21],list(2,VV[7],car((V93->c.c_car))),VV[23],cadr((V93->c.c_car)),cddr((V93->c.c_car)));
760          V80=MMcdr(V80);          V93=MMcdr(V93);
761          if(endp(V80)){          if(endp(V93)){
762          V78= base[4];          V91= base[4];
763          goto T159;}          goto T148;}
764          V79=MMcdr(V79)=MMcons(Cnil,Cnil);          V92=MMcdr(V92)=MMcons(Cnil,Cnil);
765          goto T160;}          goto T149;}
766          goto T159;          goto T148;
767  T159:;  T148:;
768          V82= list(2,VV[10],list(3,VV[37],make_cons(VV[38],V78),VV[10]));          V95= list(2,VV[10],list(3,VV[37],make_cons(VV[38],V91),VV[10]));
769          base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V82,Cnil),base[3]);          base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V95,Cnil),base[3]);
770          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
771          return;          return;
772  }  }
773  /*      function definition for FIND-RESTART    */  /*      local entry for function FIND-RESTART   */
774    
775  static void L26()  static object LI27(object V96,object first,...)
776  {register object *base=vs_base;  {      
777          register object *sup=base+VM26; VC26          va_list ap;
778          vs_reserve(VM26);          int narg = VFUN_NARGS; VMB26 VMS26 VMV26
779          {register object V83;          {register object V97;
780          object V84;          object V98;
781          if(vs_top-vs_base<1) too_few_arguments();          Vcs[0]=Vcs[0];
782          if(vs_top-vs_base>2) too_many_arguments();          va_start(ap,first);
783          V83=(base[0]);          if(narg <1) too_few_arguments();
784          vs_base=vs_base+1;          V97= V96;
785          if(vs_base>=vs_top){vs_top=sup;goto T162;}          narg = narg - 1;
786          V84=(base[1]);          if (narg <= 0) goto T151;
787          vs_top=sup;          else {
788            V98= first;}
789            --narg; goto T152;
790            goto T151;
791    T151:;
792            V98= Cnil;
793            goto T152;
794    T152:;
795            {register object V99;
796            object V100;
797            V99= symbol_value(VV[10]);
798            V100= car((V99));
799            goto T158;
800    T158:;
801            if(!(endp_prop((V99)))){
802            goto T159;}
803            goto T154;
804            goto T159;
805    T159:;
806            {register object V101;
807            register object V102;
808            V101= (V100);
809            V102= car((V101));
810            goto T167;
811    T167:;
812            if(!(endp_prop((V101)))){
813            goto T168;}
814          goto T163;          goto T163;
815          goto T162;          goto T168;
816  T162:;  T168:;
817          V84= Cnil;          if(((V102))==((V97))){
818            goto T173;}
819            V103= structure_ref((V102),VV[13],0);
820            if(!((/* INLINE-ARGS */V103)==((V97)))){
821            goto T172;}
822            goto T173;
823    T173:;
824            {object V104 = (V102);
825            VMR26(V104)}
826            goto T172;
827    T172:;
828            V101= cdr((V101));
829            V102= car((V101));
830            goto T167;}
831          goto T163;          goto T163;
832  T163:;  T163:;
833          {register object V85;          V99= cdr((V99));
834          object V86;          V100= car((V99));
835          V85= symbol_value(VV[10]);          goto T158;}
836          V86= car((V85));          goto T154;
837          goto T169;  T154:;
838  T169:;          {object V105;
839          if(!(endp_prop((V85)))){          V105= (*(LnkLI71))();
840          goto T170;}          {register object V106;
841          goto T165;          register object V107;
842          goto T170;          V106= (V105);
843  T170:;          V107= car((V106));
844          {register object V87;          goto T191;
845          register object V88;  T191:;
846          V87= (V86);          if(!(endp_prop((V106)))){
847          V88= car((V87));          goto T192;}
848          goto T178;          {object V108 = Cnil;
849  T178:;          VMR26(V108)}
850          if(!(endp_prop((V87)))){          goto T192;
851          goto T179;}  T192:;
852          goto T174;          if(((V107))==((V97))){
853          goto T179;          goto T197;}
854  T179:;          V109= structure_ref((V107),VV[13],0);
855          if(((V88))==((V83))){          if(!((/* INLINE-ARGS */V109)==((V97)))){
856          goto T184;}          goto T196;}
857          V89= structure_ref((V88),VV[13],0);          goto T197;
858          if(!((/* INLINE-ARGS */V89)==((V83)))){  T197:;
859          goto T183;}          {object V110 = (V107);
860          goto T184;          VMR26(V110)}
861  T184:;          goto T196;
862          base[4]= (V88);  T196:;
863          vs_top=(vs_base=base+4)+1;          V106= cdr((V106));
864          return;          V107= car((V106));
865          goto T183;          goto T191;}}
866  T183:;          va_end(ap);
867          V87= cdr((V87));          base[0]=base[0];
868          V88= car((V87));          return Cnil;}
         goto T178;}  
         goto T174;  
 T174:;  
         V85= cdr((V85));  
         V86= car((V85));  
         goto T169;}  
         goto T165;  
 T165:;  
         {object V90;  
         vs_base=vs_top;  
         (void) (*Lnk71)();  
         vs_top=sup;  
         V90= vs_base[0];  
         {register object V91;  
         register object V92;  
         V91= (V90);  
         V92= car((V91));  
         goto T202;  
 T202:;  
         if(!(endp_prop((V91)))){  
         goto T203;}  
         base[3]= Cnil;  
         vs_top=(vs_base=base+3)+1;  
         return;  
         goto T203;  
 T203:;  
         if(((V92))==((V83))){  
         goto T208;}  
         V93= structure_ref((V92),VV[13],0);  
         if(!((/* INLINE-ARGS */V93)==((V83)))){  
         goto T207;}  
         goto T208;  
 T208:;  
         base[3]= (V92);  
         vs_top=(vs_base=base+3)+1;  
         return;  
         goto T207;  
 T207:;  
         V91= cdr((V91));  
         V92= car((V91));  
         goto T202;}}  
869          }          }
 }  
870  /*      function definition for INVOKE-RESTART  */  /*      function definition for INVOKE-RESTART  */
871    
872  static void L27()  static void L28()
873  {register object *base=vs_base;  {register object *base=vs_base;
874          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
875          vs_reserve(VM27);          vs_reserve(VM27);
876          {object V94;          {object V111;
877          object V95;          object V112;
878          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
879          V94=(base[0]);          V111=(base[0]);
880          vs_base=vs_base+1;          vs_base=vs_base+1;
881          vs_top[0]=Cnil;          vs_top[0]=Cnil;
882          {object *p=vs_top;          {object *p=vs_top;
883           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
884          V95=(base[1]);          V112=(base[1]);
         vs_top=sup;  
         {object V96;{object V97;  
         base[2]= (V94);  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk77)();  
885          vs_top=sup;          vs_top=sup;
886          V97= vs_base[0];          {object V113;{object V114;
887          if(V97==Cnil)goto T218;          V114= (VFUN_NARGS=1,(*(LnkLI77))((V111)));
888          V96= V97;          if(V114==Cnil)goto T207;
889          goto T217;          V113= V114;
890          goto T218;          goto T206;
891  T218:;}          goto T207;
892    T207:;}
893          base[2]= VV[40];          base[2]= VV[40];
894          base[3]= (V94);          base[3]= (V111);
895          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
896          (void) (*Lnk70)();          (void) (*Lnk70)();
897          vs_top=sup;          vs_top=sup;
898          V96= vs_base[0];          V113= vs_base[0];
899          goto T217;          goto T206;
900  T217:;  T206:;
901          base[2]= structure_ref((V96),VV[13],1);          base[2]= structure_ref((V113),VV[13],1);
902          {object V98;          {object V115;
903          V98= (V95);          V115= (V112);
904           vs_top=base+3;           vs_top=base+3;
905           while(!endp(V98))           while(!endp(V115))
906           {vs_push(car(V98));V98=cdr(V98);}           {vs_push(car(V115));V115=cdr(V115);}
907          vs_base=base+3;}          vs_base=base+3;}
908          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
909                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 939  T217:; Line 914  T217:;
914  }  }
915  /*      function definition for INVOKE-RESTART-INTERACTIVELY    */  /*      function definition for INVOKE-RESTART-INTERACTIVELY    */
916    
917  static void L28()  static void L29()
918  {register object *base=vs_base;  {register object *base=vs_base;
919          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
920          vs_reserve(VM28);          vs_reserve(VM28);
921          {object V99;          {object V116;
922          check_arg(1);          check_arg(1);
923          V99=(base[0]);          V116=(base[0]);
924          vs_top=sup;          vs_top=sup;
925          goto TTL;          goto TTL;
926  TTL:;  TTL:;
927          {object V100;{object V101;          {object V117;{object V118;
928          base[1]= (V99);          V118= (VFUN_NARGS=1,(*(LnkLI77))((V116)));
929          vs_top=(vs_base=base+1)+1;          if(V118==Cnil)goto T214;
930          (void) (*Lnk77)();          V117= V118;
931          vs_top=sup;          goto T213;
932          V101= vs_base[0];          goto T214;
933          if(V101==Cnil)goto T226;  T214:;}
         V100= V101;  
         goto T225;  
         goto T226;  
 T226:;}  
934          base[1]= VV[41];          base[1]= VV[41];
935          base[2]= (V99);          base[2]= (V116);
936          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
937          (void) (*Lnk70)();          (void) (*Lnk70)();
938          vs_top=sup;          vs_top=sup;
939          V100= vs_base[0];          V117= vs_base[0];
940          goto T225;          goto T213;
941  T225:;  T213:;
942          base[1]= structure_ref((V100),VV[13],1);          base[1]= structure_ref((V117),VV[13],1);
943          {object V102;          {object V119;
944          {object V103;          {object V120;
945          V103= structure_ref((V100),VV[13],3);          V120= structure_ref((V117),VV[13],3);
946          if(((V103))==Cnil){          if(((V120))==Cnil){
947          goto T235;}          goto T222;}
948          vs_base=vs_top;          vs_base=vs_top;
949          {object _funobj = (V103);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V120);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
950                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
951                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
952                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
953          vs_top=sup;          vs_top=sup;
954          V102= vs_base[0];          V119= vs_base[0];
955          goto T232;          goto T219;
956          goto T235;          goto T222;
957  T235:;  T222:;
958          V102= Cnil;}          V119= Cnil;}
959          goto T232;          goto T219;
960  T232:;  T219:;
961           vs_top=base+2;           vs_top=base+2;
962           while(!endp(V102))           while(!endp(V119))
963           {vs_push(car(V102));V102=cdr(V102);}           {vs_push(car(V119));V119=cdr(V119);}
964          vs_base=base+2;}          vs_base=base+2;}
965          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
966                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 1000  T232:; Line 971  T232:;
971  }  }
972  /*      macro definition for RESTART-CASE       */  /*      macro definition for RESTART-CASE       */
973    
974  static void L29()  static void L30()
975  {register object *base=vs_base;  {register object *base=vs_base;
976          register object *sup=base+VM29; VC29          register object *sup=base+VM29; VC29
977          vs_reserve(VM29);          vs_reserve(VM29);
978          check_arg(2);          check_arg(2);
979          vs_top=sup;          vs_top=sup;
980          {object V104=base[0]->c.c_cdr;          {object V121=base[0]->c.c_cdr;
981          if(endp(V104))invalid_macro_call();          if(endp(V121))invalid_macro_call();
982          base[2]= (V104->c.c_car);          base[2]= (V121->c.c_car);
983          V104=V104->c.c_cdr;          V121=V121->c.c_cdr;
984          base[3]= V104;}          base[3]= V121;}
985          {object V105;          {object V122;
986          object V106;          object V123;
987          object V107;          object V124;
988          vs_base=vs_top;          vs_base=vs_top;
989          Lgensym();          Lgensym();
990          vs_top=sup;          vs_top=sup;
991          V105= vs_base[0];          V122= vs_base[0];
992          vs_base=vs_top;          vs_base=vs_top;
993          Lgensym();          Lgensym();
994          vs_top=sup;          vs_top=sup;
995          V106= vs_base[0];          V123= vs_base[0];
996          {object V108;          {object V125;
997          object V109= base[3];          object V126= base[3];
998          if(endp(V109)){          if(endp(V126)){
999          V107= Cnil;          V124= Cnil;
1000          goto T239;}          goto T226;}
1001          base[4]=V108=MMcons(Cnil,Cnil);          base[4]=V125=MMcons(Cnil,Cnil);
1002          goto T240;          goto T227;
1003  T240:;  T227:;
1004          {object V111;          {object V128;
1005          object V112;          object V129;
1006          base[5]= cddr((V109->c.c_car));          base[5]= cddr((V126->c.c_car));
1007          base[6]= VV[42];          base[6]= VV[42];
1008          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1009          (void) (*Lnk6)();          (void) (*Lnk6)();
1010          if(vs_base>=vs_top){vs_top=sup;goto T245;}          if(vs_base>=vs_top){vs_top=sup;goto T232;}
1011          V111= vs_base[0];          V128= vs_base[0];
1012          vs_base++;          vs_base++;
1013          if(vs_base>=vs_top){vs_top=sup;goto T246;}          if(vs_base>=vs_top){vs_top=sup;goto T233;}
1014          V112= vs_base[0];          V129= vs_base[0];
1015          vs_top=sup;          vs_top=sup;
1016          goto T247;          goto T234;
1017          goto T245;          goto T232;
1018  T245:;  T232:;
1019          V111= Cnil;          V128= Cnil;
1020          goto T246;          goto T233;
1021  T246:;  T233:;
1022          V112= Cnil;          V129= Cnil;
1023          goto T247;          goto T234;
1024  T247:;  T234:;
1025          {object V113;          {object V130;
1026          object V114;          object V131;
1027          base[5]= (V111);          base[5]= (V128);
1028          base[6]= VV[43];          base[6]= VV[43];
1029          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1030          Lgetf();          Lgetf();
1031          vs_top=sup;          vs_top=sup;
1032          V113= vs_base[0];          V130= vs_base[0];
1033          base[5]= (V111);          base[5]= (V128);
1034          base[6]= VV[44];          base[6]= VV[44];
1035          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1036          Lgetf();          Lgetf();
1037          vs_top=sup;          vs_top=sup;
1038          V114= vs_base[0];          V131= vs_base[0];
1039          V115= car((V109->c.c_car));          V132= car((V126->c.c_car));
1040          vs_base=vs_top;          vs_base=vs_top;
1041          Lgensym();          Lgensym();
1042          vs_top=sup;          vs_top=sup;
1043          V116= vs_base[0];          V133= vs_base[0];
1044          base[5]= VV[43];          base[5]= VV[43];
1045          base[6]= (V113);          base[6]= (V130);
1046          base[7]= VV[44];          base[7]= VV[44];
1047          base[8]= (V114);          base[8]= (V131);
1048          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
1049          L30(base);          L31(base);
1050          vs_top=sup;          vs_top=sup;
1051          V117= vs_base[0];          V134= vs_base[0];
1052          (V108->c.c_car)= list(5,/* INLINE-ARGS */V115,V116,V117,cadr((V109->c.c_car)),(V112));}}          (V125->c.c_car)= list(5,/* INLINE-ARGS */V132,V133,V134,cadr((V126->c.c_car)),(V129));}}
1053          V109=MMcdr(V109);          V126=MMcdr(V126);
1054          if(endp(V109)){          if(endp(V126)){
1055          V107= base[4];          V124= base[4];
1056          goto T239;}          goto T226;}
1057          V108=MMcdr(V108)=MMcons(Cnil,Cnil);          V125=MMcdr(V125)=MMcons(Cnil,Cnil);
1058          goto T240;}          goto T227;}
1059          goto T239;          goto T226;
1060  T239:;  T226:;
1061          V118= list(2,(V106),Cnil);          V135= list(2,(V123),Cnil);
1062          V119= make_cons(/* INLINE-ARGS */V118,Cnil);          V136= make_cons(/* INLINE-ARGS */V135,Cnil);
1063          {object V121;          {object V138;
1064          object V122= (V107);          object V139= (V124);
1065          if(endp(V122)){          if(endp(V139)){
1066          V120= Cnil;          V137= Cnil;
1067          goto T260;}          goto T247;}
1068          base[4]=V121=MMcons(Cnil,Cnil);          base[4]=V138=MMcons(Cnil,Cnil);
1069          goto T261;          goto T248;
1070  T261:;  T248:;
1071          {object V124;          {object V141;
1072          object V125;          object V142;
1073          object V126;          object V143;
1074          V124= car((V122->c.c_car));          V141= car((V139->c.c_car));
1075          V125= cadr((V122->c.c_car));          V142= cadr((V139->c.c_car));
1076          V126= caddr((V122->c.c_car));          V143= caddr((V139->c.c_car));
1077          V127= list(3,VV[51],(V106),VV[52]);          V144= list(3,VV[51],(V123),VV[52]);
1078          (V121->c.c_car)= listA(3,(V124),list(2,VV[48],list(4,VV[49],VV[50],/* INLINE-ARGS */V127,list(2,VV[53],(V125)))),(V126));}          (V138->c.c_car)= listA(3,(V141),list(2,VV[48],list(4,VV[49],VV[50],/* INLINE-ARGS */V144,list(2,VV[53],(V142)))),(V143));}
1079          V122=MMcdr(V122);          V139=MMcdr(V139);
1080          if(endp(V122)){          if(endp(V139)){
1081          V120= base[4];          V137= base[4];
1082          goto T260;}          goto T247;}
1083          V121=MMcdr(V121)=MMcons(Cnil,Cnil);          V138=MMcdr(V138)=MMcons(Cnil,Cnil);
1084          goto T261;}          goto T248;}
1085          goto T260;          goto T247;
1086  T260:;  T247:;
1087          V128= list(3,VV[47],V120,list(3,VV[54],(V105),base[2]));          V145= list(3,VV[47],V137,list(3,VV[54],(V122),base[2]));
1088          {object V130;          {object V147;
1089          object V131= (V107);          object V148= (V124);
1090          if(endp(V131)){          if(endp(V148)){
1091          V129= Cnil;          V146= Cnil;
1092          goto T266;}          goto T253;}
1093          base[4]=V130=MMcons(Cnil,Cnil);          base[4]=V147=MMcons(Cnil,Cnil);
1094          goto T267;          goto T254;
1095  T267:;  T254:;
1096          {object V133;          {object V150;
1097          object V134;          object V151;
1098          object V135;          object V152;
1099          V133= cadr((V131->c.c_car));          V150= cadr((V148->c.c_car));
1100          V134= cadddr((V131->c.c_car));          V151= cadddr((V148->c.c_car));
1101          V135= car(cddddr((V131->c.c_car)));          V152= car(cddddr((V148->c.c_car)));
1102          (V130->c.c_cdr)= list(2,(V133),list(3,VV[54],(V105),list(3,VV[55],list(2,VV[48],listA(3,VV[49],(V134),(V135))),(V106))));}          (V147->c.c_cdr)= list(2,(V150),list(3,VV[54],(V122),list(3,VV[55],list(2,VV[48],listA(3,VV[49],(V151),(V152))),(V123))));}
1103          {object cdr_V130=MMcdr(V130);while(!endp(cdr_V130)) {cdr_V130=MMcdr(cdr_V130);V130=MMcdr(V130);}}          {object cdr_V147=MMcdr(V147);while(!endp(cdr_V147)) {cdr_V147=MMcdr(cdr_V147);V147=MMcdr(V147);}}
1104          V131=MMcdr(V131);          V148=MMcdr(V148);
1105          if(endp(V131)){          if(endp(V148)){
1106          base[4]=base[4]->c.c_cdr;          base[4]=base[4]->c.c_cdr;
1107          V129= base[4];          V146= base[4];
1108          goto T266;}          goto T253;}
1109          goto T267;}          goto T254;}
1110          goto T266;          goto T253;
1111  T266:;  T253:;
1112          base[4]= list(3,VV[45],(V105),list(3,VV[8],/* INLINE-ARGS */V119,listA(3,VV[46],/* INLINE-ARGS */V128,V129)));          base[4]= list(3,VV[45],(V122),list(3,VV[8],/* INLINE-ARGS */V136,listA(3,VV[46],/* INLINE-ARGS */V145,V146)));
1113          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1114          return;}          return;}
1115  }  }
1116  /*      macro definition for WITH-SIMPLE-RESTART        */  /*      macro definition for WITH-SIMPLE-RESTART        */
1117    
1118  static void L31()  static void L32()
1119  {register object *base=vs_base;  {register object *base=vs_base;
1120          register object *sup=base+VM30; VC30          register object *sup=base+VM30; VC30
1121          vs_reserve(VM30);          vs_reserve(VM30);
1122          check_arg(2);          check_arg(2);
1123          vs_top=sup;          vs_top=sup;
1124          {object V136=base[0]->c.c_cdr;          {object V153=base[0]->c.c_cdr;
1125          if(endp(V136))invalid_macro_call();          if(endp(V153))invalid_macro_call();
1126          {object V137= (V136->c.c_car);          {object V154= (V153->c.c_car);
1127          if(endp(V137))invalid_macro_call();          if(endp(V154))invalid_macro_call();
1128          base[2]= (V137->c.c_car);          base[2]= (V154->c.c_car);
1129          V137=V137->c.c_cdr;          V154=V154->c.c_cdr;
1130          if(endp(V137))invalid_macro_call();          if(endp(V154))invalid_macro_call();
1131          base[3]= (V137->c.c_car);          base[3]= (V154->c.c_car);
1132          V137=V137->c.c_cdr;          V154=V154->c.c_cdr;
1133          base[4]= V137;}          base[4]= V154;}
1134          V136=V136->c.c_cdr;          V153=V153->c.c_cdr;
1135          base[5]= V136;}          base[5]= V153;}
1136          V138= make_cons(VV[60],base[5]);          V155= make_cons(VV[60],base[5]);
1137          base[6]= list(3,VV[59],/* INLINE-ARGS */V138,list(5,base[2],Cnil,VV[43],list(3,VV[49],VV[61],listA(4,VV[62],VV[58],base[3],base[4])),VV[63]));          base[6]= list(3,VV[59],/* INLINE-ARGS */V155,list(5,base[2],Cnil,VV[43],list(3,VV[49],VV[61],listA(4,VV[62],VV[58],base[3],base[4])),VV[63]));
1138          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1139          return;          return;
1140  }  }
1141  /*      function definition for ABORT   */  /*      function definition for ABORT   */
1142    
1143  static void L32()  static void L33()
1144  {register object *base=vs_base;  {register object *base=vs_base;
1145          register object *sup=base+VM31; VC31          register object *sup=base+VM31; VC31
1146          vs_reserve(VM31);          vs_reserve(VM31);
# Line 1188  TTL:; Line 1159  TTL:;
1159  }  }
1160  /*      function definition for CONTINUE        */  /*      function definition for CONTINUE        */
1161    
1162  static void L33()  static void L34()
1163  {register object *base=vs_base;  {register object *base=vs_base;
1164          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
1165          vs_reserve(VM32);          vs_reserve(VM32);
# Line 1203  TTL:; Line 1174  TTL:;
1174  }  }
1175  /*      function definition for MUFFLE-WARNING  */  /*      function definition for MUFFLE-WARNING  */
1176    
1177  static void L34()  static void L35()
1178  {register object *base=vs_base;  {register object *base=vs_base;
1179          register object *sup=base+VM33; VC33          register object *sup=base+VM33; VC33
1180          vs_reserve(VM33);          vs_reserve(VM33);
# Line 1218  TTL:; Line 1189  TTL:;
1189  }  }
1190  /*      function definition for STORE-VALUE     */  /*      function definition for STORE-VALUE     */
1191    
1192  static void L35()  static void L36()
1193  {register object *base=vs_base;  {register object *base=vs_base;
1194          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
1195          vs_reserve(VM34);          vs_reserve(VM34);
1196          {object V139;          {object V156;
1197          check_arg(1);          check_arg(1);
1198          V139=(base[0]);          V156=(base[0]);
1199          vs_top=sup;          vs_top=sup;
1200          goto TTL;          goto TTL;
1201  TTL:;  TTL:;
1202          base[1]= VV[67];          base[1]= VV[67];
1203          base[2]= (V139);          base[2]= (V156);
1204          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1205          (void) (*Lnk78)();          (void) (*Lnk78)();
1206          return;          return;
# Line 1237  TTL:; Line 1208  TTL:;
1208  }  }
1209  /*      function definition for USE-VALUE       */  /*      function definition for USE-VALUE       */
1210    
1211  static void L36()  static void L37()
1212  {register object *base=vs_base;  {register object *base=vs_base;
1213          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
1214          vs_reserve(VM35);          vs_reserve(VM35);
1215          {object V140;          {object V157;
1216          check_arg(1);          check_arg(1);
1217          V140=(base[0]);          V157=(base[0]);
1218          vs_top=sup;          vs_top=sup;
1219          goto TTL;          goto TTL;
1220  TTL:;  TTL:;
1221          base[1]= VV[68];          base[1]= VV[68];
1222          base[2]= (V140);          base[2]= (V157);
1223          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1224          (void) (*Lnk78)();          (void) (*Lnk78)();
1225          return;          return;
# Line 1256  TTL:; Line 1227  TTL:;
1227  }  }
1228  /*      local function TRANSFORM-KEYWORDS       */  /*      local function TRANSFORM-KEYWORDS       */
1229    
1230  static void L30(base0)  static void L31(base0)
1231  register object *base0;  register object *base0;
1232  {       register object *base=vs_base;  {       register object *base=vs_base;
1233          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
1234          vs_reserve(VM36);          vs_reserve(VM36);
1235          {register object V141;          {register object V158;
1236          object V142;          object V159;
1237          parse_key(vs_base,FALSE,FALSE,2,VV[43],VV[44]);          parse_key(vs_base,FALSE,FALSE,2,VV[43],VV[44]);
1238          vs_top=sup;          vs_top=sup;
1239          V141=(base[0]);          V158=(base[0]);
1240          V142=(base[1]);          V159=(base[1]);
1241          {register object V143;          {register object V160;
1242          V143= Cnil;          V160= Cnil;
1243          if(((V141))==Cnil){          if(((V158))==Cnil){
1244          goto T281;}          goto T268;}
1245          if(!(type_of((V141))==t_string)){          if(!(type_of((V158))==t_string)){
1246          goto T287;}          goto T274;}
1247          V144= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[57],(V141),VV[58])));          V161= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[57],(V158),VV[58])));
1248          goto T285;          goto T272;
1249          goto T287;          goto T274;
1250  T287:;  T274:;
1251          V144= list(2,VV[48],(V141));          V161= list(2,VV[48],(V158));
1252          goto T285;          goto T272;
1253  T285:;  T272:;
1254          V143= listA(3,V144,VV[24],(V143));          V160= listA(3,V161,VV[24],(V160));
1255          goto T281;          goto T268;
1256  T281:;  T268:;
1257          if(((V142))==Cnil){          if(((V159))==Cnil){
1258          goto T289;}          goto T276;}
1259          V143= listA(3,list(2,VV[48],(V142)),VV[34],(V143));          V160= listA(3,list(2,VV[48],(V159)),VV[34],(V160));
1260          goto T289;          goto T276;
1261  T289:;  T276:;
1262          base[4]= nreverse((V143));          base[4]= nreverse((V160));
1263          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1264          return;}          return;}
1265          }          }
1266  }  }
1267  /*      local function CLOSURE  */  /*      local function CLOSURE  */
1268    
1269  static void LC39(base0)  static void LC40(base0)
1270  register object *base0;  register object *base0;
1271  {       register object *base=vs_base;  {       register object *base=vs_base;
1272          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
1273          vs_reserve(VM37);          vs_reserve(VM37);
1274          {object V145;          {object V162;
1275          check_arg(1);          check_arg(1);
1276          V145=(base[0]);          V162=(base[0]);
1277          vs_top=sup;          vs_top=sup;
1278          if(((base0[0]->c.c_car))==Cnil){          if(((base0[0]->c.c_car))==Cnil){
1279          goto T294;}          goto T281;}
1280          base[1]= (V145);          base[1]= (V162);
1281          base[2]= VV[35];          base[2]= VV[35];
1282          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
1283          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1284          Lformat();          Lformat();
1285          return;          return;
1286          goto T294;          goto T281;
1287  T294:;  T281:;
1288          base[1]= (V145);          base[1]= (V162);
1289          base[2]= VV[36];          base[2]= VV[36];
1290          base[3]= (base0[1]->c.c_car);          base[3]= (base0[1]->c.c_car);
1291          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 1324  T294:; Line 1295  T294:;
1295  }  }
1296  /*      local function CLOSURE  */  /*      local function CLOSURE  */
1297    
1298  static void LC38(base0)  static void LC39(base0)
1299  register object *base0;  register object *base0;
1300  {       register object *base=vs_base;  {       register object *base=vs_base;
1301          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
1302          vs_reserve(VM38);          vs_reserve(VM38);
1303          {object V146;          {object V163;
1304          check_arg(1);          check_arg(1);
1305          V146=(base[0]);          V163=(base[0]);
1306          vs_top=sup;          vs_top=sup;
1307          {object V147;          {object V164;
1308          if(!(((base0[0]->c.c_car))==(symbol_value(VV[25])))){          if(!(((base0[0]->c.c_car))==(symbol_value(VV[25])))){
1309          goto T304;}          goto T291;}
1310          V147= symbol_value(VV[26]);          V164= symbol_value(VV[26]);
1311          goto T302;          goto T289;
1312          goto T304;          goto T291;
1313  T304:;{object V149;  T291:;{object V166;
1314          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
1315          base[2]= symbol_value(VV[27]);          base[2]= symbol_value(VV[27]);
1316          base[3]= VV[28];          base[3]= VV[28];
# Line 1347  T304:;{object V149; Line 1318  T304:;{object V149;
1318          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
1319          (void) (*Lnk80)();          (void) (*Lnk80)();
1320          vs_top=sup;          vs_top=sup;
1321          V149= vs_base[0];          V166= vs_base[0];
1322          if(V149==Cnil)goto T307;          if(V166==Cnil)goto T294;
1323          V148= V149;          V165= V166;
1324          goto T306;          goto T293;
1325          goto T307;          goto T294;
1326  T307:;}  T294:;}
1327          V148= VV[29];          V165= VV[29];
1328          goto T306;          goto T293;
1329  T306:;  T293:;
1330          V147= car(V148);          V164= car(V165);
1331          goto T302;          goto T289;
1332  T302:;  T289:;
1333          if(!(((V147))==(VV[30]))){          if(!(((V164))==(VV[30]))){
1334          goto T314;}          goto T301;}
1335          base[1]= (V146);          base[1]= (V163);
1336          base[2]= VV[31];          base[2]= VV[31];
1337          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1338          Lformat();          Lformat();
1339          return;          return;
1340          goto T314;          goto T301;
1341  T314:;  T301:;
1342          if(((V147))!=Cnil){          if(((V164))!=Cnil){
1343          goto T319;}          goto T306;}
1344          base[1]= (V146);          base[1]= (V163);
1345          base[2]= VV[32];          base[2]= VV[32];
1346          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1347          Lformat();          Lformat();
1348          return;          return;
1349          goto T319;          goto T306;
1350  T319:;  T306:;
1351          base[1]= (V146);          base[1]= (V163);
1352          base[2]= VV[33];          base[2]= VV[33];
1353          base[3]= make_fixnum((long)length((V147)));          base[3]= make_fixnum((long)length((V164)));
1354          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1355          Lformat();          Lformat();
1356          return;}          return;}
# Line 1387  T319:; Line 1358  T319:;
1358  }  }
1359  /*      local function CLOSURE  */  /*      local function CLOSURE  */
1360    
1361  static void LC37(base0)  static void LC38(base0)
1362  register object *base0;  register object *base0;
1363  {       register object *base=vs_base;  {       register object *base=vs_base;
1364          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
# Line 1395  register object *base0; Line 1366  register object *base0;
1366          check_arg(0);          check_arg(0);
1367          vs_top=sup;          vs_top=sup;
1368          {frame_ptr fr;          {frame_ptr fr;
1369          V150= make_cons((base0[0]->c.c_car),Cnil);          V167= make_cons((base0[0]->c.c_car),Cnil);
1370          base[0]= car(/* INLINE-ARGS */V150);          base[0]= car(/* INLINE-ARGS */V167);
1371          fr=frs_sch_catch(base[0]);          fr=frs_sch_catch(base[0]);
1372          if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]);          if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]);
1373          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
# Line 1406  register object *base0; Line 1377  register object *base0;
1377  static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* FIND */  static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* FIND */
1378  static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* INVOKE-RESTART */  static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* INVOKE-RESTART */
1379  static void LnkT6(){ call_or_link(VV[6],(void **)&Lnk6);} /* PARSE-KEYWORD-PAIRS */  static void LnkT6(){ call_or_link(VV[6],(void **)&Lnk6);} /* PARSE-KEYWORD-PAIRS */
1380  static void LnkT77(){ call_or_link(VV[77],(void **)&Lnk77);} /* FIND-RESTART */  static object  LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)&LnkLI77,first,ap);va_end(ap);return V1;} /* FIND-RESTART */
1381  static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* FIND-KCL-TOP-RESTART */  static object  LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* FIND-KCL-TOP-RESTART */
1382  static void LnkT75(){ call_or_link(VV[75],(void **)&Lnk75);} /* MAKE-KCL-TOP-RESTART */  static object  LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* MAKE-KCL-TOP-RESTART */
1383  static void LnkT39(){ call_or_link(VV[39],(void **)&Lnk39);} /* MAKE-RESTART */  static object  LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)&LnkLI39,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */
1384  static void LnkT74(){ call_or_link(VV[74],(void **)&Lnk74);} /* DEFINE-STRUCTURE */  static void LnkT74(){ call_or_link(VV[74],(void **)&Lnk74);} /* DEFINE-STRUCTURE */
1385  static void LnkT73(){ call_or_link(VV[73],(void **)&Lnk73);} /* RESTART-REPORT */  static void LnkT73(){ call_or_link(VV[73],(void **)&Lnk73);} /* RESTART-REPORT */
1386  static void LnkT72(){ call_or_link(VV[72],(void **)&Lnk72);} /* UNIQUE-ID */  static object  LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)&LnkLI72,1,first,ap);va_end(ap);return V1;} /* UNIQUE-ID */
1387  static void LnkT71(){ call_or_link(VV[71],(void **)&Lnk71);} /* KCL-TOP-RESTARTS */  static object  LnkTLI71(){return call_proc0(VV[71],(void **)&LnkLI71);} /* KCL-TOP-RESTARTS */
1388  static void LnkT70(){ call_or_link(VV[70],(void **)&Lnk70);} /* ERROR */  static void LnkT70(){ call_or_link(VV[70],(void **)&Lnk70);} /* ERROR */
1389  static void LnkT69(){ call_or_link(VV[69],(void **)&Lnk69);} /* *MAKE-SPECIAL */  static void LnkT69(){ call_or_link(VV[69],(void **)&Lnk69);} /* *MAKE-SPECIAL */
1390    

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

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