From 98a7eb12a5b7352f4be8dea561f133bf1d3ac8fd Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Tue, 26 Nov 2013 11:56:34 +0100 Subject: [PATCH] Error out when asked to load a non-existing file. --- src/sources/sources.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/sources/sources.lisp b/src/sources/sources.lisp index c706bb2..acb2aa8 100644 --- a/src/sources/sources.lisp +++ b/src/sources/sources.lisp @@ -162,8 +162,11 @@ part root)) (if (probe-file candidate) candidate (error "File does not exists: '~a'." candidate)))) - (:filename (if (fad:pathname-absolute-p part) part - (merge-pathnames part root)))))) + (:filename (let ((filename + (if (fad:pathname-absolute-p part) part + (merge-pathnames part root)))) + (if (probe-file filename) filename + (error "File does not exists: '~a'." filename))))))) ;;;