From db9f22c190954afbfc6ffee7cfc87d70a759eda1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 9 May 2025 13:06:28 +0200
Subject: [PATCH] lisp stack: deallocate the old stack after resizing

Just like with other stacks we call ecl_dealloc on the old stack. Previously
we had stack frames that could have referenced it, but we can treat it like
other stacks, because there are not lingering references.
---
 src/c/stacks.d | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/c/stacks.d b/src/c/stacks.d
index dfb4f3177..3c883a59d 100644
--- a/src/c/stacks.d
+++ b/src/c/stacks.d
@@ -169,6 +169,7 @@ ecl_stack_set_size(cl_env_ptr env, cl_index tentative_new_size)
   }
   ECL_STACK_RESIZE_ENABLE_INTERRUPTS(env);
 
+  ecl_dealloc(old_stack);
   return env->stack_top;
 }