From dd5a189a9d39893ee0edebac5c95ffd041a058c8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 18 Nov 2016 14:58:15 +0100
Subject: [PATCH] si_nan: return correct value (typo)

---
 src/c/number.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/number.d b/src/c/number.d
index 4497e5980..32c651d74 100644
--- a/src/c/number.d
+++ b/src/c/number.d
@@ -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 */