Определить фамилию победителя соревнования и разницу между лучшим и худшим результатом

CL-USER 16 : 1 > (defstruct sport fam mnt sec)
SPORT
 
CL-USER 17 : 1 > (defun sp(n)
                   (cond ((= n 0) nil)
                         (t (cons (make-sport
                                   :fam (read)
                                   :mnt (read)
                                   :sec (read)) (sp (- n 1))))))
SP
CL-USER 26 : 4 > (defun max1(x)
               (cond ((eq (cdr x) nil) (sport-mnt (car x))) ((eq (cdr x) nil) (sport-sec (car x))) 
                     (t (cons (max (sport-mnt (car x)) (max1 (cdr x)))(max (sport-sec (car x)) (max1 (cdr x)))))))
MAX1
CL-USER 36 : 5 > (defun min1(x)
                   (cond ((eq (cdr x) nil) (sport-sec (car x)))
                         (t (cons (min (sport-mnt (car x)) (min1 (cdr x)))(min (sport-sec (car x))(min1 (cdr x)))))))
MIN1

(defstruct run name mm ss)
 
(defun res (n)
  (when (> n 0) (cons (make-run :name (read) :mm (read) :ss (read)) (res (1- n)))))
 
(defun name-ss (w)
  (mapcar #'(lambda (a) (list (run-name a) (+ (* (run-mm a) 60) (run-ss a)))) w))
 
(defun r-sort (w)
  (sort (name-ss w) #'< :key #'cadr))
 
(defun winner (w)
  (caar (r-sort w)))
 
(defun advantage (w &aux (v (r-sort w)))
  (- (cadar (last v)) (cadar v)))
 
> (setq 3km (res 2)) 
ivanov
10
54
petrov
9
37
(#S(RUN :NAME IVANOV :MM 10 :SS 54) #S(RUN :NAME PETROV :MM 9 :SS 37))
> (winner 3km)
PETROV
> (advantage 3km)
77

(defstruct sport name m s)
(defparameter *number*  (+ (random 10) 10)) ;число участников соревнований от 10 до 19
 
(defun generate-name () ;генератор случайной фамилии
    (let* ((len (+ (random 5) 5)) (name (make-string len))) 
          (dotimes (i len name) ;генерируем в цикле случайный символ ASCII-диапазона английского алфавита     
               (setf (char name i) (code-char (+ 97 (random 26)))))
          (setf (char name 0) (char-upcase (char name 0))) ; фамилия начинается с большой буквы
          name)) 
 
(defun generate-list-of-sportsmens (num) ; генерация списка спортсменов
    (let ((lst nil))
         (dotimes (i num lst)
            (push (make-sport :name (generate-name) :m (+ 10 (random 5)) :s (random 60)) lst))))
 
(defun res-in-seconds (player) ; результат спортсмена в секундах
    (+ (* 60 (sport-m player))  (sport-s player)))
 
(defun find-winner-and-loser (min-elt max-elt lst) ;обходит весь список, возвращающая чемпиона и лузера
    (cond ((null lst) (values min-elt max-elt (-(res-in-seconds max-elt) (res-in-seconds min-elt))))
          ((<= (res-in-seconds (car lst)) (res-in-seconds min-elt))
                    (find-winner-and-loser (car lst) max-elt (cdr lst)))
          ((>= (res-in-seconds (car lst)) (res-in-seconds max-elt))
                    (find-winner-and-loser min-elt (car lst) (cdr lst)))
      (t (find-winner-and-loser min-elt max-elt (cdr lst)))))
 
(defun min-max (lst) ; вызывается с топлевела
    (format t "Список участников:~%")
    (dolist (elmt lst) 
         (format t "~A~%" elmt))
    (format t "~%Лучший и худший результат:~%")
    (multiple-value-bind (winner loser delta)
        (if (<= (res-in-seconds (first lst)) (res-in-seconds (second lst)))
            (find-winner-and-loser (first lst) (second lst) (cddr lst))
        (find-winner-and-loser (second lst) (first lst) (cddr lst)))
        (format t "~A~%~A~%Разница:~A мин ~A сек" winner loser (floor (/ delta 60)) (- delta (* 60 (floor (/ delta 60)))))))