Commit a4a4819c authored by Antoine Martin's avatar Antoine Martin
Browse files

Simplify the directory cleanup function

parent e7b56096
......@@ -2,15 +2,10 @@
(defun clean-directory (path)
(dolist (dir (directory (merge-pathnames "*/" (truename path))))
(clean-directory dir)
(sb-ext:delete-directory dir))
(sb-ext:delete-directory dir :recursive t))
(dolist (file (directory (merge-pathnames "*.*" (truename path))))
(delete-file file)))
(defun remove-directory (path)
(clean-directory path)
(sb-ext:delete-directory (truename path)))
(defun all-directories (path)
(merge-pathnames "*/" (truename path)))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment