/[gcl]/gcl/pcl/pcl_defs.c
ViewVC logotype

Diff of /gcl/pcl/pcl_defs.c

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

revision 1.1 by camm, Wed Feb 26 22:21:39 2003 UTC revision 1.2 by camm, Tue Jul 15 18:03:38 2003 UTC
# Line 1484  static object LI37(object first,...) Line 1484  static object LI37(object first,...)
1484          va_start(ap,first);          va_start(ap,first);
1485          narg= narg - 0;          narg= narg - 0;
1486          {          {
1487          parse_key_new_new(narg,Vcs +0,(struct key *)&LI37key,first,ap);          parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI37key,first,ap);
1488          goto TTL;          goto TTL;
1489  TTL:;  TTL:;
1490          base[0]= VV[51];          base[0]= VV[51];
# Line 3185  register object *base0; Line 3185  register object *base0;
3185          return;          return;
3186          }          }
3187  }  }
3188  static void LnkT109(ptr) object *ptr;{ call_or_link_closure(VV[109],(void **)&Lnk109,(void **)&Lclptr109);} /* CLASS-PRECEDENCE-LIST */  static void LnkT109(ptr) object *ptr;{ call_or_link_closure(VV[109],(void **)(void *)&Lnk109,(void **)(void *)&Lclptr109);} /* CLASS-PRECEDENCE-LIST */
3189  static void LnkT403(){ call_or_link(VV[403],(void **)&Lnk403);} /* LOAD-TRUENAME */  static void LnkT403(){ call_or_link(VV[403],(void **)(void *)&Lnk403);} /* LOAD-TRUENAME */
3190  static object  LnkTLI402(){return call_proc0(VV[402],(void **)&LnkLI402);} /* MAKE-ARG-INFO */  static object  LnkTLI402(){return call_proc0(VV[402],(void **)(void *)&LnkLI402);} /* MAKE-ARG-INFO */
3191  static void LnkT390(ptr) object *ptr;{ call_or_link_closure(VV[390],(void **)&Lnk390,(void **)&Lclptr390);} /* SETF PCL OBJECT-PLIST */  static void LnkT390(ptr) object *ptr;{ call_or_link_closure(VV[390],(void **)(void *)&Lnk390,(void **)(void *)&Lclptr390);} /* SETF PCL OBJECT-PLIST */
3192  static void LnkT389(ptr) object *ptr;{ call_or_link_closure(VV[389],(void **)&Lnk389,(void **)&Lclptr389);} /* OBJECT-PLIST */  static void LnkT389(ptr) object *ptr;{ call_or_link_closure(VV[389],(void **)(void *)&Lnk389,(void **)(void *)&Lclptr389);} /* OBJECT-PLIST */
3193  static object  LnkTLI388(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[388],(void **)&LnkLI388,3,first,ap);va_end(ap);return V1;} /* VARIABLE-DECLARATION */  static object  LnkTLI388(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[388],(void **)(void *)&LnkLI388,3,first,ap);va_end(ap);return V1;} /* VARIABLE-DECLARATION */
3194  static void LnkT387(){ call_or_link(VV[387],(void **)&Lnk387);} /* SUBTYPEP */  static void LnkT387(){ call_or_link(VV[387],(void **)(void *)&Lnk387);} /* SUBTYPEP */
3195  static void LnkT386(){ call_or_link(VV[386],(void **)&Lnk386);} /* SPECIALIZER-APPLICABLE-USING-TYPE-P */  static void LnkT386(){ call_or_link(VV[386],(void **)(void *)&Lnk386);} /* SPECIALIZER-APPLICABLE-USING-TYPE-P */
3196  static void LnkT384(ptr) object *ptr;{ call_or_link_closure(VV[384],(void **)&Lnk384,(void **)&Lclptr384);} /* CLASS-NAME */  static void LnkT384(ptr) object *ptr;{ call_or_link_closure(VV[384],(void **)(void *)&Lnk384,(void **)(void *)&Lclptr384);} /* CLASS-NAME */
3197  static void LnkT383(){ call_or_link(VV[383],(void **)&Lnk383);} /* CONVERT-TO-SYSTEM-TYPE */  static void LnkT383(){ call_or_link(VV[383],(void **)(void *)&Lnk383);} /* CONVERT-TO-SYSTEM-TYPE */
3198  static void LnkT380(){ call_or_link(VV[380],(void **)&Lnk380);} /* *NORMALIZE-TYPE */  static void LnkT380(){ call_or_link(VV[380],(void **)(void *)&Lnk380);} /* *NORMALIZE-TYPE */
3199  static object  LnkTLI379(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[379],(void **)&LnkLI379,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */  static object  LnkTLI379(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[379],(void **)(void *)&LnkLI379,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */
3200  static object  LnkTLI378(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[378],(void **)&LnkLI378,2,first,ap);va_end(ap);return V1;} /* DO-SATISFIES-DEFTYPE */  static object  LnkTLI378(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[378],(void **)(void *)&LnkLI378,2,first,ap);va_end(ap);return V1;} /* DO-SATISFIES-DEFTYPE */
3201  static object  LnkTLI377(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[377],(void **)&LnkLI377,1,first,ap);va_end(ap);return V1;} /* MAKE-TYPE-PREDICATE */  static object  LnkTLI377(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[377],(void **)(void *)&LnkLI377,1,first,ap);va_end(ap);return V1;} /* MAKE-TYPE-PREDICATE */
3202  static object  LnkTLI376(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[376],(void **)&LnkLI376,2,first,ap);va_end(ap);return V1;} /* SETF PCL GDEFINITION */  static object  LnkTLI376(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[376],(void **)(void *)&LnkLI376,2,first,ap);va_end(ap);return V1;} /* SETF PCL GDEFINITION */
3203  static object  LnkTLI375(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[375],(void **)&LnkLI375,first,ap);va_end(ap);return V1;} /* MAKE-TYPE-PREDICATE-NAME */  static object  LnkTLI375(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[375],(void **)(void *)&LnkLI375,first,ap);va_end(ap);return V1;} /* MAKE-TYPE-PREDICATE-NAME */
3204  static object  LnkTLI374(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[374],(void **)&LnkLI374,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */  static object  LnkTLI374(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[374],(void **)(void *)&LnkLI374,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */
3205  static void LnkT373(){ call_or_link(VV[373],(void **)&Lnk373);} /* TYPE-FROM-SPECIALIZER */  static void LnkT373(){ call_or_link(VV[373],(void **)(void *)&Lnk373);} /* TYPE-FROM-SPECIALIZER */
3206  static void LnkT372(ptr) object *ptr;{ call_or_link_closure(VV[372],(void **)&Lnk372,(void **)&Lclptr372);} /* SPECIALIZER-TYPE */  static void LnkT372(ptr) object *ptr;{ call_or_link_closure(VV[372],(void **)(void *)&Lnk372,(void **)(void *)&Lclptr372);} /* SPECIALIZER-TYPE */
3207  static void LnkT371(ptr) object *ptr;{ call_or_link_closure(VV[371],(void **)&Lnk371,(void **)&Lclptr371);} /* SPECIALIZERP */  static void LnkT371(ptr) object *ptr;{ call_or_link_closure(VV[371],(void **)(void *)&Lnk371,(void **)(void *)&Lclptr371);} /* SPECIALIZERP */
3208  static object  LnkTLI370(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[370],(void **)&LnkLI370,1,first,ap);va_end(ap);return V1;} /* INTERN-EQL-SPECIALIZER */  static object  LnkTLI370(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[370],(void **)(void *)&LnkLI370,1,first,ap);va_end(ap);return V1;} /* INTERN-EQL-SPECIALIZER */
3209  static void LnkT92(ptr) object *ptr;{ call_or_link_closure(VV[92],(void **)&Lnk92,(void **)&Lclptr92);} /* CLASS-EQ-SPECIALIZER */  static void LnkT92(ptr) object *ptr;{ call_or_link_closure(VV[92],(void **)(void *)&Lnk92,(void **)(void *)&Lclptr92);} /* CLASS-EQ-SPECIALIZER */
3210  static void LnkT367(ptr) object *ptr;{ call_or_link_closure(VV[367],(void **)&Lnk367,(void **)&Lclptr367);} /* MAKE-INSTANCE */  static void LnkT367(ptr) object *ptr;{ call_or_link_closure(VV[367],(void **)(void *)&Lnk367,(void **)(void *)&Lclptr367);} /* MAKE-INSTANCE */
3211  static void LnkT366(){ call_or_link(VV[366],(void **)&Lnk366);} /* COERCE-TO-CLASS */  static void LnkT366(){ call_or_link(VV[366],(void **)(void *)&Lnk366);} /* COERCE-TO-CLASS */
3212  static void LnkT365(){ call_or_link(VV[365],(void **)&Lnk365);} /* ENSURE-CLASS */  static void LnkT365(){ call_or_link(VV[365],(void **)(void *)&Lnk365);} /* ENSURE-CLASS */
3213  static object  LnkTLI364(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[364],(void **)&LnkLI364,first,ap);va_end(ap);return V1;} /* FIND-CLASS */  static object  LnkTLI364(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[364],(void **)(void *)&LnkLI364,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
3214  static object  LnkTLI363(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[363],(void **)&LnkLI363,2,first,ap);va_end(ap);return V1;} /* FDEFINE-CAREFULLY */  static object  LnkTLI363(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[363],(void **)(void *)&LnkLI363,2,first,ap);va_end(ap);return V1;} /* FDEFINE-CAREFULLY */
3215  static object  LnkTLI362(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[362],(void **)&LnkLI362,1,first,ap);va_end(ap);return V1;} /* UNENCAPSULATED-FDEFINITION */  static object  LnkTLI362(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[362],(void **)(void *)&LnkLI362,1,first,ap);va_end(ap);return V1;} /* UNENCAPSULATED-FDEFINITION */
3216  static object  LnkTLI361(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[361],(void **)&LnkLI361,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */  static object  LnkTLI361(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[361],(void **)(void *)&LnkLI361,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */
3217    
3218  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3219  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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