summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2010-01-15 10:51:27 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2010-01-15 10:51:27 +0100
commitc1860f0e1c13eb42e18ab96ad0811d9f8cbe44c3 (patch)
tree73365d216ce2707ced0736b17ef95788c452254f
parent5f168d57beb6171fad96d275fedb6d2a20d5b041 (diff)
Fix a typo.
Ignore-this: ba4a2d6de32e8ac9663a79a0e8084096 darcs-hash:8770e8bd9bb58c9ef8f733ae51862218b2092ee2
-rwxr-xr-xjournal.lisp4
1 files 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)