Method: (CREATE-NODE AVL-TREE-NODE)

Source

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