bytecmp: fix return value of multiple-value-bind with no variable bindings and no body

Statements such as (multiple-value-bind () :foo) returned :foo instead
of nil (see the multiple-value-bind.11-13 tests in the ansi-test
suite).
This commit is contained in:
Marius Gerbershagen 2019-08-19 19:46:27 +02:00
parent c38739f3bb
commit c1c68bb4fe

View file

@ -1698,6 +1698,7 @@ c_multiple_value_bind(cl_env_ptr env, cl_object args, int flags)
int n = ecl_length(vars);
switch (n) {
case 0:
compile_form(env, pop(&args), FLAG_IGNORE);
return c_locally(env, args, flags);
case 1:
vars = ECL_CONS_CAR(vars);