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

Diff of /gcl/clcs/clcs_install.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 53  TTL:; Line 53  TTL:;
53          VMR3(V3)}          VMR3(V3)}
54          return Cnil;          return Cnil;
55  }  }
56  /*      function definition for INSTALL-SYMBOL  */  /*      local entry for function INSTALL-SYMBOL */
57    
58  static void L4()  static object LI4(V6,V7)
59  {register object *base=vs_base;  
60          register object *sup=base+VM4; VC4  register object V6;object V7;
61          vs_reserve(VM4);  {        VMB4 VMS4 VMV4
         {register object V4;  
         object V5;  
         check_arg(2);  
         V4=(base[0]);  
         V5=(base[1]);  
         vs_top=sup;  
62          goto TTL;          goto TTL;
63  TTL:;  TTL:;
64          if((get((V4),VV[2],Cnil))!=Cnil){          if((get((V6),VV[2],Cnil))!=Cnil){
65          goto T9;}          goto T9;}
66          base[2]= (V4);          base[0]= (V6);
67          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
68          Lsymbol_function();          Lsymbol_function();
69          vs_top=sup;          vs_top=sup;
70          V6= vs_base[0];          V8= vs_base[0];
71          (void)(sputprop((V4),VV[2],V6));          (void)(sputprop((V6),VV[2],V8));
72          goto T9;          goto T9;
73  T9:;  T9:;
74          base[2]= (V4);          base[0]= (V6);
75          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
76          Lsymbol_function();          Lsymbol_function();
77          vs_top=sup;          vs_top=sup;
78          V7= vs_base[0];          V9= vs_base[0];
79          base[2]= (V5);          base[0]= (V7);
80          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
81          Lsymbol_function();          Lsymbol_function();
82          vs_top=sup;          vs_top=sup;
83          V8= vs_base[0];          V10= vs_base[0];
84          if((V7)==(V8)){          if((V9)==(V10)){
85          goto T15;}          goto T15;}
86          base[2]= (V4);          base[0]= (V6);
87          base[4]= (V5);          base[2]= (V7);
88          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+2)+1;
89          Lsymbol_function();          Lsymbol_function();
90          vs_top=sup;          vs_top=sup;
91          base[3]= vs_base[0];          base[1]= vs_base[0];
92          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+0)+2;
93          siLfset();          siLfset();
94          return;          vs_top=sup;
95            {object V11 = vs_base[0];
96            VMR4(V11)}
97          goto T15;          goto T15;
98  T15:;  T15:;
99          base[2]= Cnil;          {object V12 = Cnil;
100          vs_top=(vs_base=base+2)+1;          VMR4(V12)}
101          return;          base[0]=base[0];
102          }          return Cnil;
103  }  }
104  /*      function definition for REVERT-SYMBOL   */  /*      local entry for function REVERT-SYMBOL  */
105    
106  static void L5()  static object LI5(V14)
107  {register object *base=vs_base;  
108          register object *sup=base+VM5; VC5  register object V14;
109          vs_reserve(VM5);  {        VMB5 VMS5 VMV5
         {register object V9;  
         check_arg(1);  
         V9=(base[0]);  
         vs_top=sup;  
110          goto TTL;          goto TTL;
111  TTL:;  TTL:;
112          if((get((V9),VV[2],Cnil))==Cnil){          if((get((V14),VV[2],Cnil))==Cnil){
113          goto T25;}          goto T25;}
114          base[1]= (V9);          base[0]= (V14);
115          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
116          Lsymbol_function();          Lsymbol_function();
117          vs_top=sup;          vs_top=sup;
118          V10= vs_base[0];          V15= vs_base[0];
119          V11= get((V9),VV[2],Cnil);          V16= get((V14),VV[2],Cnil);
120          if((V10)==(V11)){          if((V15)==(V16)){
121          goto T25;}          goto T25;}
122          base[1]= (V9);          base[0]= (V14);
123          base[2]= get((V9),VV[2],Cnil);          base[1]= get((V14),VV[2],Cnil);
124          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+0)+2;
125          siLfset();          siLfset();
126          return;          vs_top=sup;
127            {object V17 = vs_base[0];
128            VMR5(V17)}
129          goto T25;          goto T25;
130  T25:;  T25:;
131          base[1]= Cnil;          {object V18 = Cnil;
132          vs_top=(vs_base=base+1)+1;          VMR5(V18)}
133          return;          base[0]=base[0];
134          }          return Cnil;
135  }  }
136  /*      local entry for function progn 'compile2266     */  /*      local entry for function progn 'compile2266     */
137    
# Line 150  TTL:; Line 144  TTL:;
144          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
145          (void) (*Lnk26)();          (void) (*Lnk26)();
146          vs_top=sup;          vs_top=sup;
147          {object V12 = Cnil;          {object V19 = Cnil;
148          VMR6(V12)}          VMR6(V19)}
149          base[0]=base[0];          base[0]=base[0];
150          return Cnil;          return Cnil;
151  }  }
# Line 172  TTL:; Line 166  TTL:;
166          goto T37;          goto T37;
167  T37:;  T37:;
168          base[1]= symbol_value(VV[0]);          base[1]= symbol_value(VV[0]);
169          {object V14;          {object V21;
170          object V15= base[1];          object V22= base[1];
171          if(endp(V15)){          if(endp(V22)){
172          V13= Cnil;          V20= Cnil;
173          goto T41;}          goto T41;}
174          base[0]=V14=MMcons(Cnil,Cnil);          base[0]=V21=MMcons(Cnil,Cnil);
175          goto T42;          goto T42;
176  T42:;  T42:;
177          base[2]= symbol_name((V15->c.c_car));          base[2]= symbol_name((V22->c.c_car));
178          base[3]= VV[4];          base[3]= VV[4];
179          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
180          Lintern();          Lintern();
181          vs_top=sup;          vs_top=sup;
182          V17= vs_base[0];          V24= vs_base[0];
183          (V14->c.c_car)= list(2,V17,(V15->c.c_car));          (V21->c.c_car)= list(2,V24,(V22->c.c_car));
184          V15=MMcdr(V15);          V22=MMcdr(V22);
185          if(endp(V15)){          if(endp(V22)){
186          V13= base[0];          V20= base[0];
187          goto T41;}          goto T41;}
188          V14=MMcdr(V14)=MMcons(Cnil,Cnil);          V21=MMcdr(V21)=MMcons(Cnil,Cnil);
189          goto T42;}          goto T42;}
190          goto T41;          goto T41;
191  T41:;  T41:;
192          setq(VV[3],nconc(V13,VV[5]));          setq(VV[3],nconc(V20,VV[5]));
193          goto T36;          goto T36;
194  T36:;  T36:;
195          {object V18 = Cnil;          {object V25 = Cnil;
196          VMR7(V18)}          VMR7(V25)}
197          base[0]=base[0];          base[0]=base[0];
198          return Cnil;          return Cnil;
199  }  }
# Line 210  static object LI8() Line 204  static object LI8()
204  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
205          goto TTL;          goto TTL;
206  TTL:;  TTL:;
207          {object V19 = Cnil;          {object V26 = Cnil;
208          VMR8(V19)}          VMR8(V26)}
209          return Cnil;          return Cnil;
210  }  }
211  /*      function definition for INSTALL-CLCS-SYMBOLS    */  /*      local entry for function INSTALL-CLCS-SYMBOLS   */
212    
213  static void L9()  static object LI9()
214  {register object *base=vs_base;  
215          register object *sup=base+VM9; VC9  {        VMB9 VMS9 VMV9
         vs_reserve(VM9);  
         check_arg(0);  
         vs_top=sup;  
216          goto TTL;          goto TTL;
217  TTL:;  TTL:;
218          {register object V20;          {register object V27;
219          register object V21;          register object V28;
220          V20= symbol_value(VV[3]);          V27= symbol_value(VV[3]);
221          V21= car((V20));          V28= car((V27));
222          goto T52;          goto T52;
223  T52:;  T52:;
224          if(!(endp_prop((V20)))){          if(!(endp_prop((V27)))){
225          goto T53;}          goto T53;}
226          goto T48;          goto T48;
227          goto T53;          goto T53;
228  T53:;  T53:;
229          base[1]= car((V21));          (void)((*(LnkLI27))(car((V28)),cadr((V28))));
230          base[2]= cadr((V21));          V27= cdr((V27));
231          vs_top=(vs_base=base+1)+2;          V28= car((V27));
         (void) (*Lnk27)();  
         vs_top=sup;  
         V20= cdr((V20));  
         V21= car((V20));  
232          goto T52;}          goto T52;}
233          goto T48;          goto T48;
234  T48:;  T48:;
235          base[0]= Cnil;          {object V29 = Cnil;
236          vs_top=(vs_base=base+0)+1;          VMR9(V29)}
237          return;          base[0]=base[0];
238            return Cnil;
239  }  }
240  /*      function definition for REVERT-CLCS-SYMBOLS     */  /*      local entry for function REVERT-CLCS-SYMBOLS    */
241    
242  static void L10()  static object LI10()
243  {register object *base=vs_base;  
244          register object *sup=base+VM10; VC10  {        VMB10 VMS10 VMV10
         vs_reserve(VM10);  
         check_arg(0);  
         vs_top=sup;  
245          goto TTL;          goto TTL;
246  TTL:;  TTL:;
247          {register object V22;          {register object V30;
248          register object V23;          register object V31;
249          V22= reverse(symbol_value(VV[3]));          V30= reverse(symbol_value(VV[3]));
250          V23= car((V22));          V31= car((V30));
251          goto T69;          goto T67;
252  T69:;  T67:;
253          if(!(endp_prop((V22)))){          if(!(endp_prop((V30)))){
254          goto T70;}          goto T68;}
255          goto T65;          goto T63;
256          goto T70;          goto T68;
257  T70:;  T68:;
258          base[2]= car((V23));          (void)((*(LnkLI28))(car((V31))));
259          vs_top=(vs_base=base+2)+1;          V30= cdr((V30));
260          (void) (*Lnk28)();          V31= car((V30));
261          vs_top=sup;          goto T67;}
262          V22= cdr((V22));          goto T63;
263          V23= car((V22));  T63:;
264          goto T69;}          {object V32 = Cnil;
265          goto T65;          VMR10(V32)}
266  T65:;          base[0]=base[0];
267          base[0]= Cnil;          return Cnil;
         vs_top=(vs_base=base+0)+1;  
         return;  
268  }  }
269  /*      function definition for CLCS-COMPILE-FILE       */  /*      function definition for CLCS-COMPILE-FILE       */
270    
# Line 290  static void L11() Line 273  static void L11()
273          register object *VOL sup=base+VM11; VC11          register object *VOL sup=base+VM11; VC11
274          vs_reserve(VM11);          vs_reserve(VM11);
275          bds_check;          bds_check;
276          {VOL object V24;          {VOL object V33;
277          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
278          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
279          vs_base=vs_base+1;          vs_base=vs_base+1;
280          vs_top[0]=Cnil;          vs_top[0]=Cnil;
281          {object *p=vs_top;          {object *p=vs_top;
282           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
283          V24=(base[1]);          V33=(base[1]);
284          vs_top=sup;          vs_top=sup;
285          goto T82;          goto T79;
286  T82:;  T79:;
287          base[2]=MMcons(Cnil,base[0]);          base[2]=MMcons(Cnil,base[0]);
288          base[3]=alloc_frame_id();          base[3]=alloc_frame_id();
289          base[3]=MMcons(base[3],base[2]);          base[3]=MMcons(base[3],base[2]);
290          frs_push(FRS_CATCH,(base[3]->c.c_car));          frs_push(FRS_CATCH,(base[3]->c.c_car));
291          if(nlj_active){          if(nlj_active){
292          nlj_active=FALSE;          nlj_active=FALSE;
293          if(eql(nlj_tag,VV[15]))goto T85;          if(eql(nlj_tag,VV[15]))goto T82;
294          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
295          }          }
296          base[5]= VV[7];          V34=
         base[6]= VV[8];  
         base[7]= VV[9];  
         base[8]=  
297          make_cclosure_new(LC16,Cnil,base[3],Cdata);          make_cclosure_new(LC16,Cnil,base[3],Cdata);
298          base[9]= VV[10];          V35=
         base[10]=  
299          make_cclosure_new(LC17,Cnil,base[3],Cdata);          make_cclosure_new(LC17,Cnil,base[3],Cdata);
300          vs_top=(vs_base=base+5)+6;          V36= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V34,VV[10],V35));
301          (void) (*Lnk29)();          V37= make_cons(/* INLINE-ARGS */V36,Cnil);
302          vs_top=sup;          base[4]= make_cons(/* INLINE-ARGS */V37,symbol_value(VV[6]));
         V25= vs_base[0];  
         V26= make_cons(V25,Cnil);  
         base[4]= make_cons(/* INLINE-ARGS */V26,symbol_value(VV[6]));  
303          bds_bind(VV[6],base[4]);          bds_bind(VV[6],base[4]);
304          {register object V27;          {register object V38;
305          {register object V28;          {register object V39;
306          V28= get(VV[12],VV[2],Cnil);          V39= get(VV[12],VV[2],Cnil);
307          if(((V28))==Cnil){          if(((V39))==Cnil){
308          goto T99;}          goto T91;}
309          base[5]= (V28);          base[5]= (V39);
310          goto T96;          goto T88;
311          goto T99;          goto T91;
312  T99:;  T91:;
313          base[5]= symbol_function(VV[12]);}          base[5]= symbol_function(VV[12]);}
314          goto T96;          goto T88;
315  T96:;  T88:;
316          base[6]= (base[0]->c.c_car);          base[6]= (base[0]->c.c_car);
317          {object V29;          {object V40;
318          V29= (V24);          V40= (V33);
319           vs_top=base+7;           vs_top=base+7;
320           while(!endp(V29))           while(!endp(V40))
321           {vs_push(car(V29));V29=cdr(V29);}           {vs_push(car(V40));V40=cdr(V40);}
322          vs_base=base+6;}          vs_base=base+6;}
323          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
324                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 350  T96:; Line 326  T96:;
326                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
327          Llist();          Llist();
328          vs_top=sup;          vs_top=sup;
329          V27= vs_base[0];          V38= vs_base[0];
330          if((symbol_value(VV[13]))!=Cnil){          if((symbol_value(VV[13]))!=Cnil){
331          goto T103;}          goto T95;}
332          base[5]= (V27);          base[5]= (V38);
333          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
334          Lvalues_list();          Lvalues_list();
335          frs_pop();          frs_pop();
336          bds_unwind1;          bds_unwind1;
337          return;          return;
338          goto T103;          goto T95;
339  T103:;  T95:;
340          base[5]= VV[14];          base[5]= VV[14];
341          base[6]= VV[12];          base[6]= VV[12];
342          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
# Line 368  T103:; Line 344  T103:;
344          vs_top=sup;          vs_top=sup;
345          frs_pop();          frs_pop();
346          bds_unwind1;          bds_unwind1;
347          goto T83;}          goto T80;}
348          goto T85;          goto T82;
349  T85:;  T82:;
350          {register object V30;          {register object V41;
351          V30= (base[2]->c.c_car);          V41= (base[2]->c.c_car);
352          ck_larg_exactly(0,(V30));          ck_larg_exactly(0,(V41));
353          base[4]= Cnil;          base[4]= Cnil;
354          base[5]= Ct;          base[5]= Ct;
355          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
356          vs_top=sup;          vs_top=sup;
357          frs_pop();          frs_pop();
358          goto T83;}          goto T80;}
359          frs_pop();          frs_pop();
360          goto T83;          goto T80;
361          goto T83;          goto T80;
362  T83:;  T80:;
363          goto T82;          goto T79;
364          }          }
365  }  }
366  /*      function definition for CLCS-COMPILE    */  /*      function definition for CLCS-COMPILE    */
# Line 399  static void L12() Line 375  static void L12()
375           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
376          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
377          vs_top=sup;          vs_top=sup;
378          goto T114;          goto T106;
379  T114:;  T106:;
380          base[1]=MMcons(Cnil,base[0]);          base[1]=MMcons(Cnil,base[0]);
381          base[2]=alloc_frame_id();          base[2]=alloc_frame_id();
382          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
383          frs_push(FRS_CATCH,(base[2]->c.c_car));          frs_push(FRS_CATCH,(base[2]->c.c_car));
384          if(nlj_active){          if(nlj_active){
385          nlj_active=FALSE;          nlj_active=FALSE;
386          if(eql(nlj_tag,VV[19]))goto T117;          if(eql(nlj_tag,VV[19]))goto T109;
387          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
388          }          }
389          base[4]= VV[7];          V42=
         base[5]= VV[8];  
         base[6]= VV[9];  
         base[7]=  
390          make_cclosure_new(LC18,Cnil,base[2],Cdata);          make_cclosure_new(LC18,Cnil,base[2],Cdata);
391          base[8]= VV[10];          V43=
         base[9]=  
392          make_cclosure_new(LC19,Cnil,base[2],Cdata);          make_cclosure_new(LC19,Cnil,base[2],Cdata);
393          vs_top=(vs_base=base+4)+6;          V44= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V42,VV[10],V43));
394          (void) (*Lnk29)();          V45= make_cons(/* INLINE-ARGS */V44,Cnil);
395          vs_top=sup;          base[3]= make_cons(/* INLINE-ARGS */V45,symbol_value(VV[6]));
         V31= vs_base[0];  
         V32= make_cons(V31,Cnil);  
         base[3]= make_cons(/* INLINE-ARGS */V32,symbol_value(VV[6]));  
396          bds_bind(VV[6],base[3]);          bds_bind(VV[6],base[3]);
397          {register object V33;          {register object V46;
398          {register object V34;          {register object V47;
399          V34= get(VV[17],VV[2],Cnil);          V47= get(VV[17],VV[2],Cnil);
400          if(((V34))==Cnil){          if(((V47))==Cnil){
401          goto T131;}          goto T118;}
402          base[4]= (V34);          base[4]= (V47);
403          goto T128;          goto T115;
404          goto T131;          goto T118;
405  T131:;  T118:;
406          base[4]= symbol_function(VV[12]);}          base[4]= symbol_function(VV[12]);}
407          goto T128;          goto T115;
408  T128:;  T115:;
409          {object V35;          {object V48;
410          V35= (base[0]->c.c_car);          V48= (base[0]->c.c_car);
411           vs_top=base+5;           vs_top=base+5;
412           while(!endp(V35))           while(!endp(V48))
413           {vs_push(car(V35));V35=cdr(V35);}           {vs_push(car(V48));V48=cdr(V48);}
414          vs_base=base+5;}          vs_base=base+5;}
415          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
416                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 449  T128:; Line 418  T128:;
418                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
419          Llist();          Llist();
420          vs_top=sup;          vs_top=sup;
421          V33= vs_base[0];          V46= vs_base[0];
422          if((symbol_value(VV[13]))!=Cnil){          if((symbol_value(VV[13]))!=Cnil){
423          goto T134;}          goto T121;}
424          base[4]= (V33);          base[4]= (V46);
425          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
426          Lvalues_list();          Lvalues_list();
427          frs_pop();          frs_pop();
428          bds_unwind1;          bds_unwind1;
429          return;          return;
430          goto T134;          goto T121;
431  T134:;  T121:;
432          base[4]= VV[18];          base[4]= VV[18];
433          base[5]= VV[17];          base[5]= VV[17];
434          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 467  T134:; Line 436  T134:;
436          vs_top=sup;          vs_top=sup;
437          frs_pop();          frs_pop();
438          bds_unwind1;          bds_unwind1;
439          goto T115;}          goto T107;}
440          goto T117;          goto T109;
441  T117:;  T109:;
442          {register object V36;          {register object V49;
443          V36= (base[1]->c.c_car);          V49= (base[1]->c.c_car);
444          ck_larg_exactly(0,(V36));          ck_larg_exactly(0,(V49));
445          base[3]= Cnil;          base[3]= Cnil;
446          base[4]= Ct;          base[4]= Ct;
447          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
448          vs_top=sup;          vs_top=sup;
449          frs_pop();          frs_pop();
450          goto T115;}          goto T107;}
451          frs_pop();          frs_pop();
452          goto T115;          goto T107;
453          goto T115;          goto T107;
454  T115:;  T107:;
455          goto T114;          goto T106;
456  }  }
457  /*      function definition for CLCS-LOAD       */  /*      function definition for CLCS-LOAD       */
458    
# Line 492  static void L13() Line 461  static void L13()
461          register object *VOL sup=base+VM13; VC13          register object *VOL sup=base+VM13; VC13
462          vs_reserve(VM13);          vs_reserve(VM13);
463          bds_check;          bds_check;
464          {VOL object V37;          {VOL object V50;
465          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
466          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
467          vs_base=vs_base+1;          vs_base=vs_base+1;
468          vs_top[0]=Cnil;          vs_top[0]=Cnil;
469          {object *p=vs_top;          {object *p=vs_top;
470           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
471          V37=(base[1]);          V50=(base[1]);
472          vs_top=sup;          vs_top=sup;
473          goto T145;          goto T132;
474  T145:;  T132:;
475          base[2]=MMcons(Cnil,base[0]);          base[2]=MMcons(Cnil,base[0]);
476          base[3]=alloc_frame_id();          base[3]=alloc_frame_id();
477          base[3]=MMcons(base[3],base[2]);          base[3]=MMcons(base[3],base[2]);
478          frs_push(FRS_CATCH,(base[3]->c.c_car));          frs_push(FRS_CATCH,(base[3]->c.c_car));
479          if(nlj_active){          if(nlj_active){
480          nlj_active=FALSE;          nlj_active=FALSE;
481          if(eql(nlj_tag,VV[22]))goto T148;          if(eql(nlj_tag,VV[22]))goto T135;
482          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
483          }          }
484          base[5]= VV[7];          V51=
         base[6]= VV[8];  
         base[7]= VV[9];  
         base[8]=  
485          make_cclosure_new(LC20,Cnil,base[3],Cdata);          make_cclosure_new(LC20,Cnil,base[3],Cdata);
486          base[9]= VV[10];          V52=
         base[10]=  
487          make_cclosure_new(LC21,Cnil,base[3],Cdata);          make_cclosure_new(LC21,Cnil,base[3],Cdata);
488          vs_top=(vs_base=base+5)+6;          V53= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V51,VV[10],V52));
489          (void) (*Lnk29)();          V54= make_cons(/* INLINE-ARGS */V53,Cnil);
490          vs_top=sup;          base[4]= make_cons(/* INLINE-ARGS */V54,symbol_value(VV[6]));
         V38= vs_base[0];  
         V39= make_cons(V38,Cnil);  
         base[4]= make_cons(/* INLINE-ARGS */V39,symbol_value(VV[6]));  
491          bds_bind(VV[6],base[4]);          bds_bind(VV[6],base[4]);
492          {register object V40;          {register object V55;
493          V40= get(VV[21],VV[2],Cnil);          V55= get(VV[21],VV[2],Cnil);
494          if(((V40))==Cnil){          if(((V55))==Cnil){
495          goto T160;}          goto T142;}
496          base[5]= (V40);          base[5]= (V55);
497          goto T157;          goto T139;
498          goto T160;          goto T142;
499  T160:;  T142:;
500          base[5]= symbol_function(VV[21]);}          base[5]= symbol_function(VV[21]);}
501          goto T157;          goto T139;
502  T157:;  T139:;
503          base[6]= (base[0]->c.c_car);          base[6]= (base[0]->c.c_car);
504          {object V41;          {object V56;
505          V41= (V37);          V56= (V50);
506           vs_top=base+7;           vs_top=base+7;
507           while(!endp(V41))           while(!endp(V56))
508           {vs_push(car(V41));V41=cdr(V41);}           {vs_push(car(V56));V56=cdr(V56);}
509          vs_base=base+6;}          vs_base=base+6;}
510          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
511                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 552  T157:; Line 514  T157:;
514          frs_pop();          frs_pop();
515          bds_unwind1;          bds_unwind1;
516          return;          return;
517          goto T148;          goto T135;
518  T148:;  T135:;
519          {register object V42;          {register object V57;
520          V42= (base[2]->c.c_car);          V57= (base[2]->c.c_car);
521          ck_larg_exactly(0,(V42));          ck_larg_exactly(0,(V57));
522          base[4]= Cnil;          base[4]= Cnil;
523          base[5]= Ct;          base[5]= Ct;
524          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
525          vs_top=sup;          vs_top=sup;
526          frs_pop();          frs_pop();
527          goto T146;}          goto T133;}
528          frs_pop();          frs_pop();
529          goto T146;          goto T133;
530          goto T146;          goto T133;
531  T146:;  T133:;
532          goto T145;          goto T132;
533          }          }
534  }  }
535  /*      function definition for CLCS-OPEN       */  /*      function definition for CLCS-OPEN       */
# Line 577  static void L14() Line 539  static void L14()
539          register object *VOL sup=base+VM14; VC14          register object *VOL sup=base+VM14; VC14
540          vs_reserve(VM14);          vs_reserve(VM14);
541          bds_check;          bds_check;
542          {VOL object V43;          {VOL object V58;
543          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
544          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
545          vs_base=vs_base+1;          vs_base=vs_base+1;
546          vs_top[0]=Cnil;          vs_top[0]=Cnil;
547          {object *p=vs_top;          {object *p=vs_top;
548           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
549          V43=(base[1]);          V58=(base[1]);
550          vs_top=sup;          vs_top=sup;
551          goto T169;          goto T151;
552  T169:;  T151:;
553          base[2]=MMcons(Cnil,base[0]);          base[2]=MMcons(Cnil,base[0]);
554          base[3]=alloc_frame_id();          base[3]=alloc_frame_id();
555          base[3]=MMcons(base[3],base[2]);          base[3]=MMcons(base[3],base[2]);
556          frs_push(FRS_CATCH,(base[3]->c.c_car));          frs_push(FRS_CATCH,(base[3]->c.c_car));
557          if(nlj_active){          if(nlj_active){
558          nlj_active=FALSE;          nlj_active=FALSE;
559          if(eql(nlj_tag,VV[25]))goto T172;          if(eql(nlj_tag,VV[25]))goto T154;
560          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
561          }          }
562          base[5]= VV[7];          V59=
         base[6]= VV[8];  
         base[7]= VV[9];  
         base[8]=  
563          make_cclosure_new(LC22,Cnil,base[3],Cdata);          make_cclosure_new(LC22,Cnil,base[3],Cdata);
564          base[9]= VV[10];          V60=
         base[10]=  
565          make_cclosure_new(LC23,Cnil,base[3],Cdata);          make_cclosure_new(LC23,Cnil,base[3],Cdata);
566          vs_top=(vs_base=base+5)+6;          V61= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V59,VV[10],V60));
567          (void) (*Lnk29)();          V62= make_cons(/* INLINE-ARGS */V61,Cnil);
568          vs_top=sup;          base[4]= make_cons(/* INLINE-ARGS */V62,symbol_value(VV[6]));
         V44= vs_base[0];  
         V45= make_cons(V44,Cnil);  
         base[4]= make_cons(/* INLINE-ARGS */V45,symbol_value(VV[6]));  
569          bds_bind(VV[6],base[4]);          bds_bind(VV[6],base[4]);
570          {register object V46;          {register object V63;
571          V46= get(VV[24],VV[2],Cnil);          V63= get(VV[24],VV[2],Cnil);
572          if(((V46))==Cnil){          if(((V63))==Cnil){
573          goto T184;}          goto T161;}
574          base[5]= (V46);          base[5]= (V63);
575          goto T181;          goto T158;
576          goto T184;          goto T161;
577  T184:;  T161:;
578          base[5]= symbol_function(VV[24]);}          base[5]= symbol_function(VV[24]);}
579          goto T181;          goto T158;
580  T181:;  T158:;
581          base[6]= (base[0]->c.c_car);          base[6]= (base[0]->c.c_car);
582          {object V47;          {object V64;
583          V47= (V43);          V64= (V58);
584           vs_top=base+7;           vs_top=base+7;
585           while(!endp(V47))           while(!endp(V64))
586           {vs_push(car(V47));V47=cdr(V47);}           {vs_push(car(V64));V64=cdr(V64);}
587          vs_base=base+6;}          vs_base=base+6;}
588          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
589                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 637  T181:; Line 592  T181:;
592          frs_pop();          frs_pop();
593          bds_unwind1;          bds_unwind1;
594          return;          return;
595          goto T172;          goto T154;
596  T172:;  T154:;
597          {register object V48;          {register object V65;
598          V48= (base[2]->c.c_car);          V65= (base[2]->c.c_car);
599          ck_larg_exactly(0,(V48));          ck_larg_exactly(0,(V65));
600          base[4]= Cnil;          base[4]= Cnil;
601          base[5]= Ct;          base[5]= Ct;
602          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
603          vs_top=sup;          vs_top=sup;
604          frs_pop();          frs_pop();
605          goto T170;}          goto T152;}
606          frs_pop();          frs_pop();
607          goto T170;          goto T152;
608          goto T170;          goto T152;
609  T170:;  T152:;
610          goto T169;          goto T151;
611          }          }
612  }  }
613  /*      local entry for function progn 'compile2835     */  /*      local entry for function progn 'compile2835     */
# Line 662  static object LI15() Line 617  static object LI15()
617  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
618          goto TTL;          goto TTL;
619  TTL:;  TTL:;
620          vs_base=vs_top;          (void)((*(LnkLI31))());
621          (void) (*Lnk31)();          {object V66 = Cnil;
622          vs_top=sup;          VMR15(V66)}
         {object V49 = Cnil;  
         VMR15(V49)}  
         base[0]=base[0];  
623          return Cnil;          return Cnil;
624  }  }
625  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 677  register object *base0; Line 629  register object *base0;
629  {       register object *base=vs_base;  {       register object *base=vs_base;
630          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
631          vs_reserve(VM16);          vs_reserve(VM16);
632          {register object V50;          {register object V67;
633          check_arg(1);          check_arg(1);
634          V50=(base[0]);          V67=(base[0]);
635          vs_top=sup;          vs_top=sup;
636          base[1]= (V50);          base[1]= (V67);
637          base[2]= VV[23];          base[2]= VV[23];
638          base[3]= (base0[2]->c.c_car);          base[3]= (base0[2]->c.c_car);
639          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 696  register object *base0; Line 648  register object *base0;
648  {       register object *base=vs_base;  {       register object *base=vs_base;
649          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
650          vs_reserve(VM17);          vs_reserve(VM17);
651          {register object V51;          {register object V68;
652          vs_top[0]=Cnil;          vs_top[0]=Cnil;
653          {object *p=vs_top;          {object *p=vs_top;
654           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
655          V51=(base[0]);          V68=(base[0]);
656          vs_top=sup;          vs_top=sup;
657          (base0[1]->c.c_car)= (V51);          (base0[1]->c.c_car)= (V68);
658          {frame_ptr fr;          {frame_ptr fr;
659          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
660          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[25]);          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[25]);
# Line 717  register object *base0; Line 669  register object *base0;
669  {       register object *base=vs_base;  {       register object *base=vs_base;
670          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
671          vs_reserve(VM18);          vs_reserve(VM18);
672          {register object V52;          {register object V69;
673          check_arg(1);          check_arg(1);
674          V52=(base[0]);          V69=(base[0]);
675          vs_top=sup;          vs_top=sup;
676          base[1]= (V52);          base[1]= (V69);
677          base[2]= VV[20];          base[2]= VV[20];
678          base[3]= (base0[2]->c.c_car);          base[3]= (base0[2]->c.c_car);
679          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 736  register object *base0; Line 688  register object *base0;
688  {       register object *base=vs_base;  {       register object *base=vs_base;
689          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
690          vs_reserve(VM19);          vs_reserve(VM19);
691          {register object V53;          {register object V70;
692          vs_top[0]=Cnil;          vs_top[0]=Cnil;
693          {object *p=vs_top;          {object *p=vs_top;
694           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
695          V53=(base[0]);          V70=(base[0]);
696          vs_top=sup;          vs_top=sup;
697          (base0[1]->c.c_car)= (V53);          (base0[1]->c.c_car)= (V70);
698          {frame_ptr fr;          {frame_ptr fr;
699          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
700          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[22]);          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[22]);
# Line 757  register object *base0; Line 709  register object *base0;
709  {       register object *base=vs_base;  {       register object *base=vs_base;
710          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
711          vs_reserve(VM20);          vs_reserve(VM20);
712          {register object V54;          {register object V71;
713          check_arg(1);          check_arg(1);
714          V54=(base[0]);          V71=(base[0]);
715          vs_top=sup;          vs_top=sup;
716          base[1]= (V54);          base[1]= (V71);
717          base[2]= VV[16];          base[2]= VV[16];
718          base[3]= car((base0[2]->c.c_car));          base[3]= car((base0[2]->c.c_car));
719          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 776  register object *base0; Line 728  register object *base0;
728  {       register object *base=vs_base;  {       register object *base=vs_base;
729          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
730          vs_reserve(VM21);          vs_reserve(VM21);
731          {register object V55;          {register object V72;
732          vs_top[0]=Cnil;          vs_top[0]=Cnil;
733          {object *p=vs_top;          {object *p=vs_top;
734           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
735          V55=(base[0]);          V72=(base[0]);
736          vs_top=sup;          vs_top=sup;
737          (base0[1]->c.c_car)= (V55);          (base0[1]->c.c_car)= (V72);
738          {frame_ptr fr;          {frame_ptr fr;
739          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
740          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[19]);          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[19]);
# Line 797  register object *base0; Line 749  register object *base0;
749  {       register object *base=vs_base;  {       register object *base=vs_base;
750          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
751          vs_reserve(VM22);          vs_reserve(VM22);
752          {register object V56;          {register object V73;
753          check_arg(1);          check_arg(1);
754          V56=(base[0]);          V73=(base[0]);
755          vs_top=sup;          vs_top=sup;
756          base[1]= (V56);          base[1]= (V73);
757          base[2]= VV[11];          base[2]= VV[11];
758          base[3]= (base0[2]->c.c_car);          base[3]= (base0[2]->c.c_car);
759          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 816  register object *base0; Line 768  register object *base0;
768  {       register object *base=vs_base;  {       register object *base=vs_base;
769          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
770          vs_reserve(VM23);          vs_reserve(VM23);
771          {register object V57;          {register object V74;
772          vs_top[0]=Cnil;          vs_top[0]=Cnil;
773          {object *p=vs_top;          {object *p=vs_top;
774           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
775          V57=(base[0]);          V74=(base[0]);
776          vs_top=sup;          vs_top=sup;
777          (base0[1]->c.c_car)= (V57);          (base0[1]->c.c_car)= (V74);
778          {frame_ptr fr;          {frame_ptr fr;
779          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
780          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[15]);          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[15]);
# Line 830  register object *base0; Line 782  register object *base0;
782          unwind(fr,VV[15]);}          unwind(fr,VV[15]);}
783          }          }
784  }  }
785  static void LnkT31(){ call_or_link(VV[31],(void **)&Lnk31);} /* INSTALL-CLCS-SYMBOLS */  static object  LnkTLI31(){return call_proc0(VV[31],(void **)&LnkLI31);} /* INSTALL-CLCS-SYMBOLS */
786  static void LnkT30(){ call_or_link(VV[30],(void **)&Lnk30);} /* ERROR */  static void LnkT30(){ call_or_link(VV[30],(void **)&Lnk30);} /* ERROR */
787  static void LnkT29(){ call_or_link(VV[29],(void **)&Lnk29);} /* MAKE-RESTART */  static object  LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[29],(void **)&LnkLI29,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */
788  static void LnkT28(){ call_or_link(VV[28],(void **)&Lnk28);} /* REVERT-SYMBOL */  static object  LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[28],(void **)&LnkLI28,1,first,ap);va_end(ap);return V1;} /* REVERT-SYMBOL */
789  static void LnkT27(){ call_or_link(VV[27],(void **)&Lnk27);} /* INSTALL-SYMBOL */  static object  LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[27],(void **)&LnkLI27,2,first,ap);va_end(ap);return V1;} /* INSTALL-SYMBOL */
790  static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* *MAKE-SPECIAL */  static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* *MAKE-SPECIAL */
791    
792  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT

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