From 5532d4b9968f8697a26e96edbee4185558dc9198 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Sat, 31 Oct 2015 13:29:35 +0100 Subject: [PATCH] generic-dispatch: move copy operation Move copy operation before the function which has side-effects. Reported and fixed by clasp dev team. Thanks! --- src/c/gfun.d | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/c/gfun.d b/src/c/gfun.d index 058d080e5..6fa96119e 100644 --- a/src/c/gfun.d +++ b/src/c/gfun.d @@ -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); }