mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-05-10 17:41:10 -07:00
Code Issues Projects Releases Packages Wiki Activity

clos: rename si_generic_function_p -> si_funcallable_object_p

Browse source 
To better reflect the predicate nature.
This commit is contained in:
Daniel Kochmański 2026-05-08 20:59:58 +02:00
parent e02fb7ea04
commit d24216d5e9
3 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/clos/gfun.d
View file

@ -85,9 +85,10 @@ clos_set_funcallable_instance_function(cl_object x, cl_object function_or_t)
}
cl_object
si_generic_function_p(cl_object x)
si_funcallable_object_p(cl_object x)
{
@(return ((ECL_INSTANCEP(x) && (x->instance.isgf))? ECL_T : ECL_NIL));
cl_env_ptr the_env = ecl_process_env();
ecl_return1(the_env, (ECL_FUNCALLABLE_P(x) ? ECL_T : ECL_NIL));
}
static cl_object

2
src/c/symbols_list.h
View file

@ -1314,7 +1314,7 @@ cl_symbols[] = {
{SYS_ "WRITE-UGLY-OBJECT" ECL_FUN("si_write_ugly_object", si_write_ugly_object, 2) ECL_VAR(SI_SPECIAL, OBJNULL)},
{SYS_ "COPY-INSTANCE" ECL_FUN("si_copy_instance", si_copy_instance, 1) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "GENERIC-FUNCTION-P" ECL_FUN("si_generic_function_p", si_generic_function_p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "FUNCALLABLE-OBJECT-P" ECL_FUN("si_funcallable_object_p", si_funcallable_object_p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "INSTANCE-REF" ECL_FUN("si_instance_ref", si_instance_ref, 2) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "INSTANCE-SET" ECL_FUN("si_instance_set", si_instance_set, 3) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "INSTANCE-OBSOLETE-P" ECL_FUN("si_instance_obsolete_p", si_instance_obsolete_p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)},

2
src/h/external.h
View file

@ -808,7 +808,7 @@ extern ECL_API cl_object si_gc_stats(cl_object enable);
extern ECL_API void _ecl_set_method_hash_size(cl_env_ptr env, cl_index size);
extern ECL_API cl_object si_clear_gfun_hash(cl_object what);
extern ECL_API cl_object clos_set_funcallable_instance_function(cl_object x, cl_object function_or_t);
extern ECL_API cl_object si_generic_function_p(cl_object instance);
extern ECL_API cl_object si_funcallable_object_p(cl_object instance);
extern ECL_API cl_object _ecl_standard_dispatch(cl_object frame, cl_object fun);