doc-test.cl

(defun add-three (a b c)
  "adds three numbers A B and C together"
  (+ (+ a b) c))

(defvar a 1)

(print (doc add-three))
(print (doc a))