Оператор and не работает?

(среднее 4 7 6)

==> 6

(defun srav (x y z) 
(cond (and (> x y) (> x z) (> y z) z) 
(and (> x y) (> x z) (> z y) z) 
(and (> y z) (> y x) (> x z) x)))

==> SRAV

(srav 4 5 6)

Error in COND [or a callee]: The variable AND is unbound.

(defun average-num (x y z)
  (cond
    ((> x y) (cond ((> y z) y)
                   (t z)))
    ((> y x) (cond ((> z y) y)
                   (t z)))
    ((> z x) (cond ((> y z) z)
                   (t x)))))
 
> (average-num 7 6 4)
6
> (average-num 4 7 6)
6
> (average-num 4 6 7)
6

(defun srav (x y z) 
   (cond ((and (> x y) (> x z) (> y z)) z) 
         ((and (> x y) (> x z) (> z y)) z) 
         ((and (> y z) (> y x) (> x z)) x)))

(define (max x y) (if (> x y) x y))
(define (min x y) (if (< x y) x y))
 
(define (average x y z)
  (max (max (min x y)
            (min x z))
       (max (min y x)
            (min y z))))
 
(define (also-average x y z)
  (define (f a b c) (max (min a b) (min a c)))
  (max (f x y z) (f y x z)))
 
(display "average\n")
(average 1 2 3)
(average 2 3 1)
(average 3 1 2)
(average 1 3 2)
(average 3 2 1)
(average 2 1 3)
(display "also-average\n")
(also-average 1 2 3)
(also-average 2 3 1)
(also-average 3 1 2)
(also-average 1 3 2)
(also-average 3 2 1)
(also-average 2 1 3)