(define impc:ti:genericfunc-src-changed
(lambda (name arity)
(if (string? name) (set! name (string->symbol name)))
(let ((res (member (cons name arity) *impc:ti:genericfunc-needs-update*)))
;; (println 'name: name 'res: res)
(if res #t #f))))