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; |
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; |