(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))))