How to get advised function name form inside of the advice

[Vitalie Spinu]

Hi,

How to retrieve the name of the original function from the inside of "new"
advice? I need to condition-case a function and show a meaningful error message
with function name instead of an error.

For concreteness:

    
    (defun tt (a b)
      (message "in: (%s . %d)" a b))
    
    (defun tt-add (fun &rest args)
      (message "running advice for: %s" how_to_get_tt_name_here_)
      (apply fun args))
    
    (advice-add 'tt :around 'tt-add)


Thanks,

  Vitalie