feat: two-arg INTO and continue restart for xfs

2025-11-08 10:16:32 +00:00 · 2025-06-28 14:58:32 -07:00
parent d52023f9f4
commit ffe67ab084
3 changed files with 54 additions and 9 deletions
--- a/transducers.lisp
+++ b/transducers.lisp
@ -23,7 +23,12 @@
    (lambda (rf)
      (transducer-lambda
        ((acc next)
-         (funcall rf acc (call-function next)))
+         (restart-case
+             (funcall rf acc (call-function next))
+           (continue ()
+             :report (lambda (s)
+                       (format s "skip this item"))
+             acc)))
        ((it) (funcall rf it))))))

 (defun mv-mapping (function &rest args)