summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 14:50:47 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 14:50:47 +0200
commitd22a2222bd659d5ce43f85b173e7642e8b58e9f0 (patch)
tree39d5613b3615a4c1a2ba37453dab234f6defa8ff
parent344585109c02018edd59da95248a4ea68b890471 (diff)
Fix another typo.
Ignore-this: 60f15a39618e88509d6409e0c729f1b0 darcs-hash:7d5b30cab9d62b04d03c3213c1f85182ec611098
-rw-r--r--utils.lisp4
1 files changed, 2 insertions, 2 deletions
diff --git a/utils.lisp b/utils.lisp
index 087c9ce..e73b7e4 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -330,8 +330,8 @@ ELEMENT-TYPE as the stream's."
#+clisp
(when *if-modified-since*
(let* ((date-recognisers (mapcar #'cybertiggyr-time::make-fmt-recognizer '("%A, %d-%B-%y %H:%M:%S GMT" "%A, %d %B %Y %H:%M:%S GMT" "%A %B %d %H:%M:%S %Y")))
- (time (cybertiggyr-time:parse-time *if-modified-since* date-recognisers)))
- (when (and (integerp time) (>= *if-modified-since* (compute-journal-last-modified-date)))
+ (requested-time (cybertiggyr-time:parse-time *if-modified-since* date-recognisers)))
+ (when (and (integerp time) (>= requested-time (compute-journal-last-modified-date)))
(http-add-header "Status: 304 Not Modified")
(http-send-headers)
(ext:quit 0))))