4 (defun rename-files (from to
)
5 (dolist (file (directory from
))
6 (rename-file file
(translate-pathname file from to
))))
8 ;; And thats it, 3 lines of code, or for our simple testing purposes
10 (defun show-rename-files (from to
)
11 (dolist (file (directory from
))
12 (format t
"Renaming ~A to ~A~%" file
13 (translate-pathname file from to
))))
15 ;; (show-rename-files "/usr/share/pixmaps/*.xpm" "/usr/share/pixmaps/backup-*.xpm")