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

Source

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