Index: src/aclocal.m4
===================================================================
RCS file: /cvsroot/ecls/ecl/src/aclocal.m4,v
retrieving revision 1.113
diff -u -r1.113 aclocal.m4
--- src/aclocal.m4	24 Jan 2010 22:11:56 -0000	1.113
+++ src/aclocal.m4	3 Feb 2010 00:32:22 -0000
@@ -424,9 +424,11 @@
 dnl
 AC_DEFUN(ECL_INTEGER_TYPES,[
 ECL_STDINT_HEADER=""
+ECL_UINT8_T=""
 ECL_UINT16_T=""
 ECL_UINT32_T=""
 ECL_UINT64_T=""
+ECL_INT8_T=""
 ECL_INT16_T=""
 ECL_INT32_T=""
 ECL_INT64_T=""
Index: src/c/ffi.d
===================================================================
RCS file: /cvsroot/ecls/ecl/src/c/ffi.d,v
retrieving revision 1.46
diff -u -r1.46 ffi.d
--- src/c/ffi.d	30 Jul 2009 07:36:06 -0000	1.46
+++ src/c/ffi.d	3 Feb 2010 00:32:23 -0000
@@ -31,13 +31,17 @@
 	@':unsigned-int',
 	@':long',
 	@':unsigned-long',
+#ifdef ecl_uint8_t
+	@':int8-t',
+	@':uint8-t',
+#endif
 #ifdef ecl_uint16_t
         @':int16-t',
         @':uint16-t',
 #endif
 #ifdef ecl_uint32_t
-        @':int64-t',
-        @':uint64-t',
+        @':int32-t',
+        @':uint32-t',
 #endif
 #ifdef ecl_uint64_t
         @':int64-t',
@@ -73,6 +77,10 @@
 	sizeof(unsigned int),
 	sizeof(long),
 	sizeof(unsigned long),
+#ifdef ecl_uint8_t
+	sizeof(ecl_int8_t),
+	sizeof(ecl_uint8_t),
+#endif
 #ifdef ecl_uint16_t
         sizeof(ecl_int16_t),
         sizeof(ecl_uint16_t),
@@ -126,13 +134,17 @@
 	&ffi_type_uint, /*@':unsigned-int',*/
 	&ffi_type_slong, /*@':long',*/
 	&ffi_type_ulong, /*@':unsigned-long',*/
+#ifdef ecl_uint8_t
+	&ffi_type_sint8, /*@':int8-t',*/
+	&ffi_type_uint8, /*@':uint8-t',*/
+#endif
 #ifdef ecl_uint16_t
         &ffi_type_sint16, /*@':int16-t',*/
         &ffi_type_uint16, /*@':uint16-t',*/
 #endif
 #ifdef ecl_uint32_t
-        &ffi_type_sint32, /*@':int64-t',*/
-        &ffi_type_uint32, /*@':uint64-t',*/
+        &ffi_type_sint32, /*@':int32-t',*/
+        &ffi_type_uint32, /*@':uint32-t',*/
 #endif
 #ifdef ecl_uint64_t
         &ffi_type_sint64, /*@':int64-t',*/
Index: src/lsp/ffi.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/lsp/ffi.lsp,v
retrieving revision 1.50
diff -u -r1.50 ffi.lsp
--- src/lsp/ffi.lsp	29 Aug 2009 17:03:45 -0000	1.50
+++ src/lsp/ffi.lsp	3 Feb 2010 00:32:37 -0000
@@ -63,7 +63,9 @@
        (member name '(:byte :unsigned-byte :short :unsigned-short
 		      :int :unsigned-int :char :unsigned-char
 		      :long :unsigned-long :pointer-void :object
-		      :float :double :cstring)
+		      :float :double :cstring :int8-t :uint8-t
+		      :int16-t :uint16-t :int32-t :uint32-t
+		      :int64-t :uint64-t)
 	       :test 'eq)))
 
 (defmacro def-foreign-type (name definition)