Commit 3201b545 authored by Marius Gerbershagen's avatar Marius Gerbershagen
Browse files

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

    Fixes #439.
parent 4f392ddb
......@@ -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;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment