mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-05 18:30:24 -08:00
Code Issues Projects Releases Packages Wiki Activity

[nucl] _nucl_word_dispatch use a stack-allocated frame

Browse source 
nucl_stack_frame is not always defined when we call to this function.
This commit is contained in:
Daniel Kochmański 2025-06-03 22:45:34 +02:00
parent 0843ac7735
commit 46e2985b91
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/nucl.c
View file

@ -1025,7 +1025,10 @@ static cl_object nucl_dictionary_default_entries[] = {
cl_object
_nucl_word_dispatch(cl_narg narg, ...)
{
cl_object frame = nucl_stack_frame();
const cl_env_ptr the_env = ecl_process_env();
struct ecl_stack_frame aux_frame[1];
cl_object frame = ecl_cast_ptr(cl_object, aux_frame);
ecl_stack_frame_open(the_env, frame, 0);
return ecl_interpret(frame, ECL_NIL, frame->frame.env->function);
}