From c4966bd006b299cbedddb8800e54d4129aa82e8e Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 18 Nov 2011 16:53:37 +0100 Subject: [PATCH] base-char maps to unsigned char, not to "char". --- src/cmp/cmpffi.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp index d16f35400..4746ae8e3 100755 --- a/src/cmp/cmpffi.lsp +++ b/src/cmp/cmpffi.lsp @@ -92,7 +92,7 @@ (long-float "long double" "ecl_make_longfloat" "ecl_to_long_double" "ecl_to_long_double") :unsigned-char - (base-char "char" "CODE_CHAR" "ecl_base_char_code" "CHAR_CODE") + (base-char "unsigned char" "CODE_CHAR" "ecl_base_char_code" "CHAR_CODE") :char (base-char "char" "CODE_CHAR" "ecl_base_char_code" "CHAR_CODE") :wchar