Написать функцию поиска

(poisk 'vozrost '(Anna 62 151cm))
62
(poisk 'imja '(Anna 62 151cm))
Anna

(defun poisk (a w)
  (cond ((eql a 'imja) (car w))
        ((eql a 'vozrast) (cadr w))
        ((eql a 'rost) (caddr w))
        (t 'error)))
 
> (poisk 'imja '(Anna 62 151cm))
ANNA
> (poisk 'vozrast '(Anna 62 151cm))
62
> (poisk 'rost '(Anna 62 151cm))
151CM

(defun search (req val lst)
  (cond ((null lst) nil)
        (t (cond 
            ((And (eq req 'name) (eq (caar lst) val)) (cons (car lst) (search req val (cdr lst))))
            ((And (eq req 'age)  (eq (cadar lst) val)) (cons (car lst) (search req val (cdr lst))))
            ((And (eq req 'height) (eq (caddar lst) val)) (cons (car lst) (search req val (cdr lst))))
            (t (search req val (cdr lst)))))))
 
==> search
 
(search 'height 158 '((Оля 21 165) (Галя 20 158) (Юля 19 170) (Надя 21 171) (Аня 19 159)))
 
==> ((Галя 20 158))
 
(search 'name 'Аня '((Оля 21 165) (Галя 20 158) (Юля 19 170) (Надя 21 171) (Аня 19 159)))
 
==> ((Аня 19 159))
 
(search 'age 21 '((Оля 21 165) (Галя 20 158) (Юля 19 170) (Надя 21 171) (Аня 19 159)))
 
==> ((Оля 21 165) (Надя 21 171))

(defun get-value (slot record)
  (funcall (getf (list :name #'first
                       :age #'second
                       :height #'third)
                 slot (constantly nil))
           record))

CL-USER> (get-value :name '(Ann 14 152cm))
ANN
CL-USER> (get-value :age '(Ann 14 152cm))
14
CL-USER> (get-value :height '(Ann 14 152cm))
152CM
CL-USER> (get-value :no-such-slot '(Ann 14 152cm))
NIL
CL-USER>