From b15b71016f255e91e6663a22ab61719330246c87 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 5 Feb 2017 07:20:14 -0800 Subject: bugfix: incorrect keepql due to spurious statement. * lib.c (keepql): Remove repeated list_collect_nconc call. --- lib.c | 1 - 1 file changed, 1 deletion(-) (limited to 'lib.c') diff --git a/lib.c b/lib.c index 9c3a700c..11f9b520 100644 --- a/lib.c +++ b/lib.c @@ -1643,7 +1643,6 @@ val keepql(val obj, val list_orig, val key) for (; list; list = cdr(list)) { if (!eql(funcall1(key, car(list)), obj)) { - ptail = list_collect_nconc(ptail, ldiff(cdr(lastmatch), list)); ptail = list_collect_nconc(ptail, ldiff(cdr(lastmatch), list)); lastmatch = list; } -- cgit v1.2.3