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

Adjust buffer size in write_stream

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-10-28 23:51:21 +02:00
parent d1ef5a13b1
commit 17b611b580
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/c/printer/write_ugly.d
View file

@ -173,12 +173,12 @@ write_stream(cl_object x, cl_object stream)
{
const char *prefix;
cl_object tag;
#ifdef ECL_UNICODE
ecl_character buffer[20];
#else
ecl_base_char buffer[20];
#endif
union cl_lispunion str;
#ifdef ECL_UNICODE
ecl_character buffer[10];
#else
ecl_base_char buffer[10];
#endif
switch ((enum ecl_smmode)x->stream.mode) {
case smm_input_file:
case smm_input: