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

Warn when the OTHERWISE/T clause in CASE appears at a position other than the last one.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-06 18:20:55 +02:00
parent 3980ea5d66
commit 671aef6634
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/compiler.d
View file

@ -1019,6 +1019,10 @@ perform_c_case(cl_env_ptr env, cl_object args, int flags) {
} while (test == Cnil);
if (@'otherwise' == test || test == Ct) {
unlikely_if (args != Cnil) {
FEprogram_error_noreturn("CASE: The selector ~A can only appear at the last position.",
1, test);
}
compile_body(env, clause, flags);
} else {
cl_index labeln, labelz;