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

numbers/log.d: fix typo

Browse source
This commit is contained in:
Marius Gerbershagen 2023-01-02 17:11:54 +01:00
parent cd6f0894d2
commit fc30c62ea0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/numbers/log.d
View file

@ -348,7 +348,7 @@ static cl_object
ecl_log1_complex_long_precision(cl_object x)
{
#ifdef ECL_COMPLEX_FLOAT
cl_object result = ecl_alloc_object(t_cdfloat);
cl_object result = ecl_alloc_object(t_clfloat);
long double _Complex fc = ecl_to_long_double(x->gencomplex.real) + I * ecl_to_long_double(x->gencomplex.real);
ecl_clfloat(result) = clogl(fc);
return result;