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

Diff of /gcl/lsp/predlib.c

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

revision 1.21 by pfdietz, Mon Mar 17 02:02:39 2003 UTC revision 1.22 by camm, Tue Jul 15 18:03:37 2003 UTC
# Line 102  T1:; Line 102  T1:;
102          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
103          return;          return;
104  }  }
105  /*      function definition for G1794   */  /*      function definition for G1380   */
106    
107  static void L2()  static void L2()
108  {register object *base=vs_base;  {register object *base=vs_base;
# Line 116  TTL:; Line 116  TTL:;
116          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
117          return;          return;
118  }  }
119  /*      function definition for G1795   */  /*      function definition for G1381   */
120    
121  static void L3()  static void L3()
122  {register object *base=vs_base;  {register object *base=vs_base;
# Line 130  TTL:; Line 130  TTL:;
130          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
131          return;          return;
132  }  }
133  /*      function definition for G1796   */  /*      function definition for G1382   */
134    
135  static void L4()  static void L4()
136  {register object *base=vs_base;  {register object *base=vs_base;
# Line 147  TTL:; Line 147  TTL:;
147          return;          return;
148          }          }
149  }  }
150  /*      function definition for G1797   */  /*      function definition for G1383   */
151    
152  static void L5()  static void L5()
153  {register object *base=vs_base;  {register object *base=vs_base;
# Line 181  T49:; Line 181  T49:;
181          return;          return;
182          }          }
183  }  }
184  /*      function definition for G1798   */  /*      function definition for G1384   */
185    
186  static void L6()  static void L6()
187  {register object *base=vs_base;  {register object *base=vs_base;
# Line 211  T55:; Line 211  T55:;
211          return;          return;
212          }          }
213  }  }
214  /*      function definition for G1799   */  /*      function definition for G1385   */
215    
216  static void L7()  static void L7()
217  {register object *base=vs_base;  {register object *base=vs_base;
# Line 225  TTL:; Line 225  TTL:;
225          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
226          return;          return;
227  }  }
228  /*      function definition for G1800   */  /*      function definition for G1386   */
229    
230  static void L8()  static void L8()
231  {register object *base=vs_base;  {register object *base=vs_base;
# Line 239  TTL:; Line 239  TTL:;
239          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
240          return;          return;
241  }  }
242  /*      function definition for G1801   */  /*      function definition for G1387   */
243    
244  static void L9()  static void L9()
245  {register object *base=vs_base;  {register object *base=vs_base;
# Line 253  TTL:; Line 253  TTL:;
253          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
254          return;          return;
255  }  }
256  /*      function definition for G1802   */  /*      function definition for G1388   */
257    
258  static void L10()  static void L10()
259  {register object *base=vs_base;  {register object *base=vs_base;
# Line 267  TTL:; Line 267  TTL:;
267          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
268          return;          return;
269  }  }
270  /*      function definition for G1803   */  /*      function definition for G1389   */
271    
272  static void L11()  static void L11()
273  {register object *base=vs_base;  {register object *base=vs_base;
# Line 296  T59:; Line 296  T59:;
296          return;          return;
297          }          }
298  }  }
299  /*      function definition for G1804   */  /*      function definition for G1390   */
300    
301  static void L12()  static void L12()
302  {register object *base=vs_base;  {register object *base=vs_base;
# Line 318  T63:; Line 318  T63:;
318          return;          return;
319          }          }
320  }  }
321  /*      function definition for G1805   */  /*      function definition for G1391   */
322    
323  static void L13()  static void L13()
324  {register object *base=vs_base;  {register object *base=vs_base;
# Line 340  T66:; Line 340  T66:;
340          return;          return;
341          }          }
342  }  }
343  /*      function definition for G1806   */  /*      function definition for G1392   */
344    
345  static void L14()  static void L14()
346  {register object *base=vs_base;  {register object *base=vs_base;
# Line 362  T69:; Line 362  T69:;
362          return;          return;
363          }          }
364  }  }
365  /*      function definition for G1807   */  /*      function definition for G1393   */
366    
367  static void L15()  static void L15()
368  {register object *base=vs_base;  {register object *base=vs_base;
# Line 384  T72:; Line 384  T72:;
384          return;          return;
385          }          }
386  }  }
387  /*      function definition for G1808   */  /*      function definition for G1394   */
388    
389  static void L16()  static void L16()
390  {register object *base=vs_base;  {register object *base=vs_base;
# Line 406  T75:; Line 406  T75:;
406          return;          return;
407          }          }
408  }  }
409  /*      function definition for G1809   */  /*      function definition for G1395   */
410    
411  static void L17()  static void L17()
412  {register object *base=vs_base;  {register object *base=vs_base;
# Line 428  T78:; Line 428  T78:;
428          return;          return;
429          }          }
430  }  }
431  /*      function definition for G1810   */  /*      function definition for G1396   */
432    
433  static void L18()  static void L18()
434  {register object *base=vs_base;  {register object *base=vs_base;
# Line 640  T117:; Line 640  T117:;
640          goto T121;}          goto T121;}
641          base[3]= (V44);          base[3]= (V44);
642          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
643          {object _funobj = (V52);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          super_funcall_no_event((V52));
                    (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);  
                else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();  
                else super_funcall_no_event(_funobj);}  
644          return;}          return;}
645          goto T121;          goto T121;
646  T121:;  T121:;
# Line 733  T146:; Line 730  T146:;
730          base[3]= car((V48));          base[3]= car((V48));
731          base[4]= (V44);          base[4]= (V44);
732          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
733          {object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          super_funcall_no_event(base[3]);
                    (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);  
                else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();  
                else super_funcall_no_event(_funobj);}  
734          return;          return;
735          goto T161;          goto T161;
736  T161:;  T161:;
# Line 1372  T329:; Line 1366  T329:;
1366           while(!endp(V85))           while(!endp(V85))
1367           {vs_push(car(V85));V85=cdr(V85);}           {vs_push(car(V85));V85=cdr(V85);}
1368          vs_base=base+6;}          vs_base=base+6;}
1369          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          super_funcall_no_event(base[5]);
                    (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);  
                else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();  
                else super_funcall_no_event(_funobj);}  
1370          vs_top=sup;          vs_top=sup;
1371          base[4]= vs_base[0];          base[4]= vs_base[0];
1372          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 1422  T347:; Line 1413  T347:;
1413           while(!endp(V90))           while(!endp(V90))
1414           {vs_push(car(V90));V90=cdr(V90);}           {vs_push(car(V90));V90=cdr(V90);}
1415          vs_base=base+1;}          vs_base=base+1;}
1416          {object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          super_funcall_no_event(base[0]);
                    (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);  
                else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();  
                else super_funcall_no_event(_funobj);}  
1417          vs_top=sup;          vs_top=sup;
1418          V87= vs_base[0];          V87= vs_base[0];
1419          goto T346;          goto T346;
# Line 3628  T1485:; Line 3616  T1485:;
3616          return;          return;
3617          }          }
3618  }  }
3619  static object  LnkTLI152(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[152],(void **)&LnkLI152,2,first,ap);va_end(ap);return V1;} /* COERCE */  static object  LnkTLI152(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[152],(void **)(void *)&LnkLI152,2,first,ap);va_end(ap);return V1;} /* COERCE */
3620  static object  LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[151],(void **)&LnkLI151,first,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */  static object  LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[151],(void **)(void *)&LnkLI151,first,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */
3621  static void LnkT150(){ call_or_link(VV[150],(void **)&Lnk150);} /* SPECIFIC-ERROR */  static void LnkT150(){ call_or_link(VV[150],(void **)(void *)&Lnk150);} /* SPECIFIC-ERROR */
3622  static object  LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[148],(void **)&LnkLI148,2,first,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */  static object  LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[148],(void **)(void *)&LnkLI148,2,first,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */
3623  static object  LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[147],(void **)&LnkLI147,1,first,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */  static object  LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[147],(void **)(void *)&LnkLI147,1,first,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */
3624  static void LnkT146(){ call_or_link(VV[146],(void **)&Lnk146);} /* SUBTYPEP */  static void LnkT146(){ call_or_link(VV[146],(void **)(void *)&Lnk146);} /* SUBTYPEP */
3625  static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */  static object  LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
3626  static void LnkT144(){ call_or_link(VV[144],(void **)&Lnk144);} /* FIND-CLASS */  static void LnkT144(){ call_or_link(VV[144],(void **)(void *)&Lnk144);} /* FIND-CLASS */
3627  static void LnkT143(){ call_or_link(VV[143],(void **)&Lnk143);} /* STRUCTURE-SUBTYPE-P */  static void LnkT143(){ call_or_link(VV[143],(void **)(void *)&Lnk143);} /* STRUCTURE-SUBTYPE-P */
3628  static object  LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)&LnkLI142,1,first,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */  static object  LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,1,first,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */
3629  static object  LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)&LnkLI141,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */  static object  LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)(void *)&LnkLI141,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
3630  static object  LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)&LnkLI135,1,first,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */  static object  LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,1,first,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */
3631  static object  LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */  static object  LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)(void *)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */
3632  static void LnkT129(){ call_or_link(VV[129],(void **)&Lnk129);} /* REALP */  static void LnkT129(){ call_or_link(VV[129],(void **)(void *)&Lnk129);} /* REALP */
3633  static void LnkT128(){ call_or_link(VV[128],(void **)&Lnk128);} /* RATIONALP */  static void LnkT128(){ call_or_link(VV[128],(void **)(void *)&Lnk128);} /* RATIONALP */
3634  static object  LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)&LnkLI127,2,first,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */  static object  LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,2,first,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */
3635  static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* TYPEP */  static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* TYPEP */
3636  static void LnkT124(){ call_or_link(VV[124],(void **)&Lnk124);} /* CLASS-PRECEDENCE-LIST */  static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* CLASS-PRECEDENCE-LIST */
3637  static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* CLASS-OF */  static void LnkT123(){ call_or_link(VV[123],(void **)(void *)&Lnk123);} /* CLASS-OF */
3638  static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* CLASSP */  static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* CLASSP */
3639  static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* ARRAY-HAS-FILL-POINTER-P */  static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* ARRAY-HAS-FILL-POINTER-P */
3640  static object  LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[120],(void **)&LnkLI120,1,first,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */  static object  LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[120],(void **)(void *)&LnkLI120,1,first,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */
3641    
3642  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3643  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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