Единственный стандартный способ
function-lambda-expression
не гарантированно вернет что-нибудь полезное.
Тем не менее CLISP и SBCL возвращают фактическое имя функции:
(nth-value 2 (function-lambda-expression #'+))
==> +
или, если хотите,
(symbol-name (nth-value 2 (function-lambda-expression #'+)))
==> "+"