Функцию переделать в apply - Lisp

(defun findMinMax (lst)
  (minmax (cddr lst) 1 (cons (car lst) (cadr lst))))
 
(defun minmax (lst flag max)
 (cond  ((Null lst)  (+ (car max) (cdr max)))
   ((eq flag 1)  (cond  ((> (car lst) (car max))  (minmax (cdr lst) (* flag -1) (cons (car lst) (cdr max))))
                              (t (minmax (cdr lst) (* flag -1) max))))
   (t (cond  ((< (car lst) (cdr max)) (minmax (cdr lst) (* flag -1) (cons (car max) (car lst))))
                 (t  (minmax (cdr lst) (* flag -1) max))))))