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

Replace more uses of cl_cos/sin/... with ecl_cos/sin/..

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-06-20 16:57:21 +02:00
parent 54cb5493e8
commit 14cf3f7029
2 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/c/num_sfun.d
View file

@ -616,8 +616,8 @@ ecl_sin(cl_object x)
*/
cl_object dx = x->complex.real;
cl_object dy = x->complex.imag;
cl_object a = ecl_times(cl_sin(dx), ecl_cosh(dy));
cl_object b = ecl_times(cl_cos(dx), ecl_sinh(dy));
cl_object a = ecl_times(ecl_sin(dx), ecl_cosh(dy));
cl_object b = ecl_times(ecl_cos(dx), ecl_sinh(dy));
output = ecl_make_complex(a, b);
break;
}
@ -663,8 +663,8 @@ ecl_cos(cl_object x)
*/
cl_object dx = x->complex.real;
cl_object dy = x->complex.imag;
cl_object a = ecl_times(cl_cos(dx), ecl_cosh(dy));
cl_object b = ecl_times(ecl_negate(cl_sin(dx)), ecl_sinh(dy));
cl_object a = ecl_times(ecl_cos(dx), ecl_cosh(dy));
cl_object b = ecl_times(ecl_negate(ecl_sin(dx)), ecl_sinh(dy));
output = ecl_make_complex(a, b);
break;
}
@ -765,8 +765,8 @@ ecl_sinh(cl_object x)
*/
cl_object dx = x->complex.real;
cl_object dy = x->complex.imag;
cl_object a = ecl_times(cl_sinh(dx), ecl_cos(dy));
cl_object b = ecl_times(cl_cosh(dx), ecl_sin(dy));
cl_object a = ecl_times(ecl_sinh(dx), ecl_cos(dy));
cl_object b = ecl_times(ecl_cosh(dx), ecl_sin(dy));
output = ecl_make_complex(a, b);
break;
}
@ -814,8 +814,8 @@ ecl_cosh(cl_object x)
*/
cl_object dx = x->complex.real;
cl_object dy = x->complex.imag;
cl_object a = ecl_times(cl_cosh(dx), ecl_cos(dy));
cl_object b = ecl_times(cl_sinh(dx), ecl_sin(dy));
cl_object a = ecl_times(ecl_cosh(dx), ecl_cos(dy));
cl_object b = ecl_times(ecl_sinh(dx), ecl_sin(dy));
output = ecl_make_complex(a, b);
break;
}

8
src/c/number.d
View file

@ -905,8 +905,8 @@ cl_rational(cl_object x)
e -= DBL_MANT_DIG;
x = double_to_integer(ldexp(d, DBL_MANT_DIG));
if (e != 0) {
x = ecl_times(cl_expt(MAKE_FIXNUM(FLT_RADIX),
MAKE_FIXNUM(e)),
x = ecl_times(ecl_expt(MAKE_FIXNUM(FLT_RADIX),
MAKE_FIXNUM(e)),
x);
}
}
@ -923,8 +923,8 @@ cl_rational(cl_object x)
d = ldexpl(d, LDBL_MANT_DIG);
x = long_double_to_integer(d);
if (e != 0) {
x = ecl_times(cl_expt(MAKE_FIXNUM(FLT_RADIX),
MAKE_FIXNUM(e)),
x = ecl_times(ecl_expt(MAKE_FIXNUM(FLT_RADIX),
MAKE_FIXNUM(e)),
x);
}
}