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

Change cinit.d so that it compiles with MSVC

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-08-06 09:41:31 +02:00
parent 1eb01d1431
commit 7c218121b8
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/cinit.d
View file

@ -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);