mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 13:31:58 -08:00
Code Issues Projects Releases Packages Wiki Activity

core: simplify the signature of si:interpreter-stack

Browse source 
Currently it returns NIL because runtime_stack is not a vector nor a list (or
other lisp structure). Technically we could return a foreign data pointer.
This commit is contained in:
Daniel Kochmański 2025-05-02 14:58:07 +02:00
parent b08f1dc986
commit e5e6a97676
3 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/c/interpreter.d
View file

@ -1333,7 +1333,9 @@ ecl_interpret(cl_object frame, cl_object closure, cl_object bytecodes)
}
}
@(defun si::interpreter-stack ()
@
@(return ECL_NIL);
@)
cl_object
si_interpreter_stack ()
{
cl_env_ptr env = ecl_process_env();
ecl_return1(env, ECL_NIL);
}

2
src/c/symbols_list.h
View file

@ -1217,7 +1217,7 @@ cl_symbols[] = {
{SYS_ "IHS-NEXT" ECL_FUN("si_ihs_next", si_ihs_next, 1) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "IHS-PREV" ECL_FUN("si_ihs_prev", si_ihs_prev, 1) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "IHS-TOP" ECL_FUN("si_ihs_top", si_ihs_top, 0) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "INTERPRETER-STACK" ECL_FUN("si_interpreter_stack", si_interpreter_stack, -1) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "INTERPRETER-STACK" ECL_FUN("si_interpreter_stack", si_interpreter_stack, 0) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "LINK-FROM" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "LINK-TO" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "LOAD-SOURCE" ECL_FUN("si_load_source", si_load_source, 4) ECL_VAR(SI_ORDINARY, OBJNULL)},

2
src/h/external.h
View file

@ -531,7 +531,7 @@ extern ECL_API cl_object si_eval_with_env _ECL_ARGS((cl_narg narg, cl_object for
/* interpreter.c */
extern ECL_API cl_object si_interpreter_stack _ECL_ARGS((cl_narg narg, ...));
extern ECL_API cl_object si_interpreter_stack();
extern ECL_API cl_object ecl_stack_frame_open(cl_env_ptr env, cl_object f, cl_index size);
extern ECL_API void ecl_stack_frame_push(cl_object f, cl_object o);
extern ECL_API void ecl_stack_frame_push_values(cl_object f);