Common-LISP Print function itself

Question

I want to print ,as described in the title, my whole function.

(DEFUN X () ...)

-> (DEFUN X () ...)

What do i need to write in "..." ?

Answer 1

#1=(defun x () (write '#1# :circle t))