Function: EFFECTIVE-NAME

Source

(defun effective-name (function-name)
  (if (symbolp function-name)
      function-name
      (second function-name)))