1 (defun union-set (set1 set2)
2   (append
3    set1
4    (remove-if
5     (lambda (x)
6       (element-of-set? x set1))
7     set2)))