mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-23 04:52:42 -08:00
si_nan: return correct value (typo)
This commit is contained in:
parent
f70f46a1b7
commit
dd5a189a9d
1 changed files with 1 additions and 1 deletions
|
|
@ -922,6 +922,6 @@ cl_object
|
|||
si_nan() {
|
||||
cl_object x = ecl_alloc_object(t_doublefloat);
|
||||
ecl_double_float(x) = NAN;
|
||||
return NAN;
|
||||
return x;
|
||||
}
|
||||
#endif /* ECL_IEEE_FP */
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue