mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 21:32:49 -08:00
Code Issues Projects Releases Packages Wiki Activity

When removing a SETF definition, we cannot drop the pair, because it may be used by some compiled code.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-07-08 00:12:39 +02:00
parent a2a37c2f26
commit 0d07b0164a
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/assignment.d
View file

@ -98,8 +98,14 @@ ecl_rem_setf_definition(cl_object sym)
ECL_WITH_GLOBAL_ENV_WRLOCK_BEGIN(the_env) {
cl_object pair = ecl_gethash_safe(sym, cl_core.setf_definitions, ECL_NIL);
if (!Null(pair)) {
ECL_RPLACA(pair, ECL_NIL);
ECL_RPLACA(pair, make_setf_function_error(sym));
ECL_RPLACD(pair, ECL_NIL);
/*
FIXME: This leaks resources
We actually cannot remove it, because some compiled
code might be using it!
ecl_remhash(sym, cl_core.setf_definitions);
*/
}
} ECL_WITH_GLOBAL_ENV_WRLOCK_END;
}