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

Minor cast errors

Browse source
This commit is contained in:
jjgarcia 2005-03-15 14:26:32 +00:00
parent af0a31dc42
commit b8ab417619
5 changed files with 13 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/alloc_2.d
View file

@ -39,8 +39,11 @@ struct typemanager tm_table[(int)t_end];
#endif
static void
finalize(cl_object o, cl_object data)
finalize(GC_PTR _o, GC_PTR _data)
{
cl_object o = (cl_object)_o;
cl_object data = (cl_object)_data;
CL_NEWENV_BEGIN {
switch (type_of(o)) {
#ifdef ENABLE_DLOPEN

9
src/c/eval.d
View file

@ -79,7 +79,8 @@ cl_apply_from_stack(cl_index narg, cl_object x)
if (fun->cfun.narg >= 0) {
if (narg != (cl_index)fun->cfun.narg)
FEwrong_num_arguments(fun);
return APPLY_fixed(narg, fun->cfun.entry, cl_env.stack_top - narg);
return APPLY_fixed(narg, (cl_objectfn_fixed)fun->cfun.entry,
cl_env.stack_top - narg);
}
return APPLY(narg, fun->cfun.entry, cl_env.stack_top - narg);
case t_cclosure:
@ -126,7 +127,8 @@ link_call(cl_object sym, cl_objectfn *pLK, cl_object cblock, int narg, cl_va_lis
if (fun->cfun.narg >= 0) {
if (narg != fun->cfun.narg)
FEwrong_num_arguments(fun);
out = APPLY_fixed(narg, fun->cfun.entry, cl_env.stack_top - narg);
out = APPLY_fixed(narg, (cl_objectfn_fixed)fun->cfun.entry,
cl_env.stack_top - narg);
} else {
if (pLK) {
si_put_sysprop(sym, @'si::link-from',
@ -199,7 +201,8 @@ si_unlink_symbol(cl_object s)
if (fun->cfun.narg >= 0) {
if (narg != fun->cfun.narg)
FEwrong_num_arguments(fun);
out = APPLY_fixed(narg, fun->cfun.entry, cl_env.stack_top - narg);
out = APPLY_fixed(narg, (cl_objectfn_fixed)fun->cfun.entry,
cl_env.stack_top - narg);
} else {
out = APPLY(narg, fun->cfun.entry, cl_env.stack + sp);
}

2
src/c/interpreter.d
View file

@ -414,7 +414,7 @@ interpret_funcall(cl_narg narg, cl_object fun) {
if (fun->cfun.narg >= 0) {
if (narg != fun->cfun.narg)
FEwrong_num_arguments(fun);
x = APPLY_fixed(narg, fun->cfun.entry, args);
x = APPLY_fixed(narg, (cl_objectfn_fixed)fun->cfun.entry, args);
} else {
x = APPLY(narg, fun->cfun.entry, args);
}

2
src/c/unixfsys.d
View file

@ -252,7 +252,7 @@ backup_fopen(const char *filename, const char *option)
#endif
if (rename(filename, backupfilename))
FElibc_error("Cannot rename the file ~S to ~S.", 2,
make_simple_string(filename), make_simple_string(backupfilename));
make_constant_string(filename), make_simple_string(backupfilename));
return fopen(filename, option);
}

1
src/h/object.h
View file

@ -39,6 +39,7 @@ typedef union cl_lispunion *cl_object;
typedef cl_object cl_return;
typedef cl_fixnum cl_narg;
typedef cl_object (*cl_objectfn)(cl_narg narg, ...);
typedef cl_object (*cl_objectfn_fixed)();
/*
OBJect NULL value.