gistfile1.txt

(with-current-buffer "grovel.lisp"
  (while (not (eq (point) (point-max)))
    (when (search-forward "/**" (line-end-position) t)
      (backward-char 3) 
      (delete-region (point) (line-end-position)))
    (forward-line)))

(with-current-buffer "grovel.lisp"
  (while (not (eq (point) (point-max)))
    (when (looking-at "#")
      (delete-char 1)
      (insert "(")
      (search-forward " " (line-end-position) t)
      (insert "\"")
      (search-forward " " (line-end-position) t)
      (backward-char 1)
      (insert "\"")
      (just-one-space)
      (insert "\"")
      (search-forward " " (line-end-position) t)
      (backward-char 1)
      (insert "\"")
      (insert ")")
      (delete-region (point) (line-end-position))

      (goto-char (line-end-position)))
    (delete-horizontal-space)
    (forward-line)))