/[gcl]/gcl/o/format.c
ViewVC logotype

Diff of /gcl/o/format.c

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

revision 1.15 by camm, Tue Aug 9 05:18:59 2005 UTC revision 1.16 by camm, Wed Sep 7 02:49:01 2005 UTC
# Line 2229  fmt_semicolon(bool colon, bool atsign) Line 2229  fmt_semicolon(bool colon, bool atsign)
2229          fmt_set_param(1, &fmt_line_length, fmt_int, 72);          fmt_set_param(1, &fmt_line_length, fmt_int, 72);
2230  }  }
2231    
2232    DEFVAR("*FORMAT-UNUSED-ARGS*",sSAformat_unused_argsA,SI,Cnil,"");
2233    
2234  DEFUNO_NEW("FORMAT",object,fLformat,LISP  DEFUNO_NEW("FORMAT",object,fLformat,LISP
2235         ,2,F_ARG_LIMIT,NONE,OO,OO,OO,OO,void,Lformat,(object strm, object control,...),"")         ,2,F_ARG_LIMIT,NONE,OO,OO,OO,OO,void,Lformat,(object strm, object control,...),"")
2236  {       va_list ap;  {       va_list ap;
# Line 2288  DEFUNO_NEW("FORMAT",object,fLformat,LISP Line 2290  DEFUNO_NEW("FORMAT",object,fLformat,LISP
2290                      goto L;                      goto L;
2291              }              }
2292              format(strm, 0, control->st.st_fillp);              format(strm, 0, control->st.st_fillp);
2293                if (sSAformat_unused_argsA->s.s_dbind) {
2294                  int i;
2295                  for (i=fmt_end-1;i>=fmt_index;i--)
2296                    sSAformat_unused_argsA->s.s_dbind=MMcons(fmt_base[i],sSAformat_unused_argsA->s.s_dbind);
2297                }
2298    
2299              flush_stream(strm);              flush_stream(strm);
2300          }          }
2301              e = FALSE;              e = FALSE;

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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