使い道が思いつかないLisp

(defun insert-all-file (folder wild) 
  (interactive "DFolder: \n1sWild: " :default1 "*.txt") 
  (dolist (filename (directory folder :wild wild
                      :absolute t :recursive t) ) 
    (insert 
            "*****" 
            (file-namestring  filename) 
            "*****" 
            #\C-j
    ) 
    (insert-file filename)
    (goto-char  (point-max))
    (insert #\C-j) 
    ) 
  )
(defun listup-files()
  (switch-to-buffer "*all-file*")
  (insert-all-file "C:/Home/work" "*.txt")
)

作っては見ましたが定型的な業務なら使えるのかもしれませんが私の状況では使わなそう