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

Diff of /gcl/cmpnew/cmpflet.c

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

revision 1.4 by camm, Sat Jul 20 07:10:54 2002 UTC revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC
# Line 998  T513:; Line 998  T513:;
998          goto T521;}          goto T521;}
999          if(((*(LnkLI63))())==Cnil){          if(((*(LnkLI63))())==Cnil){
1000          goto T521;}          goto T521;}
1001          if(!((length((V160)))==(length(cdr(symbol_value(VV[29])))))){          if(!(((long)length((V160)))==((long)length(cdr(symbol_value(VV[29])))))){
1002          goto T521;}          goto T521;}
1003          bds_bind(VV[32],VV[33]);          bds_bind(VV[32],VV[33]);
1004          setq(VV[34],number_plus(symbol_value(VV[34]),small_fixnum(1)));          setq(VV[34],number_plus(symbol_value(VV[34]),small_fixnum(1)));
# Line 1064  T565:; Line 1064  T565:;
1064          V170 = make_fixnum(V169);          V170 = make_fixnum(V169);
1065          (void)((*(LnkLI54))(V170));          (void)((*(LnkLI54))(V170));
1066          princ_char(44,VV[20]);          princ_char(44,VV[20]);
1067          V169= (V169)+1;          V169= (long)(V169)+1;
1068          goto T564;}          goto T564;}
1069  goto T560;  goto T560;
1070  T560:;  T560:;
# Line 1086  T511:; Line 1086  T511:;
1086          base[0]=base[0];          base[0]=base[0];
1087          return Cnil;          return Cnil;
1088  }  }
1089  static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[67],(void **)&LnkLI67,ap);} /* UNWIND-EXIT */  static object  LnkTLI67(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[67],(void **)&LnkLI67,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
1090  static object  LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[66],(void **)&LnkLI66,ap);} /* CMPNOTE */  static object  LnkTLI66(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[66],(void **)&LnkLI66,ap);va_end(ap);return V1;} /* CMPNOTE */
1091  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],(void **)&LnkLI65,1,ap);} /* UNWIND-NO-EXIT */  static object  LnkTLI65(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[65],(void **)&LnkLI65,1,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */
1092  static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],(void **)&LnkLI64,2,ap);} /* C2PSETQ */  static object  LnkTLI64(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[64],(void **)&LnkLI64,2,ap);va_end(ap);return V1;} /* C2PSETQ */
1093  static object  LnkTLI63(){return call_proc0(VV[63],(void **)&LnkLI63);} /* TAIL-RECURSION-POSSIBLE */  static object  LnkTLI63(){return call_proc0(VV[63],(void **)&LnkLI63);} /* TAIL-RECURSION-POSSIBLE */
1094  static object  LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[62],(void **)&LnkLI62,1,ap);} /* WT-CCB-VS */  static object  LnkTLI62(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[62],(void **)&LnkLI62,1,ap);va_end(ap);return V1;} /* WT-CCB-VS */
1095  static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],(void **)&LnkLI61,1,ap);} /* PUSH-ARGS */  static object  LnkTLI61(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[61],(void **)&LnkLI61,1,ap);va_end(ap);return V1;} /* PUSH-ARGS */
1096  static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],(void **)&LnkLI60,3,ap);} /* DEFMACRO* */  static object  LnkTLI60(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[60],(void **)&LnkLI60,3,ap);va_end(ap);return V1;} /* DEFMACRO* */
1097  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,1,ap);} /* WT-VS* */  static object  LnkTLI59(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[59],(void **)&LnkLI59,1,ap);va_end(ap);return V1;} /* WT-VS* */
1098  static void LnkT58(){ call_or_link(VV[58],(void **)&Lnk58);} /* C2EXPR */  static void LnkT58(){ call_or_link(VV[58],(void **)&Lnk58);} /* C2EXPR */
1099  static object  LnkTLI57(){return call_proc0(VV[57],(void **)&LnkLI57);} /* CCB-VS-PUSH */  static object  LnkTLI57(){return call_proc0(VV[57],(void **)&LnkLI57);} /* CCB-VS-PUSH */
1100  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,1,ap);} /* CLINK */  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;} /* CLINK */
1101  static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[55],(void **)&LnkLI55,ap);} /* WT-CLINK */  static object  LnkTLI55(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[55],(void **)&LnkLI55,ap);va_end(ap);return V1;} /* WT-CLINK */
1102  static object  LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],(void **)&LnkLI54,1,ap);} /* WT1 */  static object  LnkTLI54(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[54],(void **)&LnkLI54,1,ap);va_end(ap);return V1;} /* WT1 */
1103  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],(void **)&LnkLI53,1,ap);} /* WT-VS */  static object  LnkTLI53(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[53],(void **)&LnkLI53,1,ap);va_end(ap);return V1;} /* WT-VS */
1104  static object  LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* VS-PUSH */  static object  LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* VS-PUSH */
1105  static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],(void **)&LnkLI51,2,ap);} /* ADD-INFO */  static object  LnkTLI51(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[51],(void **)&LnkLI51,2,ap);va_end(ap);return V1;} /* ADD-INFO */
1106  static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],(void **)&LnkLI50,ap);} /* C1LAMBDA-EXPR */  static object  LnkTLI50(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[50],(void **)&LnkLI50,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
1107  static void LnkT49(){ call_or_link(VV[49],(void **)&Lnk49);} /* COPY-INFO */  static void LnkT49(){ call_or_link(VV[49],(void **)&Lnk49);} /* COPY-INFO */
1108  static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],(void **)&LnkLI48,2,ap);} /* C1DECL-BODY */  static object  LnkTLI48(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[48],(void **)&LnkLI48,2,ap);va_end(ap);return V1;} /* C1DECL-BODY */
1109  static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],(void **)&LnkLI47,3,ap);} /* CHECK-VDECL */  static object  LnkTLI47(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[47],(void **)&LnkLI47,3,ap);va_end(ap);return V1;} /* CHECK-VDECL */
1110  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],(void **)&LnkLI46,1,ap);} /* C1ADD-GLOBALS */  static object  LnkTLI46(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[46],(void **)&LnkLI46,1,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */
1111  static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* C1BODY */  static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* C1BODY */
1112  static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[44],(void **)&LnkLI44,ap);} /* MAKE-FUN */  static object  LnkTLI44(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[44],(void **)&LnkLI44,ap);va_end(ap);return V1;} /* MAKE-FUN */
1113  static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[43],(void **)&LnkLI43,ap);} /* CMPERR */  static object  LnkTLI43(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[43],(void **)&LnkLI43,ap);va_end(ap);return V1;} /* CMPERR */
1114  static object  LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],(void **)&LnkLI42,3,ap);} /* TOO-FEW-ARGS */  static object  LnkTLI42(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[42],(void **)&LnkLI42,3,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
1115    
1116  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1117  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