From 974ba01d5c9aaba16fa446ec6ad9fa9f135cf3e3 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 2 Feb 2012 23:19:56 +0100 Subject: [PATCH] LOAD-TIME-VALUE returned two values when passed two --- src/c/compiler.d | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/c/compiler.d b/src/c/compiler.d index c012b9e1b..fbb9bd890 100644 --- a/src/c/compiler.d +++ b/src/c/compiler.d @@ -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