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

Missing type check for character comparison in EQUAL

Browse source
This commit is contained in:
jgarcia 2007-05-06 19:14:02 +00:00
parent e3d627c0e1
commit b7b6db973b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/predicate.d
View file

@ -338,7 +338,7 @@ BEGIN:
return (tx == ty) && ecl_eql(x->complex.real, y->complex.real) &&
ecl_eql(x->complex.imag, y->complex.imag);
case t_character:
return(CHAR_CODE(x) == CHAR_CODE(y));
return (tx == ty) && (CHAR_CODE(x) == CHAR_CODE(y));
case t_base_string:
#ifdef ECL_UNICODE
case t_string: