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

ensure-directories-exist when 'expand'

Browse source
This commit is contained in:
SANO Masatoshi 2020-01-17 19:49:14 +08:00
parent 4bd213eef5
commit 66081c191d
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/install-sbcl.lisp
View file

@ -122,7 +122,7 @@
(t
(format t "~%Extracting archive:~A~%" (opt "download.archive"))
(expand (opt "download.archive")
(merge-pathnames "src/" h))
(ensure-directories-exist (merge-pathnames "src/" h)))
(ignore-errors
(ql-impl-util:rename-directory
(merge-pathnames (format nil "src/sbcl-sbcl-~A" v) h)

3
lisp/util.lisp
View file

@ -146,7 +146,8 @@ Example:
output nil))
(defun expand (archive dest &key verbose)
"Interface to the roswell C binary"
"extract archive via roswell. gz/bz/7z should be supported."
(ensure-directories-exist dest)
#+win32
(progn
(roswell:include "install+7zip")