From b758058208cc16acaac07248a6972e8ff8d1539d Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Mon, 28 Apr 2014 15:18:18 +0200 Subject: [PATCH] Fix the fix for parsing quoted-filenames. --- src/parser.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/parser.lisp b/src/parser.lisp index 5f9a425..d8e4609 100644 --- a/src/parser.lisp +++ b/src/parser.lisp @@ -380,7 +380,10 @@ (list :filename (parse-namestring (coerce f 'string))))) (defrule quoted-filename (and #\' (+ (not #\')) #\') - (:destructure (open f close) (declare (ignore open close)) (text f))) + (:lambda (q-f) + (destructuring-bind (open f close) q-f + (declare (ignore open close)) + (list :filename (parse-namestring (coerce f 'string)))))) (defrule maybe-quoted-filename (or quoted-filename filename) (:identity t))