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

Diff of /gcl/cmpnew/cmpspecial.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 17  goto T1; Line 17  goto T1;
17  T1:;  T1:;
18          if(endp(cdr((V2)))){          if(endp(cdr((V2)))){
19          goto T4;}          goto T4;}
20          V3 = make_fixnum(length((V2)));          V3 = make_fixnum((long)length((V2)));
21          (void)((*(LnkLI46))(VV[0],small_fixnum(1),V3));          (void)((*(LnkLI46))(VV[0],small_fixnum(1),V3));
22  goto T4;  goto T4;
23  T4:;  T4:;
# Line 103  TTL:; Line 103  TTL:;
103          goto T29;}          goto T29;}
104  goto T30;  goto T30;
105  T30:;  T30:;
106          V21 = make_fixnum(length((V17)));          V21 = make_fixnum((long)length((V17)));
107          (void)((*(LnkLI45))(VV[5],small_fixnum(2),V21));          (void)((*(LnkLI45))(VV[5],small_fixnum(2),V21));
108  goto T29;  goto T29;
109  T29:;  T29:;
110          if(endp(cddr((V17)))){          if(endp(cddr((V17)))){
111          goto T34;}          goto T34;}
112          V22 = make_fixnum(length((V17)));          V22 = make_fixnum((long)length((V17)));
113          (void)((*(LnkLI46))(VV[5],small_fixnum(2),V22));          (void)((*(LnkLI46))(VV[5],small_fixnum(2),V22));
114  goto T34;  goto T34;
115  T34:;  T34:;
# Line 285  goto T104; Line 285  goto T104;
285  T104:;  T104:;
286          if(endp(cdr((V42)))){          if(endp(cdr((V42)))){
287          goto T107;}          goto T107;}
288          V44 = make_fixnum(length((V42)));          V44 = make_fixnum((long)length((V42)));
289          (void)((*(LnkLI46))(VV[11],small_fixnum(1),V44));          (void)((*(LnkLI46))(VV[11],small_fixnum(1),V44));
290  goto T107;  goto T107;
291  T107:;  T107:;
# Line 441  TTL:; Line 441  TTL:;
441          VMR10(V79)}          VMR10(V79)}
442          return Cnil;          return Cnil;
443  }  }
444  static object  LnkTLI70(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[70],(void **)&LnkLI70,ap);} /* WT-CLINK */  static object  LnkTLI70(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[70],(void **)&LnkLI70,ap);va_end(ap);return V1;} /* WT-CLINK */
445  static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],(void **)&LnkLI69,1,ap);} /* WT1 */  static object  LnkTLI69(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[69],(void **)&LnkLI69,1,ap);va_end(ap);return V1;} /* WT1 */
446  static object  LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],(void **)&LnkLI68,2,ap);} /* ADD-ADDRESS */  static object  LnkTLI68(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[68],(void **)&LnkLI68,2,ap);va_end(ap);return V1;} /* ADD-ADDRESS */
447  static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[67],(void **)&LnkLI67,ap);} /* ADD-INIT */  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;} /* ADD-INIT */
448  static object  LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[66],(void **)&LnkLI66,1,ap);} /* PUSH-DATA-INCF */  static object  LnkTLI66(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[66],(void **)&LnkLI66,1,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */
449  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],(void **)&LnkLI65,ap);} /* MAKE-FUN */  static object  LnkTLI65(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[65],(void **)&LnkLI65,ap);va_end(ap);return V1;} /* MAKE-FUN */
450  static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],(void **)&LnkLI64,1,ap);} /* ADD-SYMBOL */  static object  LnkTLI64(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[64],(void **)&LnkLI64,1,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
451  static object  LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[63],(void **)&LnkLI63,ap);} /* UNWIND-EXIT */  static object  LnkTLI63(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[63],(void **)&LnkLI63,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
452  static object  LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[62],(void **)&LnkLI62,ap);} /* C1LAMBDA-EXPR */  static object  LnkTLI62(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[62],(void **)&LnkLI62,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
453  static object  LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[61],(void **)&LnkLI61,ap);} /* MAKE-INFO */  static object  LnkTLI61(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[61],(void **)&LnkLI61,ap);va_end(ap);return V1;} /* MAKE-INFO */
454  static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],(void **)&LnkLI60,1,ap);} /* C1LOCAL-CLOSURE */  static object  LnkTLI60(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[60],(void **)&LnkLI60,1,ap);va_end(ap);return V1;} /* C1LOCAL-CLOSURE */
455  static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* C2EXPR */  static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* C2EXPR */
456  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[58],(void **)&LnkLI58,ap);} /* CMPWARN */  static object  LnkTLI58(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[58],(void **)&LnkLI58,ap);va_end(ap);return V1;} /* CMPWARN */
457  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],(void **)&LnkLI57,1,ap);} /* TYPE-FILTER */  static object  LnkTLI57(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[57],(void **)&LnkLI57,1,ap);va_end(ap);return V1;} /* TYPE-FILTER */
458  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,2,ap);} /* TYPE-AND */  static object  LnkTLI56(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[56],(void **)&LnkLI56,2,ap);va_end(ap);return V1;} /* TYPE-AND */
459  static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* COPY-INFO */  static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* COPY-INFO */
460  static object  LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],(void **)&LnkLI54,1,ap);} /* C1EXPR */  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;} /* C1EXPR */
461  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[53],(void **)&LnkLI53,ap);} /* CMPERR */  static object  LnkTLI53(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[53],(void **)&LnkLI53,ap);va_end(ap);return V1;} /* CMPERR */
462  static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],(void **)&LnkLI50,1,ap);} /* C1PROGN */  static object  LnkTLI50(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[50],(void **)&LnkLI50,1,ap);va_end(ap);return V1;} /* C1PROGN */
463  static object  LnkTLI48(){return call_proc0(VV[48],(void **)&LnkLI48);} /* C1NIL */  static object  LnkTLI48(){return call_proc0(VV[48],(void **)&LnkLI48);} /* C1NIL */
464  static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],(void **)&LnkLI47,2,ap);} /* C1CONSTANT-VALUE */  static object  LnkTLI47(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[47],(void **)&LnkLI47,2,ap);va_end(ap);return V1;} /* C1CONSTANT-VALUE */
465  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],(void **)&LnkLI46,3,ap);} /* TOO-MANY-ARGS */  static object  LnkTLI46(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[46],(void **)&LnkLI46,3,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
466  static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[45],(void **)&LnkLI45,3,ap);} /* TOO-FEW-ARGS */  static object  LnkTLI45(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[45],(void **)&LnkLI45,3,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
467    
468  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
469  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