playground for http://puntoblogspot.blogspot.com.es/2013/01/parsing-elisp-code-with-elisp.html

elisp-documentor.el

(defun fetch-defuns (buffer)
  (save-excursion
    (goto-char (point-min))
    (let (sexp
         (defuns nil)
         (defmacros nil))
      (condition-case nil
         (while t
           (setq sexp (read buffer))
           (when (listp sexp)
             (case (car sexp)
               (defun (push (cons (cadr sexp) (doc-if-any sexp)) defuns))
               (defmacro (push (cons (cadr sexp) (doc-if-any sexp)) defmacros)))))
       (error nil))
      ;; reverse the reversed defuns
      (setq defuns (reverse defuns))
      (generate-docs defuns))))

(defun doc-if-any (sexp)
  "search for the doc"
  (when (stringp (cadddr sexp))
    (cadddr sexp)))

(defun generate-docs (defuns)
   "generate a simple org with the docs"
       (mapconcat
        (lambda (x)
           (format "\n* %s\n  %s"
                          (car x) (or (cdr x) "-undocumented-")))
        defuns "\n"))