From fe55f81cbef1d8202019d091858ebc1b9f1e7e2a Mon Sep 17 00:00:00 2001
From: Samium Gromoff <_deepfire@feelingofgreen.ru>
Date: Thu, 6 Aug 2009 14:35:34 +0400
Subject: [PATCH] Fix ecl_to_{u,}short.

---
 src/h/external.h | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/h/external.h b/src/h/external.h
index 9c710a0a7..eccbb2943 100644
--- a/src/h/external.h
+++ b/src/h/external.h
@@ -987,9 +987,9 @@ extern ECL_API ecl_int16_t ecl_to_int16_t(cl_object o);
 # define ecl_make_int16_t(i) MAKE_FIXNUM(i)
 #endif /* ecl_uint16_t */
 #define ecl_make_short(n) MAKE_FIXNUM(n)
-#define ecl_to_short(x) (short)fixint(n)
+#define ecl_to_short(n) (short)fixint(n)
 #define ecl_make_ushort(n) MAKE_FIXNUM(n)
-#define ecl_to_ushort(x) (unsigned short)fixnnint(n)
+#define ecl_to_ushort(n) (unsigned short)fixnnint(n)
 #ifdef ecl_uint32_t
 # if FIXNUM_BITS == 32
 #  define ecl_to_uint32_t fixnnint