Function: MAKE-AVL-TREE

Source

(defun make-avl-tree (&optional (comparator (build-comparator #'= :< #'<)))
  (make-instance 'binary-tree :comparator comparator
		 :type 'avl-tree-node))