/[gcl]/gcl/lsp/gcl_serror.c
ViewVC logotype

Diff of /gcl/lsp/gcl_serror.c

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

revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:32 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "gcl_serror.h"  #include "gcl_serror.h"
4  void init_gcl_serror(){do_init(VV);}  void init_gcl_serror(){do_init(VV);}
5  /*      function definition for MAKE-ERROR-CONDITION    */  /*      local entry for function MAKE-ERROR-CONDITION   */
6    
7  static void L1()  static object LI1(object first,...)
8  {register object *base=vs_base;  {      
9          register object *sup=base+VM1; VC1          va_list ap;
10          vs_reserve(VM1);          int narg = VFUN_NARGS; VMB1 VMS1 VMV1
11          {object V1;          {object V1;
12          object V2;          object V2;
13          object V3;          object V3;
14          object V4;          object V4;
15          object V5;          object V5;
16          object V6;          object V6;
17          parse_key(vs_base,FALSE,FALSE,6,VV[25],VV[26],VV[27],VV[28],VV[29],VV[30]);          va_start(ap,first);
18          vs_top=sup;          narg= narg - 0;
19          V1=(base[0]);          {
20          V2=(base[1]);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI1key,first,ap);
21          V3=(base[2]);          V1=(Vcs[0]);
22          V4=(base[3]);          V2=(Vcs[1]);
23          V5=(base[4]);          V3=(Vcs[2]);
24          V6=(base[5]);          V4=(Vcs[3]);
25          base[12]= VV[0];          V5=(Vcs[4]);
26          base[13]= (V1);          V6=(Vcs[5]);
27          base[14]= (V2);          base[0]= VV[0];
28          base[15]= (V3);          base[1]= (V1);
29          base[16]= (V4);          base[2]= (V2);
30          base[17]= (V5);          base[3]= (V3);
31          base[18]= (V6);          base[4]= (V4);
32          vs_top=(vs_base=base+12)+7;          base[5]= (V5);
33            base[6]= (V6);
34            vs_top=(vs_base=base+0)+7;
35          siLmake_structure();          siLmake_structure();
36          return;          vs_top=sup;
37          }          {object V7 = vs_base[0];
38  }          VMR1(V7)}
39            va_end(ap);
40            base[0]=base[0];
41            return Cnil;}
42            }}
43  /*      macro definition for COND-ERROR */  /*      macro definition for COND-ERROR */
44    
45  static void L2()  static void L2()
# Line 42  static void L2() Line 48  static void L2()
48          vs_reserve(VM2);          vs_reserve(VM2);
49          check_arg(2);          check_arg(2);
50          vs_top=sup;          vs_top=sup;
51          {object V7=base[0]->c.c_cdr;          {object V8=base[0]->c.c_cdr;
52          if(endp(V7))invalid_macro_call();          if(endp(V8))invalid_macro_call();
53          base[2]= (V7->c.c_car);          base[2]= (V8->c.c_car);
54          V7=V7->c.c_cdr;          V8=V8->c.c_cdr;
55          if(endp(V7))invalid_macro_call();          if(endp(V8))invalid_macro_call();
56          base[3]= (V7->c.c_car);          base[3]= (V8->c.c_car);
57          V7=V7->c.c_cdr;          V8=V8->c.c_cdr;
58          base[4]= V7;}          base[4]= V8;}
59          if(base[2]!=Cnil){          if(base[2]!=Cnil){
60          goto T8;}          goto T8;}
61          base[2]= VV[1];          base[2]= VV[1];
62          goto T8;          goto T8;
63  T8:;  T8:;
64          {object V8;          {object V9;
65          base[5]= VV[2];          base[5]= VV[2];
66          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
67          Lgensym();          Lgensym();
68          vs_top=sup;          vs_top=sup;
69          V8= vs_base[0];          V9= vs_base[0];
70          {register object V9;          {register object V10;
71          V10= list(2,VV[4],(V8));          V11= list(2,VV[4],(V9));
72          V11= car(base[2]);          V12= car(base[2]);
73          {object V13;          {object V14;
74          object V14= base[4];          object V15= base[4];
75          if(endp(V14)){          if(endp(V15)){
76          V12= Cnil;          V13= Cnil;
77          goto T13;}          goto T13;}
78          base[5]=V13=MMcons(Cnil,Cnil);          base[5]=V14=MMcons(Cnil,Cnil);
79          goto T14;          goto T14;
80  T14:;  T14:;
81          (V13->c.c_car)= car((V14->c.c_car));          (V14->c.c_car)= car((V15->c.c_car));
82          V14=MMcdr(V14);          V15=MMcdr(V15);
83          if(endp(V14)){          if(endp(V15)){
84          V12= base[5];          V13= base[5];
85          goto T13;}          goto T13;}
86          V13=MMcdr(V13)=MMcons(Cnil,Cnil);          V14=MMcdr(V14)=MMcons(Cnil,Cnil);
87          goto T14;}          goto T14;}
88          goto T13;          goto T13;
89  T13:;  T13:;
90          V15= make_cons(VV[13],V12);          V16= make_cons(VV[13],V13);
91          V16= list(3,VV[3],/* INLINE-ARGS */V10,list(3,VV[5],VV[6],list(3,VV[7],list(3,VV[8],list(3,VV[9],list(2,VV[10],list(4,VV[11],base[2],/* INLINE-ARGS */V11,list(3,VV[12],/* INLINE-ARGS */V15,list(2,VV[4],(V8))))),VV[14]),base[3]),VV[15])));          V17= list(3,VV[3],/* INLINE-ARGS */V11,list(3,VV[5],VV[6],list(3,VV[7],list(3,VV[8],list(3,VV[9],list(2,VV[10],list(4,VV[11],base[2],/* INLINE-ARGS */V12,list(3,VV[12],/* INLINE-ARGS */V16,list(2,VV[4],(V9))))),VV[14]),base[3]),VV[15])));
92          V17= append(base[4],VV[17]);          V18= append(base[4],VV[17]);
93          V9= list(2,/* INLINE-ARGS */V16,make_cons(VV[16],/* INLINE-ARGS */V17));          V10= list(2,/* INLINE-ARGS */V17,make_cons(VV[16],/* INLINE-ARGS */V18));
94          if((base[2])==Cnil){          if((base[2])==Cnil){
95          goto T18;}          goto T18;}
96          V9= listA(3,VV[18],base[2],(V9));          V10= listA(3,VV[18],base[2],(V10));
97          goto T16;          goto T16;
98          goto T18;          goto T18;
99  T18:;  T18:;
100          V9= make_cons(VV[8],(V9));          V10= make_cons(VV[8],(V10));
101          goto T16;          goto T16;
102  T16:;  T16:;
103          base[5]= list(3,VV[19],VV[6],(V9));          base[5]= list(3,VV[19],VV[6],(V10));
104          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
105          return;}}          return;}}
106  }  }
# Line 106  static void L3() Line 112  static void L3()
112          vs_reserve(VM3);          vs_reserve(VM3);
113          check_arg(2);          check_arg(2);
114          vs_top=sup;          vs_top=sup;
115          {object V18=base[0]->c.c_cdr;          {object V19=base[0]->c.c_cdr;
116          if(endp(V18))invalid_macro_call();          if(endp(V19))invalid_macro_call();
117          base[2]= (V18->c.c_car);          base[2]= (V19->c.c_car);
118          V18=V18->c.c_cdr;          V19=V19->c.c_cdr;
119          if(endp(V18))invalid_macro_call();          if(endp(V19))invalid_macro_call();
120          base[3]= (V18->c.c_car);          base[3]= (V19->c.c_car);
121          V18=V18->c.c_cdr;          V19=V19->c.c_cdr;
122          base[4]= V18;}          base[4]= V19;}
123          {register object V19;          {register object V20;
124          V20= list(3,VV[20],VV[21],list(3,VV[3],VV[22],list(3,VV[5],VV[6],base[3])));          V21= list(3,VV[20],VV[21],list(3,VV[3],VV[22],list(3,VV[5],VV[6],base[3])));
125          V21= list(2,Ct,make_cons(VV[23],base[2]));          V22= list(2,Ct,make_cons(VV[23],base[2]));
126          V22= make_cons(/* INLINE-ARGS */V21,Cnil);          V23= make_cons(/* INLINE-ARGS */V22,Cnil);
127          V23= append(base[4],/* INLINE-ARGS */V22);          V24= append(base[4],/* INLINE-ARGS */V23);
128          V19= list(2,/* INLINE-ARGS */V20,make_cons(VV[16],/* INLINE-ARGS */V23));          V20= list(2,/* INLINE-ARGS */V21,make_cons(VV[16],/* INLINE-ARGS */V24));
129          if((base[2])==Cnil){          if((base[2])==Cnil){
130          goto T25;}          goto T25;}
131          V19= listA(3,VV[18],base[2],(V19));          V20= listA(3,VV[18],base[2],(V20));
132          goto T23;          goto T23;
133          goto T25;          goto T25;
134  T25:;  T25:;
135          V19= make_cons(VV[8],(V19));          V20= make_cons(VV[8],(V20));
136          goto T23;          goto T23;
137  T23:;  T23:;
138          base[5]= list(3,VV[19],VV[6],(V19));          base[5]= list(3,VV[19],VV[6],(V20));
139          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
140          return;}          return;}
141  }  }
# Line 139  static object LI4(object first,...) Line 145  static object LI4(object first,...)
145  {        {      
146          va_list ap;          va_list ap;
147          int narg = VFUN_NARGS; VMB4 VMS4 VMV4          int narg = VFUN_NARGS; VMB4 VMS4 VMV4
148          {register object V24;          {register object V25;
149          va_start(ap,first);          va_start(ap,first);
150          narg= narg - 0;          narg= narg - 0;
151          V25 = list_vector_new(narg,first,ap);          V26 = list_vector_new(narg,first,ap);
152          V24= V25;          V25= V26;
153          if((symbol_value(VV[24]))==Cnil){          if((symbol_value(VV[24]))==Cnil){
154          goto T29;}          goto T29;}
155          vs_base=vs_top;          vs_base=vs_top;
# Line 157  static object LI4(object first,...) Line 163  static object LI4(object first,...)
163          vs_top=sup;          vs_top=sup;
164          goto T29;          goto T29;
165  T29:;  T29:;
166          {register object V26;          {register object V27;
167          base[0]= VV[25];          V28= car((V25));
168          base[1]= car((V24));          base[0]= (V25);
169          base[2]= VV[26];          vs_top=(vs_base=base+0)+1;
170          base[4]= (V24);          (void) (*Lnk76)();
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk75)();  
         vs_top=sup;  
         base[3]= vs_base[0];  
         base[4]= VV[27];  
         base[5]= caddr((V24));  
         base[6]= VV[28];  
         base[7]= cadddr((V24));  
         base[8]= VV[29];  
         base[10]= cdr(cddddr((V24)));  
         vs_top=(vs_base=base+10)+1;  
         Lcopy_list();  
171          vs_top=sup;          vs_top=sup;
172          base[9]= vs_base[0];          V29= vs_base[0];
173          base[10]= VV[30];          V30= caddr((V25));
174          base[12]= (V24);          V31= cadddr((V25));
175          vs_top=(vs_base=base+12)+1;          base[0]= cdr(cddddr((V25)));
176            vs_top=(vs_base=base+0)+1;
177          Lcopy_list();          Lcopy_list();
178          vs_top=sup;          vs_top=sup;
179          base[11]= vs_base[0];          V32= vs_base[0];
180          vs_top=(vs_base=base+0)+12;          base[0]= (V25);
181          (void) (*Lnk76)();          vs_top=(vs_base=base+0)+1;
182            Lcopy_list();
183          vs_top=sup;          vs_top=sup;
184          V26= vs_base[0];          V33= vs_base[0];
185            V27= (VFUN_NARGS=12,(*(LnkLI75))(VV[25],/* INLINE-ARGS */V28,VV[26],V29,VV[27],/* INLINE-ARGS */V30,VV[28],/* INLINE-ARGS */V31,VV[29],V32,VV[30],V33));
186          if((symbol_value(VV[31]))==Cnil){          if((symbol_value(VV[31]))==Cnil){
187          goto T51;}          goto T42;}
188          {frame_ptr fr;          {frame_ptr fr;
189          fr=frs_sch_catch(VV[32]);          fr=frs_sch_catch(VV[32]);
190          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[32]);          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[32]);
191          base[0]= (V26);          base[0]= (V27);
192          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
193          unwind(fr,VV[32]);}          unwind(fr,VV[32]);}
194          goto T51;          goto T42;
195  T51:;  T42:;
196          {object V27;          {object V34;
197          {register object V28;          {register object V35;
198          V28= Cnil;          V35= Cnil;
199          {register long V29;          {register long V36;
200          register long V30;          register long V37;
201          V29= 0;          V36= 0;
202          base[0]= symbol_value(VV[14]);          base[0]= symbol_value(VV[14]);
203          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
204          Lfill_pointer();          Lfill_pointer();
205          vs_top=sup;          vs_top=sup;
206          V30= fix(vs_base[0]);          V37= fix(vs_base[0]);
207          goto T59;          goto T50;
208  T59:;  T50:;
209          if(!((V29)>=(V30))){          if(!((V36)>=(V37))){
210          goto T60;}          goto T51;}
211          V27= Cnil;          V34= Cnil;
212          goto T54;          goto T45;
213          goto T60;          goto T51;
214  T60:;  T51:;
215          V31= aref1(symbol_value(VV[14]),V29);          V38= aref1(symbol_value(VV[14]),V36);
216          V28= (          V35= (
217          V32 = /* INLINE-ARGS */V31,          V39 = /* INLINE-ARGS */V38,
218          (type_of(V32) == t_sfun ?(*((V32)->sfn.sfn_self)):          (type_of(V39) == t_sfun ?(*((V39)->sfn.sfn_self)):
219          (fcall.argd=1,type_of(V32)==t_vfun) ?          (fcall.argd=1,type_of(V39)==t_vfun) ?
220          (*((V32)->sfn.sfn_self)):          (*((V39)->sfn.sfn_self)):
221          (fcall.fun=(V32),fcalln))((V26)));          (fcall.fun=(V39),fcalln))((V27)));
222          if(((V28))==Cnil){          if(((V35))==Cnil){
223          goto T64;}          goto T55;}
224          {frame_ptr fr;          {frame_ptr fr;
225          fr=frs_sch_catch((V28));          fr=frs_sch_catch((V35));
226          if(fr==NULL) FEerror("The tag ~s is undefined.",1,(V28));          if(fr==NULL) FEerror("The tag ~s is undefined.",1,(V35));
227          base[0]= (V26);          base[0]= (V27);
228          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
229          unwind(fr,(V28));}          unwind(fr,(V35));}
230            goto T55;
231    T55:;
232            V36= (long)(V36)+1;
233            goto T50;}}
234            goto T45;
235    T45:;
236            if(((V34))==Cnil){
237            goto T64;}
238            {object V40 = (V34);
239            VMR4(V40)}
240          goto T64;          goto T64;
241  T64:;  T64:;
         V29= (long)(V29)+1;  
         goto T59;}}  
         goto T54;  
 T54:;  
         if(((V27))==Cnil){  
         goto T73;}  
         {object V33 = (V27);  
         VMR4(V33)}  
         goto T73;  
 T73:;  
242          base[0]= get(symbol_value(VV[33]),VV[34],Cnil);          base[0]= get(symbol_value(VV[33]),VV[34],Cnil);
243          {object V34;          {object V41;
244          V34= (V24);          V41= (V25);
245           vs_top=base+1;           vs_top=base+1;
246           while(!endp(V34))           while(!endp(V41))
247           {vs_push(car(V34));V34=cdr(V34);}           {vs_push(car(V41));V41=cdr(V41);}
248          vs_base=base+1;}          vs_base=base+1;}
249          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
250          vs_top=sup;          vs_top=sup;
251          {object V35 = vs_base[0];          {object V42 = vs_base[0];
252          VMR4(V35)}}}          VMR4(V42)}}}
253          va_end(ap);          va_end(ap);
254          base[0]=base[0];          base[0]=base[0];
255          return Cnil;}          return Cnil;}
# Line 263  static void L5() Line 260  static void L5()
260  {register object *base=vs_base;  {register object *base=vs_base;
261          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
262          vs_reserve(VM5);          vs_reserve(VM5);
263          {object V36;          {object V43;
264          vs_top[0]=Cnil;          vs_top[0]=Cnil;
265          {object *p=vs_top;          {object *p=vs_top;
266           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
267          V36=(base[0]);          V43=(base[0]);
268          vs_top=sup;          vs_top=sup;
269          base[1]= symbol_value(VV[33]);          base[1]= symbol_value(VV[33]);
270          {object V37;          {object V44;
271          V37= structure_ref(car((V36)),VV[0],5);          V44= structure_ref(car((V43)),VV[0],5);
272           vs_top=base+2;           vs_top=base+2;
273           while(!endp(V37))           while(!endp(V44))
274           {vs_push(car(V37));V37=cdr(V37);}           {vs_push(car(V44));V44=cdr(V44);}
275          vs_base=base+2;}          vs_base=base+2;}
276          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
277          return;          return;
# Line 288  static void L6() Line 285  static void L6()
285          vs_reserve(VM6);          vs_reserve(VM6);
286          check_arg(2);          check_arg(2);
287          vs_top=sup;          vs_top=sup;
288          {object V38=base[0]->c.c_cdr;          {object V45=base[0]->c.c_cdr;
289          if(endp(V38))invalid_macro_call();          if(endp(V45))invalid_macro_call();
290          base[2]= (V38->c.c_car);          base[2]= (V45->c.c_car);
291          V38=V38->c.c_cdr;          V45=V45->c.c_cdr;
292          if(endp(V38))invalid_macro_call();          if(endp(V45))invalid_macro_call();
293          {object V39= (V38->c.c_car);          {object V46= (V45->c.c_car);
294          if(endp(V39))invalid_macro_call();          if(endp(V46))invalid_macro_call();
295          base[3]= (V39->c.c_car);          base[3]= (V46->c.c_car);
296          V39=V39->c.c_cdr;          V46=V46->c.c_cdr;
297          if(!endp(V39))invalid_macro_call();}          if(!endp(V46))invalid_macro_call();}
298          V38=V38->c.c_cdr;          V45=V45->c.c_cdr;
299          base[4]= V38;}          base[4]= V45;}
300          {object V40;          {object V47;
301          base[6]= Cnil;          base[6]= Cnil;
302          base[7]= VV[35];          base[7]= VV[35];
303          base[8]= base[2];          base[8]= base[2];
# Line 311  static void L6() Line 308  static void L6()
308          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
309          Lintern();          Lintern();
310          vs_top=sup;          vs_top=sup;
311          V40= vs_base[0];          V47= vs_base[0];
312          V41= listA(4,VV[38],(V40),make_cons(base[3],Cnil),base[4]);          V48= listA(4,VV[38],(V47),make_cons(base[3],Cnil),base[4]);
313          base[5]= list(4,VV[36],VV[37],/* INLINE-ARGS */V41,list(4,VV[39],base[2],Cnil,list(4,VV[40],VV[41],VV[42],list(3,VV[40],VV[43],list(2,VV[4],(V40))))));          base[5]= list(4,VV[36],VV[37],/* INLINE-ARGS */V48,list(4,VV[39],base[2],Cnil,list(4,VV[40],VV[41],VV[42],list(3,VV[40],VV[43],list(2,VV[4],(V47))))));
314          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
315          return;}          return;}
316  }  }
317  /*      function definition for WTA-tester      */  /*      local entry for function WTA-tester     */
318    
319  static void L7()  static object LI7(V50)
320  {register object *base=vs_base;  
321          register object *sup=base+VM7; VC7  object V50;
322          vs_reserve(VM7);  {        VMB7 VMS7 VMV7
         {object V42;  
         check_arg(1);  
         V42=(base[0]);  
         vs_top=sup;  
323          goto TTL;          goto TTL;
324  TTL:;  TTL:;
325          V43= structure_ref((V42),VV[0],0);          V51= structure_ref((V50),VV[0],0);
326          base[1]= (eql(/* INLINE-ARGS */V43,VV[44])?Ct:Cnil);          {object V52 = (eql(/* INLINE-ARGS */V51,VV[44])?Ct:Cnil);
327          vs_top=(vs_base=base+1)+1;          VMR7(V52)}
328          return;          return Cnil;
         }  
329  }  }
330  /*      function definition for G1387   */  /*      function definition for G1385   */
331    
332  static void L8()  static void L8()
333  {register object *base=vs_base;  {register object *base=vs_base;
# Line 349  TTL:; Line 341  TTL:;
341          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
342          return;          return;
343  }  }
344  /*      function definition for SUBSCRIPT-OUT-OF-BOUNDS-tester  */  /*      local entry for function SUBSCRIPT-OUT-OF-BOUNDS-tester */
345    
346  static void L9()  static object LI9(V54)
347  {register object *base=vs_base;  
348          register object *sup=base+VM9; VC9  object V54;
349          vs_reserve(VM9);  {        VMB9 VMS9 VMV9
         {object V44;  
         check_arg(1);  
         V44=(base[0]);  
         vs_top=sup;  
350          goto TTL;          goto TTL;
351  TTL:;  TTL:;
352          V45= structure_ref((V44),VV[0],1);          V55= structure_ref((V54),VV[0],1);
353          base[1]= (equal(/* INLINE-ARGS */V45,VV[48])?Ct:Cnil);          {object V56 = (equal(/* INLINE-ARGS */V55,VV[48])?Ct:Cnil);
354          vs_top=(vs_base=base+1)+1;          VMR9(V56)}
355          return;          return Cnil;
         }  
356  }  }
357  /*      function definition for G1388   */  /*      function definition for G1386   */
358    
359  static void L10()  static void L10()
360  {register object *base=vs_base;  {register object *base=vs_base;
# Line 381  TTL:; Line 368  TTL:;
368          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
369          return;          return;
370  }  }
371  /*      function definition for ERROR-tester    */  /*      local entry for function ERROR-tester   */
372    
373  static void L11()  static object LI11(V58)
374  {register object *base=vs_base;  
375          register object *sup=base+VM11; VC11  object V58;
376          vs_reserve(VM11);  {        VMB11 VMS11 VMV11
         {object V46;  
         check_arg(1);  
         V46=(base[0]);  
         vs_top=sup;  
377          goto TTL;          goto TTL;
378  TTL:;  TTL:;
379          V47= structure_ref((V46),VV[0],0);          V59= structure_ref((V58),VV[0],0);
380          base[1]= (eql(/* INLINE-ARGS */V47,VV[50])?Ct:Cnil);          {object V60 = (eql(/* INLINE-ARGS */V59,VV[50])?Ct:Cnil);
381          vs_top=(vs_base=base+1)+1;          VMR11(V60)}
382          return;          return Cnil;
         }  
383  }  }
384  /*      function definition for G1389   */  /*      function definition for G1387   */
385    
386  static void L12()  static void L12()
387  {register object *base=vs_base;  {register object *base=vs_base;
# Line 413  TTL:; Line 395  TTL:;
395          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
396          return;          return;
397  }  }
398  /*      function definition for WRONG-TYPE-ARGUMENT-tester      */  /*      local entry for function WRONG-TYPE-ARGUMENT-tester     */
399    
400  static void L13()  static object LI13(V62)
401  {register object *base=vs_base;  
402          register object *sup=base+VM13; VC13  object V62;
403          vs_reserve(VM13);  {        VMB13 VMS13 VMV13
         {object V48;  
         check_arg(1);  
         V48=(base[0]);  
         vs_top=sup;  
404          goto TTL;          goto TTL;
405  TTL:;  TTL:;
406          V49= structure_ref((V48),VV[0],0);          V63= structure_ref((V62),VV[0],0);
407          base[1]= (eql(/* INLINE-ARGS */V49,VV[52])?Ct:Cnil);          {object V64 = (eql(/* INLINE-ARGS */V63,VV[52])?Ct:Cnil);
408          vs_top=(vs_base=base+1)+1;          VMR13(V64)}
409          return;          return Cnil;
         }  
410  }  }
411  /*      function definition for G1390   */  /*      function definition for G1388   */
412    
413  static void L14()  static void L14()
414  {register object *base=vs_base;  {register object *base=vs_base;
# Line 445  TTL:; Line 422  TTL:;
422          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
423          return;          return;
424  }  }
425  /*      function definition for TOO-FEW-ARGUMENTS-tester        */  /*      local entry for function TOO-FEW-ARGUMENTS-tester       */
426    
427  static void L15()  static object LI15(V66)
428  {register object *base=vs_base;  
429          register object *sup=base+VM15; VC15  object V66;
430          vs_reserve(VM15);  {        VMB15 VMS15 VMV15
         {object V50;  
         check_arg(1);  
         V50=(base[0]);  
         vs_top=sup;  
431          goto TTL;          goto TTL;
432  TTL:;  TTL:;
433          V51= structure_ref((V50),VV[0],0);          V67= structure_ref((V66),VV[0],0);
434          base[1]= (eql(/* INLINE-ARGS */V51,VV[54])?Ct:Cnil);          {object V68 = (eql(/* INLINE-ARGS */V67,VV[54])?Ct:Cnil);
435          vs_top=(vs_base=base+1)+1;          VMR15(V68)}
436          return;          return Cnil;
         }  
437  }  }
438  /*      function definition for G1391   */  /*      function definition for G1389   */
439    
440  static void L16()  static void L16()
441  {register object *base=vs_base;  {register object *base=vs_base;
# Line 477  TTL:; Line 449  TTL:;
449          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
450          return;          return;
451  }  }
452  /*      function definition for TOO-MANY-ARGUMENTS-tester       */  /*      local entry for function TOO-MANY-ARGUMENTS-tester      */
453    
454  static void L17()  static object LI17(V70)
455  {register object *base=vs_base;  
456          register object *sup=base+VM17; VC17  object V70;
457          vs_reserve(VM17);  {        VMB17 VMS17 VMV17
         {object V52;  
         check_arg(1);  
         V52=(base[0]);  
         vs_top=sup;  
458          goto TTL;          goto TTL;
459  TTL:;  TTL:;
460          V53= structure_ref((V52),VV[0],0);          V71= structure_ref((V70),VV[0],0);
461          base[1]= (eql(/* INLINE-ARGS */V53,VV[56])?Ct:Cnil);          {object V72 = (eql(/* INLINE-ARGS */V71,VV[56])?Ct:Cnil);
462          vs_top=(vs_base=base+1)+1;          VMR17(V72)}
463          return;          return Cnil;
         }  
464  }  }
465  /*      function definition for G1392   */  /*      function definition for G1390   */
466    
467  static void L18()  static void L18()
468  {register object *base=vs_base;  {register object *base=vs_base;
# Line 509  TTL:; Line 476  TTL:;
476          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
477          return;          return;
478  }  }
479  /*      function definition for UNEXPECTED-KEYWORD-tester       */  /*      local entry for function UNEXPECTED-KEYWORD-tester      */
480    
481  static void L19()  static object LI19(V74)
482  {register object *base=vs_base;  
483          register object *sup=base+VM19; VC19  object V74;
484          vs_reserve(VM19);  {        VMB19 VMS19 VMV19
         {object V54;  
         check_arg(1);  
         V54=(base[0]);  
         vs_top=sup;  
485          goto TTL;          goto TTL;
486  TTL:;  TTL:;
487          V55= structure_ref((V54),VV[0],0);          V75= structure_ref((V74),VV[0],0);
488          base[1]= (eql(/* INLINE-ARGS */V55,VV[58])?Ct:Cnil);          {object V76 = (eql(/* INLINE-ARGS */V75,VV[58])?Ct:Cnil);
489          vs_top=(vs_base=base+1)+1;          VMR19(V76)}
490          return;          return Cnil;
         }  
491  }  }
492  /*      function definition for G1393   */  /*      function definition for G1391   */
493    
494  static void L20()  static void L20()
495  {register object *base=vs_base;  {register object *base=vs_base;
# Line 541  TTL:; Line 503  TTL:;
503          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
504          return;          return;
505  }  }
506  /*      function definition for INVALID-FORM-tester     */  /*      local entry for function INVALID-FORM-tester    */
507    
508  static void L21()  static object LI21(V78)
509  {register object *base=vs_base;  
510          register object *sup=base+VM21; VC21  object V78;
511          vs_reserve(VM21);  {        VMB21 VMS21 VMV21
         {object V56;  
         check_arg(1);  
         V56=(base[0]);  
         vs_top=sup;  
512          goto TTL;          goto TTL;
513  TTL:;  TTL:;
514          V57= structure_ref((V56),VV[0],0);          V79= structure_ref((V78),VV[0],0);
515          base[1]= (eql(/* INLINE-ARGS */V57,VV[60])?Ct:Cnil);          {object V80 = (eql(/* INLINE-ARGS */V79,VV[60])?Ct:Cnil);
516          vs_top=(vs_base=base+1)+1;          VMR21(V80)}
517          return;          return Cnil;
         }  
518  }  }
519  /*      function definition for G1394   */  /*      function definition for G1392   */
520    
521  static void L22()  static void L22()
522  {register object *base=vs_base;  {register object *base=vs_base;
# Line 573  TTL:; Line 530  TTL:;
530          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
531          return;          return;
532  }  }
533  /*      function definition for UNBOUND-VARIABLE-tester */  /*      local entry for function UNBOUND-VARIABLE-tester        */
534    
535  static void L23()  static object LI23(V82)
536  {register object *base=vs_base;  
537          register object *sup=base+VM23; VC23  object V82;
538          vs_reserve(VM23);  {        VMB23 VMS23 VMV23
         {object V58;  
         check_arg(1);  
         V58=(base[0]);  
         vs_top=sup;  
539          goto TTL;          goto TTL;
540  TTL:;  TTL:;
541          V59= structure_ref((V58),VV[0],0);          V83= structure_ref((V82),VV[0],0);
542          base[1]= (eql(/* INLINE-ARGS */V59,VV[62])?Ct:Cnil);          {object V84 = (eql(/* INLINE-ARGS */V83,VV[62])?Ct:Cnil);
543          vs_top=(vs_base=base+1)+1;          VMR23(V84)}
544          return;          return Cnil;
         }  
545  }  }
546  /*      function definition for G1395   */  /*      function definition for G1393   */
547    
548  static void L24()  static void L24()
549  {register object *base=vs_base;  {register object *base=vs_base;
# Line 605  TTL:; Line 557  TTL:;
557          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
558          return;          return;
559  }  }
560  /*      function definition for INVALID-VARIABLE-tester */  /*      local entry for function INVALID-VARIABLE-tester        */
561    
562  static void L25()  static object LI25(V86)
563  {register object *base=vs_base;  
564          register object *sup=base+VM25; VC25  object V86;
565          vs_reserve(VM25);  {        VMB25 VMS25 VMV25
         {object V60;  
         check_arg(1);  
         V60=(base[0]);  
         vs_top=sup;  
566          goto TTL;          goto TTL;
567  TTL:;  TTL:;
568          V61= structure_ref((V60),VV[0],0);          V87= structure_ref((V86),VV[0],0);
569          base[1]= (eql(/* INLINE-ARGS */V61,VV[64])?Ct:Cnil);          {object V88 = (eql(/* INLINE-ARGS */V87,VV[64])?Ct:Cnil);
570          vs_top=(vs_base=base+1)+1;          VMR25(V88)}
571          return;          return Cnil;
         }  
572  }  }
573  /*      function definition for G1396   */  /*      function definition for G1394   */
574    
575  static void L26()  static void L26()
576  {register object *base=vs_base;  {register object *base=vs_base;
# Line 637  TTL:; Line 584  TTL:;
584          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
585          return;          return;
586  }  }
587  /*      function definition for UNDEFINED-FUNCTION-tester       */  /*      local entry for function UNDEFINED-FUNCTION-tester      */
588    
589  static void L27()  static object LI27(V90)
590  {register object *base=vs_base;  
591          register object *sup=base+VM27; VC27  object V90;
592          vs_reserve(VM27);  {        VMB27 VMS27 VMV27
         {object V62;  
         check_arg(1);  
         V62=(base[0]);  
         vs_top=sup;  
593          goto TTL;          goto TTL;
594  TTL:;  TTL:;
595          V63= structure_ref((V62),VV[0],0);          V91= structure_ref((V90),VV[0],0);
596          base[1]= (eql(/* INLINE-ARGS */V63,VV[66])?Ct:Cnil);          {object V92 = (eql(/* INLINE-ARGS */V91,VV[66])?Ct:Cnil);
597          vs_top=(vs_base=base+1)+1;          VMR27(V92)}
598          return;          return Cnil;
         }  
599  }  }
600  /*      function definition for G1397   */  /*      function definition for G1395   */
601    
602  static void L28()  static void L28()
603  {register object *base=vs_base;  {register object *base=vs_base;
# Line 669  TTL:; Line 611  TTL:;
611          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
612          return;          return;
613  }  }
614  /*      function definition for INVALID-FUNCTION-tester */  /*      local entry for function INVALID-FUNCTION-tester        */
615    
616  static void L29()  static object LI29(V94)
617  {register object *base=vs_base;  
618          register object *sup=base+VM29; VC29  object V94;
619          vs_reserve(VM29);  {        VMB29 VMS29 VMV29
         {object V64;  
         check_arg(1);  
         V64=(base[0]);  
         vs_top=sup;  
620          goto TTL;          goto TTL;
621  TTL:;  TTL:;
622          V65= structure_ref((V64),VV[0],0);          V95= structure_ref((V94),VV[0],0);
623          base[1]= (eql(/* INLINE-ARGS */V65,VV[68])?Ct:Cnil);          {object V96 = (eql(/* INLINE-ARGS */V95,VV[68])?Ct:Cnil);
624          vs_top=(vs_base=base+1)+1;          VMR29(V96)}
625          return;          return Cnil;
         }  
626  }  }
627  /*      function definition for G1398   */  /*      function definition for G1396   */
628    
629  static void L30()  static void L30()
630  {register object *base=vs_base;  {register object *base=vs_base;
# Line 709  static void L31() Line 646  static void L31()
646          vs_reserve(VM31);          vs_reserve(VM31);
647          check_arg(2);          check_arg(2);
648          vs_top=sup;          vs_top=sup;
649          {object V66=base[0]->c.c_cdr;          {object V97=base[0]->c.c_cdr;
650          if(endp(V66))invalid_macro_call();          if(endp(V97))invalid_macro_call();
651          base[2]= (V66->c.c_car);          base[2]= (V97->c.c_car);
652          V66=V66->c.c_cdr;          V97=V97->c.c_cdr;
653          if(endp(V66))invalid_macro_call();          if(endp(V97))invalid_macro_call();
654          base[3]= (V66->c.c_car);          base[3]= (V97->c.c_car);
655          V66=V66->c.c_cdr;          V97=V97->c.c_cdr;
656          base[4]= V66;}          base[4]= V97;}
657          {register object V67;          {register object V98;
658          V67= car(base[2]);          V98= car(base[2]);
659          V68= make_cons((V67),Cnil);          V99= make_cons((V98),Cnil);
660          {register object V70;          {register object V101;
661          register object V71;          register object V102;
662          V70= Cnil;          V101= Cnil;
663          V71= base[4];          V102= base[4];
664          {register object V72;          {register object V103;
665          register object V73;          register object V104;
666          register object V74;          register object V105;
667          register object V75;          register object V106;
668          V72= Cnil;          V103= Cnil;
669          V73= Cnil;          V104= Cnil;
670          V74= Cnil;          V105= Cnil;
671          V75= Cnil;          V106= Cnil;
672          goto T87;          goto T78;
673  T87:;  T78:;
674          if(((V71))==Cnil){          if(((V102))==Cnil){
675          goto T90;}          goto T81;}
676          goto T89;          goto T80;
677          goto T90;          goto T81;
678  T90:;  T81:;
679          goto T88;          goto T79;
680          goto T89;          goto T80;
681  T89:;  T80:;
682          {register object V76;          {register object V107;
683          V76= car((V71));          V107= car((V102));
684          V70= (V76);}          V101= (V107);}
685          {object V77= car((V70));          {object V108= car((V101));
686          if(!(type_of(V77)==t_cons||(V77)==Cnil)){          if(!(type_of(V108)==t_cons||(V108)==Cnil)){
687          goto T97;}}          goto T88;}}
688          V78= list(3,VV[71],(V67),list(2,VV[4],make_cons(VV[13],car((V70)))));          V109= list(3,VV[71],(V98),list(2,VV[4],make_cons(VV[13],car((V101)))));
689          V74= make_cons(/* INLINE-ARGS */V78,cdr((V70)));          V105= make_cons(/* INLINE-ARGS */V109,cdr((V101)));
690          if(((V73))==Cnil){          if(((V104))==Cnil){
691          goto T102;}          goto T93;}
692          {register object V79;          {register object V110;
693          register object V80;          register object V111;
694          V79= (V73);          V110= (V104);
695          V73= make_cons((V74),Cnil);          V104= make_cons((V105),Cnil);
696          V80= (V73);          V111= (V104);
697          if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79));          if(type_of((V110))!=t_cons)FEwrong_type_argument(Scons,(V110));
698          ((V79))->c.c_cdr = (V80);          ((V110))->c.c_cdr = (V111);
699          goto T95;}          goto T86;}
700          goto T102;          goto T93;
701  T102:;  T93:;
702          V73= make_cons((V74),Cnil);          V104= make_cons((V105),Cnil);
703          V72= (V73);          V103= (V104);
704          goto T95;          goto T86;
         goto T97;  
 T97:;  
         V81= list(3,VV[71],(V67),list(2,VV[4],car((V70))));  
         V75= make_cons(/* INLINE-ARGS */V81,cdr((V70)));  
         if(((V73))==Cnil){  
         goto T113;}  
         {register object V82;  
         register object V83;  
         V82= (V73);  
         V73= make_cons((V75),Cnil);  
         V83= (V73);  
         if(type_of((V82))!=t_cons)FEwrong_type_argument(Scons,(V82));  
         ((V82))->c.c_cdr = (V83);  
         goto T95;}  
         goto T113;  
 T113:;  
         V73= make_cons((V75),Cnil);  
         V72= (V73);  
         goto T95;  
 T95:;  
         V71= cdr((V71));  
         goto T87;  
705          goto T88;          goto T88;
706  T88:;  T88:;
707          V69= (V72);          V112= list(3,VV[71],(V98),list(2,VV[4],car((V101))));
708          goto T85;          V106= make_cons(/* INLINE-ARGS */V112,cdr((V101)));
709          V69= Cnil;          if(((V104))==Cnil){
710          goto T85;          goto T104;}
711          V69= Cnil;          {register object V113;
712          goto T85;}}          register object V114;
713          goto T85;          V113= (V104);
714  T85:;          V104= make_cons((V106),Cnil);
715          base[5]= listA(4,VV[70],/* INLINE-ARGS */V68,base[3],V69);          V114= (V104);
716            if(type_of((V113))!=t_cons)FEwrong_type_argument(Scons,(V113));
717            ((V113))->c.c_cdr = (V114);
718            goto T86;}
719            goto T104;
720    T104:;
721            V104= make_cons((V106),Cnil);
722            V103= (V104);
723            goto T86;
724    T86:;
725            V102= cdr((V102));
726            goto T78;
727            goto T79;
728    T79:;
729            V100= (V103);
730            goto T76;
731            V100= Cnil;
732            goto T76;
733            V100= Cnil;
734            goto T76;}}
735            goto T76;
736    T76:;
737            base[5]= listA(4,VV[70],/* INLINE-ARGS */V99,base[3],V100);
738          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
739          return;}          return;}
740  }  }
741  static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* MAKE-ERROR-CONDITION */  static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* FIFTH */
742  static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* FIFTH */  static object  LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[75],(void **)(void *)&LnkLI75,first,ap);va_end(ap);return V1;} /* MAKE-ERROR-CONDITION */
743  static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* BREAK-VS */  static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* BREAK-VS */
744  static void LnkT73(){ call_or_link(VV[73],(void **)(void *)&Lnk73);} /* BACKTRACE */  static void LnkT73(){ call_or_link(VV[73],(void **)(void *)&Lnk73);} /* BACKTRACE */
745  static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* SIMPLE-BACKTRACE */  static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* SIMPLE-BACKTRACE */

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