summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-09 00:58:19 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-09 00:58:19 +0200
commite41cb9a693315df4cceac030070cb3a3ef71d1a6 (patch)
treeea96cfbf74be331dd230e3f84cda3827271199a6
parentb5c022c52d12ee814c51223b752229ed44718c3c (diff)
Cleanups.
Ignore-this: 1f41960dbf7dde782a0c2e905f124e81 darcs-hash:06fd3071bcb306c6c362675c872b8421a22735a8
-rw-r--r--main.lisp4
1 files 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))