(let ((x 0))
  (defun foo ()
    x)

  (defun bar ()
    x))

(setf (documentation 'foo 'function) "Foo")
(print (documentation 'bar 'function))