mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2026-05-06 03:16:10 +02:00
Code Issues Projects Releases Wiki Activity

Error out early when given a non-existing archive file to extract.

Browse Source
This commit is contained in:
Dimitri Fontaine 2013-11-17 19:01:58 +01:00
parent c809d93b05
commit acff88848b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/archive.lisp
View File

@ -57,6 +57,9 @@
"Expand given ARCHIVE-FILE in TMPDIR/(pathname-name ARCHIVE-FILE). Return
the pathname where we did expand the archive file."
(log-message :notice "Extracting files from archive '~a'" archive-file)
(unless (probe-file archive-file)
(error "File does not exists: '~a'." archive-file))
(let* ((archive-name (pathname-name archive-file))
(archive-type
(intern (string-upcase (pathname-type archive-file)) :keyword))