Blob


1 (defun union-set-bintree (set1 set2)
2 (let* ((lset1 (tree->list-1 set1