This commit is contained in:
SANO Masatoshi 2018-01-08 07:48:07 +10:30
parent 326a3324aa
commit 4b6968fbf2

View file

@ -54,7 +54,7 @@
(uiop:run-program
(format nil "hdiutil attach ~A | awk -F '\t' 'END{print $NF}'" (opt "download.archive"))
:output :string))))
(uiop:run-program (format nil "cp -r ~A/AllegroCLexpress.app/Contents/Resources/ ~A"
(uiop:run-program (format nil "cp -r \"~A/AllegroCLexpress.app/Contents/Resources/\" \"~A\""
mount-dir
(ensure-directories-exist (merge-pathnames (format nil "~A/" (opt "as")) impls))))
(uiop:run-program (format nil "hdiutil detach \"~A\"" mount-dir))))