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

(MINUSP -0.0) => NIL

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-14 23:20:03 +02:00
parent 984b18eef6
commit 2acd731e9e
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -17,6 +17,8 @@ ECL 9.6.2:
- The constants in cl_core are now used in compiled code.
- (MINUSP -0.0) => NIL
* Characters:
- ECL now uses ISO Latin names for the lowest part of the character set.

8
src/c/num_pred.d
View file

@ -101,16 +101,16 @@ ecl_minusp(cl_object x)
#ifdef ECL_SHORT_FLOAT
case t_shortfloat:
return signbit(ecl_short_float(x));
return ecl_short_float(x) < 0;
#endif
case t_singlefloat:
return signbit(sf(x));
return sf(x) < 0;
case t_doublefloat:
return signbit(df(x));
return df(x) < 0;
#ifdef ECL_LONG_FLOAT
case t_longfloat:
return signbit(ecl_long_float(x));
return ecl_long_float(x) < 0;
#endif
default:
FEtype_error_real(x);