From c5789e152cd47f30c4ff9fc341b82fa1410cf4e0 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Wed, 15 Aug 2012 20:10:18 +0200
Subject: [PATCH] Fixed typo ulong_Long -> ulong_long

---
 src/c/ffi.d        | 2 +-
 src/c/number.d     | 6 +++---
 src/cmp/cmpffi.lsp | 4 ++--
 src/h/external.h   | 2 +-
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/c/ffi.d b/src/c/ffi.d
index c9934bc47..74457152c 100644
--- a/src/c/ffi.d
+++ b/src/c/ffi.d
@@ -595,7 +595,7 @@ ecl_foreign_data_set_elt(void *p, enum ecl_ffi_tag tag, cl_object value)
                 *(ecl_long_long_t *)p = ecl_to_long_long(value);
                 break;
         case ECL_FFI_UNSIGNED_LONG_LONG:
-                *(ecl_ulong_long_t *)p = ecl_to_ulong_Long(value);
+                *(ecl_ulong_long_t *)p = ecl_to_ulong_long(value);
                 break;
 #endif
 	case ECL_FFI_POINTER_VOID:
diff --git a/src/c/number.d b/src/c/number.d
index c2420a3ed..c22326ed2 100644
--- a/src/c/number.d
+++ b/src/c/number.d
@@ -296,7 +296,7 @@ ecl_make_int64_t(ecl_int64_t i)
 #if defined(ecl_ulong_long_t)
 # if defined(ecl_uint32_t) && ECL_LONG_LONG_BITS == 32
 ecl_ulong_long_t
-ecl_to_ulong_Long(cl_object x) {
+ecl_to_ulong_long(cl_object x) {
         return (ecl_ulong_long_t)ecl_to_uint32_t(x);
 }
 
@@ -315,7 +315,7 @@ ecl_make_long_long(ecl_long_long_t i) {
 # else
 #  if defined(ecl_uint64_t) && ECL_LONG_LONG_BITS == 64
 ecl_ulong_long_t
-ecl_to_ulong_Long(cl_object x) {
+ecl_to_ulong_long(cl_object x) {
         return (ecl_ulong_long_t)ecl_to_uint64_t(x);
 }
 ecl_long_long_t
@@ -332,7 +332,7 @@ ecl_make_long_long(ecl_long_long_t i) {
 }
 #  else
 ecl_ulong_long_t
-ecl_to_ulong_Long(cl_object x) {
+ecl_to_ulong_long(cl_object x) {
 	if (!ecl_minusp(x)) {
 		if (ECL_FIXNUMP(x)) {
 			return (ecl_ulong_long_t)ecl_fixnum(x);
diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp
index be6f9c38e..6325ab924 100755
--- a/src/cmp/cmpffi.lsp
+++ b/src/cmp/cmpffi.lsp
@@ -83,8 +83,8 @@
     :unsigned-long-long
     #+long-long
     ((unsigned-byte #.ffi:c-long-long-bit) "ecl_ulong_long_t"
-         "ecl_make_ulong_Long"
-         "ecl_to_ulong_Long" "ecl_to_ulong_Long")
+         "ecl_make_ulong_long"
+         "ecl_to_ulong_long" "ecl_to_ulong_long")
     :float
     (single-float "float" "ecl_make_single_float" "ecl_to_float" "ecl_single_float")
     :double
diff --git a/src/h/external.h b/src/h/external.h
index 395316e15..847d109a1 100755
--- a/src/h/external.h
+++ b/src/h/external.h
@@ -1099,7 +1099,7 @@ extern ECL_API cl_object ecl_make_int64_t(ecl_int64_t i);
 # endif
 #endif
 #ifdef ecl_long_long_t
-extern ECL_API ecl_ulong_long_t ecl_to_ulong_Long(cl_object p);
+extern ECL_API ecl_ulong_long_t ecl_to_ulong_long(cl_object p);
 extern ECL_API ecl_long_long_t ecl_to_long_long(cl_object p);
 extern ECL_API cl_object ecl_make_ulong_long(ecl_ulong_long_t i);
 extern ECL_API cl_object ecl_make_long_long(ecl_long_long_t i);