Common-LISP打印功能本身

Jor*_*apf 1 lisp common-lisp quine

我想打印,如标题中所述,我的整个功能.

(DEFUN X () ...)

-> (DEFUN X () ...)
Run Code Online (Sandbox Code Playgroud)

我需要写什么"......"?

Lar*_*off 5

#1=(defun x () (write '#1# :circle t))
Run Code Online (Sandbox Code Playgroud)