(defmethod search-node (node k) (when node (with-slots (left right key value) node (cond ((comp-= k key) value) ((comp-< k key) (search-node left k)) (t (search-node right k))))))