From f262befd1591052f273055a3b1e80aa0d62e3814 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 30 Jun 2007 21:40:27 +0200
Subject: Cache FORMAT-DATE results for faster page generation.

darcs-hash:2efe2fb7b5c7637c31d56be210624a48f61755ec
---
 journal.lisp | 29 -----------------------------
 1 file changed, 29 deletions(-)

(limited to 'journal.lisp')

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))))
-- 
cgit v1.2.3