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

generic-dispatch: move copy operation

Browse source 
Move copy operation before the function which has side-effects. Reported
and fixed by clasp dev team. Thanks!
This commit is contained in:
Daniel Kochmański 2015-10-31 13:29:35 +01:00
parent f605c52f6c
commit 5532d4b996
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/gfun.d
View file

@ -244,9 +244,9 @@ _ecl_standard_dispatch(cl_object frame, cl_object gf)
* compute the applicable methods. We must save
* the keys and recompute the cache location if
* it was filled. */
cl_object keys = cl_copy_seq(vector);
func = compute_applicable_method(env, frame, gf);
if (env->values[1] != ECL_NIL) {
cl_object keys = cl_copy_seq(vector);
if (e->key != OBJNULL) {
e = ecl_search_cache(cache);
}