From 4287649f30fe7009c954262ead4d475c4ef0ce50 Mon Sep 17 00:00:00 2001 From: Attila Lendvai <attila@lendvai.name> Date: Fri, 9 Dec 2016 14:41:17 +0100 Subject: [PATCH] fix: use proper pathname format for :relative --- doit.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/doit.lsp b/doit.lsp index 8a982e27..e052fc0d 100644 --- a/doit.lsp +++ b/doit.lsp @@ -17,7 +17,7 @@ (dir-pathname (make-pathname :name :wild :type type)) (subdir-pathname (make-pathname :directory '(:relative :wild) :name :wild :type type)) - (format-pathname (make-pathname :directory '(:relative "printer/format") + (format-pathname (make-pathname :directory '(:relative "printer" "format") :name :wild :type type)) (files (append (directory dir-pathname) (directory subdir-pathname) -- GitLab