bug: add test with custom TEST and COMBINER for COMPRESSING-RUNS

2025-11-08 10:16:32 +00:00 · 2021-01-04 01:15:14 -08:00
parent ea96548eb0
commit e08fccfe1b
2 changed files with 18 additions and 3 deletions
--- a/transducers.lisp
+++ b/transducers.lisp
@ -79,14 +79,13 @@
                          leftovers t)
                    acc)
             (progn (prog1 (funcall rf acc last)
-                      (setf last (funcall combiner last next))))))
+                      (setf last next)))))
        ((it)
         (funcall rf
                  (if leftovers
                      (funcall rf it last)
                      it)))))))

-
 (defun deduping (&optional (test 'eql))
  (compressing-runs :test test))