(defclass binary-tree-node () ((key :accessor key :initarg :key) (value :accessor value :initarg :value) (left :accessor left :initarg :left :initform nil) (right :accessor right :initarg :right :initform nil)))