Запишите, пожалуйста, неименную функцию в mulisp, которая проверяет принадлежность элемента к списку.

 ((lambda (x y) (if (member x y) t nil)) 'a '(b c a d e))
 
==> T

((lambda (lst a f) (cond ((null lst) nil) 
                         ((equal a (car lst)) t)
                         (t (funcall f (cdr lst) a f))))
 '(a b (c d) e f) 'e 
 '(lambda (lst a f) (cond ((null lst) nil) 
                          ((equal a (car lst)) t)
                          (t (funcall f (cdr lst) a f)))))
                       
==> T
 
((lambda (lst a f) (cond ((null lst) nil) 
                         ((equal a (car lst)) t)
                         (t (funcall f (cdr lst) a f))))
 '(a b (c d) e f) 'z 
 '(lambda (lst a f) (cond ((null lst) nil) 
                          ((equal a (car lst)) t)
                          (t (funcall f (cdr lst) a f)))))
                       
==> NIL
 
((lambda (lst a f) (cond ((null lst) nil) 
                         ((equal a (car lst)) t)
                         (t (funcall f (cdr lst) a f))))
 '(a b (c d) e f) '(c d) 
 '(lambda (lst a f) (cond ((null lst) nil) 
                          ((equal a (car lst)) t)
                          (t (funcall f (cdr lst) a f)))))
                      
==> T
 
((lambda (lst a f) (cond ((null lst) nil) 
                         ((equal a (car lst)) t)
                         (t (funcall f (cdr lst) a f))))
 '(a b (c d) e f) '(c z) 
 '(lambda (lst a f) (cond ((null lst) nil) 
                          ((equal a (car lst)) t)
                          (t (funcall f (cdr lst) a f)))))
                       
==> NIL