mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-04 16:30:48 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed a couple of typos in character predicates

Browse source
This commit is contained in:
jgarcia 2006-11-12 13:19:59 +00:00
parent a8278e00d8
commit d60a7f33a5
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/character.d
View file

@ -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

4
src/c/typespec.d
View file

@ -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';