1 files changed, 0 insertions, 1 deletions
diff --git a/lib.c b/lib.c
index 9c3a700c..11f9b520 100644
--- a/lib.c
+++ b/lib.c
@@ -1644,7 +1644,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;
     }
   }