(defmethod create-node (tree &rest args &key &allow-other-keys) (apply #'make-instance (node-type tree) args))