diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-06-30 21:40:27 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-06-30 21:40:27 +0200 |
commit | f262befd1591052f273055a3b1e80aa0d62e3814 (patch) | |
tree | d2c1e3ac3594ffa74538dc23bca6dc3f50108626 /journal.lisp | |
parent | c74c449d11281c942965ca85d84c59b9107e4521 (diff) |
Cache FORMAT-DATE results for faster page generation.
darcs-hash:2efe2fb7b5c7637c31d56be210624a48f61755ec
Diffstat (limited to 'journal.lisp')
-rwxr-xr-x | journal.lisp | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/journal.lisp b/journal.lisp index 6db96e3..5353de1 100755 --- a/journal.lisp +++ b/journal.lisp @@ -292,32 +292,3 @@ (<:p "Type " (<:em (<:as-html (type-of y))) ".") (<:pre (<:as-html (prin1-to-string y)))))))) - -(defun write-out-entry (entry) - (assert (file-of entry)) - (with-open-file (out (file-of entry) :direction :output - :if-exists :supersede - :external-format #+clisp charset:utf-8 - #+sbcl :utf-8) - (with-slots (id uuid date last-modification body title categories comments) - entry - (write `(:id ,id - :uuid ,uuid - :date ,date - :last-modification ,last-modification - :title ,title - :categories ,categories - :body ,body - :comments ,(loop for comment in comments - collect - (with-slots (id uuid date author body email - website) - comment - `(:id ,id - :uuid ,uuid - :date ,date - :author ,author - :email ,email - :website ,website - :body ,body)))) - :stream out)))) |