how to determine the current function?

[Kevin Rodgers]

I could probably find out how to do this by looking into the implementation of
the Emacs Lisp debuggers (debug.el and edebug.el), but I thought I'd be lazy and
ask the experts here first.

I want to know whether I can distinguish between calls to 2 functions defined
like this:

(defun foo () ...)
(fset 'bar 'foo)

within a piece of advice:

(defadvice foo (after ...)
  ;; How can I determine whether called as foo or as bar?
  ...)

Thanks,
--
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;";>Kevin Rodgers</a>