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