mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-09 06:30:32 -07:00
Code Issues Projects Releases Packages Wiki Activity

cosmetic: remove unnecessary bindings of the_env

Browse source
This commit is contained in:
Daniel Kochmański 2026-02-27 09:48:46 +01:00
parent b230bf52ac
commit 86e2f245f6
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/assignment.d
View file

@ -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));