r2798: *** empty log message ***

[lml.git] / files.cl

diff --git a/files.cl b/files.cl
index 75b37730196ecaf2e787a826493678dc40afa61c..fd2366b3ff30961f8174128324b6541a2b7272d8 100644 (file)
--- a/files.cl
+++ b/files.cl
@@ -34,11 +34,11 @@
       (unless (position #\. f)
        (setq f (concatenate 'string f ".html"))))
     (if *sources-dir*
-       `(make-pathname :defaults (ecase ,type
-                                   (:source *sources-dir*)
-                                   (:output *output-dir*))
-                       :name (pathname-name ,f)
-                       :type (pathname-type ,f))
+       (make-pathname :defaults (ecase type
+                                  (:source *sources-dir*)
+                                  (:output *output-dir*))
+                      :name `,(pathname-name f)
+                      :type `,(pathname-type f))
       (if (stringp f)
          (parse-namestring f)
        f))))