Function: PIPE-MAPC

Source

(defun pipe-mapc (fn pipe)
  (unless (pipe-null-p pipe)
    (funcall fn (head pipe))
    (pipe-mapc fn (tail pipe))))