diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2010-01-15 10:53:28 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2010-01-15 10:53:28 +0100 |
| commit | eab6eebcbdc36ac39c35b0c0f3359efbda2ed338 (patch) | |
| tree | b81080d78bd35d9d3ab9f8ca4d0421e00254a2af | |
| parent | ed1ec3132a38f6f911370b49270534cecb753d9b (diff) | |
Fix yet another typo.
Ignore-this: 7a4e9854f2f32ef34b872ffe373d6245
darcs-hash:8c69908a7103efed1fac05b3cd684a2ab9b9342a
| -rwxr-xr-x | journal.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/journal.lisp b/journal.lisp index 220eeef..37b49fe 100755 --- a/journal.lisp +++ b/journal.lisp @@ -860,7 +860,7 @@ (defun update-comment-feed-for-entry (entry-id) (let* ((file-name "comment-feed.xml") - (directory (merge-pathnames (make-pathname :directory (list :relative (format nil "~D" id))) *static-dir*)) + (directory (merge-pathnames (make-pathname :directory (list :relative (format nil "~D" entry-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) |