Series version foldl

gistfile1.lisp

(defun foldl (kons knil &rest series-inputs)
  (apply #'series::basic-collect-fn (constantly knil) kons series-inputs))

(define-compiler-macro foldl (kons knil &rest series-inputs)
  `(collect-fn t (constantly ,knil) ,kons ,@series-inputs))

(foldl #'- 0 (scan '(0 1 2 3 4)))
;=> -10