(define impc:ti:genericfunc-src-compiled
(lambda (name arity)
(if (string? name) (set! name (string->symbol name)))
(set! *impc:ti:genericfunc-needs-update*
(cl:remove-if (lambda (x) (equal? x (cons name arity))) *impc:ti:genericfunc-needs-update*))))