common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

added delete-directory-tree

Browse source
This commit is contained in:
Akihide Nano 2019-07-16 17:09:37 +09:00
parent 77da61679c
commit 7a4d134ed2
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/install-slime.lisp
View file

@ -62,6 +62,7 @@
do (download (second list) archive-file))) do (download (second list) archive-file)))
(uiop/filesystem:delete-directory-tree (ensure-directories-exist extract-path) :validate t) (uiop/filesystem:delete-directory-tree (ensure-directories-exist extract-path) :validate t)
(expand archive-file (ensure-directories-exist extract-path)) (expand archive-file (ensure-directories-exist extract-path))
(uiop/filesystem:delete-directory-tree (merge-pathnames (format nil "lisp/slime/~A/" name) (homedir)) :validate t :if-does-not-exist :ignore)
(prog1 (prog1
(ql-impl-util:rename-directory (ql-impl-util:rename-directory
(first (directory (make-pathname :defaults extract-path :name :wild :type :wild))) (first (directory (make-pathname :defaults extract-path :name :wild :type :wild)))