X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=files.cl;h=fd2366b3ff30961f8174128324b6541a2b7272d8;hb=086d8ddd1fd16532a59740c9cd0843970339632f;hp=75b37730196ecaf2e787a826493678dc40afa61c;hpb=f212998e69e8b67604a1f96faaf1ecacf693c5c3;p=lml.git

diff --git a/files.cl b/files.cl
index 75b3773..fd2366b 100644
--- 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))))