we aren't using matlisp yet, I've not made the hacked version with its new deps available
[CommonLispStat.git] / utilities.lisp
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")