From ccb888164c8594989afa03af4a3f0fe6a3caa64b Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Wed, 22 Jan 2014 17:11:01 +0100 Subject: [PATCH] Fix where to find relative filenames from within commands. --- src/parser.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/parser.lisp b/src/parser.lisp index b8c61a6..4b92a97 100644 --- a/src/parser.lisp +++ b/src/parser.lisp @@ -1855,7 +1855,10 @@ load database (process-relative-pathnames filename s-exp) s-exp))) -(defun parse-commands-from-file (filename) +(defun parse-commands-from-file (maybe-relative-filename + &aux (filename + ;; we want a truename here + (probe-file maybe-relative-filename))) "The command could be using from :inline, in which case we want to parse as much as possible then use the command against an already opened stream where we moved at the beginning of the data."