From d60a7f33a54c1833304204b745fa28b8b2b41449 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Sun, 12 Nov 2006 13:19:59 +0000
Subject: [PATCH] Fixed a couple of typos in character predicates

---
 src/c/character.d | 2 +-
 src/c/typespec.d  | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/c/character.d b/src/c/character.d
index ff1c65cb3..ff46c3fe4 100644
--- a/src/c/character.d
+++ b/src/c/character.d
@@ -61,7 +61,7 @@ ecl_standard_char_p(cl_index code)
 bool
 ecl_base_char_p(cl_index c)
 {
-	return c < 255;
+	return c <= 255;
 }
 
 cl_object
diff --git a/src/c/typespec.d b/src/c/typespec.d
index f74343744..bceb37729 100644
--- a/src/c/typespec.d
+++ b/src/c/typespec.d
@@ -317,9 +317,9 @@ cl_type_of(cl_object x)
 #endif
 	case t_character: {
 		int i = CHAR_CODE(x);
-		if (ecl_standard_char_p(x)) {
+		if (ecl_standard_char_p(i)) {
 			t = @'standard-char';
-		} else if (ecl_base_char_p(x)) {
+		} else if (ecl_base_char_p(i)) {
 			t = @'base-char';
 		} else {
 			t = @'character';