create archive directory if it doesn't exist

This commit is contained in:
Donald Curtis 2014-01-25 21:28:18 -08:00
parent e1e1f2efa8
commit 90c421c6df
2 changed files with 3 additions and 1 deletions

View file

@ -820,6 +820,9 @@ and a cl struct in Emacs HEAD. This wrapper normalises the results."
(file-name-as-directory (file-name-as-directory
(expand-file-name file-name package-build-working-dir)))) (expand-file-name file-name package-build-working-dir))))
(unless (file-exists-p package-build-archive-dir)
(pb/message "Creating directory %s" package-build-archive-dir)
(make-directory package-build-archive-dir))
(pb/message "\n;;; %s\n" file-name) (pb/message "\n;;; %s\n" file-name)
(let* ((version (package-build-checkout name rcp pkg-working-dir)) (let* ((version (package-build-checkout name rcp pkg-working-dir))

View file

@ -1 +0,0 @@
Good Dog!