mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-04 00:11:37 -08:00
Code Issues Projects Releases Packages Wiki Activity

FORMAT returns NIL when stream argument is not nil (M.Goffioul)

Browse source
This commit is contained in:
jjgarcia 2004-11-29 16:49:24 +00:00
parent b9cea0b408
commit 27c5b1f2f5
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/format.d
View file

@ -2046,9 +2046,11 @@ DIRECTIVE:
@(defun format (strm string &rest args)
cl_object output = Cnil;
int null_strm = 0;
@
if (Null(strm)) {
strm = cl_alloc_adjustable_string(64);
null_strm = 1;
} else if (strm == Ct) {
strm = symbol_value(@'*standard-output*');
}
@ -2064,6 +2066,8 @@ DIRECTIVE:
}
strm = make_string_output_stream(0);
strm->stream.object0 = output;
if (null_strm == 0)
output = Cnil;
}
if (!Null(cl_functionp(string))) {
cl_apply(3, string, strm, cl_grab_rest_args(args));