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

Diff of /gcl/lsp/iolib.c

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

revision 1.3 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.4 by camm, Fri Aug 2 22:23:58 2002 UTC
# Line 196  T23:; Line 196  T23:;
196          }else{          }else{
197          V33=(base[3]);}          V33=(base[3]);}
198          if(base[7]==Cnil){          if(base[7]==Cnil){
199          V34= make_fixnum(length((V30)));          V34= make_fixnum((long)length((V30)));
200          }else{          }else{
201          V34=(base[4]);}          V34=(base[4]);}
202          V35=(base[5]);          V35=(base[5]);
# Line 570  T132:; Line 570  T132:;
570  goto T133;  goto T133;
571  T133:;  T133:;
572          V84= one_plus((V84));          V84= one_plus((V84));
573          V89 = make_fixnum(length((V86)));          V89 = make_fixnum((long)length((V86)));
574          V85= make_cons(V89,(V85));          V85= make_cons(V89,(V85));
575          if(!((length((V86)))==0)){          if(!(((long)length((V86)))==0)){
576          goto T142;}          goto T142;}
577          goto T140;          goto T140;
578  goto T142;  goto T142;
# Line 764  T207:; Line 764  T207:;
764          }          }
765  static void LnkT58(){ call_or_link(VV[58],(void **)&Lnk58);} /* GET-DECODED-TIME */  static void LnkT58(){ call_or_link(VV[58],(void **)&Lnk58);} /* GET-DECODED-TIME */
766  static void LnkT11(){ call_or_link(VV[11],(void **)&Lnk11);} /* OPEN */  static void LnkT11(){ call_or_link(VV[11],(void **)&Lnk11);} /* OPEN */
767  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[57],(void **)&LnkLI57,ap);} /* WARN */  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;} /* WARN */
768  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[56],(void **)&LnkLI56,ap);} /* MAKE-ARRAY */  static object  LnkTLI56(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[56],(void **)&LnkLI56,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
769  static void LnkT9(){ call_or_link(VV[9],(void **)&Lnk9);} /* GET-OUTPUT-STREAM-STRING */  static void LnkT9(){ call_or_link(VV[9],(void **)&Lnk9);} /* GET-OUTPUT-STREAM-STRING */
770  static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* MAKE-STRING-OUTPUT-STREAM */  static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* MAKE-STRING-OUTPUT-STREAM */
771  static void LnkT6(){ call_or_link(VV[6],(void **)&Lnk6);} /* GET-STRING-INPUT-STREAM-INDEX */  static void LnkT6(){ call_or_link(VV[6],(void **)&Lnk6);} /* GET-STRING-INPUT-STREAM-INDEX */

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

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