From c1860f0e1c13eb42e18ab96ad0811d9f8cbe44c3 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 15 Jan 2010 10:51:27 +0100 Subject: Fix a typo. Ignore-this: ba4a2d6de32e8ac9663a79a0e8084096 darcs-hash:8770e8bd9bb58c9ef8f733ae51862218b2092ee2 --- journal.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/journal.lisp b/journal.lisp index 59a8032..3010389 100755 --- a/journal.lisp +++ b/journal.lisp @@ -833,7 +833,7 @@ (defun update-journal-entry-page (entry) (with-slots (id title) entry (let* ((file-name "index.xhtml") - (directory (merge-pathnames (make-pathname :directory (format nil "~D" id)) *static-dir*)) + (directory (merge-pathnames (make-pathname :directory (list :relative (format nil "~D" id))) *static-dir*)) (file-path (merge-pathnames file-name directory))) (ensure-directories-exist file-path) (with-open-file (*standard-output* file-path :direction :output :if-exists :supersede) @@ -860,7 +860,7 @@ (defun update-comment-feed-for-entry (entry-id) (let* ((file-name "comment-feed.xml") - (directory (merge-pathnames (make-pathname :directory (format nil "~D" id)) *static-dir*)) + (directory (merge-pathnames (make-pathname :directory (list :relative (format nil "~D" id))) *static-dir*)) (file-path (merge-pathnames file-name directory))) (ensure-directories-exist file-path) (with-open-file (*standard-output* file-path :direction :output :if-exists :supersede) -- cgit v1.2.3