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

fix: use proper pathname format for :relative

parent 34a403cc
...@@ -17,7 +17,7 @@ ...@@ -17,7 +17,7 @@
(dir-pathname (make-pathname :name :wild :type type)) (dir-pathname (make-pathname :name :wild :type type))
(subdir-pathname (make-pathname :directory '(:relative :wild) (subdir-pathname (make-pathname :directory '(:relative :wild)
:name :wild :type type)) :name :wild :type type))
(format-pathname (make-pathname :directory '(:relative "printer/format") (format-pathname (make-pathname :directory '(:relative "printer" "format")
:name :wild :type type)) :name :wild :type type))
(files (append (directory dir-pathname) (files (append (directory dir-pathname)
(directory subdir-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