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

LOAD-TIME-VALUE returned two values when passed two

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-02-02 23:19:56 +01:00
parent 2bf38a92fc
commit 974ba01d5c
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/compiler.d
View file

@ -1606,9 +1606,9 @@ c_leta(cl_env_ptr env, cl_object args, int flags) {
static int
c_load_time_value(cl_env_ptr env, cl_object args, int flags)
{
if (cl_cddr(args) != Cnil)
FEprogram_error_noreturn("LOAD-TIME-VALUE: Too many arguments.", 0);
return c_values(env, args, flags);
if (Null(args) || cl_cddr(args) != Cnil)
FEprogram_error_noreturn("LOAD-TIME-VALUE: Wrong number of arguments.", 0);
return c_values(env, ECL_CONS_CAR(args), flags);
}
static int