Commit 4287649f authored by Attila Lendvai's avatar Attila Lendvai
Browse files

fix: use proper pathname format for :relative

parent 34a403cc
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment