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

Diff of /gcl/lsp/assert.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 587  T177:; Line 587  T177:;
587  goto T176;  goto T176;
588  T176:;  T176:;
589          base[6]= VV[41];          base[6]= VV[41];
590          V112 = make_fixnum(length((V95)));          V112 = make_fixnum((long)length((V95)));
591          V116= reverse((V95));          V116= reverse((V95));
592          {object V114;          {object V114;
593          object V115= /* INLINE-ARGS */V116;          object V115= /* INLINE-ARGS */V116;
# Line 624  register object V119; Line 624  register object V119;
624  goto TTL;  goto TTL;
625  TTL:;  TTL:;
626          if(!((car((V119)))==(VV[25]))){          if(!((car((V119)))==(VV[25]))){
627          goto T185;}switch(length(cdr((V119)))){          goto T185;}switch((long)length(cdr((V119)))){
628          case 0:          case 0:
629  goto T188;  goto T188;
630  T188:;  T188:;
# Line 709  TTL:; Line 709  TTL:;
709          VMR11(V140)}}          VMR11(V140)}}
710          return Cnil;          return Cnil;
711  }  }
712  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,1,ap);} /* BOIN-P */  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;} /* BOIN-P */
713  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[57],(void **)&LnkLI57,ap);} /* REMOVE */  static object  LnkTLI57(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[57],(void **)&LnkLI57,ap);va_end(ap);return V1;} /* REMOVE */
714  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,1,ap);} /* TYPECASE-ERROR-STRINGS */  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;} /* TYPECASE-ERROR-STRINGS */
715  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],(void **)&LnkLI53,1,ap);} /* ASK-FOR-FORM */  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;} /* ASK-FOR-FORM */
716    
717  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
718  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