diff --git a/doit.lsp b/doit.lsp index 8a982e273c12a73197d2bc0313645eb0aa3ed12a..e052fc0d704c1eca11a55d51396541fc2f91ce26 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)