/[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.3.4.1.4.1 by camm, Tue Sep 2 20:18:16 2003 UTC revision 1.3.4.1.4.2 by camm, Tue Sep 23 18:39:17 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "clcs_restart.h"  #include "clcs_restart.h"
4  void init_clcs_restart(){do_init(VV);}  void init_clcs_restart(){do_init(VV);}
5  /*      local entry for function progn 'compile2181     */  /*      function definition for UNIQUE-ID       */
6    
7  static object LI1()  static void L1()
8    {register object *base=vs_base;
9  {        VMB1 VMS1 VMV1          register object *sup=base+VM1; VC1
10          goto TTL;          vs_check;
11  TTL:;          {object V1;
12          base[0]= VV[0];          V1=(base[0]);
         vs_top=(vs_base=base+0)+1;  
         (void) (*Lnk69)();  
         vs_top=sup;  
         {object V1 = Cnil;  
         VMR1(V1)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile2193     */  
   
 static object LI2()  
   
 {        VMB2 VMS2 VMV2  
         goto TTL;  
 TTL:;  
         base[0]= VV[0];  
         vs_top=(vs_base=base+0)+1;  
         Lboundp();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T4;}  
         goto T3;  
         goto T4;  
 T4:;  
         vs_base=vs_top;  
         Lmake_hash_table();  
         vs_top=sup;  
         setq(VV[0],vs_base[0]);  
         goto T3;  
 T3:;  
         {object V2 = Cnil;  
         VMR2(V2)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile2206     */  
   
 static object LI3()  
   
 {        VMB3 VMS3 VMV3  
         goto TTL;  
 TTL:;  
         {object V3 = Cnil;  
         VMR3(V3)}  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile2222     */  
   
 static object LI4()  
   
 {        VMB4 VMS4 VMV4  
         goto TTL;  
 TTL:;  
         base[0]= VV[1];  
         vs_top=(vs_base=base+0)+1;  
         (void) (*Lnk69)();  
         vs_top=sup;  
         {object V4 = Cnil;  
         VMR4(V4)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile2234     */  
   
 static object LI5()  
   
 {        VMB5 VMS5 VMV5  
         goto TTL;  
 TTL:;  
         base[0]= VV[1];  
         vs_top=(vs_base=base+0)+1;  
         Lboundp();  
13          vs_top=sup;          vs_top=sup;
         if((vs_base[0])==Cnil){  
         goto T12;}  
         goto T11;  
         goto T12;  
 T12:;  
         setq(VV[1],small_fixnum(-1));  
         goto T11;  
 T11:;  
         {object V5 = Cnil;  
         VMR5(V5)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile2247     */  
   
 static object LI6()  
   
 {        VMB6 VMS6 VMV6  
         goto TTL;  
 TTL:;  
         {object V6 = Cnil;  
         VMR6(V6)}  
         return Cnil;  
 }  
 /*      local entry for function UNIQUE-ID      */  
   
 static object LI7(V8)  
   
 object V8;  
 {        VMB7 VMS7 VMV7  
14          goto TTL;          goto TTL;
15  TTL:;{object V9;  TTL:;{object V2;
16          base[0]= (V8);          base[1]= (V1);
17          base[1]= symbol_value(VV[0]);          base[2]= (VV[0]->s.s_dbind);
18          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+1)+2;
19          Lgethash();          Lgethash();
20          vs_top=sup;          vs_top=sup;
21          V9= vs_base[0];          V2= vs_base[0];
22          if(V9==Cnil)goto T17;          if(V2==Cnil)goto T1;
23          {object V10 = V9;          base[1]= V2;
24          VMR7(V10)}          vs_top=(vs_base=base+1)+1;
25          goto T17;          return;
26  T17:;}          goto T1;
27          {object V12;  T1:;}
28          object V13;          {object V4;
29          V12= symbol_value(VV[0]);          object V5;
30          setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1)));          V4= (VV[0]->s.s_dbind);
31          V13= symbol_value(VV[1]);          (VV[1]->s.s_dbind)= number_plus((VV[1]->s.s_dbind),small_fixnum(1));
32          base[1]= V8;          V5= (VV[1]->s.s_dbind);
33          base[2]= (V12);          base[2]= V1;
34          base[3]= (V13);          base[3]= (V4);
35          vs_top=(vs_base=base+1)+3;          base[4]= (V5);
36            vs_top=(vs_base=base+2)+3;
37          siLhash_set();          siLhash_set();
38          vs_top=sup;          return;}
39          {object V14 = vs_base[0];          }
         VMR7(V14)}}  
         base[0]=base[0];  
         return Cnil;  
40  }  }
41  /*      function definition for PARSE-KEYWORD-PAIRS     */  /*      function definition for PARSE-KEYWORD-PAIRS     */
42    
43  static void L8()  static void L2()
44  {register object *base=vs_base;  {register object *base=vs_base;
45          register object *sup=base+VM8; VC8          register object *sup=base+VM2; VC2
46          vs_reserve(VM8);          vs_check;
47          {object V15;          {object V6;
48          register object V16;          register object V7;
49          check_arg(2);          V6=(base[0]);
50          V15=(base[0]);          V7=(base[1]);
         V16=(base[1]);  
51          vs_top=sup;          vs_top=sup;
52          goto TTL;          goto TTL;
53  TTL:;  TTL:;
54          {register object V17;          {register object V8;
55          register object V18;          register object V9;
56          V17= (V15);          V8= (V6);
57          V18= Cnil;          V9= Cnil;
58          goto T28;          goto T12;
59  T28:;  T12:;
60          if(((V17))==Cnil){          if(((V8))==Cnil){
61          goto T30;}          goto T14;}
62          {register object x= car((V17)),V19= (V16);          {register object x= CMPcar((V8)),V10= (V7);
63          while(!endp(V19))          while(V10!=Cnil)
64          if(eql(x,V19->c.c_car)){          if(eql(x,V10->c.c_car)){
65          goto T29;          goto T13;
66          }else V19=V19->c.c_cdr;}          }else V10=V10->c.c_cdr;}
67          goto T30;          goto T14;
68  T30:;  T14:;
69          base[2]= nreverse((V18));          base[2]= nreverse((V9));
70          base[3]= (V17);          base[3]= (V8);
71          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
72          return;          return;
73          goto T29;          goto T13;
74  T29:;  T13:;
75          {object V20;          {object V11;
76          V20= cddr((V17));          V11= CMPcddr((V8));
77          V18= listA(3,cadr((V17)),car((V17)),(V18));          V9= listA(3,CMPcadr((V8)),CMPcar((V8)),(V9));
78          V17= (V20);}          V8= (V11);}
79          goto T28;}          goto T12;}
80          }          }
81  }  }
82  /*      macro definition for WITH-KEYWORD-PAIRS */  /*      macro definition for WITH-KEYWORD-PAIRS */
83    
84  static void L9()  static void L3()
85  {register object *base=vs_base;  {register object *base=vs_base;
86          register object *sup=base+VM9; VC9          register object *sup=base+VM3; VC3
87          vs_reserve(VM9);          vs_check;
         check_arg(2);  
88          vs_top=sup;          vs_top=sup;
89          {object V21=base[0]->c.c_cdr;          {object V12=base[0]->c.c_cdr;
90          if(endp(V21))invalid_macro_call();          {object V13= (V12->c.c_car);
91          {object V22= (V21->c.c_car);          base[2]= (V13->c.c_car);
92          if(endp(V22))invalid_macro_call();          V13=V13->c.c_cdr;
93          base[2]= (V22->c.c_car);          base[3]= (V13->c.c_car);
94          V22=V22->c.c_cdr;          V13=V13->c.c_cdr;
95          if(endp(V22))invalid_macro_call();          if(endp(V13)){
         base[3]= (V22->c.c_car);  
         V22=V22->c.c_cdr;  
         if(endp(V22)){  
96          base[4]= Cnil;          base[4]= Cnil;
97          } else {          } else {
98          base[4]= (V22->c.c_car);          base[4]= (V13->c.c_car);}}
99          V22=V22->c.c_cdr;}          V12=V12->c.c_cdr;
100          if(!endp(V22))invalid_macro_call();}          base[5]= V12;}
101          V21=V21->c.c_cdr;          {register object V14;
102          base[5]= V21;}          {register object x= VV[2],V15= base[2];
103          {register object V23;          while(V15!=Cnil)
104          {register object x= VV[2],V24= base[2];          if(eql(x,V15->c.c_car)){
105          while(!endp(V24))          V14= V15;
106          if(eql(x,V24->c.c_car)){          goto T26;
107          V23= V24;          }else V15=V15->c.c_cdr;
108          goto T42;          V14= Cnil;}
109          }else V24=V24->c.c_cdr;          goto T26;
110          V23= Cnil;}  T26:;
111          goto T42;          if(((long)length((V14)))==(2)){
112  T42:;          goto T27;}
         if(((long)length((V23)))==(2)){  
         goto T43;}  
113          base[6]= VV[3];          base[6]= VV[3];
114          base[7]= (V23);          base[7]= (V14);
115          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
116          (void) (*Lnk70)();          (void) (*Lnk63)();
117          vs_top=sup;          vs_top=sup;
118          goto T43;          goto T27;
119  T43:;  T27:;
120          {object V25;          {object V16;
121          object V26;          object V17;
122          object V27;          object V18;
123          base[6]= base[2];          base[6]= base[2];
124          base[7]= (V23);          base[7]= (V14);
125          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
126          Lldiff();          Lldiff();
127          vs_top=sup;          vs_top=sup;
128          V25= vs_base[0];          V16= vs_base[0];
129          if(base[4]!=Cnil){          if(base[4]!=Cnil){
130          V26= base[4];          V17= base[4];
131          goto T51;}          goto T35;}
132          vs_base=vs_top;          vs_base=vs_top;
133          Lgensym();          Lgensym();
134          vs_top=sup;          vs_top=sup;
135          V26= vs_base[0];          V17= vs_base[0];
136          goto T51;          goto T35;
137  T51:;  T35:;
138          V27= cadr((V23));          V18= CMPcadr((V14));
139          {object V28;          {object V19;
140          {object V29;          {object V20;
141          object V30= (V25);          object V21= (V16);
142          if(endp(V30)){          if(V21==Cnil){
143          V28= Cnil;          V19= Cnil;
144          goto T53;}          goto T37;}
145          base[6]=V29=MMcons(Cnil,Cnil);          base[6]=V20=MMcons(Cnil,Cnil);
146          goto T54;          goto T38;
147  T54:;  T38:;
148          base[7]= coerce_to_string((V30->c.c_car));          base[7]= coerce_to_string((V21->c.c_car));
149          base[9]= VV[4];          base[9]= VV[4];
150          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
151          Lfind_package();          Lfind_package();
# Line 265  T54:; Line 154  T54:;
154          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
155          Lintern();          Lintern();
156          vs_top=sup;          vs_top=sup;
157          (V29->c.c_car)= vs_base[0];          (V20->c.c_car)= vs_base[0];
158          V30=MMcdr(V30);          if((V21=MMcdr(V21))==Cnil){
159          if(endp(V30)){          V19= base[6];
160          V28= base[6];          goto T37;}
161          goto T53;}          V20=MMcdr(V20)=MMcons(Cnil,Cnil);
162          V29=MMcdr(V29)=MMcons(Cnil,Cnil);          goto T38;}
163          goto T54;}          goto T37;
164          goto T53;  T37:;
165  T53:;          V23= list(2,(V17),(V18));
166          V32= list(2,(V26),(V27));          V24= list(3,VV[6],base[3],list(2,VV[7],(V19)));
167          V33= list(3,VV[6],base[3],list(2,VV[7],(V28)));          {object V26;
168          {object V35;          object V27= (V16);
169          object V36= (V25);          object V28= (V19);
170          object V37= (V28);          if(V27==Cnil||V28==Cnil){
171          if(endp(V36)||endp(V37)){          V25= Cnil;
172          V34= Cnil;          goto T43;}
173          goto T59;}          base[6]=V26=MMcons(Cnil,Cnil);
174          base[6]=V35=MMcons(Cnil,Cnil);          goto T44;
175          goto T60;  T44:;
176  T60:;          (V26->c.c_car)= list(2,(V27->c.c_car),list(3,VV[9],(V17),(V28->c.c_car)));
177          (V35->c.c_car)= list(2,(V36->c.c_car),list(3,VV[9],(V26),(V37->c.c_car)));          if((V27=MMcdr(V27))==Cnil||(V28=MMcdr(V28))==Cnil){
178          V36=MMcdr(V36);          V25= base[6];
179          V37=MMcdr(V37);          goto T43;}
180          if(endp(V36)||endp(V37)){          V26=MMcdr(V26)=MMcons(Cnil,Cnil);
181          V34= base[6];          goto T44;}
182          goto T59;}          goto T43;
183          V35=MMcdr(V35)=MMcons(Cnil,Cnil);  T43:;
184          goto T60;}          base[6]= list(4,VV[5],/* INLINE-ARGS */V23,/* INLINE-ARGS */V24,listA(3,VV[8],V25,base[5]));
         goto T59;  
 T59:;  
         base[6]= list(4,VV[5],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,listA(3,VV[8],V34,base[5]));  
185          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
186          return;}}}          return;}}}
187  }  }
188  /*      local entry for function progn 'compile2348     */  /*      function definition for COMPUTE-RESTARTS        */
189    
190  static object LI10()  static void L4()
191    {register object *base=vs_base;
192  {        VMB10 VMS10 VMV10          register object *sup=base+VM4; VC4
193          goto TTL;          vs_check;
194  TTL:;          {object V31;
195          base[0]= VV[10];          if(vs_base>=vs_top){vs_top=sup;goto T46;}
196          vs_top=(vs_base=base+0)+1;          V31=(base[0]);
197          (void) (*Lnk69)();          vs_top=sup;
198          vs_top=sup;          goto T47;
199          {object V40 = Cnil;          goto T46;
200          VMR10(V40)}  T46:;
201          base[0]=base[0];          V31= Cnil;
202          return Cnil;          goto T47;
203  }  T47:;
204  /*      local entry for function progn 'compile2360     */          base[2]= (VV[10]->s.s_dbind);
205            {object V33;
206  static object LI11()          object V34= base[2];
207            if(V34==Cnil){
208  {        VMB11 VMS11 VMV11          V32= Cnil;
209          goto TTL;          goto T49;}
210  TTL:;          base[1]=V33=MMcons(Cnil,Cnil);
211          base[0]= VV[10];          goto T50;
212          vs_top=(vs_base=base+0)+1;  T50:;
213          Lboundp();          base[3]= (V34->c.c_car);
214          vs_top=sup;          vs_top=(vs_base=base+3)+1;
         if((vs_base[0])==Cnil){  
         goto T65;}  
         goto T64;  
         goto T65;  
 T65:;  
         setq(VV[10],Cnil);  
         goto T64;  
 T64:;  
         {object V41 = Cnil;  
         VMR11(V41)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile2373     */  
   
 static object LI12()  
   
 {        VMB12 VMS12 VMV12  
         goto TTL;  
 TTL:;  
         {object V42 = Cnil;  
         VMR12(V42)}  
         return Cnil;  
 }  
 /*      local entry for function COMPUTE-RESTARTS       */  
   
 static object LI13(object first,...)  
 {        
         va_list ap;  
         int narg = VFUN_NARGS; VMB13 VMS13 VMV13  
         {object V43;  
         va_start(ap,first);  
         narg = narg - 0;  
         if (narg <= 0) goto T70;  
         else {  
         V43= first;}  
         --narg; goto T71;  
         goto T70;  
 T70:;  
         V43= Cnil;  
         goto T71;  
 T71:;  
         base[1]= symbol_value(VV[10]);  
         {object V45;  
         object V46= base[1];  
         if(endp(V46)){  
         V44= Cnil;  
         goto T73;}  
         base[0]=V45=MMcons(Cnil,Cnil);  
         goto T74;  
 T74:;  
         base[2]= (V46->c.c_car);  
         vs_top=(vs_base=base+2)+1;  
215          Lcopy_list();          Lcopy_list();
216          vs_top=sup;          vs_top=sup;
217          (V45->c.c_cdr)= vs_base[0];          (V33->c.c_cdr)= vs_base[0];
218          {object cdr_V45=MMcdr(V45);while(!endp(cdr_V45)) {cdr_V45=MMcdr(cdr_V45);V45=MMcdr(V45);}}          while(MMcdr(V33)!=Cnil)V33=MMcdr(V33);
219          V46=MMcdr(V46);          if((V34=MMcdr(V34))==Cnil){
220          if(endp(V46)){          base[1]=base[1]->c.c_cdr;
221          base[0]=base[0]->c.c_cdr;          V32= base[1];
222          V44= base[0];          goto T49;}
223          goto T73;}          goto T50;}
224          goto T74;}          goto T49;
225          goto T73;  T49:;
226  T73:;          vs_base=vs_top;
227          V47= (*(LnkLI71))();          (void) (*Lnk64)();
228          {object V48 = nconc(V44,/* INLINE-ARGS */V47);          vs_top=sup;
229          VMR13(V48)}          V35= vs_base[0];
230          va_end(ap);          base[1]= nconc(V32,V35);
231          base[0]=base[0];          vs_top=(vs_base=base+1)+1;
232          return Cnil;}          return;
233          }          }
234    }
235  /*      function definition for RESTART-PRINT   */  /*      function definition for RESTART-PRINT   */
236    
237  static void L14()  static void L5()
238  {register object *base=vs_base;  {register object *base=vs_base;
239          register object *sup=base+VM14; VC14          register object *sup=base+VM5; VC5
240          vs_reserve(VM14);          vs_check;
241          {object V49;          {object V36;
242          object V50;          object V37;
243          object V51;          object V38;
244          check_arg(3);          V36=(base[0]);
245          V49=(base[0]);          V37=(base[1]);
246          V50=(base[1]);          V38=(base[2]);
         V51=(base[2]);  
247          vs_top=sup;          vs_top=sup;
248          goto TTL;          goto TTL;
249  TTL:;  TTL:;
250          if((symbol_value(VV[11]))==Cnil){          if(((VV[11]->s.s_dbind))==Cnil){
251          goto T78;}          goto T55;}
252          base[3]= (V50);          base[3]= (V37);
253          base[4]= VV[12];          base[4]= VV[12];
254          base[6]= (V49);          base[6]= (V36);
255          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
256          Ltype_of();          Ltype_of();
257          vs_top=sup;          vs_top=sup;
258          base[5]= vs_base[0];          base[5]= vs_base[0];
259          base[6]= (*(LnkLI72))((V49));          base[7]= (V36);
260            vs_top=(vs_base=base+7)+1;
261            (void) (*Lnk65)();
262            vs_top=sup;
263            base[6]= vs_base[0];
264          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
265          Lformat();          Lformat();
266          return;          return;
267          goto T78;          goto T55;
268  T78:;  T55:;
269          base[3]= (V49);          base[3]= (V36);
270          base[4]= (V50);          base[4]= (V37);
271          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
272          (void) (*Lnk73)();          (void) (*Lnk66)();
273          return;          return;
274          }          }
275  }  }
276  /*      local entry for function progn 'compile2413     */  /*      function definition for MAKE-RESTART    */
   
 static object LI15()  
277    
278  {        VMB15 VMS15 VMV15  static void L6()
279          goto TTL;  {register object *base=vs_base;
280  TTL:;          register object *sup=base+VM6; VC6
281          base[0]= VV[13];          vs_check;
282          base[1]= VV[14];          {object V39;
283          base[2]= Cnil;          object V40;
284          base[3]= Cnil;          object V41;
285          base[4]= Cnil;          object V42;
286          base[5]= VV[15];          parse_key(vs_base,FALSE,FALSE,4,VV[14],VV[16],VV[17],VV[27]);
287          base[6]= VV[16];          vs_top=sup;
288          base[7]= Cnil;          V39=(base[0]);
289          base[8]= Cnil;          V40=(base[1]);
290          base[9]= VV[17];          V41=(base[2]);
291          base[10]= VV[18];          V42=(base[3]);
292          base[11]= small_fixnum(4);          base[8]= VV[13];
293          base[12]= VV[19];          base[9]= (V39);
294          base[13]= Cnil;          base[10]= (V40);
295          vs_top=(vs_base=base+0)+14;          base[11]= (V41);
296          (void) (*Lnk74)();          base[12]= (V42);
297          vs_top=sup;          vs_top=(vs_base=base+8)+5;
         {object V52 = Cnil;  
         VMR15(V52)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function MAKE-RESTART   */  
   
 static object LI16(object first,...)  
 {        
         va_list ap;  
         int narg = VFUN_NARGS; VMB16 VMS16 VMV16  
         {object V53;  
         object V54;  
         object V55;  
         object V56;  
         va_start(ap,first);  
         narg= narg - 0;  
         {  
         parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI16key,first,ap);  
         V53=(Vcs[0]);  
         V54=(Vcs[1]);  
         V55=(Vcs[2]);  
         V56=(Vcs[3]);  
         base[0]= VV[13];  
         base[1]= (V53);  
         base[2]= (V54);  
         base[3]= (V55);  
         base[4]= (V56);  
         vs_top=(vs_base=base+0)+5;  
298          siLmake_structure();          siLmake_structure();
299          vs_top=sup;          return;
300          {object V57 = vs_base[0];          }
         VMR16(V57)}  
         va_end(ap);  
         base[0]=base[0];  
         return Cnil;}  
         }}  
 /*      local entry for function progn 'compile2433     */  
   
 static object LI17()  
   
 {        VMB17 VMS17 VMV17  
         goto TTL;  
 TTL:;  
         {object V58 = Cnil;  
         VMR17(V58)}  
         return Cnil;  
301  }  }
302  /*      local entry for function progn 'compile2449     */  /*      function definition for MAKE-KCL-TOP-RESTART    */
   
 static object LI18()  
303    
304  {        VMB18 VMS18 VMV18  static void L7()
305          goto TTL;  {register object *base=vs_base;
306  TTL:;          register object *sup=base+VM7; VC7
307          base[0]= VV[20];          vs_check;
308          vs_top=(vs_base=base+0)+1;          base[0]=MMcons(base[0],Cnil);
         (void) (*Lnk69)();  
309          vs_top=sup;          vs_top=sup;
310          {object V59 = Cnil;          base[1]= VV[14];
311          VMR18(V59)}          base[2]= VV[15];
312          base[0]=base[0];          base[3]= VV[16];
313          return Cnil;          base[4]=
314            make_cclosure_new(LC23,Cnil,base[0],Cdata);
315            base[5]= VV[17];
316            base[6]=
317            make_cclosure_new(LC24,Cnil,base[0],Cdata);
318            base[7]= VV[27];
319            base[8]= Cnil;
320            vs_top=(vs_base=base+1)+8;
321            (void) (*Lnk33)();
322            return;
323  }  }
324  /*      local entry for function progn 'compile2461     */  /*      function definition for FIND-KCL-TOP-RESTART    */
325    
326  static object LI19()  static void L8()
327    {register object *base=vs_base;
328  {        VMB19 VMS19 VMV19          register object *sup=base+VM8; VC8
329          goto TTL;          vs_check;
330  TTL:;          {object V43;
331          base[0]= VV[20];          V43=(base[0]);
         vs_top=(vs_base=base+0)+1;  
         Lboundp();  
332          vs_top=sup;          vs_top=sup;
         if((vs_base[0])==Cnil){  
         goto T111;}  
         goto T110;  
         goto T111;  
 T111:;  
         setq(VV[20],Cnil);  
         goto T110;  
 T110:;  
         {object V60 = Cnil;  
         VMR19(V60)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile2474     */  
   
 static object LI20()  
   
 {        VMB20 VMS20 VMV20  
333          goto TTL;          goto TTL;
334  TTL:;  TTL:;{object V45;
335          {object V61 = Cnil;          {register object x= (V43),V46= (VV[28]->s.s_dbind);
336          VMR20(V61)}          while(V46!=Cnil)
337          return Cnil;          if(eql(x,V46->c.c_car->c.c_car) &&V46->c.c_car != Cnil){
338  }          V45= (V46->c.c_car);
339  /*      local entry for function MAKE-KCL-TOP-RESTART   */          goto T80;
340            }else V46=V46->c.c_cdr;
341  static object LI22(V63)          V45= Cnil;}
342            goto T80;
343  object V63;  T80:;
344  {        VMB21 VMS21 VMV21          if(V45==Cnil)goto T79;
345          goto TTL;          V44= V45;
346  TTL:;          goto T78;
347          base[0]=MMcons((V63),Cnil);          goto T79;
348          V64=  T79:;}
349          make_cclosure_new(LC38,Cnil,base[0],Cdata);          {object V48;
350          V65=          base[2]= (V43);
351          make_cclosure_new(LC39,Cnil,base[0],Cdata);          vs_top=(vs_base=base+2)+1;
352          {object V66 = (VFUN_NARGS=8,(*(LnkLI39))(VV[21],VV[22],VV[23],V64,VV[24],V65,VV[34],Cnil));          (void) (*Lnk67)();
353          VMR21(V66)}          vs_top=sup;
354          base[0]=base[0];          V49= vs_base[0];
355          return Cnil;          V48= make_cons((V43),V49);
356  }          (VV[28]->s.s_dbind)= make_cons((V48),(VV[28]->s.s_dbind));
357  /*      local entry for function FIND-KCL-TOP-RESTART   */          V47= (VV[28]->s.s_dbind);}
358            V44= CMPcar(V47);
359  static object LI23(V68)          goto T78;
360    T78:;
361  object V68;          base[1]= CMPcdr(V44);
362  {        VMB22 VMS22 VMV22          vs_top=(vs_base=base+1)+1;
363          goto TTL;          return;
364  TTL:;{object V70;          }
         {register object x= (V68),V71= symbol_value(VV[20]);  
         while(!endp(V71))  
         if(type_of(V71->c.c_car)==t_cons &&eql(x,V71->c.c_car->c.c_car)){  
         V70= (V71->c.c_car);  
         goto T120;  
         }else V71=V71->c.c_cdr;  
         V70= Cnil;}  
         goto T120;  
 T120:;  
         if(V70==Cnil)goto T119;  
         V69= V70;  
         goto T118;  
         goto T119;  
 T119:;}  
         {object V73;  
         V74= (*(LnkLI75))((V68));  
         V73= make_cons((V68),/* INLINE-ARGS */V74);  
         setq(VV[20],make_cons((V73),symbol_value(VV[20])));  
         V72= symbol_value(VV[20]);}  
         V69= car(V72);  
         goto T118;  
 T118:;  
         {object V75 = cdr(V69);  
         VMR22(V75)}  
         base[0]=base[0];  
         return Cnil;  
365  }  }
366  /*      local entry for function KCL-TOP-RESTARTS       */  /*      function definition for KCL-TOP-RESTARTS        */
   
 static object LI24()  
367    
368  {        VMB23 VMS23 VMV23  static void L9()
369    {register object *base=vs_base;
370            register object *sup=base+VM9; VC9
371            vs_check;
372            vs_top=sup;
373          goto TTL;          goto TTL;
374  TTL:;  TTL:;
375          {object V76;          {object V50;
376          object V77;          object V51;
377          object V78;          object V52;
378          base[4]= symbol_value(VV[27]);          base[4]= (VV[20]->s.s_dbind);
379          {object V79;          {object V53;
380          object V80= base[4];          object V54= base[4];
381          if(endp(V80)){          if(V54==Cnil){
382          V76= Cnil;          V50= Cnil;
383          goto T124;}          goto T86;}
384          base[3]=V79=MMcons(Cnil,Cnil);          base[3]=V53=MMcons(Cnil,Cnil);
385          goto T125;          goto T87;
386  T125:;  T87:;
387          if((cdr((V80->c.c_car)))==Cnil){          if((CMPcdr((V54->c.c_car)))==Cnil){
388          goto T128;}          goto T90;}
389          (V79->c.c_cdr)= make_cons(cdr((V80->c.c_car)),Cnil);          (V53->c.c_cdr)= make_cons(CMPcdr((V54->c.c_car)),Cnil);
390          goto T126;          goto T88;
391          goto T128;          goto T90;
392  T128:;  T90:;
393          (V79->c.c_cdr)= Cnil;          (V53->c.c_cdr)= Cnil;
394          goto T126;          goto T88;
395  T126:;  T88:;
396          {object cdr_V79=MMcdr(V79);while(!endp(cdr_V79)) {cdr_V79=MMcdr(cdr_V79);V79=MMcdr(V79);}}          while(MMcdr(V53)!=Cnil)V53=MMcdr(V53);
397          V80=MMcdr(V80);          if((V54=MMcdr(V54))==Cnil){
         if(endp(V80)){  
398          base[3]=base[3]->c.c_cdr;          base[3]=base[3]->c.c_cdr;
399          V76= base[3];          V50= base[3];
400          goto T124;}          goto T86;}
401          goto T125;}          goto T87;}
402          goto T124;          goto T86;
403  T124:;  T86:;
404          if((symbol_value(VV[25]))==Cnil){          if(((VV[18]->s.s_dbind))==Cnil){
405          goto T132;}          goto T94;}
406          V77= make_cons(symbol_value(VV[25]),(V76));          V51= make_cons((VV[18]->s.s_dbind),(V50));
407          goto T130;          goto T92;
408          goto T132;          goto T94;
409  T132:;  T94:;
410          V77= (V76);          V51= (V50);
411          goto T130;          goto T92;
412  T130:;  T92:;
413          {object V82;          {object V56;
414          object V83= (V77);          object V57= (V51);
415          if(endp(V83)){          if(V57==Cnil){
416          V78= Cnil;          V52= Cnil;
417          goto T134;}          goto T96;}
418          base[3]=V82=MMcons(Cnil,Cnil);          base[3]=V56=MMcons(Cnil,Cnil);
419          goto T135;          goto T97;
420  T135:;  T97:;
421          (V82->c.c_car)= (*(LnkLI76))((V83->c.c_car));          base[4]= (V57->c.c_car);
422          V83=MMcdr(V83);          vs_top=(vs_base=base+4)+1;
423          if(endp(V83)){          (void) (*Lnk68)();
424          V78= base[3];          vs_top=sup;
425          goto T134;}          (V56->c.c_car)= vs_base[0];
426          V82=MMcdr(V82)=MMcons(Cnil,Cnil);          if((V57=MMcdr(V57))==Cnil){
427          goto T135;}          V52= base[3];
428          goto T134;          goto T96;}
429  T134:;          V56=MMcdr(V56)=MMcons(Cnil,Cnil);
430          {object V84;          goto T97;}
431          object V85= (V77);          goto T96;
432          object V86= (V78);  T96:;
433          if(endp(V85)||endp(V86)){          {object V58;
434          setq(VV[20],Cnil);          object V59= (V51);
435          goto T138;}          object V60= (V52);
436          base[3]=V84=MMcons(Cnil,Cnil);          if(V59==Cnil||V60==Cnil){
437          goto T139;          (VV[28]->s.s_dbind)= Cnil;
438  T139:;          goto T101;}
439          (V84->c.c_car)= make_cons((V85->c.c_car),(V86->c.c_car));          base[3]=V58=MMcons(Cnil,Cnil);
440          V85=MMcdr(V85);          goto T102;
441          V86=MMcdr(V86);  T102:;
442          if(endp(V85)||endp(V86)){          (V58->c.c_car)= make_cons((V59->c.c_car),(V60->c.c_car));
443          setq(VV[20],base[3]);          if((V59=MMcdr(V59))==Cnil||(V60=MMcdr(V60))==Cnil){
444          goto T138;}          (VV[28]->s.s_dbind)= base[3];
445          V84=MMcdr(V84)=MMcons(Cnil,Cnil);          goto T101;}
446          goto T139;}          V58=MMcdr(V58)=MMcons(Cnil,Cnil);
447          goto T138;          goto T102;}
448  T138:;          goto T101;
449          {object V87 = (V78);  T101:;
450          VMR23(V87)}}          base[3]= (V52);
451          base[0]=base[0];          vs_top=(vs_base=base+3)+1;
452          return Cnil;          return;}
453  }  }
454  /*      function definition for RESTART-REPORT  */  /*      function definition for RESTART-REPORT  */
455    
456  static void L25()  static void L10()
457  {register object *base=vs_base;  {register object *base=vs_base;
458          register object *sup=base+VM24; VC24          register object *sup=base+VM10; VC10
459          vs_reserve(VM24);          vs_check;
460          {object V88;          {object V61;
         check_arg(2);  
461          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
462          V88=(base[1]);          V61=(base[1]);
463          vs_top=sup;          vs_top=sup;
464          {object V89;          {object V62;
465          V89= structure_ref((base[0]->c.c_car),VV[13],2);          V62= STREF(object,(base[0]->c.c_car),8);
466          if(((V89))==Cnil){          if(((V62))==Cnil){
467          goto T144;}          goto T107;}
468          base[2]= (V89);          base[2]= (V62);
469          goto T141;          goto T104;
470          goto T144;          goto T107;
471  T144:;  T107:;
472          base[3]= structure_ref((base[0]->c.c_car),VV[13],0);          base[3]= STREF(object,(base[0]->c.c_car),0);
473          base[3]=MMcons(base[3],base[0]);          base[3]=MMcons(base[3],base[0]);
474          base[2]=          base[2]=
475          make_cclosure_new(LC40,Cnil,base[3],Cdata);}          make_cclosure_new(LC25,Cnil,base[3],Cdata);}
476          goto T141;          goto T104;
477  T141:;  T104:;
478          base[3]= (V88);          base[3]= (V61);
479          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
480          {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))
481                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 735  T141:; Line 486  T141:;
486  }  }
487  /*      macro definition for RESTART-BIND       */  /*      macro definition for RESTART-BIND       */
488    
489  static void L26()  static void L11()
490  {register object *base=vs_base;  {register object *base=vs_base;
491          register object *sup=base+VM25; VC25          register object *sup=base+VM11; VC11
492          vs_reserve(VM25);          vs_check;
         check_arg(2);  
493          vs_top=sup;          vs_top=sup;
494          {object V90=base[0]->c.c_cdr;          {object V63=base[0]->c.c_cdr;
495          if(endp(V90))invalid_macro_call();          base[2]= (V63->c.c_car);
496          base[2]= (V90->c.c_car);          V63=V63->c.c_cdr;
497          V90=V90->c.c_cdr;          base[3]= V63;}
498          base[3]= V90;}          {object V65;
499          {object V92;          object V66= base[2];
500          object V93= base[2];          if(V66==Cnil){
501          if(endp(V93)){          V64= Cnil;
502          V91= Cnil;          goto T111;}
503          goto T148;}          base[4]=V65=MMcons(Cnil,Cnil);
504          base[4]=V92=MMcons(Cnil,Cnil);          goto T112;
505          goto T149;  T112:;
506  T149:;          (V65->c.c_car)= listA(6,VV[33],VV[14],list(2,VV[7],CMPcar((V66->c.c_car))),VV[16],CMPcadr((V66->c.c_car)),CMPcddr((V66->c.c_car)));
507          (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)));          if((V66=MMcdr(V66))==Cnil){
508          V93=MMcdr(V93);          V64= base[4];
509          if(endp(V93)){          goto T111;}
510          V91= base[4];          V65=MMcdr(V65)=MMcons(Cnil,Cnil);
511          goto T148;}          goto T112;}
512          V92=MMcdr(V92)=MMcons(Cnil,Cnil);          goto T111;
513          goto T149;}  T111:;
514          goto T148;          V68= list(2,VV[10],list(3,VV[31],make_cons(VV[32],V64),VV[10]));
515  T148:;          base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V68,Cnil),base[3]);
         V95= list(2,VV[10],list(3,VV[37],make_cons(VV[38],V91),VV[10]));  
         base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V95,Cnil),base[3]);  
516          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
517          return;          return;
518  }  }
519  /*      local entry for function FIND-RESTART   */  /*      function definition for FIND-RESTART    */
520    
521  static object LI27(object V96,object first,...)  static void L12()
522  {        {register object *base=vs_base;
523          va_list ap;          register object *sup=base+VM12; VC12
524          int narg = VFUN_NARGS; VMB26 VMS26 VMV26          vs_check;
525          {register object V97;          {register object V69;
526          object V98;          object V70;
527          va_start(ap,first);          V69=(base[0]);
528          if(narg <1) too_few_arguments();          vs_base=vs_base+1;
529          V97= V96;          if(vs_base>=vs_top){vs_top=sup;goto T114;}
530          narg = narg - 1;          V70=(base[1]);
531          if (narg <= 0) goto T151;          vs_top=sup;
532          else {          goto T115;
533          V98= first;}          goto T114;
534          --narg; goto T152;  T114:;
535          goto T151;          V70= Cnil;
536  T151:;          goto T115;
537          V98= Cnil;  T115:;
538          goto T152;          {register object V71;
539  T152:;          object V72;
540          {register object V99;          V71= (VV[10]->s.s_dbind);
541          object V100;          V72= CMPcar((V71));
542          V99= symbol_value(VV[10]);          goto T121;
543          V100= car((V99));  T121:;
544          goto T158;          if(!(((V71))==Cnil)){
545  T158:;          goto T122;}
546          if(!(endp_prop((V99)))){          goto T117;
547          goto T159;}          goto T122;
548    T122:;
549            {register object V73;
550            register object V74;
551            V73= (V72);
552            V74= CMPcar((V73));
553            goto T130;
554    T130:;
555            if(!(((V73))==Cnil)){
556            goto T131;}
557            goto T126;
558            goto T131;
559    T131:;
560            if(((V74))==((V69))){
561            goto T136;}
562            if(!((STREF(object,(V74),0))==((V69)))){
563            goto T135;}
564            goto T136;
565    T136:;
566            base[4]= (V74);
567            vs_top=(vs_base=base+4)+1;
568            return;
569            goto T135;
570    T135:;
571            V73= CMPcdr((V73));
572            V74= CMPcar((V73));
573            goto T130;}
574            goto T126;
575    T126:;
576            V71= CMPcdr((V71));
577            V72= CMPcar((V71));
578            goto T121;}
579            goto T117;
580    T117:;
581            {object V75;
582            vs_base=vs_top;
583            (void) (*Lnk64)();
584            vs_top=sup;
585            V75= vs_base[0];
586            {register object V76;
587            register object V77;
588            V76= (V75);
589            V77= CMPcar((V76));
590          goto T154;          goto T154;
591    T154:;
592            if(!(((V76))==Cnil)){
593            goto T155;}
594            base[3]= Cnil;
595            vs_top=(vs_base=base+3)+1;
596            return;
597            goto T155;
598    T155:;
599            if(((V77))==((V69))){
600            goto T160;}
601            if(!((STREF(object,(V77),0))==((V69)))){
602            goto T159;}
603            goto T160;
604    T160:;
605            base[3]= (V77);
606            vs_top=(vs_base=base+3)+1;
607            return;
608          goto T159;          goto T159;
609  T159:;  T159:;
610          {register object V101;          V76= CMPcdr((V76));
611          register object V102;          V77= CMPcar((V76));
612          V101= (V100);          goto T154;}}
         V102= car((V101));  
         goto T167;  
 T167:;  
         if(!(endp_prop((V101)))){  
         goto T168;}  
         goto T163;  
         goto T168;  
 T168:;  
         if(((V102))==((V97))){  
         goto T173;}  
         V103= structure_ref((V102),VV[13],0);  
         if(!((/* INLINE-ARGS */V103)==((V97)))){  
         goto T172;}  
         goto T173;  
 T173:;  
         {object V104 = (V102);  
         VMR26(V104)}  
         goto T172;  
 T172:;  
         V101= cdr((V101));  
         V102= car((V101));  
         goto T167;}  
         goto T163;  
 T163:;  
         V99= cdr((V99));  
         V100= car((V99));  
         goto T158;}  
         goto T154;  
 T154:;  
         {object V105;  
         V105= (*(LnkLI71))();  
         {register object V106;  
         register object V107;  
         V106= (V105);  
         V107= car((V106));  
         goto T191;  
 T191:;  
         if(!(endp_prop((V106)))){  
         goto T192;}  
         {object V108 = Cnil;  
         VMR26(V108)}  
         goto T192;  
 T192:;  
         if(((V107))==((V97))){  
         goto T197;}  
         V109= structure_ref((V107),VV[13],0);  
         if(!((/* INLINE-ARGS */V109)==((V97)))){  
         goto T196;}  
         goto T197;  
 T197:;  
         {object V110 = (V107);  
         VMR26(V110)}  
         goto T196;  
 T196:;  
         V106= cdr((V106));  
         V107= car((V106));  
         goto T191;}}  
         va_end(ap);  
         base[0]=base[0];  
         return Cnil;}  
613          }          }
614    }
615  /*      function definition for INVOKE-RESTART  */  /*      function definition for INVOKE-RESTART  */
616    
617  static void L28()  static void L13()
618  {register object *base=vs_base;  {register object *base=vs_base;
619          register object *sup=base+VM27; VC27          register object *sup=base+VM13; VC13
620          vs_reserve(VM27);          vs_check;
621          {object V111;          {object V78;
622          object V112;          object V79;
623          if(vs_top-vs_base<1) too_few_arguments();          V78=(base[0]);
         V111=(base[0]);  
624          vs_base=vs_base+1;          vs_base=vs_base+1;
625          vs_top[0]=Cnil;          vs_top[0]=Cnil;
626          {object *p=vs_top;          {object *p=vs_top;
627           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
628          V112=(base[1]);          V79=(base[1]);
629          vs_top=sup;          vs_top=sup;
630          {object V113;{object V114;          {object V80;{object V81;
631          V114= (VFUN_NARGS=1,(*(LnkLI77))((V111)));          base[2]= (V78);
632          if(V114==Cnil)goto T207;          vs_top=(vs_base=base+2)+1;
633          V113= V114;          (void) (*Lnk69)();
634          goto T206;          vs_top=sup;
635          goto T207;          V81= vs_base[0];
636  T207:;}          if(V81==Cnil)goto T170;
637          base[2]= VV[40];          V80= V81;
638          base[3]= (V111);          goto T169;
639            goto T170;
640    T170:;}
641            base[2]= VV[34];
642            base[3]= (V78);
643          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
644          (void) (*Lnk70)();          (void) (*Lnk63)();
645          vs_top=sup;          vs_top=sup;
646          V113= vs_base[0];          V80= vs_base[0];
647          goto T206;          goto T169;
648  T206:;  T169:;
649          base[2]= structure_ref((V113),VV[13],1);          base[2]= STREF(object,(V80),4);
650          {object V115;          {object V82;
651          V115= (V112);          V82= (V79);
652           vs_top=base+3;           vs_top=base+3;
653           while(!endp(V115))           while(V82!=Cnil)
654           {vs_push(car(V115));V115=cdr(V115);}           {vs_push((V82)->c.c_car);V82=(V82)->c.c_cdr;}
655          vs_base=base+3;}          vs_base=base+3;}
656          {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))
657                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 911  T206:; Line 662  T206:;
662  }  }
663  /*      function definition for INVOKE-RESTART-INTERACTIVELY    */  /*      function definition for INVOKE-RESTART-INTERACTIVELY    */
664    
665  static void L29()  static void L14()
666  {register object *base=vs_base;  {register object *base=vs_base;
667          register object *sup=base+VM28; VC28          register object *sup=base+VM14; VC14
668          vs_reserve(VM28);          vs_check;
669          {object V116;          {object V83;
670          check_arg(1);          V83=(base[0]);
         V116=(base[0]);  
671          vs_top=sup;          vs_top=sup;
672          goto TTL;          goto TTL;
673  TTL:;  TTL:;
674          {object V117;{object V118;          {object V84;{object V85;
675          V118= (VFUN_NARGS=1,(*(LnkLI77))((V116)));          base[1]= (V83);
676          if(V118==Cnil)goto T214;          vs_top=(vs_base=base+1)+1;
677          V117= V118;          (void) (*Lnk69)();
678          goto T213;          vs_top=sup;
679          goto T214;          V85= vs_base[0];
680  T214:;}          if(V85==Cnil)goto T178;
681          base[1]= VV[41];          V84= V85;
682          base[2]= (V116);          goto T177;
683            goto T178;
684    T178:;}
685            base[1]= VV[35];
686            base[2]= (V83);
687          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
688          (void) (*Lnk70)();          (void) (*Lnk63)();
689          vs_top=sup;          vs_top=sup;
690          V117= vs_base[0];          V84= vs_base[0];
691          goto T213;          goto T177;
692  T213:;  T177:;
693          base[1]= structure_ref((V117),VV[13],1);          base[1]= STREF(object,(V84),4);
694          {object V119;          {object V86;
695          {object V120;          {object V87;
696          V120= structure_ref((V117),VV[13],3);          V87= STREF(object,(V84),12);
697          if(((V120))==Cnil){          if(((V87))==Cnil){
698          goto T222;}          goto T187;}
699          vs_base=vs_top;          vs_base=vs_top;
700          {object _funobj = (V120);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V87);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
701                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
702                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
703                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
704          vs_top=sup;          vs_top=sup;
705          V119= vs_base[0];          V86= vs_base[0];
706          goto T219;          goto T184;
707          goto T222;          goto T187;
708  T222:;  T187:;
709          V119= Cnil;}          V86= Cnil;}
710          goto T219;          goto T184;
711  T219:;  T184:;
712           vs_top=base+2;           vs_top=base+2;
713           while(!endp(V119))           while(V86!=Cnil)
714           {vs_push(car(V119));V119=cdr(V119);}           {vs_push((V86)->c.c_car);V86=(V86)->c.c_cdr;}
715          vs_base=base+2;}          vs_base=base+2;}
716          {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))
717                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 968  T219:; Line 722  T219:;
722  }  }
723  /*      macro definition for RESTART-CASE       */  /*      macro definition for RESTART-CASE       */
724    
725  static void L30()  static void L15()
726  {register object *base=vs_base;  {register object *base=vs_base;
727          register object *sup=base+VM29; VC29          register object *sup=base+VM15; VC15
728          vs_reserve(VM29);          vs_check;
         check_arg(2);  
729          vs_top=sup;          vs_top=sup;
730          {object V121=base[0]->c.c_cdr;          {object V88=base[0]->c.c_cdr;
731          if(endp(V121))invalid_macro_call();          base[2]= (V88->c.c_car);
732          base[2]= (V121->c.c_car);          V88=V88->c.c_cdr;
733          V121=V121->c.c_cdr;          base[3]= V88;}
734          base[3]= V121;}          {object V89;
735          {object V122;          object V90;
736          object V123;          object V91;
         object V124;  
737          vs_base=vs_top;          vs_base=vs_top;
738          Lgensym();          Lgensym();
739          vs_top=sup;          vs_top=sup;
740          V122= vs_base[0];          V89= vs_base[0];
741          vs_base=vs_top;          vs_base=vs_top;
742          Lgensym();          Lgensym();
743          vs_top=sup;          vs_top=sup;
744          V123= vs_base[0];          V90= vs_base[0];
745          {object V125;          {object V92;
746          object V126= base[3];          object V93= base[3];
747          if(endp(V126)){          if(V93==Cnil){
748          V124= Cnil;          V91= Cnil;
749          goto T226;}          goto T191;}
750          base[4]=V125=MMcons(Cnil,Cnil);          base[4]=V92=MMcons(Cnil,Cnil);
751          goto T227;          goto T192;
752  T227:;  T192:;
753          {object V128;          {object V95;
754          object V129;          object V96;
755          base[5]= cddr((V126->c.c_car));          base[5]= CMPcddr((V93->c.c_car));
756          base[6]= VV[42];          base[6]= VV[36];
757          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
758          (void) (*Lnk6)();          (void) (*Lnk6)();
759          if(vs_base>=vs_top){vs_top=sup;goto T232;}          if(vs_base>=vs_top){vs_top=sup;goto T197;}
760          V128= vs_base[0];          V95= vs_base[0];
761          vs_base++;          vs_base++;
762          if(vs_base>=vs_top){vs_top=sup;goto T233;}          if(vs_base>=vs_top){vs_top=sup;goto T198;}
763          V129= vs_base[0];          V96= vs_base[0];
764          vs_top=sup;          vs_top=sup;
765          goto T234;          goto T199;
766          goto T232;          goto T197;
767  T232:;  T197:;
768          V128= Cnil;          V95= Cnil;
769          goto T233;          goto T198;
770  T233:;  T198:;
771          V129= Cnil;          V96= Cnil;
772          goto T234;          goto T199;
773  T234:;  T199:;
774          {object V130;          {object V97;
775          object V131;          object V98;
776          base[5]= (V128);          base[5]= (V95);
777          base[6]= VV[43];          base[6]= VV[37];
778          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
779          Lgetf();          Lgetf();
780          vs_top=sup;          vs_top=sup;
781          V130= vs_base[0];          V97= vs_base[0];
782          base[5]= (V128);          base[5]= (V95);
783          base[6]= VV[44];          base[6]= VV[38];
784          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
785          Lgetf();          Lgetf();
786          vs_top=sup;          vs_top=sup;
787          V131= vs_base[0];          V98= vs_base[0];
788          V132= car((V126->c.c_car));          V99= CMPcar((V93->c.c_car));
789          vs_base=vs_top;          vs_base=vs_top;
790          Lgensym();          Lgensym();
791          vs_top=sup;          vs_top=sup;
792          V133= vs_base[0];          V100= vs_base[0];
793          base[5]= VV[43];          base[5]= VV[37];
794          base[6]= (V130);          base[6]= (V97);
795          base[7]= VV[44];          base[7]= VV[38];
796          base[8]= (V131);          base[8]= (V98);
797          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
798          L31(base);          L16(base);
799          vs_top=sup;          vs_top=sup;
800          V134= vs_base[0];          V101= vs_base[0];
801          (V125->c.c_car)= list(5,/* INLINE-ARGS */V132,V133,V134,cadr((V126->c.c_car)),(V129));}}          (V92->c.c_car)= list(5,/* INLINE-ARGS */V99,V100,V101,CMPcadr((V93->c.c_car)),(V96));}}
802          V126=MMcdr(V126);          if((V93=MMcdr(V93))==Cnil){
803          if(endp(V126)){          V91= base[4];
804          V124= base[4];          goto T191;}
805          goto T226;}          V92=MMcdr(V92)=MMcons(Cnil,Cnil);
806          V125=MMcdr(V125)=MMcons(Cnil,Cnil);          goto T192;}
807          goto T227;}          goto T191;
808          goto T226;  T191:;
809  T226:;          V102= list(2,(V90),Cnil);
810          V135= list(2,(V123),Cnil);          V103= make_cons(/* INLINE-ARGS */V102,Cnil);
811          V136= make_cons(/* INLINE-ARGS */V135,Cnil);          {object V105;
812          {object V138;          object V106= (V91);
813          object V139= (V124);          if(V106==Cnil){
814          if(endp(V139)){          V104= Cnil;
815          V137= Cnil;          goto T212;}
816          goto T247;}          base[4]=V105=MMcons(Cnil,Cnil);
817          base[4]=V138=MMcons(Cnil,Cnil);          goto T213;
818          goto T248;  T213:;
819  T248:;          {object V108;
820          {object V141;          object V109;
821          object V142;          object V110;
822          object V143;          V108= CMPcar((V106->c.c_car));
823          V141= car((V139->c.c_car));          V109= CMPcadr((V106->c.c_car));
824          V142= cadr((V139->c.c_car));          V110= CMPcaddr((V106->c.c_car));
825          V143= caddr((V139->c.c_car));          V111= list(3,VV[45],(V90),VV[46]);
826          V144= list(3,VV[51],(V123),VV[52]);          (V105->c.c_car)= listA(3,(V108),list(2,VV[42],list(4,VV[43],VV[44],/* INLINE-ARGS */V111,list(2,VV[47],(V109)))),(V110));}
827          (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));}          if((V106=MMcdr(V106))==Cnil){
828          V139=MMcdr(V139);          V104= base[4];
829          if(endp(V139)){          goto T212;}
830          V137= base[4];          V105=MMcdr(V105)=MMcons(Cnil,Cnil);
831          goto T247;}          goto T213;}
832          V138=MMcdr(V138)=MMcons(Cnil,Cnil);          goto T212;
833          goto T248;}  T212:;
834          goto T247;          V112= list(3,VV[41],V104,list(3,VV[48],(V89),base[2]));
835  T247:;          {object V114;
836          V145= list(3,VV[47],V137,list(3,VV[54],(V122),base[2]));          object V115= (V91);
837          {object V147;          if(V115==Cnil){
838          object V148= (V124);          V113= Cnil;
839          if(endp(V148)){          goto T218;}
840          V146= Cnil;          base[4]=V114=MMcons(Cnil,Cnil);
841          goto T253;}          goto T219;
842          base[4]=V147=MMcons(Cnil,Cnil);  T219:;
843          goto T254;          {object V117;
844  T254:;          object V118;
845          {object V150;          object V119;
846          object V151;          V117= CMPcadr((V115->c.c_car));
847          object V152;          V118= CMPcadddr((V115->c.c_car));
848          V150= cadr((V148->c.c_car));          V119= CMPcar(CMPcddddr((V115->c.c_car)));
849          V151= cadddr((V148->c.c_car));          (V114->c.c_cdr)= list(2,(V117),list(3,VV[48],(V89),list(3,VV[49],list(2,VV[42],listA(3,VV[43],(V118),(V119))),(V90))));}
850          V152= car(cddddr((V148->c.c_car)));          while(MMcdr(V114)!=Cnil)V114=MMcdr(V114);
851          (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))));}          if((V115=MMcdr(V115))==Cnil){
         {object cdr_V147=MMcdr(V147);while(!endp(cdr_V147)) {cdr_V147=MMcdr(cdr_V147);V147=MMcdr(V147);}}  
         V148=MMcdr(V148);  
         if(endp(V148)){  
852          base[4]=base[4]->c.c_cdr;          base[4]=base[4]->c.c_cdr;
853          V146= base[4];          V113= base[4];
854          goto T253;}          goto T218;}
855          goto T254;}          goto T219;}
856          goto T253;          goto T218;
857  T253:;  T218:;
858          base[4]= list(3,VV[45],(V122),list(3,VV[8],/* INLINE-ARGS */V136,listA(3,VV[46],/* INLINE-ARGS */V145,V146)));          base[4]= list(3,VV[39],(V89),list(3,VV[8],/* INLINE-ARGS */V103,listA(3,VV[40],/* INLINE-ARGS */V112,V113)));
859          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
860          return;}          return;}
861  }  }
862  /*      macro definition for WITH-SIMPLE-RESTART        */  /*      macro definition for WITH-SIMPLE-RESTART        */
863    
864  static void L32()  static void L17()
865  {register object *base=vs_base;  {register object *base=vs_base;
866          register object *sup=base+VM30; VC30          register object *sup=base+VM16; VC16
867          vs_reserve(VM30);          vs_check;
868          check_arg(2);          vs_top=sup;
869          vs_top=sup;          {object V120=base[0]->c.c_cdr;
870          {object V153=base[0]->c.c_cdr;          {object V121= (V120->c.c_car);
871          if(endp(V153))invalid_macro_call();          base[2]= (V121->c.c_car);
872          {object V154= (V153->c.c_car);          V121=V121->c.c_cdr;
873          if(endp(V154))invalid_macro_call();          base[3]= (V121->c.c_car);
874          base[2]= (V154->c.c_car);          V121=V121->c.c_cdr;
875          V154=V154->c.c_cdr;          base[4]= V121;}
876          if(endp(V154))invalid_macro_call();          V120=V120->c.c_cdr;
877          base[3]= (V154->c.c_car);          base[5]= V120;}
878          V154=V154->c.c_cdr;          V122= make_cons(VV[54],base[5]);
879          base[4]= V154;}          base[6]= list(3,VV[53],/* INLINE-ARGS */V122,list(5,base[2],Cnil,VV[37],list(3,VV[43],VV[55],listA(4,VV[56],VV[52],base[3],base[4])),VV[57]));
         V153=V153->c.c_cdr;  
         base[5]= V153;}  
         V155= make_cons(VV[60],base[5]);  
         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]));  
880          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
881          return;          return;
882  }  }
883  /*      function definition for ABORT   */  /*      function definition for ABORT   */
884    
885  static void L33()  static void L18()
886  {register object *base=vs_base;  {register object *base=vs_base;
887          register object *sup=base+VM31; VC31          register object *sup=base+VM17; VC17
888          vs_reserve(VM31);          vs_check;
         check_arg(0);  
889          vs_top=sup;          vs_top=sup;
890          goto TTL;          goto TTL;
891  TTL:;  TTL:;
892          base[0]= VV[22];          base[0]= VV[15];
893          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
894          (void) (*Lnk78)();          (void) (*Lnk70)();
895          vs_top=sup;          vs_top=sup;
896          base[0]= VV[64];          base[0]= VV[58];
897          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
898          (void) (*Lnk70)();          (void) (*Lnk63)();
899          return;          return;
900  }  }
901  /*      function definition for CONTINUE        */  /*      function definition for CONTINUE        */
902    
903  static void L34()  static void L19()
904  {register object *base=vs_base;  {register object *base=vs_base;
905          register object *sup=base+VM32; VC32          register object *sup=base+VM18; VC18
906          vs_reserve(VM32);          vs_check;
         check_arg(0);  
907          vs_top=sup;          vs_top=sup;
908          goto TTL;          goto TTL;
909  TTL:;  TTL:;
910          base[0]= VV[65];          base[0]= VV[59];
911          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
912          (void) (*Lnk78)();          (void) (*Lnk70)();
913          return;          return;
914  }  }
915  /*      function definition for MUFFLE-WARNING  */  /*      function definition for MUFFLE-WARNING  */
916    
917  static void L35()  static void L20()
918  {register object *base=vs_base;  {register object *base=vs_base;
919          register object *sup=base+VM33; VC33          register object *sup=base+VM19; VC19
920          vs_reserve(VM33);          vs_check;
         check_arg(0);  
921          vs_top=sup;          vs_top=sup;
922          goto TTL;          goto TTL;
923  TTL:;  TTL:;
924          base[0]= VV[66];          base[0]= VV[60];
925          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
926          (void) (*Lnk78)();          (void) (*Lnk70)();
927          return;          return;
928  }  }
929  /*      function definition for STORE-VALUE     */  /*      function definition for STORE-VALUE     */
930    
931  static void L36()  static void L21()
932  {register object *base=vs_base;  {register object *base=vs_base;
933          register object *sup=base+VM34; VC34          register object *sup=base+VM20; VC20
934          vs_reserve(VM34);          vs_check;
935          {object V156;          {object V123;
936          check_arg(1);          V123=(base[0]);
         V156=(base[0]);  
937          vs_top=sup;          vs_top=sup;
938          goto TTL;          goto TTL;
939  TTL:;  TTL:;
940          base[1]= VV[67];          base[1]= VV[61];
941          base[2]= (V156);          base[2]= (V123);
942          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
943          (void) (*Lnk78)();          (void) (*Lnk70)();
944          return;          return;
945          }          }
946  }  }
947  /*      function definition for USE-VALUE       */  /*      function definition for USE-VALUE       */
948    
949  static void L37()  static void L22()
950  {register object *base=vs_base;  {register object *base=vs_base;
951          register object *sup=base+VM35; VC35          register object *sup=base+VM21; VC21
952          vs_reserve(VM35);          vs_check;
953          {object V157;          {object V124;
954          check_arg(1);          V124=(base[0]);
         V157=(base[0]);  
955          vs_top=sup;          vs_top=sup;
956          goto TTL;          goto TTL;
957  TTL:;  TTL:;
958          base[1]= VV[68];          base[1]= VV[62];
959          base[2]= (V157);          base[2]= (V124);
960          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
961          (void) (*Lnk78)();          (void) (*Lnk70)();
962          return;          return;
963          }          }
964  }  }
965  /*      local function TRANSFORM-KEYWORDS       */  /*      local function TRANSFORM-KEYWORDS       */
966    
967  static void L31(base0)  static void L16(base0)
968  register object *base0;  register object *base0;
969  {       register object *base=vs_base;  {       register object *base=vs_base;
970          register object *sup=base+VM36; VC36          register object *sup=base+VM22; VC22
971          vs_reserve(VM36);          vs_check;
972          {register object V158;          {register object V125;
973          object V159;          object V126;
974          parse_key(vs_base,FALSE,FALSE,2,VV[43],VV[44]);          parse_key(vs_base,FALSE,FALSE,2,VV[37],VV[38]);
975          vs_top=sup;          vs_top=sup;
976          V158=(base[0]);          V125=(base[0]);
977          V159=(base[1]);          V126=(base[1]);
978          {register object V160;          {register object V127;
979          V160= Cnil;          V127= Cnil;
980          if(((V158))==Cnil){          if(((V125))==Cnil){
981          goto T268;}          goto T233;}
982          if(!(type_of((V158))==t_string)){          if(!(type_of((V125))==t_string)){
983          goto T274;}          goto T239;}
984          V161= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[57],(V158),VV[58])));          V128= list(2,VV[42],list(3,VV[43],VV[50],list(3,VV[51],(V125),VV[52])));
985          goto T272;          goto T237;
986          goto T274;          goto T239;
987  T274:;  T239:;
988          V161= list(2,VV[48],(V158));          V128= list(2,VV[42],(V125));
989          goto T272;          goto T237;
990  T272:;  T237:;
991          V160= listA(3,V161,VV[24],(V160));          V127= listA(3,V128,VV[17],(V127));
992          goto T268;          goto T233;
993  T268:;  T233:;
994          if(((V159))==Cnil){          if(((V126))==Cnil){
995          goto T276;}          goto T241;}
996          V160= listA(3,list(2,VV[48],(V159)),VV[34],(V160));          V127= listA(3,list(2,VV[42],(V126)),VV[27],(V127));
997          goto T276;          goto T241;
998  T276:;  T241:;
999          base[4]= nreverse((V160));          base[4]= nreverse((V127));
1000          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1001          return;}          return;}
1002          }          }
1003  }  }
1004  /*      local function CLOSURE  */  /*      local function CLOSURE  */
1005    
1006  static void LC40(base0)  static void LC25(base0)
1007  register object *base0;  register object *base0;
1008  {       register object *base=vs_base;  {       register object *base=vs_base;
1009          register object *sup=base+VM37; VC37          register object *sup=base+VM23; VC23
1010          vs_reserve(VM37);          vs_check;
1011          {object V162;          {object V129;
1012          check_arg(1);          V129=(base[0]);
         V162=(base[0]);  
1013          vs_top=sup;          vs_top=sup;
1014          if(((base0[0]->c.c_car))==Cnil){          if(((base0[0]->c.c_car))==Cnil){
1015          goto T281;}          goto T246;}
1016          base[1]= (V162);          base[1]= (V129);
1017          base[2]= VV[35];          base[2]= VV[29];
1018          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
1019          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1020          Lformat();          Lformat();
1021          return;          return;
1022          goto T281;          goto T246;
1023  T281:;  T246:;
1024          base[1]= (V162);          base[1]= (V129);
1025          base[2]= VV[36];          base[2]= VV[30];
1026          base[3]= (base0[1]->c.c_car);          base[3]= (base0[1]->c.c_car);
1027          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1028          Lformat();          Lformat();
# Line 1292  T281:; Line 1031  T281:;
1031  }  }
1032  /*      local function CLOSURE  */  /*      local function CLOSURE  */
1033    
1034  static void LC39(base0)  static void LC24(base0)
1035  register object *base0;  register object *base0;
1036  {       register object *base=vs_base;  {       register object *base=vs_base;
1037          register object *sup=base+VM38; VC38          register object *sup=base+VM24; VC24
1038          vs_reserve(VM38);          vs_check;
1039          {object V163;          {object V130;
1040          check_arg(1);          V130=(base[0]);
1041          V163=(base[0]);          vs_top=sup;
1042          vs_top=sup;          {object V131;
1043          {object V164;          if(!(((base0[0]->c.c_car))==((VV[18]->s.s_dbind)))){
1044          if(!(((base0[0]->c.c_car))==(symbol_value(VV[25])))){          goto T256;}
1045          goto T291;}          V131= (VV[19]->s.s_dbind);
1046          V164= symbol_value(VV[26]);          goto T254;
1047          goto T289;          goto T256;
1048          goto T291;  T256:;{object V133;
 T291:;{object V166;  
1049          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
1050          base[2]= symbol_value(VV[27]);          base[2]= (VV[20]->s.s_dbind);
1051          base[3]= VV[28];          base[3]= VV[21];
1052          base[4]= symbol_function(VV[79]);          base[4]= (VV[71]->s.s_gfdef);
1053          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
1054          (void) (*Lnk80)();          (void) (*Lnk72)();
1055          vs_top=sup;          vs_top=sup;
1056          V166= vs_base[0];          V133= vs_base[0];
1057          if(V166==Cnil)goto T294;          if(V133==Cnil)goto T259;
1058          V165= V166;          V132= V133;
1059          goto T293;          goto T258;
1060          goto T294;          goto T259;
1061  T294:;}  T259:;}
1062          V165= VV[29];          V132= VV[22];
1063          goto T293;          goto T258;
1064  T293:;  T258:;
1065          V164= car(V165);          V131= CMPcar(V132);
1066          goto T289;          goto T254;
1067  T289:;  T254:;
1068          if(!(((V164))==(VV[30]))){          if(!(((V131))==(VV[23]))){
1069          goto T301;}          goto T266;}
1070          base[1]= (V163);          base[1]= (V130);
1071          base[2]= VV[31];          base[2]= VV[24];
1072          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1073          Lformat();          Lformat();
1074          return;          return;
1075          goto T301;          goto T266;
1076  T301:;  T266:;
1077          if(((V164))!=Cnil){          if(((V131))!=Cnil){
1078          goto T306;}          goto T271;}
1079          base[1]= (V163);          base[1]= (V130);
1080          base[2]= VV[32];          base[2]= VV[25];
1081          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1082          Lformat();          Lformat();
1083          return;          return;
1084          goto T306;          goto T271;
1085  T306:;  T271:;
1086          base[1]= (V163);          base[1]= (V130);
1087          base[2]= VV[33];          base[2]= VV[26];
1088          base[3]= make_fixnum((long)length((V164)));          base[3]= CMPmake_fixnum((long)length((V131)));
1089          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1090          Lformat();          Lformat();
1091          return;}          return;}
# Line 1355  T306:; Line 1093  T306:;
1093  }  }
1094  /*      local function CLOSURE  */  /*      local function CLOSURE  */
1095    
1096  static void LC38(base0)  static void LC23(base0)
1097  register object *base0;  register object *base0;
1098  {       register object *base=vs_base;  {       register object *base=vs_base;
1099          register object *sup=base+VM39; VC39          register object *sup=base+VM25; VC25
1100          vs_reserve(VM39);          vs_check;
         check_arg(0);  
1101          vs_top=sup;          vs_top=sup;
1102          {frame_ptr fr;          {frame_ptr fr;
1103          V167= make_cons((base0[0]->c.c_car),Cnil);          V134= make_cons((base0[0]->c.c_car),Cnil);
1104          base[0]= car(/* INLINE-ARGS */V167);          base[0]= CMPcar(/* INLINE-ARGS */V134);
1105          fr=frs_sch_catch(base[0]);          fr=frs_sch_catch(base[0]);
1106          if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]);          if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]);
1107          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
1108          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1109          unwind(fr,base[0]);}          unwind(fr,base[0]);}
1110  }  }
1111  static void LnkT80(){ call_or_link(VV[80],(void **)(void *)&Lnk80);} /* FIND */  static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* FIND */
1112  static void LnkT78(){ call_or_link(VV[78],(void **)(void *)&Lnk78);} /* INVOKE-RESTART */  static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* INVOKE-RESTART */
1113  static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* PARSE-KEYWORD-PAIRS */  static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* PARSE-KEYWORD-PAIRS */
1114  static object  LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)(void *)&LnkLI77,first,ap);va_end(ap);return V1;} /* FIND-RESTART */  static void LnkT69(){ call_or_link(VV[69],(void **)(void *)&Lnk69);} /* FIND-RESTART */
1115  static object  LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)(void *)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* FIND-KCL-TOP-RESTART */  static void LnkT68(){ call_or_link(VV[68],(void **)(void *)&Lnk68);} /* FIND-KCL-TOP-RESTART */
1116  static object  LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* MAKE-KCL-TOP-RESTART */  static void LnkT67(){ call_or_link(VV[67],(void **)(void *)&Lnk67);} /* MAKE-KCL-TOP-RESTART */
1117  static object  LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)(void *)&LnkLI39,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */  static void LnkT33(){ call_or_link(VV[33],(void **)(void *)&Lnk33);} /* MAKE-RESTART */
1118  static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* DEFINE-STRUCTURE */  static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* RESTART-REPORT */
1119  static void LnkT73(){ call_or_link(VV[73],(void **)(void *)&Lnk73);} /* RESTART-REPORT */  static void LnkT65(){ call_or_link(VV[65],(void **)(void *)&Lnk65);} /* UNIQUE-ID */
1120  static object  LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)(void *)&LnkLI72,1,first,ap);va_end(ap);return V1;} /* UNIQUE-ID */  static void LnkT64(){ call_or_link(VV[64],(void **)(void *)&Lnk64);} /* KCL-TOP-RESTARTS */
1121  static object  LnkTLI71(){return call_proc0(VV[71],(void **)(void *)&LnkLI71);} /* KCL-TOP-RESTARTS */  static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* ERROR */
 static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* ERROR */  
 static void LnkT69(){ call_or_link(VV[69],(void **)(void *)&Lnk69);} /* *MAKE-SPECIAL */  
1122    
1123  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1124  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.3.4.1.4.1  
changed lines
  Added in v.1.3.4.1.4.2

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