mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-24 05:21:20 -08:00
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:
parent
c38739f3bb
commit
c1c68bb4fe
1 changed files with 1 additions and 0 deletions
|
|
@ -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);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue