Function: MAKE-BINARY-TREE

Source

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