/[gcl]/gcl/cmpnew/cmptype.c
ViewVC logotype

Diff of /gcl/cmpnew/cmptype.c

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

revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC
# Line 154  T22:; Line 154  T22:;
154          goto T34;}          goto T34;}
155          if(!(type_of(caddr((V23)))==t_cons)){          if(!(type_of(caddr((V23)))==t_cons)){
156          goto T35;}          goto T35;}
157          if(!((length(caddr((V23))))==(1))){          if(!(((long)length(caddr((V23))))==(1))){
158          goto T35;}          goto T35;}
159  goto T34;  goto T34;
160  T34:;  T34:;
# Line 855  T283:; Line 855  T283:;
855          return Cnil;          return Cnil;
856  }  }
857  static object  LnkTLI70(){return call_proc0(VV[70],(void **)&LnkLI70);} /* C1NIL */  static object  LnkTLI70(){return call_proc0(VV[70],(void **)&LnkLI70);} /* C1NIL */
858  static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[69],(void **)&LnkLI69,ap);} /* CMPWARN */  static object  LnkTLI69(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[69],(void **)&LnkLI69,ap);va_end(ap);return V1;} /* CMPWARN */
859  static void LnkT68(){ call_or_link(VV[68],(void **)&Lnk68);} /* COPY-INFO */  static void LnkT68(){ call_or_link(VV[68],(void **)&Lnk68);} /* COPY-INFO */
860  static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],(void **)&LnkLI67,2,ap);} /* TYPE-AND */  static object  LnkTLI67(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[67],(void **)&LnkLI67,2,ap);va_end(ap);return V1;} /* TYPE-AND */
861  static object  LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],(void **)&LnkLI36,1,ap);} /* TYPE-FILTER */  static object  LnkTLI36(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[36],(void **)&LnkLI36,1,ap);va_end(ap);return V1;} /* TYPE-FILTER */
862  static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* SUBTYPEP */  static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* SUBTYPEP */
863  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,2,ap);} /* SUB-INTERVAL-P */  static object  LnkTLI59(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[59],(void **)&LnkLI59,2,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */
864  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */  static object  LnkTLI58(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[58],(void **)&LnkLI58,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
865  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,1,ap);} /* NORMALIZE-TYPE */  static object  LnkTLI56(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[56],(void **)&LnkLI56,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
866    
867  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
868  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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