Function: P-LIST

Source

(defun p-list (&rest objects)
  (if (endp objects)
      objects
    (p-cons (car objects)
            (apply #'p-list (cdr objects)))))