(use-package :UNION-FIND)
(defun test-union-find ()
(let ((a (make-equiv-class))
(b (make-equiv-class))
(c (make-equiv-class)))
(format t "Value in parentheses is the correct result.~%~%")
(format t "(NIL) Comparing A and B: ~A~%" (compare a b))
(format t "(NIL) Comparing B and C: ~A~%" (compare b c))
(format t "Combining A and C~%")
(combine a c)
(format t "(T) Comparing A and C: ~A~%" (compare a c))
(format t "(NIL) Comparing C and B: ~A~%" (compare c b))
(format t "Combining C and B~%")
(combine c b)
(format t "(T) Comparing A and B: ~A~%" (compare a b))))