(deftest bryan-bst-remove ()
  (let (bst)
    (setf bst (bst-insert 1 bst #'<))
    (setf bst (bst-insert 4 bst #'<))
    (setf bst (bst-insert 2 bst #'<))
    (check
      (bst-find 2 bst #'<)
      (progn
	(setf bst (bst-remove 2 bst #'<))
	(not (bst-find 2 bst #'<))))))