(setq l1 '(a s d f g h)) (setq l2 '(1 2 3 5 6 a)) (defun verify (list1 list2) (cond ((null list1) nil) ((not (eq(find (car list1) list2) nil)) (verify (cdr list1) list2) t) )) (verify l1 l2)
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more