/[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.2 by camm, Thu Feb 27 18:32:10 2003 UTC revision 1.3 by camm, Thu Feb 27 23:54:22 2003 UTC
# Line 102  T10:; Line 102  T10:;
102          bds_unwind1;          bds_unwind1;
103          return;          return;
104  }  }
105  /*      function definition for CLCS-BREAK-LEVEL        */  /*      local entry for function CLCS-BREAK-LEVEL       */
106    
107  static void L6()  static object LI6(object V9,object first,...)
108  {register object *VOL base=vs_base;  {      
109          register object *VOL sup=base+VM6; VC6          va_list ap;
110          vs_reserve(VM6);          int narg = VFUN_NARGS; VMB6 VMS6 VMV6
111          bds_check;          bds_check;
112          {VOL object V9;          {VOL object V10;
113          VOL object V10;          VOL object V11;
114          if(vs_top-vs_base<1) too_few_arguments();          Vcs[0]=Vcs[0];
115          if(vs_top-vs_base>2) too_many_arguments();          va_start(ap,first);
116          V9=(base[0]);          if(narg <1) too_few_arguments();
117          vs_base=vs_base+1;          V10= V9;
118          if(vs_base>=vs_top){vs_top=sup;goto T18;}          narg = narg - 1;
119          V10=(base[1]);          if (narg <= 0) goto T18;
120          vs_top=sup;          else {
121          goto T19;          V11= first;}
122            --narg; goto T19;
123          goto T18;          goto T18;
124  T18:;  T18:;
125          V10= Cnil;          V11= Cnil;
126          goto T19;          goto T19;
127  T19:;  T19:;
128          if(type_of((V9))==t_string){          if(type_of((V10))==t_string){
129          goto T22;}          goto T22;}
130          base[24]= (V9);          if(((*(LnkLI73))((V10)))==Cnil){
         vs_top=(vs_base=base+24)+1;  
         (void) (*Lnk73)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
131          goto T23;}          goto T23;}
132          goto T22;          goto T22;
133  T22:;  T22:;
134          bds_bind(VV[7],(V9));          bds_bind(VV[7],(V10));
135          goto T21;          goto T21;
136          goto T23;          goto T23;
137  T23:;  T23:;
138          bds_bind(VV[7],symbol_value(VV[7]));          bds_bind(VV[7],symbol_value(VV[7]));
139          goto T21;          goto T21;
140  T21:;  T21:;
141          V11= make_cons(symbol_value(VV[9]),symbol_value(VV[10]));          V12= make_cons(symbol_value(VV[9]),symbol_value(VV[10]));
142          bds_bind(VV[8],make_cons(/* INLINE-ARGS */V11,symbol_value(VV[8])));          bds_bind(VV[8],make_cons(/* INLINE-ARGS */V12,symbol_value(VV[8])));
143          bds_bind(VV[10],Cnil);          bds_bind(VV[10],Cnil);
144          base[24]= (V9);          if(((*(LnkLI73))((V10)))==Cnil){
145          vs_top=(vs_base=base+24)+1;          goto T30;}
         (void) (*Lnk73)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T31;}  
146          bds_bind(VV[9],make_cons(Ct,symbol_value(VV[9])));          bds_bind(VV[9],make_cons(Ct,symbol_value(VV[9])));
147          goto T29;          goto T28;
148          goto T31;          goto T30;
149  T31:;  T30:;
150          bds_bind(VV[9],symbol_value(VV[9]));          bds_bind(VV[9],symbol_value(VV[9]));
151          goto T29;          goto T28;
152  T29:;  T28:;
153          bds_bind(VV[11],one_plus(symbol_value(VV[12])));          bds_bind(VV[11],one_plus(symbol_value(VV[12])));
154          vs_base=vs_top;          vs_base=vs_top;
155          (void) (*Lnk74)();          (void) (*Lnk74)();
156          vs_top=sup;          vs_top=sup;
157          V12= vs_base[0];          V13= vs_base[0];
158          bds_bind(VV[12],one_minus(V12));          bds_bind(VV[12],one_minus(V13));
159          bds_bind(VV[13],(VV[12]->s.s_dbind));{VOL object V13;          bds_bind(VV[13],(VV[12]->s.s_dbind));{VOL object V14;
160          base[24]= symbol_value(VV[15]);          base[22]= symbol_value(VV[15]);
161          base[25]= (VV[11]->s.s_dbind);          base[23]= (VV[11]->s.s_dbind);
162          vs_top=(vs_base=base+24)+2;          vs_top=(vs_base=base+22)+2;
163          (void) (*Lnk75)();          (void) (*Lnk75)();
164          vs_top=sup;          vs_top=sup;
165          V13= vs_base[0];          V14= vs_base[0];
166          if(V13==Cnil)goto T38;          if(V14==Cnil)goto T36;
167          bds_bind(VV[14],V13);          bds_bind(VV[14],V14);
168          goto T37;          goto T35;
169          goto T38;          goto T36;
170  T38:;}  T36:;}
171          vs_base=vs_top;          vs_base=vs_top;
172          (void) (*Lnk76)();          (void) (*Lnk76)();
173          vs_top=sup;          vs_top=sup;
174          V14= vs_base[0];          V15= vs_base[0];
175          bds_bind(VV[14],one_plus(V14));          bds_bind(VV[14],one_plus(V15));
176          goto T37;          goto T35;
177  T37:;  T35:;
178          vs_base=vs_top;          vs_base=vs_top;
179          (void) (*Lnk76)();          (void) (*Lnk76)();
180          vs_top=sup;          vs_top=sup;
# Line 189  T37:; Line 182  T37:;
182          bds_bind(VV[16],Cnil);          bds_bind(VV[16],Cnil);
183          if(symbol_value(VV[18])!=Cnil){          if(symbol_value(VV[18])!=Cnil){
184          bds_bind(VV[17],symbol_value(VV[18]));          bds_bind(VV[17],symbol_value(VV[18]));
185          goto T44;}          goto T42;}
186          bds_bind(VV[17],symbol_value(VV[17]));          bds_bind(VV[17],symbol_value(VV[17]));
187          goto T44;          goto T42;
188  T44:;  T42:;
189          bds_bind(VV[19],Cnil);          bds_bind(VV[19],Cnil);
190          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],symbol_value(VV[20]));
191          bds_bind(VV[21],symbol_value(VV[21]));          bds_bind(VV[21],symbol_value(VV[21]));
# Line 205  T44:; Line 198  T44:;
198          bds_bind(VV[27],symbol_value(VV[27]));          bds_bind(VV[27],symbol_value(VV[27]));
199          bds_bind(VV[28],symbol_value(VV[28]));          bds_bind(VV[28],symbol_value(VV[28]));
200          bds_bind(VV[29],one_plus(symbol_value(VV[29])));          bds_bind(VV[29],one_plus(symbol_value(VV[29])));
201          base[25]=MMcons((VV[29]->s.s_dbind),Cnil);          base[23]=MMcons((VV[29]->s.s_dbind),Cnil);
202          vs_base=vs_top;          bds_bind(VV[5],(VFUN_NARGS=0,(*(LnkLI77))()));
         (void) (*Lnk77)();  
         vs_top=sup;  
         bds_bind(VV[5],vs_base[0]);  
203          bds_bind(VV[4],make_fixnum((long)length((VV[5]->s.s_dbind))));          bds_bind(VV[4],make_fixnum((long)length((VV[5]->s.s_dbind))));
204          base[32]= VV[31];          bds_bind(VV[30],(VFUN_NARGS=1,(*(LnkLI78))(VV[31])));{VOL object V16;
205          vs_top=(vs_base=base+32)+1;          {object V17;
206          (void) (*Lnk78)();          V17= (VFUN_NARGS=1,(*(LnkLI78))(VV[33]));
         vs_top=sup;  
         bds_bind(VV[30],vs_base[0]);{VOL object V15;  
         {object V16;  
         base[32]= VV[33];  
         vs_top=(vs_base=base+32)+1;  
         (void) (*Lnk78)();  
         vs_top=sup;  
         V16= vs_base[0];  
207          if((symbol_value(VV[32]))==Cnil){          if((symbol_value(VV[32]))==Cnil){
208          goto T55;}          goto T51;}
209          if((symbol_value(VV[32]))==((V16))){          if((symbol_value(VV[32]))==((V17))){
210          goto T56;}          goto T52;}
211          goto T55;          goto T51;
212  T55:;  T51:;
213          V15= (V16);          V16= (V17);
214          goto T52;          goto T49;
         goto T56;  
 T56:;  
         V15= Cnil;}  
215          goto T52;          goto T52;
216  T52:;  T52:;
217          if(V15==Cnil)goto T51;          V16= Cnil;}
218          bds_bind(VV[32],V15);          goto T49;
219          goto T50;  T49:;
220          goto T51;          if(V16==Cnil)goto T48;
221  T51:;}          bds_bind(VV[32],V16);
222          {object V17;          goto T47;
223            goto T48;
224    T48:;}
225            {object V18;
226          if(((VV[5]->s.s_dbind))==Cnil){          if(((VV[5]->s.s_dbind))==Cnil){
227          goto T62;}          goto T58;}
228          V17= car((VV[5]->s.s_dbind));          V18= car((VV[5]->s.s_dbind));
229          goto T60;          goto T56;
230          goto T62;          goto T58;
231  T62:;  T58:;
232          V17= Cnil;          V18= Cnil;
233          goto T60;          goto T56;
234  T60:;  T56:;
235          if(((V17))==((VV[30]->s.s_dbind))){          if(((V18))==((VV[30]->s.s_dbind))){
236            goto T61;}
237            bds_bind(VV[32],(V18));
238            goto T47;
239            goto T61;
240    T61:;
241            bds_bind(VV[32],Cnil);}
242            goto T47;
243    T47:;
244            if(((*(LnkLI73))((V10)))==Cnil){
245          goto T65;}          goto T65;}
246          bds_bind(VV[32],(V17));          bds_bind(VV[34],(V10));
247          goto T50;          goto T63;
248          goto T65;          goto T65;
249  T65:;  T65:;
         bds_bind(VV[32],Cnil);}  
         goto T50;  
 T50:;  
         base[32]= (V9);  
         vs_top=(vs_base=base+32)+1;  
         (void) (*Lnk73)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T69;}  
         bds_bind(VV[34],(V9));  
         goto T67;  
         goto T69;  
 T69:;  
250          bds_bind(VV[34],symbol_value(VV[34]));          bds_bind(VV[34],symbol_value(VV[34]));
251          goto T67;          goto T63;
252  T67:;  T63:;
253          {object V18;          {object V19;
254          V18= Cnil;          V19= Cnil;
255          {register object V19;          {register object V20;
256          object V20;          object V21;
257          V19= (VV[5]->s.s_dbind);          V20= (VV[5]->s.s_dbind);
258          V20= car((V19));          V21= car((V20));
259          goto T77;          goto T72;
260  T77:;  T72:;
261          if(!(endp_prop((V19)))){          if(!(endp_prop((V20)))){
262          goto T78;}          goto T73;}
263          goto T73;          goto T68;
         goto T78;  
 T78:;  
         V21= structure_ref((V20),VV[35],0);  
         if(!((VV[31])==(/* INLINE-ARGS */V21))){  
         goto T82;}  
         V18= make_cons(V20,(V18));  
         goto T82;  
 T82:;  
         V19= cdr((V19));  
         V20= car((V19));  
         goto T77;}  
264          goto T73;          goto T73;
265  T73:;  T73:;
266          bds_bind(VV[0],nreverse((V18)));}          V22= structure_ref((V21),VV[35],0);
267          if(!(type_of((V9))==t_cons)){          if(!((VV[31])==(/* INLINE-ARGS */V22))){
268          goto T93;}          goto T77;}
269          base[32]= (V9);          V19= make_cons(V21,(V19));
270          base[33]= (V10);          goto T77;
271          vs_top=(vs_base=base+32)+2;  T77:;
272            V20= cdr((V20));
273            V21= car((V20));
274            goto T72;}
275            goto T68;
276    T68:;
277            bds_bind(VV[0],nreverse((V19)));}
278            if(!(type_of((V10))==t_cons)){
279            goto T88;}
280            base[30]= (V10);
281            base[31]= (V11);
282            vs_top=(vs_base=base+30)+2;
283          (void) (*Lnk79)();          (void) (*Lnk79)();
284          vs_top=sup;          vs_top=sup;
285          goto T91;          goto T86;
286          goto T93;          goto T88;
287  T93:;  T88:;
288          base[32]=MMcons(Cnil,base[25]);          base[30]=MMcons(Cnil,base[23]);
289          base[33]=alloc_frame_id();          base[31]=alloc_frame_id();
290          base[33]=MMcons(base[33],base[32]);          base[31]=MMcons(base[31],base[30]);
291          frs_push(FRS_CATCH,(base[33]->c.c_car));          frs_push(FRS_CATCH,(base[31]->c.c_car));
292          if(nlj_active){          if(nlj_active){
293          nlj_active=FALSE;          nlj_active=FALSE;
294          if(eql(nlj_tag,VV[46]))goto T98;          if(eql(nlj_tag,VV[46]))goto T93;
295          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
296          }          }
297          base[35]= VV[37];          V24=
298          base[36]= VV[31];          make_cclosure_new(LC15,Cnil,base[31],Cdata);
299          base[37]= VV[38];          V25=
300          base[38]=          make_cclosure_new(LC16,Cnil,base[31],Cdata);
301          make_cclosure_new(LC15,Cnil,base[33],Cdata);          V26= (VFUN_NARGS=6,(*(LnkLI80))(VV[37],VV[31],VV[38],V24,VV[39],V25));
302          base[39]= VV[39];          V27= make_cons(/* INLINE-ARGS */V26,Cnil);
303          base[40]=          base[32]= make_cons(/* INLINE-ARGS */V27,symbol_value(VV[36]));
304          make_cclosure_new(LC16,Cnil,base[33],Cdata);          bds_bind(VV[36],base[32]);
305          vs_top=(vs_base=base+35)+6;          base[33]= symbol_value(VV[41]);
306          (void) (*Lnk80)();          base[34]= VV[42];
307          vs_top=sup;          base[35]= (VV[7]->s.s_dbind);
308          V23= vs_base[0];          vs_top=(vs_base=base+33)+3;
         V24= make_cons(V23,Cnil);  
         base[34]= make_cons(/* INLINE-ARGS */V24,symbol_value(VV[36]));  
         bds_bind(VV[36],base[34]);  
         base[35]= symbol_value(VV[41]);  
         base[36]= VV[42];  
         base[37]= (VV[7]->s.s_dbind);  
         vs_top=(vs_base=base+35)+3;  
309          Lformat();          Lformat();
310          vs_top=sup;          vs_top=sup;
311          if(!(((long)length(symbol_value(VV[43])))>(0))){          if(!(((long)length(symbol_value(VV[43])))>(0))){
312          goto T111;}          goto T101;}
313          base[35]= symbol_value(VV[41]);          base[33]= symbol_value(VV[41]);
314          base[36]= VV[44];          base[34]= VV[44];
315          vs_top=(vs_base=base+35)+2;          vs_top=(vs_base=base+33)+2;
316          Lformat();          Lformat();
317          vs_top=sup;          vs_top=sup;
318          goto T111;          goto T101;
319  T111:;  T101:;
320          vs_base=vs_top;          vs_base=vs_top;
321          (void) (*Lnk81)();          (void) (*Lnk81)();
322          vs_top=sup;          vs_top=sup;
323          setq(VV[45],Cnil);          setq(VV[45],Cnil);
324          vs_base=vs_top;          V28= (VFUN_NARGS=0,(*(LnkLI69))());
         (void) (*Lnk69)();  
         vs_top=sup;  
325          frs_pop();          frs_pop();
326          bds_unwind1;          bds_unwind1;
327          goto T91;          goto T86;
328          goto T98;          goto T93;
329  T98:;  T93:;
330          {object V25;          {object V29;
331          V25= (base[32]->c.c_car);          V29= (base[30]->c.c_car);
332          ck_larg_exactly(0,(V25));          ck_larg_exactly(0,(V29));
333          base[34]= Cnil;          base[32]= Cnil;
334          base[35]= Ct;          base[33]= Ct;
335          vs_top=(vs_base=base+34)+2;          vs_top=(vs_base=base+32)+2;
336          vs_top=sup;          vs_top=sup;
337          frs_pop();          frs_pop();
338          goto T91;}          goto T86;}
339          frs_pop();          frs_pop();
340          goto T91;          goto T86;
341          goto T91;          goto T86;
342  T91:;  T86:;
343          base[32]= small_fixnum(1);          base[30]= small_fixnum(1);
344          vs_top=(vs_base=base+32)+1;          vs_top=(vs_base=base+30)+1;
345          (void) (*Lnk82)();          (void) (*Lnk82)();
346          vs_top=sup;          vs_top=sup;
347          setq(VV[47],Ct);          setq(VV[47],Ct);
348          goto T127;          goto T117;
349  T127:;  T117:;
350          (VV[22]->s.s_dbind)= (VV[21]->s.s_dbind);          (VV[22]->s.s_dbind)= (VV[21]->s.s_dbind);
351          (VV[21]->s.s_dbind)= (VV[20]->s.s_dbind);          (VV[21]->s.s_dbind)= (VV[20]->s.s_dbind);
352          (VV[20]->s.s_dbind)= (VV[3]->s.s_dbind);          (VV[20]->s.s_dbind)= (VV[3]->s.s_dbind);
353          if((symbol_value(VV[45]))==Cnil){          if((symbol_value(VV[45]))==Cnil){
354          goto T137;}          goto T127;}
355          setq(VV[45],Cnil);          setq(VV[45],Cnil);
356          goto T135;          goto T125;
357          goto T137;          goto T127;
358  T137:;  T127:;
359          base[32]= symbol_value(VV[41]);          base[30]= symbol_value(VV[41]);
360          base[33]= VV[48];          base[31]= VV[48];
361          if(!(type_of((V9))==t_string)){          if(!(type_of((V10))==t_string)){
362          goto T144;}          goto T134;}
363          base[34]= VV[49];          base[32]= VV[49];
364          goto T142;          goto T132;
365          goto T144;          goto T134;
366  T144:;  T134:;
367          base[34]= VV[50];          base[32]= VV[50];
368          goto T142;          goto T132;
369  T142:;{VOL object V26;  T132:;{VOL object V30;
370          V26= symbol_value(VV[51]);          V30= symbol_value(VV[51]);
371          base[36]= VV[52];          base[34]= VV[52];
372          vs_top=(vs_base=base+36)+1;          vs_top=(vs_base=base+34)+1;
373          Lfind_package();          Lfind_package();
374          vs_top=sup;          vs_top=sup;
375          V27= vs_base[0];          V31= vs_base[0];
376          if(!((V26)==(V27))){          if(!((V30)==(V31))){
377          goto T148;}}          goto T138;}}
378          base[35]= VV[53];          base[33]= VV[53];
379          goto T146;          goto T136;
380          goto T148;          goto T138;
381  T148:;  T138:;
382          base[36]= symbol_value(VV[51]);          base[34]= symbol_value(VV[51]);
383          vs_top=(vs_base=base+36)+1;          vs_top=(vs_base=base+34)+1;
384          Lpackage_name();          Lpackage_name();
385          vs_top=sup;          vs_top=sup;
386          base[35]= vs_base[0];          base[33]= vs_base[0];
387          goto T146;          goto T136;
388  T146:;  T136:;
389          base[36]= (VV[9]->s.s_dbind);          base[34]= (VV[9]->s.s_dbind);
390          vs_top=(vs_base=base+32)+5;          vs_top=(vs_base=base+30)+5;
391          Lformat();          Lformat();
392          vs_top=sup;          vs_top=sup;
393          goto T135;          goto T125;
394  T135:;  T125:;
395          base[32]=MMcons(Cnil,base[25]);          base[30]=MMcons(Cnil,base[23]);
396          base[33]=alloc_frame_id();          base[31]=alloc_frame_id();
397          base[33]=MMcons(base[33],base[32]);          base[31]=MMcons(base[31],base[30]);
398          frs_push(FRS_CATCH,(base[33]->c.c_car));          frs_push(FRS_CATCH,(base[31]->c.c_car));
399          if(nlj_active){          if(nlj_active){
400          nlj_active=FALSE;          nlj_active=FALSE;
401          if(eql(nlj_tag,VV[57]))goto T157;          if(eql(nlj_tag,VV[57]))goto T147;
402          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
403          }          }
404          base[35]= VV[37];          V32=
405          base[36]= VV[31];          make_cclosure_new(LC17,Cnil,base[31],Cdata);
406          base[37]= VV[38];          V33=
407          base[38]=          make_cclosure_new(LC18,Cnil,base[31],Cdata);
408          make_cclosure_new(LC17,Cnil,base[33],Cdata);          V34= (VFUN_NARGS=6,(*(LnkLI80))(VV[37],VV[31],VV[38],V32,VV[39],V33));
409          base[39]= VV[39];          V35= make_cons(/* INLINE-ARGS */V34,Cnil);
410          base[40]=          base[32]= make_cons(/* INLINE-ARGS */V35,symbol_value(VV[36]));
411          make_cclosure_new(LC18,Cnil,base[33],Cdata);          bds_bind(VV[36],base[32]);
         vs_top=(vs_base=base+35)+6;  
         (void) (*Lnk80)();  
         vs_top=sup;  
         V28= vs_base[0];  
         V29= make_cons(V28,Cnil);  
         base[34]= make_cons(/* INLINE-ARGS */V29,symbol_value(VV[36]));  
         bds_bind(VV[36],base[34]);  
412          frs_push(FRS_CATCH,VV[55]);          frs_push(FRS_CATCH,VV[55]);
413          if(nlj_active)          if(nlj_active)
414          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
415          vs_top=sup;          vs_top=sup;
416          V30= vs_base[0];          V36= vs_base[0];
417          goto T166;}          goto T151;}
418          else{          else{
419          base[35]= symbol_value(VV[41]);          base[33]= symbol_value(VV[41]);
420          base[36]= Cnil;          base[34]= Cnil;
421          base[37]= symbol_value(VV[56]);          base[35]= symbol_value(VV[56]);
422          vs_top=(vs_base=base+35)+3;          vs_top=(vs_base=base+33)+3;
423          (void) (*Lnk83)();          (void) (*Lnk83)();
424          vs_top=sup;          vs_top=sup;
425          (VV[3]->s.s_dbind)= vs_base[0];          (VV[3]->s.s_dbind)= vs_base[0];
426          if(!(((VV[3]->s.s_dbind))==(symbol_value(VV[56])))){          if(!(((VV[3]->s.s_dbind))==(symbol_value(VV[56])))){
427          goto T173;}          goto T158;}
428          vs_base=vs_top;          vs_base=vs_top;
429          Lby();          Lby();
430          vs_top=sup;          vs_top=sup;
431          goto T173;          goto T158;
432  T173:;  T158:;
433          {register object V31;          {register object V37;
434          object V32;          object V38;
435          V31= Cnil;          V37= Cnil;
436          if((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package)){          if((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package)){
437          goto T181;}          goto T166;}
438          if(!(type_of((VV[3]->s.s_dbind))==t_fixnum||type_of((VV[3]->s.s_dbind))==t_bignum)){          if(!(type_of((VV[3]->s.s_dbind))==t_fixnum||type_of((VV[3]->s.s_dbind))==t_bignum)){
439          goto T180;}          goto T165;}
440          goto T181;          goto T166;
441  T181:;  T166:;
442          (VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil);          (VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil);
443          goto T180;          goto T165;
444  T180:;  T165:;
445          if(!(type_of((VV[3]->s.s_dbind))==t_cons)){          if(!(type_of((VV[3]->s.s_dbind))==t_cons)){
446          goto T187;}          goto T172;}
447          {object V33= car((VV[3]->s.s_dbind));          {object V39= car((VV[3]->s.s_dbind));
448          if(!((type_of(V33)==t_symbol&&(V33)->s.s_hpack==keyword_package))){          if(!((type_of(V39)==t_symbol&&(V39)->s.s_hpack==keyword_package))){
449          goto T187;}}          goto T172;}}
450          V31= Ct;          V37= Ct;
451          base[36]= car((VV[3]->s.s_dbind));          base[34]= car((VV[3]->s.s_dbind));
452          base[37]= cdr((VV[3]->s.s_dbind));          base[35]= cdr((VV[3]->s.s_dbind));
453          symlispcall(VV[84],base+36,2);          symlispcall(VV[84],base+34,2);
454          goto T179;          goto T164;
455          goto T187;          goto T172;
456  T187:;  T172:;
457          if(!(type_of((VV[3]->s.s_dbind))==t_cons)){          if(!(type_of((VV[3]->s.s_dbind))==t_cons)){
458          goto T196;}          goto T181;}
459          {object V34= car((VV[3]->s.s_dbind));          {object V40= car((VV[3]->s.s_dbind));
460          if(!(type_of(V34)==t_fixnum||type_of(V34)==t_bignum)){          if(!(type_of(V40)==t_fixnum||type_of(V40)==t_bignum)){
461          goto T196;}}          goto T181;}}
462          V31= Ct;          V37= Ct;
463          base[36]= car((VV[3]->s.s_dbind));          base[34]= car((VV[3]->s.s_dbind));
464          vs_top=(vs_base=base+36)+1;          vs_top=(vs_base=base+34)+1;
465          (void) (*Lnk85)();          (void) (*Lnk85)();
466          goto T179;          goto T164;
467          goto T196;          goto T181;
468  T196:;  T181:;
469          base[36]= (VV[3]->s.s_dbind);          base[34]= (VV[3]->s.s_dbind);
470          base[37]= Cnil;          base[35]= Cnil;
471          base[38]= Cnil;          base[36]= Cnil;
472          base[39]= (VV[16]->s.s_dbind);          base[37]= (VV[16]->s.s_dbind);
473          symlispcall(VV[86],base+36,4);          symlispcall(VV[86],base+34,4);
474          goto T179;          goto T164;
475  T179:;  T164:;
476          Llist();          Llist();
477          vs_top=sup;          vs_top=sup;
478          V32= vs_base[0];          V38= vs_base[0];
479          (VV[28]->s.s_dbind)= (VV[27]->s.s_dbind);          (VV[28]->s.s_dbind)= (VV[27]->s.s_dbind);
480          (VV[27]->s.s_dbind)= (VV[26]->s.s_dbind);          (VV[27]->s.s_dbind)= (VV[26]->s.s_dbind);
481          (VV[26]->s.s_dbind)= (V32);          (VV[26]->s.s_dbind)= (V38);
482          (VV[25]->s.s_dbind)= (VV[24]->s.s_dbind);          (VV[25]->s.s_dbind)= (VV[24]->s.s_dbind);
483          (VV[24]->s.s_dbind)= (VV[23]->s.s_dbind);          (VV[24]->s.s_dbind)= (VV[23]->s.s_dbind);
484          (VV[23]->s.s_dbind)= car((VV[26]->s.s_dbind));          (VV[23]->s.s_dbind)= car((VV[26]->s.s_dbind));
485          base[36]= symbol_value(VV[41]);          base[34]= symbol_value(VV[41]);
486          vs_top=(vs_base=base+36)+1;          vs_top=(vs_base=base+34)+1;
487          Lfresh_line();          Lfresh_line();
488          vs_top=sup;          vs_top=sup;
489          {register object V35;          {register object V41;
490          register object V36;          register object V42;
491          V35= (VV[26]->s.s_dbind);          V41= (VV[26]->s.s_dbind);
492          V36= car((V35));          V42= car((V41));
493          goto T224;          goto T209;
494  T224:;  T209:;
495          if(!(endp_prop((V35)))){          if(!(endp_prop((V41)))){
496          goto T225;}          goto T210;}
497          goto T176;          goto T161;
498          goto T225;          goto T210;
499  T225:;  T210:;
500          base[37]= (V36);          base[35]= (V42);
501          base[38]= symbol_value(VV[41]);          base[36]= symbol_value(VV[41]);
502          (void)simple_symlispcall(VV[87],base+37,2);          (void)simple_symlispcall(VV[87],base+35,2);
503          princ_char(10,VV[41]);          princ_char(10,VV[41]);
504          V35= cdr((V35));          V41= cdr((V41));
505          V36= car((V35));          V42= car((V41));
506          goto T224;}}          goto T209;}}
507          goto T176;          goto T161;
508  T176:;  T161:;
509          frs_pop();          frs_pop();
510          V30= Cnil;}          V36= Cnil;}
511          goto T166;          goto T151;
512  T166:;  T151:;
513          if((V30)==Cnil){          if((V36)==Cnil){
514          frs_pop();          frs_pop();
515          bds_unwind1;          bds_unwind1;
516          goto T128;}          goto T118;}
517          V37= ((V30)==Cnil?Ct:Cnil);          V43= ((V36)==Cnil?Ct:Cnil);
518          frs_pop();          frs_pop();
519          bds_unwind1;          bds_unwind1;
520          goto T155;          goto T145;
521          goto T157;          goto T147;
522  T157:;  T147:;
523          {register object V38;          {register object V44;
524          V38= (base[32]->c.c_car);          V44= (base[30]->c.c_car);
525          ck_larg_exactly(0,(V38));          ck_larg_exactly(0,(V44));
526          base[34]= Cnil;          base[32]= Cnil;
527          base[35]= Ct;          base[33]= Ct;
528          vs_top=(vs_base=base+34)+2;          vs_top=(vs_base=base+32)+2;
529          vs_top=sup;          vs_top=sup;
530          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
531          frs_pop();          frs_pop();
532          goto T128;}          goto T118;}
533          frs_pop();          frs_pop();
534          goto T155;}          goto T145;}
535          frs_pop();          frs_pop();
536          goto T155;          goto T145;
537          goto T155;          goto T145;
538  T155:;  T145:;
539          princ_char(10,VV[41]);          princ_char(10,VV[41]);
540          vs_base=vs_top;          vs_base=vs_top;
541          (void) (*Lnk88)();          (void) (*Lnk88)();
542          vs_top=sup;          vs_top=sup;
543          goto T128;          goto T118;
544  T128:;  T118:;
545          goto T127;          goto T117;
546            va_end(ap);
547            base[0]=base[0];
548            return Cnil;}
549          }          }
550  }  /*      local entry for function CLCS-TERMINAL-INTERRUPT        */
 /*      function definition for CLCS-TERMINAL-INTERRUPT */  
551    
552  static void L7()  static object LI7(V46)
553  {register object *base=vs_base;  
554          register object *sup=base+VM7; VC7  object V46;
555          vs_reserve(VM7);  {        VMB7 VMS7 VMV7
         {object V39;  
         check_arg(1);  
         V39=(base[0]);  
         vs_top=sup;  
556          goto TTL;          goto TTL;
557  TTL:;  TTL:;
558          if(((V39))==Cnil){          if(((V46))==Cnil){
559          goto T244;}          goto T229;}
560          base[1]= VV[58];          base[0]= VV[58];
561          base[2]= VV[59];          base[1]= VV[59];
562          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+0)+2;
563          (void) (*Lnk89)();          (void) (*Lnk89)();
564          return;          vs_top=sup;
565          goto T244;          {object V47 = vs_base[0];
566  T244:;          VMR7(V47)}
567          base[1]= VV[60];          goto T229;
568          vs_top=(vs_base=base+1)+1;  T229:;
569            base[0]= VV[60];
570            vs_top=(vs_base=base+0)+1;
571          (void) (*Lnk90)();          (void) (*Lnk90)();
572          return;          vs_top=sup;
573          }          {object V48 = vs_base[0];
574            VMR7(V48)}
575            base[0]=base[0];
576            return Cnil;
577  }  }
578  /*      function definition for CLCS-BREAK-QUIT */  /*      local entry for function CLCS-BREAK-QUIT        */
579    
580  static void L8()  static object LI8(object first,...)
581  {register object *base=vs_base;  {      
582          register object *sup=base+VM8; VC8          va_list ap;
583          vs_reserve(VM8);          int narg = VFUN_NARGS; VMB8 VMS8 VMV8
584          {object V40;          {object V49;
585          if(vs_top-vs_base>1) too_many_arguments();          Vcs[0]=Vcs[0];
586          if(vs_base>=vs_top){vs_top=sup;goto T249;}          va_start(ap,first);
587          V40=(base[0]);          narg = narg - 0;
588          vs_top=sup;          if (narg <= 0) goto T234;
589          goto T250;          else {
590          goto T249;          V49= first;}
591  T249:;          --narg; goto T235;
592          V40= small_fixnum(0);          goto T234;
593          goto T250;  T234:;
594  T250:;          V49= small_fixnum(0);
595          {object V41;          goto T235;
596          V42= reverse(symbol_value(VV[0]));  T235:;
597          V41= nth(fixint((V40)),/* INLINE-ARGS */V42);          {object V50;
598          if(((V41))==Cnil){          V51= reverse(symbol_value(VV[0]));
599          goto T252;}          V50= nth(fixint((V49)),/* INLINE-ARGS */V51);
600          base[1]= (V41);          if(((V50))==Cnil){
601          vs_top=(vs_base=base+1)+1;          goto T237;}
602            base[0]= (V50);
603            vs_top=(vs_base=base+0)+1;
604          (void) (*Lnk72)();          (void) (*Lnk72)();
605          vs_top=sup;}          vs_top=sup;}
606          goto T252;          goto T237;
607  T252:;  T237:;
608          vs_base=vs_top;          vs_base=vs_top;
609          (void) (*Lnk88)();          (void) (*Lnk88)();
610          return;          vs_top=sup;
611            {object V52 = vs_base[0];
612            VMR8(V52)}
613            va_end(ap);
614            base[0]=base[0];
615            return Cnil;}
616          }          }
 }  
617  /*      local entry for function progn 'compile2508     */  /*      local entry for function progn 'compile2508     */
618    
619  static object LI9()  static object LI9()
# Line 651  static object LI9() Line 622  static object LI9()
622          goto TTL;          goto TTL;
623  TTL:;  TTL:;
624          setq(VV[61],VV[62]);          setq(VV[61],VV[62]);
625          {object V43 = Cnil;          {object V53 = Cnil;
626          VMR9(V43)}          VMR9(V53)}
627          return Cnil;          return Cnil;
628  }  }
629  /*      local entry for function progn 'compile2520     */  /*      local entry for function progn 'compile2520     */
# Line 663  static object LI10() Line 634  static object LI10()
634          goto TTL;          goto TTL;
635  TTL:;  TTL:;
636          setq(VV[63],VV[64]);          setq(VV[63],VV[64]);
637          {object V44 = Cnil;          {object V54 = Cnil;
638          VMR10(V44)}          VMR10(V54)}
639          return Cnil;          return Cnil;
640  }  }
641  /*      function definition for BREAK-RESUME    */  /*      function definition for BREAK-RESUME    */
# Line 694  static object LI12() Line 665  static object LI12()
665          goto TTL;          goto TTL;
666  TTL:;  TTL:;
667          (void)(putprop(VV[65],VV[66],VV[67]));          (void)(putprop(VV[65],VV[66],VV[67]));
668          {object V45 = Cnil;          {object V55 = Cnil;
669          VMR12(V45)}          VMR12(V55)}
670          return Cnil;          return Cnil;
671  }  }
672  /*      local entry for function progn 'compile2552     */  /*      local entry for function progn 'compile2552     */
# Line 706  static object LI13() Line 677  static object LI13()
677          goto TTL;          goto TTL;
678  TTL:;  TTL:;
679          (void)(putprop(VV[68],VV[69],VV[67]));          (void)(putprop(VV[68],VV[69],VV[67]));
680          {object V46 = Cnil;          {object V56 = Cnil;
681          VMR13(V46)}          VMR13(V56)}
682          return Cnil;          return Cnil;
683  }  }
684  /*      function definition for BREAK-HELP      */  /*      function definition for BREAK-HELP      */
# Line 736  register object *base0; Line 707  register object *base0;
707  {       register object *base=vs_base;  {       register object *base=vs_base;
708          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
709          vs_reserve(VM15);          vs_reserve(VM15);
710          {object V47;          {object V57;
711          check_arg(1);          check_arg(1);
712          V47=(base[0]);          V57=(base[0]);
713          vs_top=sup;          vs_top=sup;
714          base[1]= (V47);          base[1]= (V57);
715          base[2]= VV[54];          base[2]= VV[54];
716          base[3]= (base0[2]->c.c_car);          base[3]= (base0[2]->c.c_car);
717          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 755  register object *base0; Line 726  register object *base0;
726  {       register object *base=vs_base;  {       register object *base=vs_base;
727          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
728          vs_reserve(VM16);          vs_reserve(VM16);
729          {object V48;          {object V58;
730          vs_top[0]=Cnil;          vs_top[0]=Cnil;
731          {object *p=vs_top;          {object *p=vs_top;
732           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
733          V48=(base[0]);          V58=(base[0]);
734          vs_top=sup;          vs_top=sup;
735          (base0[1]->c.c_car)= (V48);          (base0[1]->c.c_car)= (V58);
736          {frame_ptr fr;          {frame_ptr fr;
737          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
738          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 776  register object *base0; Line 747  register object *base0;
747  {       register object *base=vs_base;  {       register object *base=vs_base;
748          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
749          vs_reserve(VM17);          vs_reserve(VM17);
750          {object V49;          {object V59;
751          check_arg(1);          check_arg(1);
752          V49=(base[0]);          V59=(base[0]);
753          vs_top=sup;          vs_top=sup;
754          base[1]= (V49);          base[1]= (V59);
755          base[2]= VV[40];          base[2]= VV[40];
756          base[3]= (base0[2]->c.c_car);          base[3]= (base0[2]->c.c_car);
757          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 795  register object *base0; Line 766  register object *base0;
766  {       register object *base=vs_base;  {       register object *base=vs_base;
767          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
768          vs_reserve(VM18);          vs_reserve(VM18);
769          {object V50;          {object V60;
770          vs_top[0]=Cnil;          vs_top[0]=Cnil;
771          {object *p=vs_top;          {object *p=vs_top;
772           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
773          V50=(base[0]);          V60=(base[0]);
774          vs_top=sup;          vs_top=sup;
775          (base0[1]->c.c_car)= (V50);          (base0[1]->c.c_car)= (V60);
776          {frame_ptr fr;          {frame_ptr fr;
777          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
778          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 816  static void LnkT88(){ call_or_link(VV[88 Line 787  static void LnkT88(){ call_or_link(VV[88
787  static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* CLCS-BREAK-LEVEL-INVOKE-RESTART */  static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* CLCS-BREAK-LEVEL-INVOKE-RESTART */
788  static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* DBL-READ */  static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* DBL-READ */
789  static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* CATCH-FATAL */  static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* CATCH-FATAL */
790  static void LnkT69(){ call_or_link(VV[69],(void **)&Lnk69);} /* SHOW-RESTARTS */  static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[69],(void **)&LnkLI69,first,ap);va_end(ap);return V1;} /* SHOW-RESTARTS */
791  static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* SET-CURRENT */  static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* SET-CURRENT */
792  static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* MAKE-RESTART */  static object  LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[80],(void **)&LnkLI80,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */
793  static void LnkT79(){ call_or_link(VV[79],(void **)&Lnk79);} /* SET-BACK */  static void LnkT79(){ call_or_link(VV[79],(void **)&Lnk79);} /* SET-BACK */
794  static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* FIND-RESTART */  static object  LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[78],(void **)&LnkLI78,first,ap);va_end(ap);return V1;} /* FIND-RESTART */
795  static void LnkT77(){ call_or_link(VV[77],(void **)&Lnk77);} /* COMPUTE-RESTARTS */  static object  LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)&LnkLI77,first,ap);va_end(ap);return V1;} /* COMPUTE-RESTARTS */
796  static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* FRS-TOP */  static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* FRS-TOP */
797  static void LnkT75(){ call_or_link(VV[75],(void **)&Lnk75);} /* SCH-FRS-BASE */  static void LnkT75(){ call_or_link(VV[75],(void **)&Lnk75);} /* SCH-FRS-BASE */
798  static void LnkT74(){ call_or_link(VV[74],(void **)&Lnk74);} /* IHS-TOP */  static void LnkT74(){ call_or_link(VV[74],(void **)&Lnk74);} /* IHS-TOP */
799  static void LnkT73(){ call_or_link(VV[73],(void **)&Lnk73);} /* CONDITIONP */  static object  LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* CONDITIONP */
800  static void LnkT72(){ call_or_link(VV[72],(void **)&Lnk72);} /* INVOKE-RESTART-INTERACTIVELY */  static void LnkT72(){ call_or_link(VV[72],(void **)&Lnk72);} /* INVOKE-RESTART-INTERACTIVELY */
801  static void LnkT71(){ call_or_link(VV[71],(void **)&Lnk71);} /* *MAKE-SPECIAL */  static void LnkT71(){ call_or_link(VV[71],(void **)&Lnk71);} /* *MAKE-SPECIAL */
802    

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

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