В AutoLISP возможно ли получить имя функции в теле функции?

Это определенно возможно. Рассмотрим две ситуации:

1) Вы пишете функцию.

Это должно быть легко, просто определите переменную с тем же именем, что и у функции, и все готово. (Как обсуждалось в комментариях выше.)

Вы даже можете использовать что-то более описательное, чем фактическое имя функции. (defun af () ...) можно было бы назвать "Потрясающая функция" вместо "af".

Я бы также рекомендовал использовать стандартное форматирование постоянных значений: заглавные буквы с подчеркиванием для разделения слов. (setq FUNCTION_NAME "AwesomeFunction"). (Это точно так же, как PI, которое установлено для вас, и вы не должны его менять — это константа.)

2) Вы вызываете функцию, название которой вы можете не знать, пока код не запустится.

Некоторые примеры этого:

(apply someFunctionInThisVariable '(1 2 3))

(mapcar 'printTheNameOfAFunction '(+ setq 1+ foreach lambda))

(eval 'anotherFunctionInAVariable)

Чтобы напечатать имя функции, хранящейся в переменной, например, (setq function 'myFunction), вам нужно использовать функцию (vl-princ-to-string).

(vl-princ-to-string function)   ;; Returns "MYFUNCTION"
(strcase (vl-princ-to-string function) T)   ;; Returns "myfunction"

(princ
   (strcase 
      (vl-princ-to-string function)
      T
   )
)            ;; Command line reads: myfunction

Функцию (vl-princ-to-string) можно использовать для любого печатаемого типа, и она всегда будет возвращать строку. Это здорово, если вы не знаете, есть ли у вас число или слово и т. д.

Надеюсь, это поможет!

P.S. Впервые я использовал эту технику, когда писал тестирующую функцию. Отправьте ему функцию и ожидаемое значение, и он проверит, работает ли он должным образом, включая печать имени функции как части строки. Очень полезно, если у вас есть время для настройки тестов.