Method: (CLEAR-TREE T)

Source

(defmethod clear-tree (tree)
  (setf (tree-root tree) nil))