(defclass binary-tree () ((root :accessor tree-root :initform nil) (node-type :reader node-type :initform 'binary-tree-node :initarg :type) (comparator :reader comparator :initform (number-comparator) :initarg :comparator)))