1 665c255d 2023-08-04 jrmu (defun union-set-bintree (set1 set2)
2 665c255d 2023-08-04 jrmu   (let* ((lset1 (tree->list-1 set1