From 7c218121b805cdf154604ac829a67b47ebdf2d3b Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 6 Aug 2009 09:41:31 +0200 Subject: [PATCH] Change cinit.d so that it compiles with MSVC --- src/c/cinit.d | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/c/cinit.d b/src/c/cinit.d index 21b7e0b53..efeb13454 100644 --- a/src/c/cinit.d +++ b/src/c/cinit.d @@ -38,8 +38,9 @@ extern cl_object si_safe_eval(cl_narg narg, cl_object form, cl_object env, ...) { if (narg == 3) { + cl_object err_value; va_list args; va_start(args, env); - cl_object err_value = va_arg(args, cl_object); + err_value = va_arg(args, cl_object); return cl_funcall(4, @'si::safe-eval', form, env, err_value); } return cl_funcall(3, @'si::safe-eval', form, env); @@ -49,8 +50,9 @@ extern cl_object si_string_to_object(cl_narg narg, cl_object string, ...) { if (narg == 2) { + cl_object err_value; va_list args; va_start(args, string); - cl_object err_value = va_arg(args, cl_object); + err_value = va_arg(args, cl_object); return cl_funcall(3, @'si::string-to-object', string, err_value); } return cl_funcall(2, @'si::string-to-object', string);