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

Eliminate further uses of deprecated functions (K. Shakirov)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-09-01 10:39:04 +02:00
parent 766cbf2266
commit a30c355186
3 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/file.d
View file

@ -1465,7 +1465,7 @@ ecl_make_string_output_stream(cl_index line_length, int extended)
ecl_alloc_adjustable_extended_string(line_length) :
ecl_alloc_adjustable_base_string(line_length);
#else
cl_object s = cl_alloc_adjustable_base_string(line_length);
cl_object s = ecl_alloc_adjustable_base_string(line_length);
#endif
return si_make_string_output_stream_from_string(s);
}

2
src/c/format.d
View file

@ -2108,7 +2108,7 @@ DIRECTIVE:
#ifdef ECL_UNICODE
strm = ecl_alloc_adjustable_extended_string(64);
#else
strm = cl_alloc_adjustable_base_string(64);
strm = ecl_alloc_adjustable_base_string(64);
#endif
null_strm = 1;
} else if (strm == Ct) {

4
src/c/read.d
View file

@ -60,7 +60,7 @@ si_get_buffer_string()
#ifdef ECL_UNICODE
output = ecl_alloc_adjustable_extended_string(ECL_BUFFER_STRING_SIZE);
#else
output = cl_alloc_adjustable_base_string(ECL_BUFFER_STRING_SIZE);
output = ecl_alloc_adjustable_base_string(ECL_BUFFER_STRING_SIZE);
#endif
} else {
output = CAR(pool);
@ -87,7 +87,7 @@ si_put_buffer_string(cl_object string)
#ifdef ECL_UNICODE
string = ecl_alloc_adjustable_extended_string(ECL_BUFFER_STRING_SIZE);
#else
string = cl_alloc_adjustable_base_string(ECL_BUFFER_STRING_SIZE);
string = ecl_alloc_adjustable_base_string(ECL_BUFFER_STRING_SIZE);
#endif
}
TOKEN_STRING_FILLP(string) = l+1;