mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 01:10:53 -07:00
Code Issues Projects Releases Packages Wiki Activity

reader: don't allow a package prefix in an uninterned symbol

Browse source 
Fixes #439.
This commit is contained in:
Marius Gerbershagen 2018-08-21 20:08:00 +02:00
parent 4f392ddbe2
commit 3201b545e1
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/read.d
View file

@ -988,8 +988,11 @@ sharp_colon_reader(cl_object in, cl_object ch, cl_object d)
ecl_string_push_extend(token, c);
}
goto K;
} else if (ecl_lower_case_p(c))
} else if (ecl_lower_case_p(c)) {
c = ecl_char_upcase(c);
} else if (c == ':' && !read_suppress) {
FEreader_error("An uninterned symbol must not contain a package prefix", in, 0);
}
if (a == cat_whitespace || a == cat_terminating)
break;
}