From fb92bca1349a2e8a5b8f95a444161cd2acf4625c Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Tue, 7 Dec 2010 20:11:07 +0100
Subject: [PATCH] Fixed typo in prepare_ratio_to_float()

---
 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 ad5848ef6..ce95d4b16 100644
--- a/src/c/number.d
+++ b/src/c/number.d
@@ -675,7 +675,7 @@ prepare_ratio_to_float(cl_object num, cl_object den, int digits, cl_fixnum *scal
                                         MAKE_FIXNUM(-1) :
                                         MAKE_FIXNUM(1);
                                 if (rem == MAKE_FIXNUM(0)) {
-                                        if (cl_logbitp(fraction, MAKE_FIXNUM(1))
+                                        if (cl_logbitp(MAKE_FIXNUM(1), fraction)
                                             != Cnil)
                                                 fraction = ecl_plus(fraction, one);
                                 } else {