From f0cc4ddef95773c791c9244446e7ba89dc8edc08 Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Tue, 29 Apr 2014 14:49:55 +0200
Subject: [PATCH] Fix filename matching when no match is found.

---
 src/sources/sources.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/sources/sources.lisp b/src/sources/sources.lisp
index c550609..9c39fd3 100644
--- a/src/sources/sources.lisp
+++ b/src/sources/sources.lisp
@@ -165,7 +165,7 @@
    against the given regexp."
   (let* ((candidates (pgloader.archive:get-matching-filenames root regex))
 	 (candidates (ecase keep
-		       (:first (list (first candidates)))
+		       (:first (when candidates (list (first candidates))))
 		       (:all   candidates))))
     (unless candidates
       (error "No file matching '~a' in expanded archive in '~a'" regex root))