From e41cb9a693315df4cceac030070cb3a3ef71d1a6 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 9 Oct 2009 00:58:19 +0200 Subject: Cleanups. Ignore-this: 1f41960dbf7dde782a0c2e905f124e81 darcs-hash:06fd3071bcb306c6c362675c872b8421a22735a8 --- main.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/main.lisp b/main.lisp index 88685e1..7a65953 100644 --- a/main.lisp +++ b/main.lisp @@ -268,6 +268,7 @@ (when (string= *method* "PUT") (setf (last-modification-of entry) (get-universal-time))) + (setf *post-number* (id-of entry)) (flet ((tag-equal (tag1 tag2) (equal (if (consp tag1) (car tag1) tag1) (if (consp tag2) (car tag2) tag2)))) @@ -291,8 +292,7 @@ (when title-element (setf (title-of entry) (or (caddr title-element) ""))) (setf (entry-type-of entry) "html"))) - (update-records-from-instance entry) - (setq *post-number* (id-of entry)))) + (update-records-from-instance entry))) (show-atom-entry)) (t (debug-log "Oops. Method was:") (debug-log *method*))))) (:view-atom-feed (show-atom-feed)) -- cgit v1.2.3