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

ECL removed the sign when printing -0.0d0

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-12-19 20:06:34 +01:00
parent f0793de5b4
commit 47299166f6
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

@ -105,7 +105,7 @@ si_float_to_string_free(cl_object buffer_or_nil, cl_object number,
buffer = VALUES(1);
e = fix(exp);
if (ecl_minusp(number)) {
if (ecl_signbit(number)) {
insert_char(buffer, base++, '-');
}
/* Do we have to print in exponent notation? */