Опpеделите пpедикат, проверяющий являются ли два множества пересекающимися - Lisp

(defun is-overlap (a b)
  (cond ((null a) nil)
        ((member (car a) b) t)
        (t (is-overlap (cdr a) b))))
 
==> is-overlap
 
(is-overlap '(1 2 3 4 5) '(6 7 8 9))
 
==> NIL
 
(is-overlap '(1 2 3 4 5) '(5 6 7 8 9))
 
==> T