gistfile1.el

(defun sly-copy-next-sexp (results key-name)
  (kill-ring-save (point) (save-excursion (forward-sexp) (point)))
  (cl-acons key-name (substring-no-properties (current-kill 0)) results))

(defun sly-extract-slyfuns ()
  "Return a list of alists of the form ((slyfun-name ...) (slyfun-doc-string ...))." 
  (with-current-buffer "slynk.lisp"
    (goto-char  (point-min))
    (cl-loop
     with results = nil
     while (search-forward "(defslyfun" nil t)
     do
     (setf results (sly-copy-next-sexp results 'slyfun-name))
     
     (forward-sexp) 
     (forward-sexp) ;; lambda list
     (forward-sexp)
     (backward-sexp)
      
     (when (string-equal "\""  (string (char-after)))
       (setf results (sly-copy-next-sexp results 'slyfun-doc-string)))
     collect results)))