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

Fix typo.

Browse source
This commit is contained in:
jjgarcia 2002-09-07 14:31:51 +00:00
parent 370289ec26
commit e9204d8d37
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/c/file.d
View file

@ -540,18 +540,18 @@ make_string_output_stream(cl_index line_length)
}
cl_object
make_string_output_stream_from_string(cl_object string)
make_string_output_stream_from_string(cl_object s)
{
cl_object strm;
if (type_of(strng) != t_string || !strng->string.hasfillp)
FEerror("~S is not a string with a fill-pointer.", 1, strng);
if (type_of(s) != t_string || !s->string.hasfillp)
FEerror("~S is not a string with a fill-pointer.", 1, s);
strm = cl_alloc_object(t_stream);
strm->stream.mode = (short)smm_string_output;
strm->stream.file = NULL;
strm->stream.object0 = strng;
strm->stream.object0 = s;
strm->stream.object1 = OBJNULL;
strm->stream.int0 = strng->string.fillp;
strm->stream.int0 = s->string.fillp;
strm->stream.int1 = 0;
return strm;
}
@ -1585,10 +1585,10 @@ for the file-stream ~S.",
@(return MAKE_FIXNUM(strm->stream.int0))
@)
@(defun si::make_string_output_stream_from_string (strng)
@(defun si::make_string_output_stream_from_string (s)
cl_object strm;
@
@(return make_string_output_stream_from_string(string))
@(return make_string_output_stream_from_string(s))
@)
@(defun si::copy_stream (in out)