From acff88848b38c2ab9d1934e184e0ac0de7596d86 Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Sun, 17 Nov 2013 19:01:58 +0100
Subject: [PATCH] Error out early when given a non-existing archive file to
 extract.

---
 src/archive.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/archive.lisp b/src/archive.lisp
index fde46b9..857dd25 100644
--- a/src/archive.lisp
+++ b/src/archive.lisp
@@ -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))