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

Fixed broken use of ecl_copy_subarray

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-10-19 17:35:57 +02:00
parent af1bb228dc
commit ce5a04bc37
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/printer/float_to_string.d
View file

@ -41,7 +41,7 @@ insert_char(cl_object buffer, cl_index where, cl_fixnum c)
{
cl_fixnum end = buffer->base_string.fillp;
ecl_string_push_extend(buffer, '.');
ecl_copy_subarray(buffer, where+1, buffer, where, end);
ecl_copy_subarray(buffer, where+1, buffer, where, end - where);
ecl_char_set(buffer, where, c);
}