1 665c255d 2023-08-04 jrmu (defun union-set (set1 set2)
2 665c255d 2023-08-04 jrmu   (append
3 665c255d 2023-08-04 jrmu    set1
4 665c255d 2023-08-04 jrmu    (remove-if
5 665c255d 2023-08-04 jrmu     (lambda (x)
6 665c255d 2023-08-04 jrmu       (element-of-set? x set1))
7 665c255d 2023-08-04 jrmu     set2)))