Function: P-MAPL

Source

(defun p-mapl (function list)
  ;; DO: Accept more than one list argument.
  (let ((tail list))
    (loop while tail do
          (funcall function tail)
          (setq tail (p-cdr tail)))
    list))
Source Context