From cffeae0a1dcfe052b8027efddf5e1cfc7393546f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Thu, 12 Mar 2026 12:54:59 +0100
Subject: [PATCH] stacks: elide unnecessary call to ecl_symbol_type

having this call makes interpreter dependent on symbol.d
---
 src/c/interpreter.d | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/c/interpreter.d b/src/c/interpreter.d
index a38542437..2760323d1 100644
--- a/src/c/interpreter.d
+++ b/src/c/interpreter.d
@@ -332,9 +332,9 @@ ecl_progv(cl_env_ptr env, cl_object vars0, cl_object values0)
       return n;
     } else {
       cl_object var = ECL_CONS_CAR(vars);
-      if (!ECL_SYMBOLP(var))
+      if (!ECL_SYMBOLP(var) || Null(var))
         FEillegal_variable_name(var);
-      if (ecl_symbol_type(var) & ecl_stp_constant)
+      if (var->symbol.stype & ecl_stp_constant)
         FEbinding_a_constant(var);
       if (Null(values)) {
         ecl_bds_bind(env, var, OBJNULL);