From a3facd8530cb34dfaef24e6d242f88a2c6402d87 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Tue, 3 Jun 2025 22:45:34 +0200
Subject: [PATCH] [nucl] _nucl_word_dispatch use a stack-allocated frame

nucl_stack_frame is not always defined when we call to this function.
---
 src/c/nucl.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/c/nucl.c b/src/c/nucl.c
index 0240c9f61..aa64bc579 100644
--- a/src/c/nucl.c
+++ b/src/c/nucl.c
@@ -1033,7 +1033,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);
 }