mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-10 11:12:58 -08:00
Code Issues Projects Releases Packages Wiki Activity

char_bag should be allowed to be nil

Browse source
This commit is contained in:
jjgarcia 2005-05-30 09:32:23 +00:00
parent d83012b506
commit 71ea2d7a78
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/string.d
View file

@ -485,8 +485,13 @@ member_char(int c, cl_object char_bag)
case t_bitvector:
return(FALSE);
case t_symbol:
if (Null(char_bag))
return(FALSE);
FEwrong_type_argument(@'sequence', char_bag);
default:
FEerror("~S is not a sequence.", 1, char_bag);
FEwrong_type_argument(@'sequence', char_bag);
}
}