From e9204d8d3710de62036c70a16703fd65aa37bae0 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Sat, 7 Sep 2002 14:31:51 +0000 Subject: [PATCH] Fix typo. --- src/c/file.d | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/c/file.d b/src/c/file.d index 354e1b11b..c809bd19d 100644 --- a/src/c/file.d +++ b/src/c/file.d @@ -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)