Emacs Lisp: fold に続いて pair-fold

ちょっと強引ですが。。

• vallog: Emacs Lisp の cl package には loop マクロがあるので、取りあえず fold もどきを定義

(defun pair-fold1 (proc seed ls)
  (loop
     for e on ls by #'cdr
     for acc = (funcall proc ls seed)
     then (funcall proc e acc)
     finally (return acc)))