Function: P-MAPCAR

Source

(defun p-mapcar (function list)
  ;; DO: Accept more than one list argument.
  (let ((result '()))
    (loop while list do
          (setq result (p-cons (funcall function (p-car list))
                               result)
                list (p-cdr list)))
    (p-nreverse result)))