From 86e2f245f651bb64fbce989b54e66af6cc4c6424 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Fri, 27 Feb 2026 09:48:46 +0100 Subject: [PATCH] cosmetic: remove unnecessary bindings of the_env --- src/c/assignment.d | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/c/assignment.d b/src/c/assignment.d index 1003fcffa..adab7084f 100644 --- a/src/c/assignment.d +++ b/src/c/assignment.d @@ -111,7 +111,6 @@ make_setf_function_error(cl_object name) cl_object ecl_setf_definition(cl_object sym, cl_object createp) { - cl_env_ptr the_env = ecl_process_env(); cl_object pair = sym->symbol.sfdef; if (Null(pair) && !Null(createp)) { createp = make_setf_function_error(sym); @@ -130,7 +129,6 @@ si_setf_definition(cl_object sym, cl_object value) static void ecl_rem_setf_definition(cl_object sym) { - cl_env_ptr the_env = ecl_process_env(); cl_object pair = sym->symbol.sfdef; if (!Null(pair)) { ECL_RPLACA(pair, make_setf_function_error(sym));