Дать подробное описание объекту

(defun fact (n)
  (if (zerop n)
      1
      (* n (fact (- n 1)))))
(describe #'fact)

#<FUNCTION FACT (N) (DECLARE (SYSTEM::IN-DEFUN FACT)) (BLOCK FACT (IF # 1 #))>
is an interpreted function.

Argument list: (N)