(define (make-func-tree fn df mf)
  (let ((res-l '())
	(found-flag #f)
	(l cyl-func-tree-list)
	)
    (if (null? l)
	(if (and (string? df)(string? mf)(string=? df mf))
	    (push (list mf fn) l)
	    (list 'err 0 'make-func-tree (format "当函数树为空时，直接归属函数和归属主函数必须一致。[~a][~a]" df mf)))
	(begin
	      (tr-list (i e l 0)
		       (if (and (string? mf)(string=? mf (car e)))
			   (set! found-flag (add-atom-to-list fn df e)))
	      (push (list mf fn) l))