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

Diff of /gcl/clcs/clcs_top_patches.c

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

revision 1.3.4.1.4.2 by camm, Tue Sep 23 18:39:17 2003 UTC revision 1.3.4.1.4.3 by camm, Tue Sep 23 19:32:30 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "clcs_top_patches.h"  #include "clcs_top_patches.h"
4  void init_clcs_top_patches(){do_init(VV);}  void init_clcs_top_patches(){do_init(VV);}
5    /*      local entry for function progn 'compile2191     */
6    
7    static object LI1()
8    
9    {        VMB1 VMS1 VMV1
10            goto TTL;
11    TTL:;
12            base[0]= VV[0];
13            vs_top=(vs_base=base+0)+1;
14            (void) (*Lnk71)();
15            vs_top=sup;
16            {object V1 = Cnil;
17            VMR1(V1)}
18            base[0]=base[0];
19            return Cnil;
20    }
21    /*      local entry for function progn 'compile2203     */
22    
23    static object LI2()
24    
25    {        VMB2 VMS2 VMV2
26            goto TTL;
27    TTL:;
28            if(!((VV[0])->s.s_dbind!=OBJNULL)){
29            goto T4;}
30            goto T3;
31            goto T4;
32    T4:;
33            (VV[0]->s.s_dbind)= Cnil;
34            goto T3;
35    T3:;
36            {object V2 = Cnil;
37            VMR2(V2)}
38            return Cnil;
39    }
40    /*      local entry for function progn 'compile2216     */
41    
42    static object LI3()
43    
44    {        VMB3 VMS3 VMV3
45            goto TTL;
46    TTL:;
47            {object V3 = Cnil;
48            VMR3(V3)}
49            return Cnil;
50    }
51  /*      macro definition for WITH-CLCS-BREAK-LEVEL-BINDINGS     */  /*      macro definition for WITH-CLCS-BREAK-LEVEL-BINDINGS     */
52    
53  static void L1()  static void L4()
54  {register object *base=vs_base;  {register object *base=vs_base;
55          register object *sup=base+VM1; VC1          register object *sup=base+VM4; VC4
56          vs_check;          vs_check;
57          vs_top=sup;          vs_top=sup;
58          {object V1=base[0]->c.c_cdr;          {object V4=base[0]->c.c_cdr;
59          base[2]= V1;}          base[2]= V4;}
60          base[3]= listA(3,VV[0],VV[1],base[2]);          base[3]= listA(3,VV[1],VV[2],base[2]);
61          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
62          return;          return;
63  }  }
64  /*      function definition for CLCS-BREAK-LEVEL-INVOKE-RESTART */  /*      function definition for CLCS-BREAK-LEVEL-INVOKE-RESTART */
65    
66  static void L2()  static void L5()
67  {register object *base=vs_base;  {register object *base=vs_base;
68          register object *sup=base+VM2; VC2          register object *sup=base+VM5; VC5
69          vs_check;          vs_check;
70          bds_check;          bds_check;
71          bds_bind(VV[2],base[0]);          bds_bind(VV[3],base[0]);
72          vs_top=sup;          vs_top=sup;
73          goto TTL;          goto TTL;
74  TTL:;  TTL:;
75          if(!(number_compare(small_fixnum(0),(VV[2]->s.s_dbind))<0)){          if(!(number_compare(small_fixnum(0),(VV[3]->s.s_dbind))<0)){
76          goto T2;}{object V2;          goto T9;}{object V5;
77          V2= (VV[2]->s.s_dbind);          V5= (VV[3]->s.s_dbind);
78          V3= number_plus((VV[3]->s.s_dbind),small_fixnum(1));          V6= number_plus((VV[4]->s.s_dbind),small_fixnum(1));
79          if(!(number_compare(V2,/* INLINE-ARGS */V3)<0)){          if(!(number_compare(V5,/* INLINE-ARGS */V6)<0)){
80          goto T2;}}          goto T9;}}
81          {object V4;          {object V7;
82          V5= number_minus((VV[2]->s.s_dbind),small_fixnum(1));          V8= number_minus((VV[3]->s.s_dbind),small_fixnum(1));
83          V4= nth(fix(/* INLINE-ARGS */V5),(VV[4]->s.s_dbind));          V7= nth(fix(/* INLINE-ARGS */V8),(VV[5]->s.s_dbind));
84          base[1]= (V4);          base[1]= (V7);
85          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
86          (void) (*Lnk62)();          (void) (*Lnk72)();
87          bds_unwind1;          bds_unwind1;
88          return;}          return;}
89          goto T2;          goto T9;
90  T2:;  T9:;
91          base[1]= Ct;          base[1]= Ct;
92          base[2]= VV[5];          base[2]= VV[6];
93          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
94          Lformat();          Lformat();
95          bds_unwind1;          bds_unwind1;
96          return;          return;
97  }  }
98  /*      function definition for CLCS-BREAK-LEVEL        */  /*      local entry for function CLCS-BREAK-LEVEL       */
99    
100  static void L3()  static object LI6(object V9,object first,...)
101  {register object *VOL base=vs_base;  {      
102          register object *VOL sup=base+VM3; VC3          va_list ap;
103          vs_check;          int narg = VFUN_NARGS; VMB6 VMS6 VMV6
104          bds_check;          bds_check;
105          {VOL object V6;          {VOL object V10;
106          VOL object V7;          VOL object V11;
107          V6=(base[0]);          va_start(ap,first);
108          vs_base=vs_base+1;          V10= V9;
109          if(vs_base>=vs_top){vs_top=sup;goto T10;}          narg = narg - 1;
110          V7=(base[1]);          if (narg <= 0) goto T17;
111          vs_top=sup;          else {
112          goto T11;          V11= first;}
113          goto T10;          --narg; goto T18;
114  T10:;          goto T17;
115          V7= Cnil;  T17:;
116          goto T11;          V11= Cnil;
117  T11:;          goto T18;
118          if(type_of((V6))==t_string){  T18:;
119          goto T14;}          if(type_of((V10))==t_string){
120          base[24]= (V6);          goto T21;}
121          vs_top=(vs_base=base+24)+1;          if(((*(LnkLI73))((V10)))==Cnil){
122          (void) (*Lnk63)();          goto T22;}
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T15;}  
         goto T14;  
 T14:;  
         bds_bind(VV[6],(V6));  
         goto T13;  
         goto T15;  
 T15:;  
         bds_bind(VV[6],(VV[6]->s.s_dbind));  
         goto T13;  
 T13:;  
         V8= make_cons((VV[8]->s.s_dbind),(VV[9]->s.s_dbind));  
         bds_bind(VV[7],make_cons(/* INLINE-ARGS */V8,(VV[7]->s.s_dbind)));  
         bds_bind(VV[9],Cnil);  
         base[24]= (V6);  
         vs_top=(vs_base=base+24)+1;  
         (void) (*Lnk63)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T23;}  
         bds_bind(VV[8],make_cons(Ct,(VV[8]->s.s_dbind)));  
         goto T21;  
         goto T23;  
 T23:;  
         bds_bind(VV[8],(VV[8]->s.s_dbind));  
123          goto T21;          goto T21;
124  T21:;  T21:;
125          bds_bind(VV[10],one_plus((VV[11]->s.s_dbind)));          bds_bind(VV[7],(V10));
126            goto T20;
127            goto T22;
128    T22:;
129            bds_bind(VV[7],(VV[7]->s.s_dbind));
130            goto T20;
131    T20:;
132            V12= make_cons((VV[9]->s.s_dbind),(VV[10]->s.s_dbind));
133            bds_bind(VV[8],make_cons(/* INLINE-ARGS */V12,(VV[8]->s.s_dbind)));
134            bds_bind(VV[10],Cnil);
135            if(((*(LnkLI73))((V10)))==Cnil){
136            goto T29;}
137            bds_bind(VV[9],make_cons(Ct,(VV[9]->s.s_dbind)));
138            goto T27;
139            goto T29;
140    T29:;
141            bds_bind(VV[9],(VV[9]->s.s_dbind));
142            goto T27;
143    T27:;
144            bds_bind(VV[11],one_plus((VV[12]->s.s_dbind)));
145          vs_base=vs_top;          vs_base=vs_top;
146          (void) (*Lnk64)();          (void) (*Lnk74)();
147          vs_top=sup;          vs_top=sup;
148          V9= vs_base[0];          V13= vs_base[0];
149          bds_bind(VV[11],one_minus(V9));          bds_bind(VV[12],one_minus(V13));
150          bds_bind(VV[12],(VV[11]->s.s_dbind));{VOL object V10;          bds_bind(VV[13],(VV[12]->s.s_dbind));{VOL object V14;
151          base[24]= (VV[14]->s.s_dbind);          base[22]= (VV[15]->s.s_dbind);
152          base[25]= (VV[10]->s.s_dbind);          base[23]= (VV[11]->s.s_dbind);
153          vs_top=(vs_base=base+24)+2;          vs_top=(vs_base=base+22)+2;
154          (void) (*Lnk65)();          (void) (*Lnk75)();
155          vs_top=sup;          vs_top=sup;
156          V10= vs_base[0];          V14= vs_base[0];
157          if(V10==Cnil)goto T30;          if(V14==Cnil)goto T35;
158          bds_bind(VV[13],V10);          bds_bind(VV[14],V14);
159          goto T29;          goto T34;
160          goto T30;          goto T35;
161  T30:;}  T35:;}
162          vs_base=vs_top;          vs_base=vs_top;
163          (void) (*Lnk66)();          (void) (*Lnk76)();
164          vs_top=sup;          vs_top=sup;
165          V11= vs_base[0];          V15= vs_base[0];
166          bds_bind(VV[13],one_plus(V11));          bds_bind(VV[14],one_plus(V15));
167          goto T29;          goto T34;
168  T29:;  T34:;
169          vs_base=vs_top;          vs_base=vs_top;
170          (void) (*Lnk66)();          (void) (*Lnk76)();
171          vs_top=sup;          vs_top=sup;
172          bds_bind(VV[14],vs_base[0]);          bds_bind(VV[15],vs_base[0]);
173          bds_bind(VV[15],Cnil);          bds_bind(VV[16],Cnil);
174          if((VV[17]->s.s_dbind)!=Cnil){          if((VV[18]->s.s_dbind)!=Cnil){
175          bds_bind(VV[16],(VV[17]->s.s_dbind));          bds_bind(VV[17],(VV[18]->s.s_dbind));
176          goto T36;}          goto T41;}
177          bds_bind(VV[16],(VV[16]->s.s_dbind));          bds_bind(VV[17],(VV[17]->s.s_dbind));
178          goto T36;          goto T41;
179  T36:;  T41:;
180          bds_bind(VV[18],Cnil);          bds_bind(VV[19],Cnil);
         bds_bind(VV[19],(VV[19]->s.s_dbind));  
181          bds_bind(VV[20],(VV[20]->s.s_dbind));          bds_bind(VV[20],(VV[20]->s.s_dbind));
182          bds_bind(VV[21],(VV[21]->s.s_dbind));          bds_bind(VV[21],(VV[21]->s.s_dbind));
         bds_bind(VV[2],(VV[2]->s.s_dbind));  
183          bds_bind(VV[22],(VV[22]->s.s_dbind));          bds_bind(VV[22],(VV[22]->s.s_dbind));
184            bds_bind(VV[3],(VV[3]->s.s_dbind));
185          bds_bind(VV[23],(VV[23]->s.s_dbind));          bds_bind(VV[23],(VV[23]->s.s_dbind));
186          bds_bind(VV[24],(VV[24]->s.s_dbind));          bds_bind(VV[24],(VV[24]->s.s_dbind));
187          bds_bind(VV[25],(VV[25]->s.s_dbind));          bds_bind(VV[25],(VV[25]->s.s_dbind));
188          bds_bind(VV[26],(VV[26]->s.s_dbind));          bds_bind(VV[26],(VV[26]->s.s_dbind));
189          bds_bind(VV[27],(VV[27]->s.s_dbind));          bds_bind(VV[27],(VV[27]->s.s_dbind));
190          bds_bind(VV[28],one_plus((VV[28]->s.s_dbind)));          bds_bind(VV[28],(VV[28]->s.s_dbind));
191          base[25]=MMcons((VV[28]->s.s_dbind),Cnil);          bds_bind(VV[29],one_plus((VV[29]->s.s_dbind)));
192          vs_base=vs_top;          base[23]=MMcons((VV[29]->s.s_dbind),Cnil);
193          (void) (*Lnk67)();          bds_bind(VV[5],(VFUN_NARGS=0,(*(LnkLI77))()));
194          vs_top=sup;          bds_bind(VV[4],CMPmake_fixnum((long)length((VV[5]->s.s_dbind))));
195          bds_bind(VV[4],vs_base[0]);          bds_bind(VV[30],(VFUN_NARGS=1,(*(LnkLI78))(VV[31])));{VOL object V16;
196          bds_bind(VV[3],CMPmake_fixnum((long)length((VV[4]->s.s_dbind))));          {object V17;
197          base[32]= VV[30];          V17= (VFUN_NARGS=1,(*(LnkLI78))(VV[33]));
198          vs_top=(vs_base=base+32)+1;          if(((VV[32]->s.s_dbind))==Cnil){
199          (void) (*Lnk68)();          goto T50;}
200          vs_top=sup;          if(((VV[32]->s.s_dbind))==((V17))){
201          bds_bind(VV[29],vs_base[0]);{VOL object V12;          goto T51;}
202          {object V13;          goto T50;
203          base[32]= VV[32];  T50:;
204          vs_top=(vs_base=base+32)+1;          V16= (V17);
205          (void) (*Lnk68)();          goto T48;
206          vs_top=sup;          goto T51;
207          V13= vs_base[0];  T51:;
208          if(((VV[31]->s.s_dbind))==Cnil){          V16= Cnil;}
         goto T47;}  
         if(((VV[31]->s.s_dbind))==((V13))){  
         goto T48;}  
         goto T47;  
 T47:;  
         V12= (V13);  
         goto T44;  
209          goto T48;          goto T48;
210  T48:;  T48:;
211          V12= Cnil;}          if(V16==Cnil)goto T47;
212          goto T44;          bds_bind(VV[32],V16);
213  T44:;          goto T46;
214          if(V12==Cnil)goto T43;          goto T47;
215          bds_bind(VV[31],V12);  T47:;}
216          goto T42;          {object V18;
217          goto T43;          if(((VV[5]->s.s_dbind))==Cnil){
 T43:;}  
         {object V14;  
         if(((VV[4]->s.s_dbind))==Cnil){  
         goto T54;}  
         V14= CMPcar((VV[4]->s.s_dbind));  
         goto T52;  
         goto T54;  
 T54:;  
         V14= Cnil;  
         goto T52;  
 T52:;  
         if(((V14))==((VV[29]->s.s_dbind))){  
218          goto T57;}          goto T57;}
219          bds_bind(VV[31],(V14));          V18= CMPcar((VV[5]->s.s_dbind));
220          goto T42;          goto T55;
221          goto T57;          goto T57;
222  T57:;  T57:;
223          bds_bind(VV[31],Cnil);}          V18= Cnil;
224          goto T42;          goto T55;
225  T42:;  T55:;
226          base[32]= (V6);          if(((V18))==((VV[30]->s.s_dbind))){
227          vs_top=(vs_base=base+32)+1;          goto T60;}
228          (void) (*Lnk63)();          bds_bind(VV[32],(V18));
229          vs_top=sup;          goto T46;
230          if((vs_base[0])==Cnil){          goto T60;
231          goto T61;}  T60:;
232          bds_bind(VV[33],(V6));          bds_bind(VV[32],Cnil);}
233          goto T59;          goto T46;
234          goto T61;  T46:;
235  T61:;          if(((*(LnkLI73))((V10)))==Cnil){
236          bds_bind(VV[33],(VV[33]->s.s_dbind));          goto T64;}
237          goto T59;          bds_bind(VV[34],(V10));
238  T59:;          goto T62;
239          {object V15;          goto T64;
240          V15= Cnil;  T64:;
241          {register object V16;          bds_bind(VV[34],(VV[34]->s.s_dbind));
242          object V17;          goto T62;
243          V16= (VV[4]->s.s_dbind);  T62:;
244          V17= CMPcar((V16));          {object V19;
245          goto T69;          V19= Cnil;
246  T69:;          {register object V20;
247          if(!(((V16))==Cnil)){          object V21;
248          goto T70;}          V20= (VV[5]->s.s_dbind);
249          goto T65;          V21= CMPcar((V20));
250          goto T70;          goto T71;
251  T70:;  T71:;
252          if(!((VV[30])==(STREF(object,(V17),0)))){          if(!(((V20))==Cnil)){
253          goto T74;}          goto T72;}
254          V15= make_cons(V17,(V15));          goto T67;
255          goto T74;          goto T72;
256  T74:;  T72:;
257          V16= CMPcdr((V16));          if(!((VV[31])==(STREF(object,(V21),0)))){
258          V17= CMPcar((V16));          goto T76;}
259          goto T69;}          V19= make_cons(V21,(V19));
260          goto T65;          goto T76;
261  T65:;  T76:;
262          bds_bind(VV[34],nreverse((V15)));}          V20= CMPcdr((V20));
263          if(!(type_of((V6))==t_cons)){          V21= CMPcar((V20));
264          goto T85;}          goto T71;}
265          base[32]= (V6);          goto T67;
266          base[33]= (V7);  T67:;
267          vs_top=(vs_base=base+32)+2;          bds_bind(VV[0],nreverse((V19)));}
268          (void) (*Lnk69)();          if(!(type_of((V10))==t_cons)){
269            goto T87;}
270            base[30]= (V10);
271            base[31]= (V11);
272            vs_top=(vs_base=base+30)+2;
273            (void) (*Lnk79)();
274          vs_top=sup;          vs_top=sup;
         goto T83;  
275          goto T85;          goto T85;
276  T85:;          goto T87;
277          base[32]=MMcons(Cnil,base[25]);  T87:;
278          base[33]=alloc_frame_id();          base[30]=MMcons(Cnil,base[23]);
279          base[33]=MMcons(base[33],base[32]);          base[31]=alloc_frame_id();
280          frs_push(FRS_CATCH,(base[33]->c.c_car));          base[31]=MMcons(base[31],base[30]);
281            frs_push(FRS_CATCH,(base[31]->c.c_car));
282          if(nlj_active){          if(nlj_active){
283          nlj_active=FALSE;          nlj_active=FALSE;
284          if(eql(nlj_tag,VV[46]))goto T90;          if(eql(nlj_tag,VV[46]))goto T92;
285          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
286          }          }
287          base[35]= VV[37];          V23=
288          base[36]= VV[30];          make_cclosure_new(LC15,Cnil,base[31],Cdata);
289          base[37]= VV[38];          V24=
290          base[38]=          make_cclosure_new(LC16,Cnil,base[31],Cdata);
291          make_cclosure_new(LC8,Cnil,base[33],Cdata);          V25= (VFUN_NARGS=6,(*(LnkLI80))(VV[37],VV[31],VV[38],V23,VV[39],V24));
292          base[39]= VV[39];          V26= make_cons(/* INLINE-ARGS */V25,Cnil);
293          base[40]=          base[32]= make_cons(/* INLINE-ARGS */V26,(VV[36]->s.s_dbind));
294          make_cclosure_new(LC9,Cnil,base[33],Cdata);          bds_bind(VV[36],base[32]);
295          vs_top=(vs_base=base+35)+6;          base[33]= (VV[41]->s.s_dbind);
296          (void) (*Lnk70)();          base[34]= VV[42];
297          vs_top=sup;          base[35]= (VV[7]->s.s_dbind);
298          V19= vs_base[0];          vs_top=(vs_base=base+33)+3;
         V20= make_cons(V19,Cnil);  
         base[34]= make_cons(/* INLINE-ARGS */V20,(VV[36]->s.s_dbind));  
         bds_bind(VV[36],base[34]);  
         base[35]= (VV[41]->s.s_dbind);  
         base[36]= VV[42];  
         base[37]= (VV[6]->s.s_dbind);  
         vs_top=(vs_base=base+35)+3;  
299          Lformat();          Lformat();
300          vs_top=sup;          vs_top=sup;
301          if(!(((long)length((VV[43]->s.s_dbind)))>(0))){          if(!(((long)length((VV[43]->s.s_dbind)))>(0))){
302          goto T103;}          goto T100;}
303          base[35]= (VV[41]->s.s_dbind);          base[33]= (VV[41]->s.s_dbind);
304          base[36]= VV[44];          base[34]= VV[44];
305          vs_top=(vs_base=base+35)+2;          vs_top=(vs_base=base+33)+2;
306          Lformat();          Lformat();
307          vs_top=sup;          vs_top=sup;
308          goto T103;          goto T100;
309  T103:;  T100:;
310          vs_base=vs_top;          vs_base=vs_top;
311          (void) (*Lnk71)();          (void) (*Lnk81)();
312          vs_top=sup;          vs_top=sup;
313          (VV[45]->s.s_dbind)= Cnil;          (VV[45]->s.s_dbind)= Cnil;
314          vs_base=vs_top;          V27= (VFUN_NARGS=0,(*(LnkLI69))());
         (void) (*Lnk72)();  
         vs_top=sup;  
315          frs_pop();          frs_pop();
316          bds_unwind1;          bds_unwind1;
317          goto T83;          goto T85;
318          goto T90;          goto T92;
319  T90:;  T92:;
320          {object V21;          {object V28;
321          V21= (base[32]->c.c_car);          V28= (base[30]->c.c_car);
322          base[34]= Cnil;          base[32]= Cnil;
323          base[35]= Ct;          base[33]= Ct;
324          vs_top=(vs_base=base+34)+2;          vs_top=(vs_base=base+32)+2;
325          vs_top=sup;          vs_top=sup;
326          frs_pop();          frs_pop();
327          goto T83;}          goto T85;}
328          frs_pop();          frs_pop();
329          goto T83;          goto T85;
330          goto T83;          goto T85;
331  T83:;  T85:;
332          base[32]= small_fixnum(1);          base[30]= small_fixnum(1);
333          vs_top=(vs_base=base+32)+1;          vs_top=(vs_base=base+30)+1;
334          (void) (*Lnk73)();          (void) (*Lnk82)();
335          vs_top=sup;          vs_top=sup;
336          (VV[47]->s.s_dbind)= Ct;          (VV[47]->s.s_dbind)= Ct;
337          goto T119;          goto T116;
338  T119:;  T116:;
339            (VV[22]->s.s_dbind)= (VV[21]->s.s_dbind);
340          (VV[21]->s.s_dbind)= (VV[20]->s.s_dbind);          (VV[21]->s.s_dbind)= (VV[20]->s.s_dbind);
341          (VV[20]->s.s_dbind)= (VV[19]->s.s_dbind);          (VV[20]->s.s_dbind)= (VV[3]->s.s_dbind);
         (VV[19]->s.s_dbind)= (VV[2]->s.s_dbind);  
342          if(((VV[45]->s.s_dbind))==Cnil){          if(((VV[45]->s.s_dbind))==Cnil){
343          goto T129;}          goto T126;}
344          (VV[45]->s.s_dbind)= Cnil;          (VV[45]->s.s_dbind)= Cnil;
345          goto T127;          goto T124;
346          goto T129;          goto T126;
347  T129:;  T126:;
348          base[32]= (VV[41]->s.s_dbind);          base[30]= (VV[41]->s.s_dbind);
349          base[33]= VV[48];          base[31]= VV[48];
350          if(!(type_of((V6))==t_string)){          if(!(type_of((V10))==t_string)){
351          goto T136;}          goto T133;}
352          base[34]= VV[49];          base[32]= VV[49];
353          goto T134;          goto T131;
354          goto T136;          goto T133;
355  T136:;  T133:;
356          base[34]= VV[50];          base[32]= VV[50];
357          goto T134;          goto T131;
358  T134:;{VOL object V22;  T131:;{VOL object V29;
359          V22= (VV[51]->s.s_dbind);          V29= (VV[51]->s.s_dbind);
360          base[36]= VV[52];          base[34]= VV[52];
361          vs_top=(vs_base=base+36)+1;          vs_top=(vs_base=base+34)+1;
362          Lfind_package();          Lfind_package();
363          vs_top=sup;          vs_top=sup;
364          V23= vs_base[0];          V30= vs_base[0];
365          if(!((V22)==(V23))){          if(!((V29)==(V30))){
366          goto T140;}}          goto T137;}}
367          base[35]= VV[53];          base[33]= VV[53];
368          goto T138;          goto T135;
369          goto T140;          goto T137;
370  T140:;  T137:;
371          base[36]= (VV[51]->s.s_dbind);          base[34]= (VV[51]->s.s_dbind);
372          vs_top=(vs_base=base+36)+1;          vs_top=(vs_base=base+34)+1;
373          Lpackage_name();          Lpackage_name();
374          vs_top=sup;          vs_top=sup;
375          base[35]= vs_base[0];          base[33]= vs_base[0];
376          goto T138;          goto T135;
377  T138:;  T135:;
378          base[36]= (VV[8]->s.s_dbind);          base[34]= (VV[9]->s.s_dbind);
379          vs_top=(vs_base=base+32)+5;          vs_top=(vs_base=base+30)+5;
380          Lformat();          Lformat();
381          vs_top=sup;          vs_top=sup;
382          goto T127;          goto T124;
383  T127:;  T124:;
384          base[32]=MMcons(Cnil,base[25]);          base[30]=MMcons(Cnil,base[23]);
385          base[33]=alloc_frame_id();          base[31]=alloc_frame_id();
386          base[33]=MMcons(base[33],base[32]);          base[31]=MMcons(base[31],base[30]);
387          frs_push(FRS_CATCH,(base[33]->c.c_car));          frs_push(FRS_CATCH,(base[31]->c.c_car));
388          if(nlj_active){          if(nlj_active){
389          nlj_active=FALSE;          nlj_active=FALSE;
390          if(eql(nlj_tag,VV[57]))goto T149;          if(eql(nlj_tag,VV[57]))goto T146;
391          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
392          }          }
393          base[35]= VV[37];          V31=
394          base[36]= VV[30];          make_cclosure_new(LC17,Cnil,base[31],Cdata);
395          base[37]= VV[38];          V32=
396          base[38]=          make_cclosure_new(LC18,Cnil,base[31],Cdata);
397          make_cclosure_new(LC10,Cnil,base[33],Cdata);          V33= (VFUN_NARGS=6,(*(LnkLI80))(VV[37],VV[31],VV[38],V31,VV[39],V32));
398          base[39]= VV[39];          V34= make_cons(/* INLINE-ARGS */V33,Cnil);
399          base[40]=          base[32]= make_cons(/* INLINE-ARGS */V34,(VV[36]->s.s_dbind));
400          make_cclosure_new(LC11,Cnil,base[33],Cdata);          bds_bind(VV[36],base[32]);
         vs_top=(vs_base=base+35)+6;  
         (void) (*Lnk70)();  
         vs_top=sup;  
         V24= vs_base[0];  
         V25= make_cons(V24,Cnil);  
         base[34]= make_cons(/* INLINE-ARGS */V25,(VV[36]->s.s_dbind));  
         bds_bind(VV[36],base[34]);  
401          frs_push(FRS_CATCH,VV[55]);          frs_push(FRS_CATCH,VV[55]);
402          if(nlj_active)          if(nlj_active)
403          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
404          vs_top=sup;          vs_top=sup;
405          V26= vs_base[0];          V35= vs_base[0];
406          goto T158;}          goto T150;}
407          else{          else{
408          base[35]= (VV[41]->s.s_dbind);          base[33]= (VV[41]->s.s_dbind);
409          base[36]= Cnil;          base[34]= Cnil;
410          base[37]= (VV[56]->s.s_dbind);          base[35]= (VV[56]->s.s_dbind);
411          vs_top=(vs_base=base+35)+3;          vs_top=(vs_base=base+33)+3;
412          (void) (*Lnk74)();          (void) (*Lnk83)();
413          vs_top=sup;          vs_top=sup;
414          (VV[2]->s.s_dbind)= vs_base[0];          (VV[3]->s.s_dbind)= vs_base[0];
415          if(!(((VV[2]->s.s_dbind))==((VV[56]->s.s_dbind)))){          if(!(((VV[3]->s.s_dbind))==((VV[56]->s.s_dbind)))){
416          goto T165;}          goto T157;}
417          vs_base=vs_top;          vs_base=vs_top;
418          Lby();          Lby();
419          vs_top=sup;          vs_top=sup;
420            goto T157;
421    T157:;
422            {register object V36;
423            object V37;
424            V36= Cnil;
425            if((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package)){
426            goto T165;}
427            if(!(type_of((VV[3]->s.s_dbind))==t_fixnum||type_of((VV[3]->s.s_dbind))==t_bignum)){
428            goto T164;}
429          goto T165;          goto T165;
430  T165:;  T165:;
431          {register object V27;          (VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil);
432          object V28;          goto T164;
433          V27= Cnil;  T164:;
434          if((type_of((VV[2]->s.s_dbind))==t_symbol&&((VV[2]->s.s_dbind))->s.s_hpack==keyword_package)){          if(!(type_of((VV[3]->s.s_dbind))==t_cons)){
435          goto T173;}          goto T171;}
436          if(!(type_of((VV[2]->s.s_dbind))==t_fixnum||type_of((VV[2]->s.s_dbind))==t_bignum)){          {object V38= CMPcar((VV[3]->s.s_dbind));
437          goto T172;}          if(!((type_of(V38)==t_symbol&&(V38)->s.s_hpack==keyword_package))){
438          goto T173;          goto T171;}}
439  T173:;          V36= Ct;
440          (VV[2]->s.s_dbind)= make_cons((VV[2]->s.s_dbind),Cnil);          base[34]= CMPcar((VV[3]->s.s_dbind));
441          goto T172;          base[35]= CMPcdr((VV[3]->s.s_dbind));
442  T172:;          symlispcall(VV[84],base+34,2);
443          if(!(type_of((VV[2]->s.s_dbind))==t_cons)){          goto T163;
         goto T179;}  
         {object V29= CMPcar((VV[2]->s.s_dbind));  
         if(!((type_of(V29)==t_symbol&&(V29)->s.s_hpack==keyword_package))){  
         goto T179;}}  
         V27= Ct;  
         base[36]= CMPcar((VV[2]->s.s_dbind));  
         base[37]= CMPcdr((VV[2]->s.s_dbind));  
         symlispcall(VV[75],base+36,2);  
         goto T171;  
         goto T179;  
 T179:;  
         if(!(type_of((VV[2]->s.s_dbind))==t_cons)){  
         goto T188;}  
         {object V30= CMPcar((VV[2]->s.s_dbind));  
         if(!(type_of(V30)==t_fixnum||type_of(V30)==t_bignum)){  
         goto T188;}}  
         V27= Ct;  
         base[36]= CMPcar((VV[2]->s.s_dbind));  
         vs_top=(vs_base=base+36)+1;  
         (void) (*Lnk76)();  
         goto T171;  
         goto T188;  
 T188:;  
         base[36]= (VV[2]->s.s_dbind);  
         base[37]= Cnil;  
         base[38]= Cnil;  
         base[39]= (VV[15]->s.s_dbind);  
         symlispcall(VV[77],base+36,4);  
444          goto T171;          goto T171;
445  T171:;  T171:;
446            if(!(type_of((VV[3]->s.s_dbind))==t_cons)){
447            goto T180;}
448            {object V39= CMPcar((VV[3]->s.s_dbind));
449            if(!(type_of(V39)==t_fixnum||type_of(V39)==t_bignum)){
450            goto T180;}}
451            V36= Ct;
452            base[34]= CMPcar((VV[3]->s.s_dbind));
453            vs_top=(vs_base=base+34)+1;
454            (void) (*Lnk85)();
455            goto T163;
456            goto T180;
457    T180:;
458            base[34]= (VV[3]->s.s_dbind);
459            base[35]= Cnil;
460            base[36]= Cnil;
461            base[37]= (VV[16]->s.s_dbind);
462            symlispcall(VV[86],base+34,4);
463            goto T163;
464    T163:;
465          Llist();          Llist();
466          vs_top=sup;          vs_top=sup;
467          V28= vs_base[0];          V37= vs_base[0];
468            (VV[28]->s.s_dbind)= (VV[27]->s.s_dbind);
469          (VV[27]->s.s_dbind)= (VV[26]->s.s_dbind);          (VV[27]->s.s_dbind)= (VV[26]->s.s_dbind);
470          (VV[26]->s.s_dbind)= (VV[25]->s.s_dbind);          (VV[26]->s.s_dbind)= (V37);
471          (VV[25]->s.s_dbind)= (V28);          (VV[25]->s.s_dbind)= (VV[24]->s.s_dbind);
472          (VV[24]->s.s_dbind)= (VV[23]->s.s_dbind);          (VV[24]->s.s_dbind)= (VV[23]->s.s_dbind);
473          (VV[23]->s.s_dbind)= (VV[22]->s.s_dbind);          (VV[23]->s.s_dbind)= CMPcar((VV[26]->s.s_dbind));
474          (VV[22]->s.s_dbind)= CMPcar((VV[25]->s.s_dbind));          base[34]= (VV[41]->s.s_dbind);
475          base[36]= (VV[41]->s.s_dbind);          vs_top=(vs_base=base+34)+1;
         vs_top=(vs_base=base+36)+1;  
476          Lfresh_line();          Lfresh_line();
477          vs_top=sup;          vs_top=sup;
478          {register object V31;          {register object V40;
479          register object V32;          register object V41;
480          V31= (VV[25]->s.s_dbind);          V40= (VV[26]->s.s_dbind);
481          V32= CMPcar((V31));          V41= CMPcar((V40));
482          goto T216;          goto T208;
483  T216:;  T208:;
484          if(!(((V31))==Cnil)){          if(!(((V40))==Cnil)){
485          goto T217;}          goto T209;}
486          goto T168;          goto T160;
487          goto T217;          goto T209;
488  T217:;  T209:;
489          base[37]= (V32);          base[35]= (V41);
490          base[38]= (VV[41]->s.s_dbind);          base[36]= (VV[41]->s.s_dbind);
491          (void)simple_symlispcall(VV[78],base+37,2);          (void)simple_symlispcall(VV[87],base+35,2);
492          princ_char(10,VV[41]);          princ_char(10,VV[41]);
493          V31= CMPcdr((V31));          V40= CMPcdr((V40));
494          V32= CMPcar((V31));          V41= CMPcar((V40));
495          goto T216;}}          goto T208;}}
496          goto T168;          goto T160;
497  T168:;  T160:;
498          frs_pop();          frs_pop();
499          V26= Cnil;}          V35= Cnil;}
500          goto T158;          goto T150;
501  T158:;  T150:;
502          if((V26)==Cnil){          if((V35)==Cnil){
503          frs_pop();          frs_pop();
504          bds_unwind1;          bds_unwind1;
505          goto T120;}          goto T117;}
506          V33= ((V26)==Cnil?Ct:Cnil);          V42= ((V35)==Cnil?Ct:Cnil);
507          frs_pop();          frs_pop();
508          bds_unwind1;          bds_unwind1;
509          goto T147;          goto T144;
510          goto T149;          goto T146;
511  T149:;  T146:;
512          {register object V34;          {register object V43;
513          V34= (base[32]->c.c_car);          V43= (base[30]->c.c_car);
514          base[34]= Cnil;          base[32]= Cnil;
515          base[35]= Ct;          base[33]= Ct;
516          vs_top=(vs_base=base+34)+2;          vs_top=(vs_base=base+32)+2;
517          vs_top=sup;          vs_top=sup;
518          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
519          frs_pop();          frs_pop();
520          goto T120;}          goto T117;}
521          frs_pop();          frs_pop();
522          goto T147;}          goto T144;}
523          frs_pop();          frs_pop();
524          goto T147;          goto T144;
525          goto T147;          goto T144;
526  T147:;  T144:;
527          princ_char(10,VV[41]);          princ_char(10,VV[41]);
528          vs_base=vs_top;          vs_base=vs_top;
529          (void) (*Lnk79)();          (void) (*Lnk88)();
530          vs_top=sup;          vs_top=sup;
531          goto T120;          goto T117;
532  T120:;  T117:;
533          goto T119;          goto T116;
534            va_end(ap);
535            base[0]=base[0];
536            return Cnil;}
537          }          }
538  }  /*      local entry for function CLCS-TERMINAL-INTERRUPT        */
 /*      function definition for CLCS-TERMINAL-INTERRUPT */  
539    
540  static void L4()  static object LI7(V45)
541  {register object *base=vs_base;  
542          register object *sup=base+VM4; VC4  object V45;
543          vs_check;  {        VMB7 VMS7 VMV7
         {object V35;  
         V35=(base[0]);  
         vs_top=sup;  
544          goto TTL;          goto TTL;
545  TTL:;  TTL:;
546          if(((V35))==Cnil){          if(((V45))==Cnil){
547            goto T228;}
548            base[0]= VV[58];
549            base[1]= VV[59];
550            vs_top=(vs_base=base+0)+2;
551            (void) (*Lnk89)();
552            vs_top=sup;
553            {object V46 = vs_base[0];
554            VMR7(V46)}
555            goto T228;
556    T228:;
557            base[0]= VV[60];
558            vs_top=(vs_base=base+0)+1;
559            (void) (*Lnk90)();
560            vs_top=sup;
561            {object V47 = vs_base[0];
562            VMR7(V47)}
563            base[0]=base[0];
564            return Cnil;
565    }
566    /*      local entry for function CLCS-BREAK-QUIT        */
567    
568    static object LI8(object first,...)
569    {      
570            va_list ap;
571            int narg = VFUN_NARGS; VMB8 VMS8 VMV8
572            {object V48;
573            va_start(ap,first);
574            narg = narg - 0;
575            if (narg <= 0) goto T233;
576            else {
577            V48= first;}
578            --narg; goto T234;
579            goto T233;
580    T233:;
581            V48= small_fixnum(0);
582            goto T234;
583    T234:;
584            {object V49;
585            V50= reverse((VV[0]->s.s_dbind));
586            V49= nth(fix((V48)),/* INLINE-ARGS */V50);
587            if(((V49))==Cnil){
588          goto T236;}          goto T236;}
589          base[1]= VV[58];          base[0]= (V49);
590          base[2]= VV[59];          vs_top=(vs_base=base+0)+1;
591          vs_top=(vs_base=base+1)+2;          (void) (*Lnk72)();
592          (void) (*Lnk80)();          vs_top=sup;}
         return;  
593          goto T236;          goto T236;
594  T236:;  T236:;
595          base[1]= VV[60];          vs_base=vs_top;
596          vs_top=(vs_base=base+1)+1;          (void) (*Lnk88)();
597          (void) (*Lnk81)();          vs_top=sup;
598          return;          {object V51 = vs_base[0];
599            VMR8(V51)}
600            va_end(ap);
601            base[0]=base[0];
602            return Cnil;}
603          }          }
604    /*      local entry for function progn 'compile2510     */
605    
606    static object LI9()
607    
608    {        VMB9 VMS9 VMV9
609            goto TTL;
610    TTL:;
611            (VV[61]->s.s_dbind)= VV[62];
612            {object V52 = Cnil;
613            VMR9(V52)}
614            return Cnil;
615  }  }
616  /*      function definition for CLCS-BREAK-QUIT */  /*      local entry for function progn 'compile2522     */
617    
618  static void L5()  static object LI10()
619  {register object *base=vs_base;  
620          register object *sup=base+VM5; VC5  {        VMB10 VMS10 VMV10
621          vs_check;          goto TTL;
622          {object V36;  TTL:;
623          if(vs_base>=vs_top){vs_top=sup;goto T241;}          (VV[63]->s.s_dbind)= VV[64];
624          V36=(base[0]);          {object V53 = Cnil;
625          vs_top=sup;          VMR10(V53)}
626          goto T242;          return Cnil;
         goto T241;  
 T241:;  
         V36= small_fixnum(0);  
         goto T242;  
 T242:;  
         {object V37;  
         V38= reverse((VV[34]->s.s_dbind));  
         V37= nth(fix((V36)),/* INLINE-ARGS */V38);  
         if(((V37))==Cnil){  
         goto T244;}  
         base[1]= (V37);  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk62)();  
         vs_top=sup;}  
         goto T244;  
 T244:;  
         vs_base=vs_top;  
         (void) (*Lnk79)();  
         return;  
         }  
627  }  }
628  /*      function definition for BREAK-RESUME    */  /*      function definition for BREAK-RESUME    */
629    
630  static void L6()  static void L11()
631  {register object *base=vs_base;  {register object *base=vs_base;
632          register object *sup=base+VM6; VC6          register object *sup=base+VM11; VC11
633          vs_check;          vs_check;
634          vs_top=sup;          vs_top=sup;
635          goto TTL;          goto TTL;
636  TTL:;  TTL:;
637          if((VV[31]->s.s_dbind)==Cnil){          if((VV[32]->s.s_dbind)==Cnil){
638          base[0]= Cnil;          base[0]= Cnil;
639          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
640          return;}          return;}
641          base[0]= (VV[31]->s.s_dbind);          base[0]= (VV[32]->s.s_dbind);
642          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
643          (void) (*Lnk82)();          (void) (*Lnk91)();
644          return;          return;
645  }  }
646    /*      local entry for function progn 'compile2542     */
647    
648    static object LI12()
649    
650    {        VMB12 VMS12 VMV12
651            goto TTL;
652    TTL:;
653            (void)(putprop(VV[65],VV[66],VV[67]));
654            {object V54 = Cnil;
655            VMR12(V54)}
656            return Cnil;
657    }
658    /*      local entry for function progn 'compile2554     */
659    
660    static object LI13()
661    
662    {        VMB13 VMS13 VMV13
663            goto TTL;
664    TTL:;
665            (void)(putprop(VV[68],VV[69],VV[67]));
666            {object V55 = Cnil;
667            VMR13(V55)}
668            return Cnil;
669    }
670  /*      function definition for BREAK-HELP      */  /*      function definition for BREAK-HELP      */
671    
672  static void L7()  static void L14()
673  {register object *base=vs_base;  {register object *base=vs_base;
674          register object *sup=base+VM7; VC7          register object *sup=base+VM14; VC14
675          vs_check;          vs_check;
676          vs_top=sup;          vs_top=sup;
677          goto TTL;          goto TTL;
678  TTL:;  TTL:;
679          base[0]= (VV[41]->s.s_dbind);          base[0]= (VV[41]->s.s_dbind);
680          base[1]= VV[61];          base[1]= VV[70];
681          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
682          Lformat();          Lformat();
683          vs_top=sup;          vs_top=sup;
# Line 621  TTL:; Line 687  TTL:;
687  }  }
688  /*      local function CLOSURE  */  /*      local function CLOSURE  */
689    
690  static void LC11(base0)  static void LC18(base0)
691  register object *base0;  register object *base0;
692  {       register object *base=vs_base;  {       register object *base=vs_base;
693          register object *sup=base+VM8; VC8          register object *sup=base+VM15; VC15
694          vs_check;          vs_check;
695          {object V39;          {object V56;
696          V39=(base[0]);          V56=(base[0]);
697          vs_top=sup;          vs_top=sup;
698          base[1]= (V39);          base[1]= (V56);
699          base[2]= VV[54];          base[2]= VV[54];
700          base[3]= (base0[2]->c.c_car);          base[3]= (base0[2]->c.c_car);
701          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 639  register object *base0; Line 705  register object *base0;
705  }  }
706  /*      local function CLOSURE  */  /*      local function CLOSURE  */
707    
708  static void LC10(base0)  static void LC17(base0)
709  register object *base0;  register object *base0;
710  {       register object *base=vs_base;  {       register object *base=vs_base;
711          register object *sup=base+VM9; VC9          register object *sup=base+VM16; VC16
712          vs_check;          vs_check;
713          {object V40;          {object V57;
714          vs_top[0]=Cnil;          vs_top[0]=Cnil;
715          {object *p=vs_top;          {object *p=vs_top;
716           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
717          V40=(base[0]);          V57=(base[0]);
718          vs_top=sup;          vs_top=sup;
719          (base0[1]->c.c_car)= (V40);          (base0[1]->c.c_car)= (V57);
720          {frame_ptr fr;          {frame_ptr fr;
721          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
722          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[57]);          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[57]);
# Line 660  register object *base0; Line 726  register object *base0;
726  }  }
727  /*      local function CLOSURE  */  /*      local function CLOSURE  */
728    
729  static void LC9(base0)  static void LC16(base0)
730  register object *base0;  register object *base0;
731  {       register object *base=vs_base;  {       register object *base=vs_base;
732          register object *sup=base+VM10; VC10          register object *sup=base+VM17; VC17
733          vs_check;          vs_check;
734          {object V41;          {object V58;
735          V41=(base[0]);          V58=(base[0]);
736          vs_top=sup;          vs_top=sup;
737          base[1]= (V41);          base[1]= (V58);
738          base[2]= VV[40];          base[2]= VV[40];
739          base[3]= (base0[2]->c.c_car);          base[3]= (base0[2]->c.c_car);
740          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 678  register object *base0; Line 744  register object *base0;
744  }  }
745  /*      local function CLOSURE  */  /*      local function CLOSURE  */
746    
747  static void LC8(base0)  static void LC15(base0)
748  register object *base0;  register object *base0;
749  {       register object *base=vs_base;  {       register object *base=vs_base;
750          register object *sup=base+VM11; VC11          register object *sup=base+VM18; VC18
751          vs_check;          vs_check;
752          {object V42;          {object V59;
753          vs_top[0]=Cnil;          vs_top[0]=Cnil;
754          {object *p=vs_top;          {object *p=vs_top;
755           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
756          V42=(base[0]);          V59=(base[0]);
757          vs_top=sup;          vs_top=sup;
758          (base0[1]->c.c_car)= (V42);          (base0[1]->c.c_car)= (V59);
759          {frame_ptr fr;          {frame_ptr fr;
760          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
761          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[46]);          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[46]);
# Line 697  register object *base0; Line 763  register object *base0;
763          unwind(fr,VV[46]);}          unwind(fr,VV[46]);}
764          }          }
765  }  }
766  static void LnkT82(){ call_or_link(VV[82],(void **)(void *)&Lnk82);} /* INVOKE-RESTART */  static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* INVOKE-RESTART */
767  static void LnkT81(){ call_or_link(VV[81],(void **)(void *)&Lnk81);} /* ERROR */  static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* ERROR */
768  static void LnkT80(){ call_or_link(VV[80],(void **)(void *)&Lnk80);} /* CERROR */  static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* CERROR */
769  static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* BREAK-CURRENT */  static void LnkT88(){ call_or_link(VV[88],(void **)(void *)&Lnk88);} /* BREAK-CURRENT */
770  static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* CLCS-BREAK-LEVEL-INVOKE-RESTART */  static void LnkT85(){ call_or_link(VV[85],(void **)(void *)&Lnk85);} /* CLCS-BREAK-LEVEL-INVOKE-RESTART */
771  static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* DBL-READ */  static void LnkT83(){ call_or_link(VV[83],(void **)(void *)&Lnk83);} /* DBL-READ */
772  static void LnkT73(){ call_or_link(VV[73],(void **)(void *)&Lnk73);} /* CATCH-FATAL */  static void LnkT82(){ call_or_link(VV[82],(void **)(void *)&Lnk82);} /* CATCH-FATAL */
773  static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* SHOW-RESTARTS */  static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[69],(void **)(void *)&LnkLI69,first,ap);va_end(ap);return V1;} /* SHOW-RESTARTS */
774  static void LnkT71(){ call_or_link(VV[71],(void **)(void *)&Lnk71);} /* SET-CURRENT */  static void LnkT81(){ call_or_link(VV[81],(void **)(void *)&Lnk81);} /* SET-CURRENT */
775  static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* MAKE-RESTART */  static object  LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[80],(void **)(void *)&LnkLI80,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */
776  static void LnkT69(){ call_or_link(VV[69],(void **)(void *)&Lnk69);} /* SET-BACK */  static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* SET-BACK */
777  static void LnkT68(){ call_or_link(VV[68],(void **)(void *)&Lnk68);} /* FIND-RESTART */  static object  LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[78],(void **)(void *)&LnkLI78,first,ap);va_end(ap);return V1;} /* FIND-RESTART */
778  static void LnkT67(){ call_or_link(VV[67],(void **)(void *)&Lnk67);} /* COMPUTE-RESTARTS */  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;} /* COMPUTE-RESTARTS */
779  static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* FRS-TOP */  static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* FRS-TOP */
780  static void LnkT65(){ call_or_link(VV[65],(void **)(void *)&Lnk65);} /* SCH-FRS-BASE */  static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* SCH-FRS-BASE */
781  static void LnkT64(){ call_or_link(VV[64],(void **)(void *)&Lnk64);} /* IHS-TOP */  static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* IHS-TOP */
782  static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* CONDITIONP */  static object  LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* CONDITIONP */
783  static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* INVOKE-RESTART-INTERACTIVELY */  static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* INVOKE-RESTART-INTERACTIVELY */
784    static void LnkT71(){ call_or_link(VV[71],(void **)(void *)&Lnk71);} /* *MAKE-SPECIAL */
785    
786  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
787  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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