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,""); |
DEFVAR("*FORMAT-UNUSED-ARGS*",sSAformat_unused_argsA,SI,OBJNULL,""); |
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,...),"") |