mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-24 02:21:04 -07:00
Code Issues Projects Releases Packages Wiki Activity

The interpreter only allowed LOAD-TIME-VALUE to take one argument.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-01-31 23:02:33 +01:00
parent ed7ab8cccc
commit 250a3d9caf
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/compiler.d
View file

@ -1606,7 +1606,7 @@ 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_rest(args) != Cnil)
if (cl_cddr(args) != Cnil)
FEprogram_error_noreturn("LOAD-TIME-VALUE: Too many arguments.", 0);
return c_values(env, args, flags);
}