Реализовать симметрическую разность множеств - Lisp

Формулировка задачи:

Опишите функцию, аргументами которой являются два множества, а результатом — множество, содержащее элементы, принадлежащие только од- ному из исходных множеств.

Решение задачи: «Реализовать симметрическую разность множеств»

textual
                            Листинг программы 
                        
                            (defun sym-dif (s1 s2)
  (append (remove-if (lambda (x) (member x s2)) s1)
          (remove-if (lambda (x) (member x s1)) s2)))
 
==> SYM-DIF
 
(sym-dif '(1 2 3 4) '(3 4 5 6))
 
==> (1 2 5 6)